/**
 ** This file was automatically generated by the Cyclone scheme compiler
 ** http://justinethier.github.io/cyclone/
 **
 ** (c) 2014-2017 Justin Ethier
 ** Version 0.5.4 
 **
 **/

/* 
"---------------- input program:"
 */
/* 
((import
   (scheme base)
   (scheme read)
   (scheme write)
   (scheme time))
 (define (bitwise-not x) (- (- x) 1))
 (define (bitwise-and x y)
   (cond ((= x 0) 0)
         ((= y 0) 0)
         ((= x -1) y)
         ((= y -1) x)
         (else
          (let ((z (bitwise-and (div x 2) (div y 2))))
            (if (and (odd? x) (odd? y)) (+ z z 1) (+ z z))))))
 (define (div x y)
   (cond ((and (exact-integer? x)
               (exact-integer? y)
               (>= x 0))
          (quotient x y))
         ((< y 0)
          (let* ((q (quotient x y)) (r (- x (* q y))))
            (if (= r 0) q (+ q 1))))
         (else
          (let* ((q (quotient x y)) (r (- x (* q y))))
            (if (= r 0) q (- q 1))))))
 (define (mod x y)
   (cond ((and (exact-integer? x)
               (exact-integer? y)
               (>= x 0))
          (remainder x y))
         ((< y 0)
          (let* ((q (quotient x y)) (r (- x (* q y))))
            (if (= r 0) 0 (- r y))))
         (else
          (let* ((q (quotient x y)) (r (- x (* q y))))
            (if (= r 0) 0 (+ r y))))))
 (define (random-state n) (cons n #f))
 (define (rand state)
   (let ((seed (car state))
         (A 2813)
         (M 8388607)
         (Q 2787)
         (R 2699))
     (let* ((hi (div seed Q))
            (lo (mod seed Q))
            (test (- (* A lo) (* R hi)))
            (val (if (> test 0) test (+ test M))))
       (set-car! state val)
       val)))
 (define (random-int n state)
   (mod (rand state) n))
 (define (base-set nelts) (cons nelts '()))
 (define (get-set-root s)
   (let lp ((r s))
     (let ((next (cdr r)))
       (cond ((pair? next) (lp next))
             (else
              (if (not (eq? r s))
                (let lp ((x s))
                  (let ((next (cdr x)))
                    (cond ((not (eq? r next)) (set-cdr! x r) (lp next))))))
              r)))))
 (define (set-equal? s1 s2)
   (eq? (get-set-root s1) (get-set-root s2)))
 (define (set-size s) (car (get-set-root s)))
 (define (union! s1 s2)
   (let* ((r1 (get-set-root s1))
          (r2 (get-set-root s2))
          (n1 (set-size r1))
          (n2 (set-size r2))
          (n (+ n1 n2)))
     (cond ((> n1 n2) (set-cdr! r2 r1) (set-car! r1 n))
           (else (set-cdr! r1 r2) (set-car! r2 n)))))
 (define (make-wall owner neighbor bit)
   (vector 'wall owner neighbor bit))
 (define (wall:owner o) (vector-ref o 1))
 (define (set-wall:owner o v) (vector-set! o 1 v))
 (define (wall:neighbor o) (vector-ref o 2))
 (define (set-wall:neighbor o v)
   (vector-set! o 2 v))
 (define (wall:bit o) (vector-ref o 3))
 (define (set-wall:bit o v) (vector-set! o 3 v))
 (define (make-cell reachable id)
   (vector 'cell reachable id -1 #f #f))
 (define (cell:reachable o) (vector-ref o 1))
 (define (set-cell:reachable o v)
   (vector-set! o 1 v))
 (define (cell:id o) (vector-ref o 2))
 (define (set-cell:id o v) (vector-set! o 2 v))
 (define (cell:walls o) (vector-ref o 3))
 (define (set-cell:walls o v) (vector-set! o 3 v))
 (define (cell:parent o) (vector-ref o 4))
 (define (set-cell:parent o v)
   (vector-set! o 4 v))
 (define (cell:mark o) (vector-ref o 5))
 (define (set-cell:mark o v) (vector-set! o 5 v))
 (define (vector-for-each-rev proc v)
   (let lp ((i (- (vector-length v) 1)))
     (cond ((>= i 0) (proc (vector-ref v i)) (lp (- i 1))))))
 (define (permute-vec! v random-state)
   (let lp ((i (- (vector-length v) 1)))
     (cond ((> i 1)
            (let ((elt-i (vector-ref v i))
                  (j (random-int i random-state)))
              (vector-set! v i (vector-ref v j))
              (vector-set! v j elt-i))
            (lp (- i 1)))))
   v)
 (define (dig-maze walls ncells)
   (call-with-current-continuation
     (lambda (quit)
       (vector-for-each-rev
         (lambda (wall)
           (let* ((c1 (wall:owner wall))
                  (set1 (cell:reachable c1))
                  (c2 (wall:neighbor wall))
                  (set2 (cell:reachable c2)))
             (if (not (set-equal? set1 set2))
               (let ((walls (cell:walls c1))
                     (wall-mask (bitwise-not (wall:bit wall))))
                 (union! set1 set2)
                 (set-cell:walls c1 (bitwise-and walls wall-mask))
                 (if (= (set-size set1) ncells) (quit #f))))))
         walls))))
 (define (dfs-maze maze root do-children)
   (let search ((node root) (parent #f))
     (set-cell:parent node parent)
     (do-children
       (lambda (child)
         (if (not (eq? child parent)) (search child node)))
       maze
       node)))
 (define (reroot-maze new-root)
   (let lp ((node new-root) (new-parent #f))
     (let ((old-parent (cell:parent node)))
       (set-cell:parent node new-parent)
       (if old-parent (lp old-parent node)))))
 (define (path-length cell)
   (do ((len 0 (+ len 1))
        (node (cell:parent cell) (cell:parent node)))
       ((not node) len)))
 (define (mark-path node)
   (let lp ((node node))
     (set-cell:mark node #t)
     (cond ((cell:parent node) => lp))))
 (define (make-harr nrows ncols elts)
   (vector 'harr nrows ncols elts))
 (define (harr:nrows o) (vector-ref o 1))
 (define (set-harr:nrows o v) (vector-set! o 1 v))
 (define (harr:ncols o) (vector-ref o 2))
 (define (set-harr:ncols o v) (vector-set! o 2 v))
 (define (harr:elts o) (vector-ref o 3))
 (define (set-harr:elts o v) (vector-set! o 3 v))
 (define (harr r c)
   (make-harr r c (make-vector (* r c))))
 (define (href ha x y)
   (let ((r (div y 2)) (c (div x 3)))
     (vector-ref
       (harr:elts ha)
       (+ (* (harr:ncols ha) r) c))))
 (define (hset! ha x y val)
   (let ((r (div y 2)) (c (div x 3)))
     (vector-set!
       (harr:elts ha)
       (+ (* (harr:ncols ha) r) c)
       val)))
 (define (href/rc ha r c)
   (vector-ref
     (harr:elts ha)
     (+ (* (harr:ncols ha) r) c)))
 (define (harr-tabulate nrows ncols proc)
   (let ((v (make-vector (* nrows ncols))))
     (do ((r (- nrows 1) (- r 1)))
         ((< r 0))
       (do ((c 0 (+ c 1)) (i (* r ncols) (+ i 1)))
           ((= c ncols))
         (vector-set!
           v
           i
           (proc (* 3 c) (+ (* 2 r) (bitwise-and c 1))))))
     (make-harr nrows ncols v)))
 (define (harr-for-each proc harr)
   (vector-for-each-rev proc (harr:elts harr)))
 (define south-west 1)
 (define south 2)
 (define south-east 4)
 (define (gen-maze-array r c)
   (harr-tabulate
     r
     c
     (lambda (x y)
       (make-cell (base-set 1) (cons x y)))))
 (define (make-wall-vec harr)
   (let* ((nrows (harr:nrows harr))
          (ncols (harr:ncols harr))
          (xmax (* 3 (- ncols 1)))
          (walls '())
          (add-wall
            (lambda (o n b)
              (set! walls (cons (make-wall o n b) walls)))))
     (do ((x (* (- ncols 1) 3) (- x 3)))
         ((< x 0))
       (do ((y (+ (* (- nrows 1) 2) (bitwise-and x 1))
               (- y 2)))
           ((<= y 1))
         (let ((hex (href harr x y)))
           (if (not (zero? x))
             (add-wall
               hex
               (href harr (- x 3) (- y 1))
               south-west))
           (add-wall hex (href harr x (- y 2)) south)
           (if (< x xmax)
             (add-wall
               hex
               (href harr (+ x 3) (- y 1))
               south-east)))))
     (if (> ncols 1)
       (let ((rmoc-x (+ 3 (* 6 (div (- ncols 2) 2)))))
         (let ((rmoc-hex (href harr rmoc-x 1)))
           (if (< rmoc-x xmax)
             (add-wall rmoc-hex (href harr xmax 0) south-east))
           (add-wall
             rmoc-hex
             (href harr (- rmoc-x 3) 0)
             south-west))
         (do ((x (- rmoc-x 6) (- x 6)))
             ((< x 3))
           (add-wall
             (href harr x 1)
             (href harr (- x 3) 0)
             south-west)
           (add-wall
             (href harr x 1)
             (href harr (+ x 3) 0)
             south-east))))
     (list->vector walls)))
 (define (pick-entrances harr)
   (dfs-maze
     harr
     (href/rc harr 0 0)
     for-each-hex-child)
   (let ((nrows (harr:nrows harr))
         (ncols (harr:ncols harr)))
     (let tp-lp ((max-len -1)
                 (entrance #f)
                 (exit #f)
                 (tcol (- ncols 1)))
       (if (< tcol 0)
         (vector entrance exit)
         (let ((top-cell (href/rc harr (- nrows 1) tcol)))
           (reroot-maze top-cell)
           (let ((result
                   (let bt-lp ((max-len max-len)
                               (entrance entrance)
                               (exit exit)
                               (bcol (- ncols 1)))
                     (if (< bcol 0)
                       (vector max-len entrance exit)
                       (let ((this-len (path-length (href/rc harr 0 bcol))))
                         (if (> this-len max-len)
                           (bt-lp this-len tcol bcol (- bcol 1))
                           (bt-lp max-len entrance exit (- bcol 1))))))))
             (let ((max-len (vector-ref result 0))
                   (entrance (vector-ref result 1))
                   (exit (vector-ref result 2)))
               (tp-lp max-len entrance exit (- tcol 1)))))))))
 (define (for-each-hex-child proc harr cell)
   (let* ((walls (cell:walls cell))
          (id (cell:id cell))
          (x (car id))
          (y (cdr id))
          (nr (harr:nrows harr))
          (nc (harr:ncols harr))
          (maxy (* 2 (- nr 1)))
          (maxx (* 3 (- nc 1))))
     (if (not (bit-test walls south-west))
       (proc (href harr (- x 3) (- y 1))))
     (if (not (bit-test walls south))
       (proc (href harr x (- y 2))))
     (if (not (bit-test walls south-east))
       (proc (href harr (+ x 3) (- y 1))))
     (if (and (> x 0) (or (<= y maxy) (zero? (mod x 6))))
       (let ((nw (href harr (- x 3) (+ y 1))))
         (if (not (bit-test (cell:walls nw) south-east))
           (proc nw))))
     (if (< y maxy)
       (let ((n (href harr x (+ y 2))))
         (if (not (bit-test (cell:walls n) south))
           (proc n))))
     (if (and (< x maxx)
              (or (<= y maxy) (zero? (mod x 6))))
       (let ((ne (href harr (+ x 3) (+ y 1))))
         (if (not (bit-test (cell:walls ne) south-west))
           (proc ne))))))
 (define (make-maze nrows ncols)
   (let* ((cells (gen-maze-array nrows ncols))
          (walls (permute-vec!
                   (make-wall-vec cells)
                   (random-state 20))))
     (dig-maze walls (* nrows ncols))
     (let ((result (pick-entrances cells)))
       (let ((entrance (vector-ref result 0))
             (exit (vector-ref result 1)))
         (let* ((exit-cell (href/rc cells 0 exit))
                (walls (cell:walls exit-cell)))
           (reroot-maze
             (href/rc cells (- nrows 1) entrance))
           (mark-path exit-cell)
           (set-cell:walls
             exit-cell
             (bitwise-and walls (bitwise-not south)))
           (vector cells entrance exit))))))
 (define (pmaze nrows ncols)
   (let ((result (make-maze nrows ncols)))
     (let ((cells (vector-ref result 0))
           (entrance (vector-ref result 1))
           (exit (vector-ref result 2)))
       (print-hexmaze cells entrance))))
 (define output #f)
 (define (write-ch c)
   (set! output (cons c output)))
 (define (print-hexmaze harr entrance)
   (let* ((nrows (harr:nrows harr))
          (ncols (harr:ncols harr))
          (ncols2 (* 2 (div ncols 2))))
     (do ((c 1 (+ c 2)))
         ((>= c ncols))
       (write-ch #\space)
       (write-ch #\space)
       (write-ch #\space)
       (write-ch (if (= c entrance) #\space #\_)))
     (write-ch #\newline)
     (write-ch #\space)
     (do ((c 0 (+ c 2)))
         ((>= c ncols2))
       (write-ch (if (= c entrance) #\space #\_))
       (write-ch #\/)
       (write-ch (dot/space harr (- nrows 1) (+ c 1)))
       (write-ch #\\))
     (if (odd? ncols)
       (write-ch
         (if (= entrance (- ncols 1)) #\space #\_)))
     (write-ch #\newline)
     (do ((r (- nrows 1) (- r 1)))
         ((< r 0))
       (write-ch #\/)
       (do ((c 1 (+ c 2)))
           ((>= c ncols2))
         (write-ch (dot/space harr r (- c 1)))
         (display-hexbottom
           (cell:walls (href/rc harr r c))))
       (cond ((odd? ncols)
              (write-ch (dot/space harr r (- ncols 1)))
              (write-ch #\\)))
       (write-ch #\newline)
       (do ((c 0 (+ c 2)))
           ((>= c ncols2))
         (display-hexbottom
           (cell:walls (href/rc harr r c)))
         (write-ch (dot/space harr (- r 1) (+ c 1))))
       (cond ((odd? ncols)
              (display-hexbottom
                (cell:walls (href/rc harr r (- ncols 1)))))
             ((not (zero? r)) (write-ch #\\)))
       (write-ch #\newline))))
 (define (bit-test j bit)
   (not (zero? (bitwise-and j bit))))
 (define (dot/space harr r c)
   (if (and (>= r 0) (cell:mark (href/rc harr r c)))
     #\.
     #\space))
 (define (display-hexbottom hexwalls)
   (write-ch
     (if (bit-test hexwalls south-west) #\\ #\space))
   (write-ch
     (if (bit-test hexwalls south) #\_ #\space))
   (write-ch
     (if (bit-test hexwalls south-east) #\/ #\space)))
 (define (run nrows ncols)
   (set! output '())
   (pmaze nrows ncols)
   (reverse output))
 (define (main)
   (let* ((count (read))
          (input1 (read))
          (input2 (read))
          (output (read))
          (s3 (number->string count))
          (s2 (number->string input2))
          (s1 (number->string input1))
          (name "maze"))
     (run-r7rs-benchmark
       (string-append name ":" s1 ":" s2 ":" s3)
       count
       (lambda ()
         (run (hide count input1) (hide count input2)))
       (lambda (result) (equal? result output)))))
 (define (hide r x)
   (call-with-values
     (lambda ()
       (values
         (vector values (lambda (x) x))
         (if (< r 100) 0 1)))
     (lambda (v i) ((vector-ref v i) x))))
 (define (run-r7rs-benchmark name count thunk ok?)
   (define (rounded x) (/ (round (* 1000 x)) 1000))
   (display "Running ")
   (display name)
   (newline)
   (flush-output-port (current-output-port))
   (let* ((j/s (jiffies-per-second))
          (t0 (current-second))
          (j0 (current-jiffy)))
     (let loop ((i 0) (result #f))
       (cond ((< i count) (loop (+ i 1) (thunk)))
             ((ok? result)
              (let* ((j1 (current-jiffy))
                     (t1 (current-second))
                     (jifs (- j1 j0))
                     (secs (inexact (/ jifs j/s)))
                     (secs2 (rounded (- t1 t0))))
                (display "Elapsed time: ")
                (write secs)
                (display " seconds (")
                (write secs2)
                (display ") for ")
                (display name)
                (newline)
                (display "+!CSVLINE!+")
                (display (this-scheme-implementation-name))
                (display ",")
                (display name)
                (display ",")
                (display secs)
                (newline)
                (flush-output-port (current-output-port)))
              result)
             (else
              (display "ERROR: returned incorrect result: ")
              (write result)
              (newline)
              (flush-output-port (current-output-port))
              result)))))
 (define (this-scheme-implementation-name)
   (string-append "cyclone-" (Cyc-version)))
 (main))
 */
/* 
"inline candidates:"
 */
/* 
()
 */
/* 
"imports:"
 */
/* 
((scheme base)
 (scheme read)
 (scheme write)
 (scheme time))
 */
/* 
"resolved imports:"
 */
/* 
((member scheme base)
 (assoc scheme base)
 (cons-source scheme base)
 (syntax-rules scheme base)
 (letrec* scheme base)
 (guard scheme base)
 (guard-aux scheme base)
 (define-record-type scheme base)
 (record? scheme base)
 (register-simple-type scheme base)
 (make-type-predicate scheme base)
 (make-constructor scheme base)
 (make-getter scheme base)
 (make-setter scheme base)
 (slot-set! scheme base)
 (type-slot-offset scheme base)
 (receive scheme base)
 (abs scheme base)
 (max scheme base)
 (min scheme base)
 (modulo scheme base)
 (floor-remainder scheme base)
 (even? scheme base)
 (exact-integer? scheme base)
 (exact-integer-sqrt scheme base)
 (exact? scheme base)
 (inexact? scheme base)
 (odd? scheme base)
 (complex? scheme base)
 (rational? scheme base)
 (bignum? scheme base)
 (gcd scheme base)
 (lcm scheme base)
 (quotient scheme base)
 (remainder scheme base)
 (truncate-quotient scheme base)
 (truncate-remainder scheme base)
 (truncate/ scheme base)
 (floor-quotient scheme base)
 (floor-remainder scheme base)
 (floor/ scheme base)
 (square scheme base)
 (expt scheme base)
 (call-with-current-continuation scheme base)
 (call/cc scheme base)
 (call-with-values scheme base)
 (dynamic-wind scheme base)
 (values scheme base)
 (char=? scheme base)
 (char<? scheme base)
 (char>? scheme base)
 (char<=? scheme base)
 (char>=? scheme base)
 (string=? scheme base)
 (string<? scheme base)
 (string<=? scheme base)
 (string>? scheme base)
 (string>=? scheme base)
 (foldl scheme base)
 (foldr scheme base)
 (not scheme base)
 (list? scheme base)
 (zero? scheme base)
 (positive? scheme base)
 (negative? scheme base)
 (append scheme base)
 (list scheme base)
 (make-list scheme base)
 (list-copy scheme base)
 (map scheme base)
 (for-each scheme base)
 (list-tail scheme base)
 (list-ref scheme base)
 (list-set! scheme base)
 (reverse scheme base)
 (boolean=? scheme base)
 (symbol=? scheme base)
 (Cyc-obj=? scheme base)
 (vector scheme base)
 (vector-append scheme base)
 (vector-copy scheme base)
 (vector-copy! scheme base)
 (vector-fill! scheme base)
 (vector->list scheme base)
 (vector->string scheme base)
 (vector-map scheme base)
 (vector-for-each scheme base)
 (make-string scheme base)
 (string scheme base)
 (string-copy scheme base)
 (string-copy! scheme base)
 (string-fill! scheme base)
 (string->list scheme base)
 (string->vector scheme base)
 (string-map scheme base)
 (string-for-each scheme base)
 (make-parameter scheme base)
 (current-output-port scheme base)
 (current-input-port scheme base)
 (current-error-port scheme base)
 (call-with-port scheme base)
 (error scheme base)
 (raise scheme base)
 (raise-continuable scheme base)
 (with-handler scheme base)
 (with-exception-handler scheme base)
 (Cyc-add-exception-handler scheme base)
 (Cyc-remove-exception-handler scheme base)
 (newline scheme base)
 (write-char scheme base)
 (write-string scheme base)
 (flush-output-port scheme base)
 (read-line scheme base)
 (read-string scheme base)
 (input-port? scheme base)
 (output-port? scheme base)
 (input-port-open? scheme base)
 (output-port-open? scheme base)
 (get-output-string scheme base)
 (open-output-string scheme base)
 (open-input-string scheme base)
 (get-output-bytevector scheme base)
 (open-input-bytevector scheme base)
 (open-output-bytevector scheme base)
 (features scheme base)
 (Cyc-version scheme base)
 (any scheme base)
 (every scheme base)
 (and scheme base)
 (or scheme base)
 (let scheme base)
 (let* scheme base)
 (letrec scheme base)
 (let*-values scheme base)
 (let-values scheme base)
 (begin scheme base)
 (case scheme base)
 (cond scheme base)
 (cond-expand scheme base)
 (do scheme base)
 (when scheme base)
 (unless scheme base)
 (quasiquote scheme base)
 (floor scheme base)
 (ceiling scheme base)
 (truncate scheme base)
 (round scheme base)
 (exact scheme base)
 (inexact scheme base)
 (eof-object scheme base)
 (syntax-error scheme base)
 (bytevector-copy scheme base)
 (bytevector-copy! scheme base)
 (utf8->string scheme base)
 (string->utf8 scheme base)
 (denominator scheme base)
 (numerator scheme base)
 (parameterize scheme base)
 (read scheme read)
 (read-all scheme read)
 (include scheme read)
 (include-ci scheme read)
 (display scheme write)
 (write scheme write)
 (write-shared scheme write)
 (write-simple scheme write)
 (current-second scheme time)
 (current-jiffy scheme time)
 (jiffies-per-second scheme time))
 */
/* 
"resolved macros:"
 */
/* 
()
 */
/* 
"---------------- after macro expansion:"
 */
/* 
((define bitwise-not (lambda (x) (- (- x) 1)))
 (define bitwise-and
   (lambda (x y)
     (if (= x 0)
       ((lambda () 0))
       (if (= y 0)
         ((lambda () 0))
         (if (= x -1)
           ((lambda () y))
           (if (= y -1)
             ((lambda () x))
             ((lambda ()
                ((lambda (z)
                   (if (if (odd? x) (odd? y) #f) (+ z z 1) (+ z z)))
                 (bitwise-and (div x 2) (div y 2)))))))))))
 (define div
   (lambda (x y)
     (if (if (exact-integer? x)
           (if (exact-integer? y) (>= x 0) #f)
           #f)
       ((lambda () (quotient x y)))
       (if (< y 0)
         ((lambda ()
            ((lambda (q)
               ((lambda (r) ((lambda () (if (= r 0) q (+ q 1)))))
                (- x (* q y))))
             (quotient x y))))
         ((lambda ()
            ((lambda (q)
               ((lambda (r) ((lambda () (if (= r 0) q (- q 1)))))
                (- x (* q y))))
             (quotient x y))))))))
 (define mod
   (lambda (x y)
     (if (if (exact-integer? x)
           (if (exact-integer? y) (>= x 0) #f)
           #f)
       ((lambda () (remainder x y)))
       (if (< y 0)
         ((lambda ()
            ((lambda (q)
               ((lambda (r) ((lambda () (if (= r 0) 0 (- r y)))))
                (- x (* q y))))
             (quotient x y))))
         ((lambda ()
            ((lambda (q)
               ((lambda (r) ((lambda () (if (= r 0) 0 (+ r y)))))
                (- x (* q y))))
             (quotient x y))))))))
 (define random-state (lambda (n) (cons n #f)))
 (define rand
   (lambda (state)
     ((lambda (seed A M Q R)
        ((lambda (hi)
           ((lambda (lo)
              ((lambda (test)
                 ((lambda (val)
                    ((lambda () (set-car! state val) val)))
                  (if (> test 0) test (+ test M))))
               (- (* A lo) (* R hi))))
            (mod seed Q)))
         (div seed Q)))
      (car state)
      2813
      8388607
      2787
      2699)))
 (define random-int
   (lambda (n state) (mod (rand state) n)))
 (define base-set
   (lambda (nelts) (cons nelts '())))
 (define get-set-root
   (lambda (s)
     ((lambda (r)
        ((lambda (lp)
           (set! lp
             (lambda (r)
               ((lambda (next)
                  (if (pair? next)
                    ((lambda () (lp next)))
                    ((lambda ()
                       (if (not (eq? r s))
                         ((lambda (x)
                            ((lambda (lp)
                               (set! lp
                                 (lambda (x)
                                   ((lambda (next)
                                      (if (not (eq? r next))
                                        ((lambda () (set-cdr! x r) (lp next)))
                                        #f))
                                    (cdr x))))
                               (lp x))
                             #f))
                          s)
                         #f)
                       r))))
                (cdr r))))
           (lp r))
         #f))
      s)))
 (define set-equal?
   (lambda (s1 s2)
     (eq? (get-set-root s1) (get-set-root s2))))
 (define set-size
   (lambda (s) (car (get-set-root s))))
 (define union!
   (lambda (s1 s2)
     ((lambda (r1)
        ((lambda (r2)
           ((lambda (n1)
              ((lambda (n2)
                 ((lambda (n)
                    ((lambda ()
                       (if (> n1 n2)
                         ((lambda () (set-cdr! r2 r1) (set-car! r1 n)))
                         ((lambda () (set-cdr! r1 r2) (set-car! r2 n)))))))
                  (+ n1 n2)))
               (set-size r2)))
            (set-size r1)))
         (get-set-root s2)))
      (get-set-root s1))))
 (define make-wall
   (lambda (owner neighbor bit)
     (vector 'wall owner neighbor bit)))
 (define wall:owner (lambda (o) (vector-ref o 1)))
 (define set-wall:owner
   (lambda (o v) (vector-set! o 1 v)))
 (define wall:neighbor
   (lambda (o) (vector-ref o 2)))
 (define set-wall:neighbor
   (lambda (o v) (vector-set! o 2 v)))
 (define wall:bit (lambda (o) (vector-ref o 3)))
 (define set-wall:bit
   (lambda (o v) (vector-set! o 3 v)))
 (define make-cell
   (lambda (reachable id)
     (vector 'cell reachable id -1 #f #f)))
 (define cell:reachable
   (lambda (o) (vector-ref o 1)))
 (define set-cell:reachable
   (lambda (o v) (vector-set! o 1 v)))
 (define cell:id (lambda (o) (vector-ref o 2)))
 (define set-cell:id
   (lambda (o v) (vector-set! o 2 v)))
 (define cell:walls (lambda (o) (vector-ref o 3)))
 (define set-cell:walls
   (lambda (o v) (vector-set! o 3 v)))
 (define cell:parent
   (lambda (o) (vector-ref o 4)))
 (define set-cell:parent
   (lambda (o v) (vector-set! o 4 v)))
 (define cell:mark (lambda (o) (vector-ref o 5)))
 (define set-cell:mark
   (lambda (o v) (vector-set! o 5 v)))
 (define vector-for-each-rev
   (lambda (proc v)
     ((lambda (i)
        ((lambda (lp)
           (set! lp
             (lambda (i)
               (if (>= i 0)
                 ((lambda () (proc (vector-ref v i)) (lp (- i 1))))
                 #f)))
           (lp i))
         #f))
      (- (vector-length v) 1))))
 (define permute-vec!
   (lambda (v random-state)
     ((lambda (i)
        ((lambda (lp)
           (set! lp
             (lambda (i)
               (if (> i 1)
                 ((lambda ()
                    ((lambda (elt-i j)
                       (vector-set! v i (vector-ref v j))
                       (vector-set! v j elt-i))
                     (vector-ref v i)
                     (random-int i random-state))
                    (lp (- i 1))))
                 #f)))
           (lp i))
         #f))
      (- (vector-length v) 1))
     v))
 (define dig-maze
   (lambda (walls ncells)
     (call-with-current-continuation
       (lambda (quit)
         (vector-for-each-rev
           (lambda (wall)
             ((lambda (c1)
                ((lambda (set1)
                   ((lambda (c2)
                      ((lambda (set2)
                         ((lambda ()
                            (if (not (set-equal? set1 set2))
                              ((lambda (walls wall-mask)
                                 (union! set1 set2)
                                 (set-cell:walls
                                   c1
                                   (bitwise-and walls wall-mask))
                                 (if (= (set-size set1) ncells) (quit #f) #f))
                               (cell:walls c1)
                               (bitwise-not (wall:bit wall)))
                              #f))))
                       (cell:reachable c2)))
                    (wall:neighbor wall)))
                 (cell:reachable c1)))
              (wall:owner wall)))
           walls)))))
 (define dfs-maze
   (lambda (maze root do-children)
     ((lambda (node parent)
        ((lambda (search)
           (set! search
             (lambda (node parent)
               (set-cell:parent node parent)
               (do-children
                 (lambda (child)
                   (if (not (eq? child parent))
                     (search child node)
                     #f))
                 maze
                 node)))
           (search node parent))
         #f))
      root
      #f)))
 (define reroot-maze
   (lambda (new-root)
     ((lambda (node new-parent)
        ((lambda (lp)
           (set! lp
             (lambda (node new-parent)
               ((lambda (old-parent)
                  (set-cell:parent node new-parent)
                  (if old-parent (lp old-parent node) #f))
                (cell:parent node))))
           (lp node new-parent))
         #f))
      new-root
      #f)))
 (define path-length
   (lambda (cell)
     ((lambda (len node)
        ((lambda (lp$105)
           (set! lp$105
             (lambda (len node)
               (if (not node)
                 len
                 (lp$105 (+ len 1) (cell:parent node)))))
           (lp$105 len node))
         #f))
      0
      (cell:parent cell))))
 (define mark-path
   (lambda (node)
     ((lambda (node)
        ((lambda (lp)
           (set! lp
             (lambda (node)
               (set-cell:mark node #t)
               ((lambda (tmp$111) (if tmp$111 (lp tmp$111) #f))
                (cell:parent node))))
           (lp node))
         #f))
      node)))
 (define make-harr
   (lambda (nrows ncols elts)
     (vector 'harr nrows ncols elts)))
 (define harr:nrows (lambda (o) (vector-ref o 1)))
 (define set-harr:nrows
   (lambda (o v) (vector-set! o 1 v)))
 (define harr:ncols (lambda (o) (vector-ref o 2)))
 (define set-harr:ncols
   (lambda (o v) (vector-set! o 2 v)))
 (define harr:elts (lambda (o) (vector-ref o 3)))
 (define set-harr:elts
   (lambda (o v) (vector-set! o 3 v)))
 (define harr
   (lambda (r c)
     (make-harr r c (make-vector (* r c)))))
 (define href
   (lambda (ha x y)
     ((lambda (r c)
        (vector-ref
          (harr:elts ha)
          (+ (* (harr:ncols ha) r) c)))
      (div y 2)
      (div x 3))))
 (define hset!
   (lambda (ha x y val)
     ((lambda (r c)
        (vector-set!
          (harr:elts ha)
          (+ (* (harr:ncols ha) r) c)
          val))
      (div y 2)
      (div x 3))))
 (define href/rc
   (lambda (ha r c)
     (vector-ref
       (harr:elts ha)
       (+ (* (harr:ncols ha) r) c))))
 (define harr-tabulate
   (lambda (nrows ncols proc)
     ((lambda (v)
        ((lambda (r)
           ((lambda (lp$113)
              (set! lp$113
                (lambda (r)
                  ((lambda (tmp$115)
                     (if tmp$115
                       tmp$115
                       ((lambda ()
                          ((lambda (c i)
                             ((lambda (lp$117)
                                (set! lp$117
                                  (lambda (c i)
                                    ((lambda (tmp$119)
                                       (if tmp$119
                                         tmp$119
                                         ((lambda ()
                                            (vector-set!
                                              v
                                              i
                                              (proc (* 3 c)
                                                    (+ (* 2 r)
                                                       (bitwise-and c 1))))
                                            (lp$117 (+ c 1) (+ i 1))))))
                                     (= c ncols))))
                                (lp$117 c i))
                              #f))
                           0
                           (* r ncols))
                          (lp$113 (- r 1))))))
                   (< r 0))))
              (lp$113 r))
            #f))
         (- nrows 1))
        (make-harr nrows ncols v))
      (make-vector (* nrows ncols)))))
 (define harr-for-each
   (lambda (proc harr)
     (vector-for-each-rev proc (harr:elts harr))))
 (define south-west 1)
 (define south 2)
 (define south-east 4)
 (define gen-maze-array
   (lambda (r c)
     (harr-tabulate
       r
       c
       (lambda (x y)
         (make-cell (base-set 1) (cons x y))))))
 (define make-wall-vec
   (lambda (harr)
     ((lambda (nrows)
        ((lambda (ncols)
           ((lambda (xmax)
              ((lambda (walls)
                 ((lambda (add-wall)
                    ((lambda ()
                       ((lambda (x)
                          ((lambda (lp$132)
                             (set! lp$132
                               (lambda (x)
                                 ((lambda (tmp$134)
                                    (if tmp$134
                                      tmp$134
                                      ((lambda ()
                                         ((lambda (y)
                                            ((lambda (lp$136)
                                               (set! lp$136
                                                 (lambda (y)
                                                   ((lambda (tmp$138)
                                                      (if tmp$138
                                                        tmp$138
                                                        ((lambda ()
                                                           ((lambda (hex)
                                                              (if (not (zero? x))
                                                                (add-wall
                                                                  hex
                                                                  (href harr
                                                                        (- x 3)
                                                                        (- y 1))
                                                                  south-west)
                                                                #f)
                                                              (add-wall
                                                                hex
                                                                (href harr
                                                                      x
                                                                      (- y 2))
                                                                south)
                                                              (if (< x xmax)
                                                                (add-wall
                                                                  hex
                                                                  (href harr
                                                                        (+ x 3)
                                                                        (- y 1))
                                                                  south-east)
                                                                #f))
                                                            (href harr x y))
                                                           (lp$136 (- y 2))))))
                                                    (<= y 1))))
                                               (lp$136 y))
                                             #f))
                                          (+ (* (- nrows 1) 2)
                                             (bitwise-and x 1)))
                                         (lp$132 (- x 3))))))
                                  (< x 0))))
                             (lp$132 x))
                           #f))
                        (* (- ncols 1) 3))
                       (if (> ncols 1)
                         ((lambda (rmoc-x)
                            ((lambda (rmoc-hex)
                               (if (< rmoc-x xmax)
                                 (add-wall
                                   rmoc-hex
                                   (href harr xmax 0)
                                   south-east)
                                 #f)
                               (add-wall
                                 rmoc-hex
                                 (href harr (- rmoc-x 3) 0)
                                 south-west))
                             (href harr rmoc-x 1))
                            ((lambda (x)
                               ((lambda (lp$140)
                                  (set! lp$140
                                    (lambda (x)
                                      ((lambda (tmp$142)
                                         (if tmp$142
                                           tmp$142
                                           ((lambda ()
                                              (add-wall
                                                (href harr x 1)
                                                (href harr (- x 3) 0)
                                                south-west)
                                              (add-wall
                                                (href harr x 1)
                                                (href harr (+ x 3) 0)
                                                south-east)
                                              (lp$140 (- x 6))))))
                                       (< x 3))))
                                  (lp$140 x))
                                #f))
                             (- rmoc-x 6)))
                          (+ 3 (* 6 (div (- ncols 2) 2))))
                         #f)
                       (list->vector walls))))
                  (lambda (o n b)
                    (set! walls (cons (make-wall o n b) walls)))))
               '()))
            (* 3 (- ncols 1))))
         (harr:ncols harr)))
      (harr:nrows harr))))
 (define pick-entrances
   (lambda (harr)
     (dfs-maze
       harr
       (href/rc harr 0 0)
       for-each-hex-child)
     ((lambda (nrows ncols)
        ((lambda (max-len entrance exit tcol)
           ((lambda (tp-lp)
              (set! tp-lp
                (lambda (max-len entrance exit tcol)
                  (if (< tcol 0)
                    (vector entrance exit)
                    ((lambda (top-cell)
                       (reroot-maze top-cell)
                       ((lambda (result)
                          ((lambda (max-len entrance exit)
                             (tp-lp max-len entrance exit (- tcol 1)))
                           (vector-ref result 0)
                           (vector-ref result 1)
                           (vector-ref result 2)))
                        ((lambda (max-len entrance exit bcol)
                           ((lambda (bt-lp)
                              (set! bt-lp
                                (lambda (max-len entrance exit bcol)
                                  (if (< bcol 0)
                                    (vector max-len entrance exit)
                                    ((lambda (this-len)
                                       (if (> this-len max-len)
                                         (bt-lp this-len tcol bcol (- bcol 1))
                                         (bt-lp max-len
                                                entrance
                                                exit
                                                (- bcol 1))))
                                     (path-length (href/rc harr 0 bcol))))))
                              (bt-lp max-len entrance exit bcol))
                            #f))
                         max-len
                         entrance
                         exit
                         (- ncols 1))))
                     (href/rc harr (- nrows 1) tcol)))))
              (tp-lp max-len entrance exit tcol))
            #f))
         -1
         #f
         #f
         (- ncols 1)))
      (harr:nrows harr)
      (harr:ncols harr))))
 (define for-each-hex-child
   (lambda (proc harr cell)
     ((lambda (walls)
        ((lambda (id)
           ((lambda (x)
              ((lambda (y)
                 ((lambda (nr)
                    ((lambda (nc)
                       ((lambda (maxy)
                          ((lambda (maxx)
                             ((lambda ()
                                (if (not (bit-test walls south-west))
                                  (proc (href harr (- x 3) (- y 1)))
                                  #f)
                                (if (not (bit-test walls south))
                                  (proc (href harr x (- y 2)))
                                  #f)
                                (if (not (bit-test walls south-east))
                                  (proc (href harr (+ x 3) (- y 1)))
                                  #f)
                                (if (if (> x 0)
                                      ((lambda (tmp$165)
                                         (if tmp$165 tmp$165 (zero? (mod x 6))))
                                       (<= y maxy))
                                      #f)
                                  ((lambda (nw)
                                     (if (not (bit-test
                                                (cell:walls nw)
                                                south-east))
                                       (proc nw)
                                       #f))
                                   (href harr (- x 3) (+ y 1)))
                                  #f)
                                (if (< y maxy)
                                  ((lambda (n)
                                     (if (not (bit-test (cell:walls n) south))
                                       (proc n)
                                       #f))
                                   (href harr x (+ y 2)))
                                  #f)
                                (if (if (< x maxx)
                                      ((lambda (tmp$169)
                                         (if tmp$169 tmp$169 (zero? (mod x 6))))
                                       (<= y maxy))
                                      #f)
                                  ((lambda (ne)
                                     (if (not (bit-test
                                                (cell:walls ne)
                                                south-west))
                                       (proc ne)
                                       #f))
                                   (href harr (+ x 3) (+ y 1)))
                                  #f))))
                           (* 3 (- nc 1))))
                        (* 2 (- nr 1))))
                     (harr:ncols harr)))
                  (harr:nrows harr)))
               (cdr id)))
            (car id)))
         (cell:id cell)))
      (cell:walls cell))))
 (define make-maze
   (lambda (nrows ncols)
     ((lambda (cells)
        ((lambda (walls)
           ((lambda ()
              (dig-maze walls (* nrows ncols))
              ((lambda (result)
                 ((lambda (entrance exit)
                    ((lambda (exit-cell)
                       ((lambda (walls)
                          ((lambda ()
                             (reroot-maze
                               (href/rc cells (- nrows 1) entrance))
                             (mark-path exit-cell)
                             (set-cell:walls
                               exit-cell
                               (bitwise-and walls (bitwise-not south)))
                             (vector cells entrance exit))))
                        (cell:walls exit-cell)))
                     (href/rc cells 0 exit)))
                  (vector-ref result 0)
                  (vector-ref result 1)))
               (pick-entrances cells)))))
         (permute-vec!
           (make-wall-vec cells)
           (random-state 20))))
      (gen-maze-array nrows ncols))))
 (define pmaze
   (lambda (nrows ncols)
     ((lambda (result)
        ((lambda (cells entrance exit)
           (print-hexmaze cells entrance))
         (vector-ref result 0)
         (vector-ref result 1)
         (vector-ref result 2)))
      (make-maze nrows ncols))))
 (define output #f)
 (define write-ch
   (lambda (c) (set! output (cons c output))))
 (define print-hexmaze
   (lambda (harr entrance)
     ((lambda (nrows)
        ((lambda (ncols)
           ((lambda (ncols2)
              ((lambda ()
                 ((lambda (c)
                    ((lambda (lp$188)
                       (set! lp$188
                         (lambda (c)
                           ((lambda (tmp$190)
                              (if tmp$190
                                tmp$190
                                ((lambda ()
                                   (write-ch #\space)
                                   (write-ch #\space)
                                   (write-ch #\space)
                                   (write-ch (if (= c entrance) #\space #\_))
                                   (lp$188 (+ c 2))))))
                            (>= c ncols))))
                       (lp$188 c))
                     #f))
                  1)
                 (write-ch #\newline)
                 (write-ch #\space)
                 ((lambda (c)
                    ((lambda (lp$192)
                       (set! lp$192
                         (lambda (c)
                           ((lambda (tmp$194)
                              (if tmp$194
                                tmp$194
                                ((lambda ()
                                   (write-ch (if (= c entrance) #\space #\_))
                                   (write-ch #\/)
                                   (write-ch
                                     (dot/space harr (- nrows 1) (+ c 1)))
                                   (write-ch #\\)
                                   (lp$192 (+ c 2))))))
                            (>= c ncols2))))
                       (lp$192 c))
                     #f))
                  0)
                 (if (odd? ncols)
                   (write-ch
                     (if (= entrance (- ncols 1)) #\space #\_))
                   #f)
                 (write-ch #\newline)
                 ((lambda (r)
                    ((lambda (lp$196)
                       (set! lp$196
                         (lambda (r)
                           ((lambda (tmp$198)
                              (if tmp$198
                                tmp$198
                                ((lambda ()
                                   (write-ch #\/)
                                   ((lambda (c)
                                      ((lambda (lp$200)
                                         (set! lp$200
                                           (lambda (c)
                                             ((lambda (tmp$202)
                                                (if tmp$202
                                                  tmp$202
                                                  ((lambda ()
                                                     (write-ch
                                                       (dot/space
                                                         harr
                                                         r
                                                         (- c 1)))
                                                     (display-hexbottom
                                                       (cell:walls
                                                         (href/rc harr r c)))
                                                     (lp$200 (+ c 2))))))
                                              (>= c ncols2))))
                                         (lp$200 c))
                                       #f))
                                    1)
                                   (if (odd? ncols)
                                     ((lambda ()
                                        (write-ch
                                          (dot/space harr r (- ncols 1)))
                                        (write-ch #\\)))
                                     #f)
                                   (write-ch #\newline)
                                   ((lambda (c)
                                      ((lambda (lp$207)
                                         (set! lp$207
                                           (lambda (c)
                                             ((lambda (tmp$209)
                                                (if tmp$209
                                                  tmp$209
                                                  ((lambda ()
                                                     (display-hexbottom
                                                       (cell:walls
                                                         (href/rc harr r c)))
                                                     (write-ch
                                                       (dot/space
                                                         harr
                                                         (- r 1)
                                                         (+ c 1)))
                                                     (lp$207 (+ c 2))))))
                                              (>= c ncols2))))
                                         (lp$207 c))
                                       #f))
                                    0)
                                   (if (odd? ncols)
                                     ((lambda ()
                                        (display-hexbottom
                                          (cell:walls
                                            (href/rc harr r (- ncols 1))))))
                                     (if (not (zero? r))
                                       ((lambda () (write-ch #\\)))
                                       #f))
                                   (write-ch #\newline)
                                   (lp$196 (- r 1))))))
                            (< r 0))))
                       (lp$196 r))
                     #f))
                  (- nrows 1)))))
            (* 2 (div ncols 2))))
         (harr:ncols harr)))
      (harr:nrows harr))))
 (define bit-test
   (lambda (j bit)
     (not (zero? (bitwise-and j bit)))))
 (define dot/space
   (lambda (harr r c)
     (if (if (>= r 0) (cell:mark (href/rc harr r c)) #f)
       #\.
       #\space)))
 (define display-hexbottom
   (lambda (hexwalls)
     (write-ch
       (if (bit-test hexwalls south-west) #\\ #\space))
     (write-ch
       (if (bit-test hexwalls south) #\_ #\space))
     (write-ch
       (if (bit-test hexwalls south-east) #\/ #\space))))
 (define run
   (lambda (nrows ncols)
     (set! output '())
     (pmaze nrows ncols)
     (reverse output)))
 (define main
   (lambda ()
     ((lambda (count)
        ((lambda (input1)
           ((lambda (input2)
              ((lambda (output)
                 ((lambda (s3)
                    ((lambda (s2)
                       ((lambda (s1)
                          ((lambda (name)
                             ((lambda ()
                                (run-r7rs-benchmark
                                  (string-append name ":" s1 ":" s2 ":" s3)
                                  count
                                  (lambda ()
                                    (run (hide count input1)
                                         (hide count input2)))
                                  (lambda (result) (equal? result output))))))
                           "maze"))
                        (number->string input1)))
                     (number->string input2)))
                  (number->string count)))
               (read)))
            (read)))
         (read)))
      (read))))
 (define hide
   (lambda (r x)
     (call-with-values
       (lambda ()
         (values
           (vector values (lambda (x) x))
           (if (< r 100) 0 1)))
       (lambda (v i) ((vector-ref v i) x)))))
 (define run-r7rs-benchmark
   (lambda (name count thunk ok?)
     (define rounded
       (lambda (x) (/ (round (* 1000 x)) 1000)))
     (display "Running ")
     (display name)
     (newline)
     (flush-output-port (current-output-port))
     ((lambda (j/s)
        ((lambda (t0)
           ((lambda (j0)
              ((lambda ()
                 ((lambda (i result)
                    ((lambda (loop)
                       (set! loop
                         (lambda (i result)
                           (if (< i count)
                             ((lambda () (loop (+ i 1) (thunk))))
                             (if (ok? result)
                               ((lambda ()
                                  ((lambda (j1)
                                     ((lambda (t1)
                                        ((lambda (jifs)
                                           ((lambda (secs)
                                              ((lambda (secs2)
                                                 ((lambda ()
                                                    (display "Elapsed time: ")
                                                    (write secs)
                                                    (display " seconds (")
                                                    (write secs2)
                                                    (display ") for ")
                                                    (display name)
                                                    (newline)
                                                    (display "+!CSVLINE!+")
                                                    (display
                                                      (this-scheme-implementation-name))
                                                    (display ",")
                                                    (display name)
                                                    (display ",")
                                                    (display secs)
                                                    (newline)
                                                    (flush-output-port
                                                      (current-output-port)))))
                                               (rounded (- t1 t0))))
                                            (inexact (/ jifs j/s))))
                                         (- j1 j0)))
                                      (current-second)))
                                   (current-jiffy))
                                  result))
                               ((lambda ()
                                  (display "ERROR: returned incorrect result: ")
                                  (write result)
                                  (newline)
                                  (flush-output-port (current-output-port))
                                  result))))))
                       (loop i result))
                     #f))
                  0
                  #f))))
            (current-jiffy)))
         (current-second)))
      (jiffies-per-second))))
 (define this-scheme-implementation-name
   (lambda ()
     (string-append "cyclone-" (Cyc-version))))
 (main))
 */
/* 
"---------------- after macro expansion cleanup:"
 */
/* 
((define bitwise-not (lambda (x) (- (- x) 1)))
 (define bitwise-and
   (lambda (x y)
     (if (= x 0)
       ((lambda () 0))
       (if (= y 0)
         ((lambda () 0))
         (if (= x -1)
           ((lambda () y))
           (if (= y -1)
             ((lambda () x))
             ((lambda ()
                ((lambda (z)
                   (if (if (odd? x) (odd? y) #f) (+ z z 1) (+ z z)))
                 (bitwise-and (div x 2) (div y 2)))))))))))
 (define div
   (lambda (x y)
     (if (if (exact-integer? x)
           (if (exact-integer? y) (>= x 0) #f)
           #f)
       ((lambda () (quotient x y)))
       (if (< y 0)
         ((lambda ()
            ((lambda (q)
               ((lambda (r) ((lambda () (if (= r 0) q (+ q 1)))))
                (- x (* q y))))
             (quotient x y))))
         ((lambda ()
            ((lambda (q)
               ((lambda (r) ((lambda () (if (= r 0) q (- q 1)))))
                (- x (* q y))))
             (quotient x y))))))))
 (define mod
   (lambda (x y)
     (if (if (exact-integer? x)
           (if (exact-integer? y) (>= x 0) #f)
           #f)
       ((lambda () (remainder x y)))
       (if (< y 0)
         ((lambda ()
            ((lambda (q)
               ((lambda (r) ((lambda () (if (= r 0) 0 (- r y)))))
                (- x (* q y))))
             (quotient x y))))
         ((lambda ()
            ((lambda (q)
               ((lambda (r) ((lambda () (if (= r 0) 0 (+ r y)))))
                (- x (* q y))))
             (quotient x y))))))))
 (define random-state (lambda (n) (cons n #f)))
 (define rand
   (lambda (state)
     ((lambda (seed A M Q R)
        ((lambda (hi)
           ((lambda (lo)
              ((lambda (test)
                 ((lambda (val)
                    ((lambda () (set-car! state val) val)))
                  (if (> test 0) test (+ test M))))
               (- (* A lo) (* R hi))))
            (mod seed Q)))
         (div seed Q)))
      (car state)
      2813
      8388607
      2787
      2699)))
 (define random-int
   (lambda (n state) (mod (rand state) n)))
 (define base-set
   (lambda (nelts) (cons nelts '())))
 (define get-set-root
   (lambda (s)
     ((lambda (r)
        ((lambda (lp)
           (set! lp
             (lambda (r)
               ((lambda (next)
                  (if (pair? next)
                    ((lambda () (lp next)))
                    ((lambda ()
                       (if (not (eq? r s))
                         ((lambda (x)
                            ((lambda (lp)
                               (set! lp
                                 (lambda (x)
                                   ((lambda (next)
                                      (if (not (eq? r next))
                                        ((lambda () (set-cdr! x r) (lp next)))
                                        #f))
                                    (cdr x))))
                               (lp x))
                             #f))
                          s)
                         #f)
                       r))))
                (cdr r))))
           (lp r))
         #f))
      s)))
 (define set-equal?
   (lambda (s1 s2)
     (eq? (get-set-root s1) (get-set-root s2))))
 (define set-size
   (lambda (s) (car (get-set-root s))))
 (define union!
   (lambda (s1 s2)
     ((lambda (r1)
        ((lambda (r2)
           ((lambda (n1)
              ((lambda (n2)
                 ((lambda (n)
                    ((lambda ()
                       (if (> n1 n2)
                         ((lambda () (set-cdr! r2 r1) (set-car! r1 n)))
                         ((lambda () (set-cdr! r1 r2) (set-car! r2 n)))))))
                  (+ n1 n2)))
               (set-size r2)))
            (set-size r1)))
         (get-set-root s2)))
      (get-set-root s1))))
 (define make-wall
   (lambda (owner neighbor bit)
     (vector 'wall owner neighbor bit)))
 (define wall:owner (lambda (o) (vector-ref o 1)))
 (define set-wall:owner
   (lambda (o v) (vector-set! o 1 v)))
 (define wall:neighbor
   (lambda (o) (vector-ref o 2)))
 (define set-wall:neighbor
   (lambda (o v) (vector-set! o 2 v)))
 (define wall:bit (lambda (o) (vector-ref o 3)))
 (define set-wall:bit
   (lambda (o v) (vector-set! o 3 v)))
 (define make-cell
   (lambda (reachable id)
     (vector 'cell reachable id -1 #f #f)))
 (define cell:reachable
   (lambda (o) (vector-ref o 1)))
 (define set-cell:reachable
   (lambda (o v) (vector-set! o 1 v)))
 (define cell:id (lambda (o) (vector-ref o 2)))
 (define set-cell:id
   (lambda (o v) (vector-set! o 2 v)))
 (define cell:walls (lambda (o) (vector-ref o 3)))
 (define set-cell:walls
   (lambda (o v) (vector-set! o 3 v)))
 (define cell:parent
   (lambda (o) (vector-ref o 4)))
 (define set-cell:parent
   (lambda (o v) (vector-set! o 4 v)))
 (define cell:mark (lambda (o) (vector-ref o 5)))
 (define set-cell:mark
   (lambda (o v) (vector-set! o 5 v)))
 (define vector-for-each-rev
   (lambda (proc v)
     ((lambda (i)
        ((lambda (lp)
           (set! lp
             (lambda (i)
               (if (>= i 0)
                 ((lambda () (proc (vector-ref v i)) (lp (- i 1))))
                 #f)))
           (lp i))
         #f))
      (- (vector-length v) 1))))
 (define permute-vec!
   (lambda (v random-state)
     ((lambda (i)
        ((lambda (lp)
           (set! lp
             (lambda (i)
               (if (> i 1)
                 ((lambda ()
                    ((lambda (elt-i j)
                       (vector-set! v i (vector-ref v j))
                       (vector-set! v j elt-i))
                     (vector-ref v i)
                     (random-int i random-state))
                    (lp (- i 1))))
                 #f)))
           (lp i))
         #f))
      (- (vector-length v) 1))
     v))
 (define dig-maze
   (lambda (walls ncells)
     (call-with-current-continuation
       (lambda (quit)
         (vector-for-each-rev
           (lambda (wall)
             ((lambda (c1)
                ((lambda (set1)
                   ((lambda (c2)
                      ((lambda (set2)
                         ((lambda ()
                            (if (not (set-equal? set1 set2))
                              ((lambda (walls wall-mask)
                                 (union! set1 set2)
                                 (set-cell:walls
                                   c1
                                   (bitwise-and walls wall-mask))
                                 (if (= (set-size set1) ncells) (quit #f) #f))
                               (cell:walls c1)
                               (bitwise-not (wall:bit wall)))
                              #f))))
                       (cell:reachable c2)))
                    (wall:neighbor wall)))
                 (cell:reachable c1)))
              (wall:owner wall)))
           walls)))))
 (define dfs-maze
   (lambda (maze root do-children)
     ((lambda (node parent)
        ((lambda (search)
           (set! search
             (lambda (node parent)
               (set-cell:parent node parent)
               (do-children
                 (lambda (child)
                   (if (not (eq? child parent))
                     (search child node)
                     #f))
                 maze
                 node)))
           (search node parent))
         #f))
      root
      #f)))
 (define reroot-maze
   (lambda (new-root)
     ((lambda (node new-parent)
        ((lambda (lp)
           (set! lp
             (lambda (node new-parent)
               ((lambda (old-parent)
                  (set-cell:parent node new-parent)
                  (if old-parent (lp old-parent node) #f))
                (cell:parent node))))
           (lp node new-parent))
         #f))
      new-root
      #f)))
 (define path-length
   (lambda (cell)
     ((lambda (len node)
        ((lambda (lp$105)
           (set! lp$105
             (lambda (len node)
               (if (not node)
                 len
                 (lp$105 (+ len 1) (cell:parent node)))))
           (lp$105 len node))
         #f))
      0
      (cell:parent cell))))
 (define mark-path
   (lambda (node)
     ((lambda (node)
        ((lambda (lp)
           (set! lp
             (lambda (node)
               (set-cell:mark node #t)
               ((lambda (tmp$111) (if tmp$111 (lp tmp$111) #f))
                (cell:parent node))))
           (lp node))
         #f))
      node)))
 (define make-harr
   (lambda (nrows ncols elts)
     (vector 'harr nrows ncols elts)))
 (define harr:nrows (lambda (o) (vector-ref o 1)))
 (define set-harr:nrows
   (lambda (o v) (vector-set! o 1 v)))
 (define harr:ncols (lambda (o) (vector-ref o 2)))
 (define set-harr:ncols
   (lambda (o v) (vector-set! o 2 v)))
 (define harr:elts (lambda (o) (vector-ref o 3)))
 (define set-harr:elts
   (lambda (o v) (vector-set! o 3 v)))
 (define harr
   (lambda (r c)
     (make-harr r c (make-vector (* r c)))))
 (define href
   (lambda (ha x y)
     ((lambda (r c)
        (vector-ref
          (harr:elts ha)
          (+ (* (harr:ncols ha) r) c)))
      (div y 2)
      (div x 3))))
 (define hset!
   (lambda (ha x y val)
     ((lambda (r c)
        (vector-set!
          (harr:elts ha)
          (+ (* (harr:ncols ha) r) c)
          val))
      (div y 2)
      (div x 3))))
 (define href/rc
   (lambda (ha r c)
     (vector-ref
       (harr:elts ha)
       (+ (* (harr:ncols ha) r) c))))
 (define harr-tabulate
   (lambda (nrows ncols proc)
     ((lambda (v)
        ((lambda (r)
           ((lambda (lp$113)
              (set! lp$113
                (lambda (r)
                  ((lambda (tmp$115)
                     (if tmp$115
                       tmp$115
                       ((lambda ()
                          ((lambda (c i)
                             ((lambda (lp$117)
                                (set! lp$117
                                  (lambda (c i)
                                    ((lambda (tmp$119)
                                       (if tmp$119
                                         tmp$119
                                         ((lambda ()
                                            (vector-set!
                                              v
                                              i
                                              (proc (* 3 c)
                                                    (+ (* 2 r)
                                                       (bitwise-and c 1))))
                                            (lp$117 (+ c 1) (+ i 1))))))
                                     (= c ncols))))
                                (lp$117 c i))
                              #f))
                           0
                           (* r ncols))
                          (lp$113 (- r 1))))))
                   (< r 0))))
              (lp$113 r))
            #f))
         (- nrows 1))
        (make-harr nrows ncols v))
      (make-vector (* nrows ncols)))))
 (define harr-for-each
   (lambda (proc harr)
     (vector-for-each-rev proc (harr:elts harr))))
 (define south-west 1)
 (define south 2)
 (define south-east 4)
 (define gen-maze-array
   (lambda (r c)
     (harr-tabulate
       r
       c
       (lambda (x y)
         (make-cell (base-set 1) (cons x y))))))
 (define make-wall-vec
   (lambda (harr)
     ((lambda (nrows)
        ((lambda (ncols)
           ((lambda (xmax)
              ((lambda (walls)
                 ((lambda (add-wall)
                    ((lambda ()
                       ((lambda (x)
                          ((lambda (lp$132)
                             (set! lp$132
                               (lambda (x)
                                 ((lambda (tmp$134)
                                    (if tmp$134
                                      tmp$134
                                      ((lambda ()
                                         ((lambda (y)
                                            ((lambda (lp$136)
                                               (set! lp$136
                                                 (lambda (y)
                                                   ((lambda (tmp$138)
                                                      (if tmp$138
                                                        tmp$138
                                                        ((lambda ()
                                                           ((lambda (hex)
                                                              (if (not (zero? x))
                                                                (add-wall
                                                                  hex
                                                                  (href harr
                                                                        (- x 3)
                                                                        (- y 1))
                                                                  south-west)
                                                                #f)
                                                              (add-wall
                                                                hex
                                                                (href harr
                                                                      x
                                                                      (- y 2))
                                                                south)
                                                              (if (< x xmax)
                                                                (add-wall
                                                                  hex
                                                                  (href harr
                                                                        (+ x 3)
                                                                        (- y 1))
                                                                  south-east)
                                                                #f))
                                                            (href harr x y))
                                                           (lp$136 (- y 2))))))
                                                    (<= y 1))))
                                               (lp$136 y))
                                             #f))
                                          (+ (* (- nrows 1) 2)
                                             (bitwise-and x 1)))
                                         (lp$132 (- x 3))))))
                                  (< x 0))))
                             (lp$132 x))
                           #f))
                        (* (- ncols 1) 3))
                       (if (> ncols 1)
                         ((lambda (rmoc-x)
                            ((lambda (rmoc-hex)
                               (if (< rmoc-x xmax)
                                 (add-wall
                                   rmoc-hex
                                   (href harr xmax 0)
                                   south-east)
                                 #f)
                               (add-wall
                                 rmoc-hex
                                 (href harr (- rmoc-x 3) 0)
                                 south-west))
                             (href harr rmoc-x 1))
                            ((lambda (x)
                               ((lambda (lp$140)
                                  (set! lp$140
                                    (lambda (x)
                                      ((lambda (tmp$142)
                                         (if tmp$142
                                           tmp$142
                                           ((lambda ()
                                              (add-wall
                                                (href harr x 1)
                                                (href harr (- x 3) 0)
                                                south-west)
                                              (add-wall
                                                (href harr x 1)
                                                (href harr (+ x 3) 0)
                                                south-east)
                                              (lp$140 (- x 6))))))
                                       (< x 3))))
                                  (lp$140 x))
                                #f))
                             (- rmoc-x 6)))
                          (+ 3 (* 6 (div (- ncols 2) 2))))
                         #f)
                       (list->vector walls))))
                  (lambda (o n b)
                    (set! walls (cons (make-wall o n b) walls)))))
               '()))
            (* 3 (- ncols 1))))
         (harr:ncols harr)))
      (harr:nrows harr))))
 (define pick-entrances
   (lambda (harr)
     (dfs-maze
       harr
       (href/rc harr 0 0)
       for-each-hex-child)
     ((lambda (nrows ncols)
        ((lambda (max-len entrance exit tcol)
           ((lambda (tp-lp)
              (set! tp-lp
                (lambda (max-len entrance exit tcol)
                  (if (< tcol 0)
                    (vector entrance exit)
                    ((lambda (top-cell)
                       (reroot-maze top-cell)
                       ((lambda (result)
                          ((lambda (max-len entrance exit)
                             (tp-lp max-len entrance exit (- tcol 1)))
                           (vector-ref result 0)
                           (vector-ref result 1)
                           (vector-ref result 2)))
                        ((lambda (max-len entrance exit bcol)
                           ((lambda (bt-lp)
                              (set! bt-lp
                                (lambda (max-len entrance exit bcol)
                                  (if (< bcol 0)
                                    (vector max-len entrance exit)
                                    ((lambda (this-len)
                                       (if (> this-len max-len)
                                         (bt-lp this-len tcol bcol (- bcol 1))
                                         (bt-lp max-len
                                                entrance
                                                exit
                                                (- bcol 1))))
                                     (path-length (href/rc harr 0 bcol))))))
                              (bt-lp max-len entrance exit bcol))
                            #f))
                         max-len
                         entrance
                         exit
                         (- ncols 1))))
                     (href/rc harr (- nrows 1) tcol)))))
              (tp-lp max-len entrance exit tcol))
            #f))
         -1
         #f
         #f
         (- ncols 1)))
      (harr:nrows harr)
      (harr:ncols harr))))
 (define for-each-hex-child
   (lambda (proc harr cell)
     ((lambda (walls)
        ((lambda (id)
           ((lambda (x)
              ((lambda (y)
                 ((lambda (nr)
                    ((lambda (nc)
                       ((lambda (maxy)
                          ((lambda (maxx)
                             ((lambda ()
                                (if (not (bit-test walls south-west))
                                  (proc (href harr (- x 3) (- y 1)))
                                  #f)
                                (if (not (bit-test walls south))
                                  (proc (href harr x (- y 2)))
                                  #f)
                                (if (not (bit-test walls south-east))
                                  (proc (href harr (+ x 3) (- y 1)))
                                  #f)
                                (if (if (> x 0)
                                      ((lambda (tmp$165)
                                         (if tmp$165 tmp$165 (zero? (mod x 6))))
                                       (<= y maxy))
                                      #f)
                                  ((lambda (nw)
                                     (if (not (bit-test
                                                (cell:walls nw)
                                                south-east))
                                       (proc nw)
                                       #f))
                                   (href harr (- x 3) (+ y 1)))
                                  #f)
                                (if (< y maxy)
                                  ((lambda (n)
                                     (if (not (bit-test (cell:walls n) south))
                                       (proc n)
                                       #f))
                                   (href harr x (+ y 2)))
                                  #f)
                                (if (if (< x maxx)
                                      ((lambda (tmp$169)
                                         (if tmp$169 tmp$169 (zero? (mod x 6))))
                                       (<= y maxy))
                                      #f)
                                  ((lambda (ne)
                                     (if (not (bit-test
                                                (cell:walls ne)
                                                south-west))
                                       (proc ne)
                                       #f))
                                   (href harr (+ x 3) (+ y 1)))
                                  #f))))
                           (* 3 (- nc 1))))
                        (* 2 (- nr 1))))
                     (harr:ncols harr)))
                  (harr:nrows harr)))
               (cdr id)))
            (car id)))
         (cell:id cell)))
      (cell:walls cell))))
 (define make-maze
   (lambda (nrows ncols)
     ((lambda (cells)
        ((lambda (walls)
           ((lambda ()
              (dig-maze walls (* nrows ncols))
              ((lambda (result)
                 ((lambda (entrance exit)
                    ((lambda (exit-cell)
                       ((lambda (walls)
                          ((lambda ()
                             (reroot-maze
                               (href/rc cells (- nrows 1) entrance))
                             (mark-path exit-cell)
                             (set-cell:walls
                               exit-cell
                               (bitwise-and walls (bitwise-not south)))
                             (vector cells entrance exit))))
                        (cell:walls exit-cell)))
                     (href/rc cells 0 exit)))
                  (vector-ref result 0)
                  (vector-ref result 1)))
               (pick-entrances cells)))))
         (permute-vec!
           (make-wall-vec cells)
           (random-state 20))))
      (gen-maze-array nrows ncols))))
 (define pmaze
   (lambda (nrows ncols)
     ((lambda (result)
        ((lambda (cells entrance exit)
           (print-hexmaze cells entrance))
         (vector-ref result 0)
         (vector-ref result 1)
         (vector-ref result 2)))
      (make-maze nrows ncols))))
 (define output #f)
 (define write-ch
   (lambda (c) (set! output (cons c output))))
 (define print-hexmaze
   (lambda (harr entrance)
     ((lambda (nrows)
        ((lambda (ncols)
           ((lambda (ncols2)
              ((lambda ()
                 ((lambda (c)
                    ((lambda (lp$188)
                       (set! lp$188
                         (lambda (c)
                           ((lambda (tmp$190)
                              (if tmp$190
                                tmp$190
                                ((lambda ()
                                   (write-ch #\space)
                                   (write-ch #\space)
                                   (write-ch #\space)
                                   (write-ch (if (= c entrance) #\space #\_))
                                   (lp$188 (+ c 2))))))
                            (>= c ncols))))
                       (lp$188 c))
                     #f))
                  1)
                 (write-ch #\newline)
                 (write-ch #\space)
                 ((lambda (c)
                    ((lambda (lp$192)
                       (set! lp$192
                         (lambda (c)
                           ((lambda (tmp$194)
                              (if tmp$194
                                tmp$194
                                ((lambda ()
                                   (write-ch (if (= c entrance) #\space #\_))
                                   (write-ch #\/)
                                   (write-ch
                                     (dot/space harr (- nrows 1) (+ c 1)))
                                   (write-ch #\\)
                                   (lp$192 (+ c 2))))))
                            (>= c ncols2))))
                       (lp$192 c))
                     #f))
                  0)
                 (if (odd? ncols)
                   (write-ch
                     (if (= entrance (- ncols 1)) #\space #\_))
                   #f)
                 (write-ch #\newline)
                 ((lambda (r)
                    ((lambda (lp$196)
                       (set! lp$196
                         (lambda (r)
                           ((lambda (tmp$198)
                              (if tmp$198
                                tmp$198
                                ((lambda ()
                                   (write-ch #\/)
                                   ((lambda (c)
                                      ((lambda (lp$200)
                                         (set! lp$200
                                           (lambda (c)
                                             ((lambda (tmp$202)
                                                (if tmp$202
                                                  tmp$202
                                                  ((lambda ()
                                                     (write-ch
                                                       (dot/space
                                                         harr
                                                         r
                                                         (- c 1)))
                                                     (display-hexbottom
                                                       (cell:walls
                                                         (href/rc harr r c)))
                                                     (lp$200 (+ c 2))))))
                                              (>= c ncols2))))
                                         (lp$200 c))
                                       #f))
                                    1)
                                   (if (odd? ncols)
                                     ((lambda ()
                                        (write-ch
                                          (dot/space harr r (- ncols 1)))
                                        (write-ch #\\)))
                                     #f)
                                   (write-ch #\newline)
                                   ((lambda (c)
                                      ((lambda (lp$207)
                                         (set! lp$207
                                           (lambda (c)
                                             ((lambda (tmp$209)
                                                (if tmp$209
                                                  tmp$209
                                                  ((lambda ()
                                                     (display-hexbottom
                                                       (cell:walls
                                                         (href/rc harr r c)))
                                                     (write-ch
                                                       (dot/space
                                                         harr
                                                         (- r 1)
                                                         (+ c 1)))
                                                     (lp$207 (+ c 2))))))
                                              (>= c ncols2))))
                                         (lp$207 c))
                                       #f))
                                    0)
                                   (if (odd? ncols)
                                     ((lambda ()
                                        (display-hexbottom
                                          (cell:walls
                                            (href/rc harr r (- ncols 1))))))
                                     (if (not (zero? r))
                                       ((lambda () (write-ch #\\)))
                                       #f))
                                   (write-ch #\newline)
                                   (lp$196 (- r 1))))))
                            (< r 0))))
                       (lp$196 r))
                     #f))
                  (- nrows 1)))))
            (* 2 (div ncols 2))))
         (harr:ncols harr)))
      (harr:nrows harr))))
 (define bit-test
   (lambda (j bit)
     (not (zero? (bitwise-and j bit)))))
 (define dot/space
   (lambda (harr r c)
     (if (if (>= r 0) (cell:mark (href/rc harr r c)) #f)
       #\.
       #\space)))
 (define display-hexbottom
   (lambda (hexwalls)
     (write-ch
       (if (bit-test hexwalls south-west) #\\ #\space))
     (write-ch
       (if (bit-test hexwalls south) #\_ #\space))
     (write-ch
       (if (bit-test hexwalls south-east) #\/ #\space))))
 (define run
   (lambda (nrows ncols)
     (set! output '())
     (pmaze nrows ncols)
     (reverse output)))
 (define main
   (lambda ()
     ((lambda (count)
        ((lambda (input1)
           ((lambda (input2)
              ((lambda (output)
                 ((lambda (s3)
                    ((lambda (s2)
                       ((lambda (s1)
                          ((lambda (name)
                             ((lambda ()
                                (run-r7rs-benchmark
                                  (string-append name ":" s1 ":" s2 ":" s3)
                                  count
                                  (lambda ()
                                    (run (hide count input1)
                                         (hide count input2)))
                                  (lambda (result) (equal? result output))))))
                           "maze"))
                        (number->string input1)))
                     (number->string input2)))
                  (number->string count)))
               (read)))
            (read)))
         (read)))
      (read))))
 (define hide
   (lambda (r x)
     (call-with-values
       (lambda ()
         (values
           (vector values (lambda (x) x))
           (if (< r 100) 0 1)))
       (lambda (v i) ((vector-ref v i) x)))))
 (define run-r7rs-benchmark
   (lambda (name count thunk ok?)
     (define rounded
       (lambda (x) (/ (round (* 1000 x)) 1000)))
     (display "Running ")
     (display name)
     (newline)
     (flush-output-port (current-output-port))
     ((lambda (j/s)
        ((lambda (t0)
           ((lambda (j0)
              ((lambda ()
                 ((lambda (i result)
                    ((lambda (loop)
                       (set! loop
                         (lambda (i result)
                           (if (< i count)
                             ((lambda () (loop (+ i 1) (thunk))))
                             (if (ok? result)
                               ((lambda ()
                                  ((lambda (j1)
                                     ((lambda (t1)
                                        ((lambda (jifs)
                                           ((lambda (secs)
                                              ((lambda (secs2)
                                                 ((lambda ()
                                                    (display "Elapsed time: ")
                                                    (write secs)
                                                    (display " seconds (")
                                                    (write secs2)
                                                    (display ") for ")
                                                    (display name)
                                                    (newline)
                                                    (display "+!CSVLINE!+")
                                                    (display
                                                      (this-scheme-implementation-name))
                                                    (display ",")
                                                    (display name)
                                                    (display ",")
                                                    (display secs)
                                                    (newline)
                                                    (flush-output-port
                                                      (current-output-port)))))
                                               (rounded (- t1 t0))))
                                            (inexact (/ jifs j/s))))
                                         (- j1 j0)))
                                      (current-second)))
                                   (current-jiffy))
                                  result))
                               ((lambda ()
                                  (display "ERROR: returned incorrect result: ")
                                  (write result)
                                  (newline)
                                  (flush-output-port (current-output-port))
                                  result))))))
                       (loop i result))
                     #f))
                  0
                  #f))))
            (current-jiffy)))
         (current-second)))
      (jiffies-per-second))))
 (define this-scheme-implementation-name
   (lambda ()
     (string-append "cyclone-" (Cyc-version))))
 (main))
 */
/* 
"---------------- after processing globals"
 */
/* 
((define bitwise-not (lambda (x) (- (- x) 1)))
 (define bitwise-and
   (lambda (x y)
     (if (= x 0)
       ((lambda () 0))
       (if (= y 0)
         ((lambda () 0))
         (if (= x -1)
           ((lambda () y))
           (if (= y -1)
             ((lambda () x))
             ((lambda ()
                ((lambda (z)
                   (if (if (odd? x) (odd? y) #f) (+ z z 1) (+ z z)))
                 (bitwise-and (div x 2) (div y 2)))))))))))
 (define div
   (lambda (x y)
     (if (if (exact-integer? x)
           (if (exact-integer? y) (>= x 0) #f)
           #f)
       ((lambda () (quotient x y)))
       (if (< y 0)
         ((lambda ()
            ((lambda (q)
               ((lambda (r) ((lambda () (if (= r 0) q (+ q 1)))))
                (- x (* q y))))
             (quotient x y))))
         ((lambda ()
            ((lambda (q)
               ((lambda (r) ((lambda () (if (= r 0) q (- q 1)))))
                (- x (* q y))))
             (quotient x y))))))))
 (define mod
   (lambda (x y)
     (if (if (exact-integer? x)
           (if (exact-integer? y) (>= x 0) #f)
           #f)
       ((lambda () (remainder x y)))
       (if (< y 0)
         ((lambda ()
            ((lambda (q)
               ((lambda (r) ((lambda () (if (= r 0) 0 (- r y)))))
                (- x (* q y))))
             (quotient x y))))
         ((lambda ()
            ((lambda (q)
               ((lambda (r) ((lambda () (if (= r 0) 0 (+ r y)))))
                (- x (* q y))))
             (quotient x y))))))))
 (define random-state (lambda (n) (cons n #f)))
 (define rand
   (lambda (state)
     ((lambda (seed A M Q R)
        ((lambda (hi)
           ((lambda (lo)
              ((lambda (test)
                 ((lambda (val)
                    ((lambda () (set-car! state val) val)))
                  (if (> test 0) test (+ test M))))
               (- (* A lo) (* R hi))))
            (mod seed Q)))
         (div seed Q)))
      (car state)
      2813
      8388607
      2787
      2699)))
 (define random-int
   (lambda (n state) (mod (rand state) n)))
 (define base-set
   (lambda (nelts) (cons nelts '())))
 (define get-set-root
   (lambda (s)
     ((lambda (r)
        ((lambda (lp)
           (set! lp
             (lambda (r)
               ((lambda (next)
                  (if (pair? next)
                    ((lambda () (lp next)))
                    ((lambda ()
                       (if (not (eq? r s))
                         ((lambda (x)
                            ((lambda (lp)
                               (set! lp
                                 (lambda (x)
                                   ((lambda (next)
                                      (if (not (eq? r next))
                                        ((lambda () (set-cdr! x r) (lp next)))
                                        #f))
                                    (cdr x))))
                               (lp x))
                             #f))
                          s)
                         #f)
                       r))))
                (cdr r))))
           (lp r))
         #f))
      s)))
 (define set-equal?
   (lambda (s1 s2)
     (eq? (get-set-root s1) (get-set-root s2))))
 (define set-size
   (lambda (s) (car (get-set-root s))))
 (define union!
   (lambda (s1 s2)
     ((lambda (r1)
        ((lambda (r2)
           ((lambda (n1)
              ((lambda (n2)
                 ((lambda (n)
                    ((lambda ()
                       (if (> n1 n2)
                         ((lambda () (set-cdr! r2 r1) (set-car! r1 n)))
                         ((lambda () (set-cdr! r1 r2) (set-car! r2 n)))))))
                  (+ n1 n2)))
               (set-size r2)))
            (set-size r1)))
         (get-set-root s2)))
      (get-set-root s1))))
 (define make-wall
   (lambda (owner neighbor bit)
     (vector 'wall owner neighbor bit)))
 (define wall:owner (lambda (o) (vector-ref o 1)))
 (define wall:neighbor
   (lambda (o) (vector-ref o 2)))
 (define wall:bit (lambda (o) (vector-ref o 3)))
 (define make-cell
   (lambda (reachable id)
     (vector 'cell reachable id -1 #f #f)))
 (define cell:reachable
   (lambda (o) (vector-ref o 1)))
 (define cell:id (lambda (o) (vector-ref o 2)))
 (define cell:walls (lambda (o) (vector-ref o 3)))
 (define set-cell:walls
   (lambda (o v) (vector-set! o 3 v)))
 (define cell:parent
   (lambda (o) (vector-ref o 4)))
 (define set-cell:parent
   (lambda (o v) (vector-set! o 4 v)))
 (define cell:mark (lambda (o) (vector-ref o 5)))
 (define set-cell:mark
   (lambda (o v) (vector-set! o 5 v)))
 (define vector-for-each-rev
   (lambda (proc v)
     ((lambda (i)
        ((lambda (lp)
           (set! lp
             (lambda (i)
               (if (>= i 0)
                 ((lambda () (proc (vector-ref v i)) (lp (- i 1))))
                 #f)))
           (lp i))
         #f))
      (- (vector-length v) 1))))
 (define permute-vec!
   (lambda (v random-state)
     ((lambda (i)
        ((lambda (lp)
           (set! lp
             (lambda (i)
               (if (> i 1)
                 ((lambda ()
                    ((lambda (elt-i j)
                       (vector-set! v i (vector-ref v j))
                       (vector-set! v j elt-i))
                     (vector-ref v i)
                     (random-int i random-state))
                    (lp (- i 1))))
                 #f)))
           (lp i))
         #f))
      (- (vector-length v) 1))
     v))
 (define dig-maze
   (lambda (walls ncells)
     (call-with-current-continuation
       (lambda (quit)
         (vector-for-each-rev
           (lambda (wall)
             ((lambda (c1)
                ((lambda (set1)
                   ((lambda (c2)
                      ((lambda (set2)
                         ((lambda ()
                            (if (not (set-equal? set1 set2))
                              ((lambda (walls wall-mask)
                                 (union! set1 set2)
                                 (set-cell:walls
                                   c1
                                   (bitwise-and walls wall-mask))
                                 (if (= (set-size set1) ncells) (quit #f) #f))
                               (cell:walls c1)
                               (bitwise-not (wall:bit wall)))
                              #f))))
                       (cell:reachable c2)))
                    (wall:neighbor wall)))
                 (cell:reachable c1)))
              (wall:owner wall)))
           walls)))))
 (define dfs-maze
   (lambda (maze root do-children)
     ((lambda (node parent)
        ((lambda (search)
           (set! search
             (lambda (node parent)
               (set-cell:parent node parent)
               (do-children
                 (lambda (child)
                   (if (not (eq? child parent))
                     (search child node)
                     #f))
                 maze
                 node)))
           (search node parent))
         #f))
      root
      #f)))
 (define reroot-maze
   (lambda (new-root)
     ((lambda (node new-parent)
        ((lambda (lp)
           (set! lp
             (lambda (node new-parent)
               ((lambda (old-parent)
                  (set-cell:parent node new-parent)
                  (if old-parent (lp old-parent node) #f))
                (cell:parent node))))
           (lp node new-parent))
         #f))
      new-root
      #f)))
 (define path-length
   (lambda (cell)
     ((lambda (len node)
        ((lambda (lp$105)
           (set! lp$105
             (lambda (len node)
               (if (not node)
                 len
                 (lp$105 (+ len 1) (cell:parent node)))))
           (lp$105 len node))
         #f))
      0
      (cell:parent cell))))
 (define mark-path
   (lambda (node)
     ((lambda (node)
        ((lambda (lp)
           (set! lp
             (lambda (node)
               (set-cell:mark node #t)
               ((lambda (tmp$111) (if tmp$111 (lp tmp$111) #f))
                (cell:parent node))))
           (lp node))
         #f))
      node)))
 (define make-harr
   (lambda (nrows ncols elts)
     (vector 'harr nrows ncols elts)))
 (define harr:nrows (lambda (o) (vector-ref o 1)))
 (define harr:ncols (lambda (o) (vector-ref o 2)))
 (define harr:elts (lambda (o) (vector-ref o 3)))
 (define href
   (lambda (ha x y)
     ((lambda (r c)
        (vector-ref
          (harr:elts ha)
          (+ (* (harr:ncols ha) r) c)))
      (div y 2)
      (div x 3))))
 (define href/rc
   (lambda (ha r c)
     (vector-ref
       (harr:elts ha)
       (+ (* (harr:ncols ha) r) c))))
 (define harr-tabulate
   (lambda (nrows ncols proc)
     ((lambda (v)
        ((lambda (r)
           ((lambda (lp$113)
              (set! lp$113
                (lambda (r)
                  ((lambda (tmp$115)
                     (if tmp$115
                       tmp$115
                       ((lambda ()
                          ((lambda (c i)
                             ((lambda (lp$117)
                                (set! lp$117
                                  (lambda (c i)
                                    ((lambda (tmp$119)
                                       (if tmp$119
                                         tmp$119
                                         ((lambda ()
                                            (vector-set!
                                              v
                                              i
                                              (proc (* 3 c)
                                                    (+ (* 2 r)
                                                       (bitwise-and c 1))))
                                            (lp$117 (+ c 1) (+ i 1))))))
                                     (= c ncols))))
                                (lp$117 c i))
                              #f))
                           0
                           (* r ncols))
                          (lp$113 (- r 1))))))
                   (< r 0))))
              (lp$113 r))
            #f))
         (- nrows 1))
        (make-harr nrows ncols v))
      (make-vector (* nrows ncols)))))
 (define south-west 1)
 (define south 2)
 (define south-east 4)
 (define gen-maze-array
   (lambda (r c)
     (harr-tabulate
       r
       c
       (lambda (x y)
         (make-cell (base-set 1) (cons x y))))))
 (define make-wall-vec
   (lambda (harr)
     ((lambda (nrows)
        ((lambda (ncols)
           ((lambda (xmax)
              ((lambda (walls)
                 ((lambda (add-wall)
                    ((lambda ()
                       ((lambda (x)
                          ((lambda (lp$132)
                             (set! lp$132
                               (lambda (x)
                                 ((lambda (tmp$134)
                                    (if tmp$134
                                      tmp$134
                                      ((lambda ()
                                         ((lambda (y)
                                            ((lambda (lp$136)
                                               (set! lp$136
                                                 (lambda (y)
                                                   ((lambda (tmp$138)
                                                      (if tmp$138
                                                        tmp$138
                                                        ((lambda ()
                                                           ((lambda (hex)
                                                              (if (not (zero? x))
                                                                (add-wall
                                                                  hex
                                                                  (href harr
                                                                        (- x 3)
                                                                        (- y 1))
                                                                  south-west)
                                                                #f)
                                                              (add-wall
                                                                hex
                                                                (href harr
                                                                      x
                                                                      (- y 2))
                                                                south)
                                                              (if (< x xmax)
                                                                (add-wall
                                                                  hex
                                                                  (href harr
                                                                        (+ x 3)
                                                                        (- y 1))
                                                                  south-east)
                                                                #f))
                                                            (href harr x y))
                                                           (lp$136 (- y 2))))))
                                                    (<= y 1))))
                                               (lp$136 y))
                                             #f))
                                          (+ (* (- nrows 1) 2)
                                             (bitwise-and x 1)))
                                         (lp$132 (- x 3))))))
                                  (< x 0))))
                             (lp$132 x))
                           #f))
                        (* (- ncols 1) 3))
                       (if (> ncols 1)
                         ((lambda (rmoc-x)
                            ((lambda (rmoc-hex)
                               (if (< rmoc-x xmax)
                                 (add-wall
                                   rmoc-hex
                                   (href harr xmax 0)
                                   south-east)
                                 #f)
                               (add-wall
                                 rmoc-hex
                                 (href harr (- rmoc-x 3) 0)
                                 south-west))
                             (href harr rmoc-x 1))
                            ((lambda (x)
                               ((lambda (lp$140)
                                  (set! lp$140
                                    (lambda (x)
                                      ((lambda (tmp$142)
                                         (if tmp$142
                                           tmp$142
                                           ((lambda ()
                                              (add-wall
                                                (href harr x 1)
                                                (href harr (- x 3) 0)
                                                south-west)
                                              (add-wall
                                                (href harr x 1)
                                                (href harr (+ x 3) 0)
                                                south-east)
                                              (lp$140 (- x 6))))))
                                       (< x 3))))
                                  (lp$140 x))
                                #f))
                             (- rmoc-x 6)))
                          (+ 3 (* 6 (div (- ncols 2) 2))))
                         #f)
                       (list->vector walls))))
                  (lambda (o n b)
                    (set! walls (cons (make-wall o n b) walls)))))
               '()))
            (* 3 (- ncols 1))))
         (harr:ncols harr)))
      (harr:nrows harr))))
 (define pick-entrances
   (lambda (harr)
     (dfs-maze
       harr
       (href/rc harr 0 0)
       for-each-hex-child)
     ((lambda (nrows ncols)
        ((lambda (max-len entrance exit tcol)
           ((lambda (tp-lp)
              (set! tp-lp
                (lambda (max-len entrance exit tcol)
                  (if (< tcol 0)
                    (vector entrance exit)
                    ((lambda (top-cell)
                       (reroot-maze top-cell)
                       ((lambda (result)
                          ((lambda (max-len entrance exit)
                             (tp-lp max-len entrance exit (- tcol 1)))
                           (vector-ref result 0)
                           (vector-ref result 1)
                           (vector-ref result 2)))
                        ((lambda (max-len entrance exit bcol)
                           ((lambda (bt-lp)
                              (set! bt-lp
                                (lambda (max-len entrance exit bcol)
                                  (if (< bcol 0)
                                    (vector max-len entrance exit)
                                    ((lambda (this-len)
                                       (if (> this-len max-len)
                                         (bt-lp this-len tcol bcol (- bcol 1))
                                         (bt-lp max-len
                                                entrance
                                                exit
                                                (- bcol 1))))
                                     (path-length (href/rc harr 0 bcol))))))
                              (bt-lp max-len entrance exit bcol))
                            #f))
                         max-len
                         entrance
                         exit
                         (- ncols 1))))
                     (href/rc harr (- nrows 1) tcol)))))
              (tp-lp max-len entrance exit tcol))
            #f))
         -1
         #f
         #f
         (- ncols 1)))
      (harr:nrows harr)
      (harr:ncols harr))))
 (define for-each-hex-child
   (lambda (proc harr cell)
     ((lambda (walls)
        ((lambda (id)
           ((lambda (x)
              ((lambda (y)
                 ((lambda (nr)
                    ((lambda (nc)
                       ((lambda (maxy)
                          ((lambda (maxx)
                             ((lambda ()
                                (if (not (bit-test walls south-west))
                                  (proc (href harr (- x 3) (- y 1)))
                                  #f)
                                (if (not (bit-test walls south))
                                  (proc (href harr x (- y 2)))
                                  #f)
                                (if (not (bit-test walls south-east))
                                  (proc (href harr (+ x 3) (- y 1)))
                                  #f)
                                (if (if (> x 0)
                                      ((lambda (tmp$165)
                                         (if tmp$165 tmp$165 (zero? (mod x 6))))
                                       (<= y maxy))
                                      #f)
                                  ((lambda (nw)
                                     (if (not (bit-test
                                                (cell:walls nw)
                                                south-east))
                                       (proc nw)
                                       #f))
                                   (href harr (- x 3) (+ y 1)))
                                  #f)
                                (if (< y maxy)
                                  ((lambda (n)
                                     (if (not (bit-test (cell:walls n) south))
                                       (proc n)
                                       #f))
                                   (href harr x (+ y 2)))
                                  #f)
                                (if (if (< x maxx)
                                      ((lambda (tmp$169)
                                         (if tmp$169 tmp$169 (zero? (mod x 6))))
                                       (<= y maxy))
                                      #f)
                                  ((lambda (ne)
                                     (if (not (bit-test
                                                (cell:walls ne)
                                                south-west))
                                       (proc ne)
                                       #f))
                                   (href harr (+ x 3) (+ y 1)))
                                  #f))))
                           (* 3 (- nc 1))))
                        (* 2 (- nr 1))))
                     (harr:ncols harr)))
                  (harr:nrows harr)))
               (cdr id)))
            (car id)))
         (cell:id cell)))
      (cell:walls cell))))
 (define make-maze
   (lambda (nrows ncols)
     ((lambda (cells)
        ((lambda (walls)
           ((lambda ()
              (dig-maze walls (* nrows ncols))
              ((lambda (result)
                 ((lambda (entrance exit)
                    ((lambda (exit-cell)
                       ((lambda (walls)
                          ((lambda ()
                             (reroot-maze
                               (href/rc cells (- nrows 1) entrance))
                             (mark-path exit-cell)
                             (set-cell:walls
                               exit-cell
                               (bitwise-and walls (bitwise-not south)))
                             (vector cells entrance exit))))
                        (cell:walls exit-cell)))
                     (href/rc cells 0 exit)))
                  (vector-ref result 0)
                  (vector-ref result 1)))
               (pick-entrances cells)))))
         (permute-vec!
           (make-wall-vec cells)
           (random-state 20))))
      (gen-maze-array nrows ncols))))
 (define pmaze
   (lambda (nrows ncols)
     ((lambda (result)
        ((lambda (cells entrance exit)
           (print-hexmaze cells entrance))
         (vector-ref result 0)
         (vector-ref result 1)
         (vector-ref result 2)))
      (make-maze nrows ncols))))
 (define output #f)
 (define write-ch
   (lambda (c) (set! output (cons c output))))
 (define print-hexmaze
   (lambda (harr entrance)
     ((lambda (nrows)
        ((lambda (ncols)
           ((lambda (ncols2)
              ((lambda ()
                 ((lambda (c)
                    ((lambda (lp$188)
                       (set! lp$188
                         (lambda (c)
                           ((lambda (tmp$190)
                              (if tmp$190
                                tmp$190
                                ((lambda ()
                                   (write-ch #\space)
                                   (write-ch #\space)
                                   (write-ch #\space)
                                   (write-ch (if (= c entrance) #\space #\_))
                                   (lp$188 (+ c 2))))))
                            (>= c ncols))))
                       (lp$188 c))
                     #f))
                  1)
                 (write-ch #\newline)
                 (write-ch #\space)
                 ((lambda (c)
                    ((lambda (lp$192)
                       (set! lp$192
                         (lambda (c)
                           ((lambda (tmp$194)
                              (if tmp$194
                                tmp$194
                                ((lambda ()
                                   (write-ch (if (= c entrance) #\space #\_))
                                   (write-ch #\/)
                                   (write-ch
                                     (dot/space harr (- nrows 1) (+ c 1)))
                                   (write-ch #\\)
                                   (lp$192 (+ c 2))))))
                            (>= c ncols2))))
                       (lp$192 c))
                     #f))
                  0)
                 (if (odd? ncols)
                   (write-ch
                     (if (= entrance (- ncols 1)) #\space #\_))
                   #f)
                 (write-ch #\newline)
                 ((lambda (r)
                    ((lambda (lp$196)
                       (set! lp$196
                         (lambda (r)
                           ((lambda (tmp$198)
                              (if tmp$198
                                tmp$198
                                ((lambda ()
                                   (write-ch #\/)
                                   ((lambda (c)
                                      ((lambda (lp$200)
                                         (set! lp$200
                                           (lambda (c)
                                             ((lambda (tmp$202)
                                                (if tmp$202
                                                  tmp$202
                                                  ((lambda ()
                                                     (write-ch
                                                       (dot/space
                                                         harr
                                                         r
                                                         (- c 1)))
                                                     (display-hexbottom
                                                       (cell:walls
                                                         (href/rc harr r c)))
                                                     (lp$200 (+ c 2))))))
                                              (>= c ncols2))))
                                         (lp$200 c))
                                       #f))
                                    1)
                                   (if (odd? ncols)
                                     ((lambda ()
                                        (write-ch
                                          (dot/space harr r (- ncols 1)))
                                        (write-ch #\\)))
                                     #f)
                                   (write-ch #\newline)
                                   ((lambda (c)
                                      ((lambda (lp$207)
                                         (set! lp$207
                                           (lambda (c)
                                             ((lambda (tmp$209)
                                                (if tmp$209
                                                  tmp$209
                                                  ((lambda ()
                                                     (display-hexbottom
                                                       (cell:walls
                                                         (href/rc harr r c)))
                                                     (write-ch
                                                       (dot/space
                                                         harr
                                                         (- r 1)
                                                         (+ c 1)))
                                                     (lp$207 (+ c 2))))))
                                              (>= c ncols2))))
                                         (lp$207 c))
                                       #f))
                                    0)
                                   (if (odd? ncols)
                                     ((lambda ()
                                        (display-hexbottom
                                          (cell:walls
                                            (href/rc harr r (- ncols 1))))))
                                     (if (not (zero? r))
                                       ((lambda () (write-ch #\\)))
                                       #f))
                                   (write-ch #\newline)
                                   (lp$196 (- r 1))))))
                            (< r 0))))
                       (lp$196 r))
                     #f))
                  (- nrows 1)))))
            (* 2 (div ncols 2))))
         (harr:ncols harr)))
      (harr:nrows harr))))
 (define bit-test
   (lambda (j bit)
     (not (zero? (bitwise-and j bit)))))
 (define dot/space
   (lambda (harr r c)
     (if (if (>= r 0) (cell:mark (href/rc harr r c)) #f)
       #\.
       #\space)))
 (define display-hexbottom
   (lambda (hexwalls)
     (write-ch
       (if (bit-test hexwalls south-west) #\\ #\space))
     (write-ch
       (if (bit-test hexwalls south) #\_ #\space))
     (write-ch
       (if (bit-test hexwalls south-east) #\/ #\space))))
 (define run
   (lambda (nrows ncols)
     (set! output '())
     (pmaze nrows ncols)
     (reverse output)))
 (define main
   (lambda ()
     ((lambda (count)
        ((lambda (input1)
           ((lambda (input2)
              ((lambda (output)
                 ((lambda (s3)
                    ((lambda (s2)
                       ((lambda (s1)
                          ((lambda (name)
                             ((lambda ()
                                (run-r7rs-benchmark
                                  (string-append name ":" s1 ":" s2 ":" s3)
                                  count
                                  (lambda ()
                                    (run (hide count input1)
                                         (hide count input2)))
                                  (lambda (result) (equal? result output))))))
                           "maze"))
                        (number->string input1)))
                     (number->string input2)))
                  (number->string count)))
               (read)))
            (read)))
         (read)))
      (read))))
 (define hide
   (lambda (r x)
     (call-with-values
       (lambda ()
         (values
           (vector values (lambda (x) x))
           (if (< r 100) 0 1)))
       (lambda (v i) ((vector-ref v i) x)))))
 (define run-r7rs-benchmark
   (lambda (name count thunk ok?)
     (define rounded
       (lambda (x) (/ (round (* 1000 x)) 1000)))
     (display "Running ")
     (display name)
     (newline)
     (flush-output-port (current-output-port))
     ((lambda (j/s)
        ((lambda (t0)
           ((lambda (j0)
              ((lambda ()
                 ((lambda (i result)
                    ((lambda (loop)
                       (set! loop
                         (lambda (i result)
                           (if (< i count)
                             ((lambda () (loop (+ i 1) (thunk))))
                             (if (ok? result)
                               ((lambda ()
                                  ((lambda (j1)
                                     ((lambda (t1)
                                        ((lambda (jifs)
                                           ((lambda (secs)
                                              ((lambda (secs2)
                                                 ((lambda ()
                                                    (display "Elapsed time: ")
                                                    (write secs)
                                                    (display " seconds (")
                                                    (write secs2)
                                                    (display ") for ")
                                                    (display name)
                                                    (newline)
                                                    (display "+!CSVLINE!+")
                                                    (display
                                                      (this-scheme-implementation-name))
                                                    (display ",")
                                                    (display name)
                                                    (display ",")
                                                    (display secs)
                                                    (newline)
                                                    (flush-output-port
                                                      (current-output-port)))))
                                               (rounded (- t1 t0))))
                                            (inexact (/ jifs j/s))))
                                         (- j1 j0)))
                                      (current-second)))
                                   (current-jiffy))
                                  result))
                               ((lambda ()
                                  (display "ERROR: returned incorrect result: ")
                                  (write result)
                                  (newline)
                                  (flush-output-port (current-output-port))
                                  result))))))
                       (loop i result))
                     #f))
                  0
                  #f))))
            (current-jiffy)))
         (current-second)))
      (jiffies-per-second))))
 (define this-scheme-implementation-name
   (lambda ()
     (string-append "cyclone-" (Cyc-version))))
 ((lambda () 0 (main))))
 */
/* 
"pass thru exports:"
 */
/* 
()
 */
/* 
"---------------- after alpha conversion:"
 */
/* 
((define bitwise-not
   (lambda (x$560) (Cyc-fast-sub (- x$560) 1)))
 (define bitwise-and
   (lambda (x$558 y$557)
     (if (Cyc-fast-eq x$558 0)
       ((lambda () 0))
       (if (Cyc-fast-eq y$557 0)
         ((lambda () 0))
         (if (Cyc-fast-eq x$558 -1)
           ((lambda () y$557))
           (if (Cyc-fast-eq y$557 -1)
             ((lambda () x$558))
             ((lambda ()
                ((lambda (z$559)
                   (if (if (odd? x$558) (odd? y$557) #f)
                     (+ z$559 z$559 1)
                     (Cyc-fast-plus z$559 z$559)))
                 (bitwise-and (div x$558 2) (div y$557 2)))))))))))
 (define div
   (lambda (x$552 y$551)
     (if (if (exact-integer? x$552)
           (if (exact-integer? y$551)
             (Cyc-fast-gte x$552 0)
             #f)
           #f)
       ((lambda () (quotient x$552 y$551)))
       (if (Cyc-fast-lt y$551 0)
         ((lambda ()
            ((lambda (q$555)
               ((lambda (r$556)
                  ((lambda ()
                     (if (Cyc-fast-eq r$556 0)
                       q$555
                       (Cyc-fast-plus q$555 1)))))
                (Cyc-fast-sub x$552 (Cyc-fast-mul q$555 y$551))))
             (quotient x$552 y$551))))
         ((lambda ()
            ((lambda (q$553)
               ((lambda (r$554)
                  ((lambda ()
                     (if (Cyc-fast-eq r$554 0)
                       q$553
                       (Cyc-fast-sub q$553 1)))))
                (Cyc-fast-sub x$552 (Cyc-fast-mul q$553 y$551))))
             (quotient x$552 y$551))))))))
 (define mod
   (lambda (x$546 y$545)
     (if (if (exact-integer? x$546)
           (if (exact-integer? y$545)
             (Cyc-fast-gte x$546 0)
             #f)
           #f)
       ((lambda () (remainder x$546 y$545)))
       (if (Cyc-fast-lt y$545 0)
         ((lambda ()
            ((lambda (q$549)
               ((lambda (r$550)
                  ((lambda ()
                     (if (Cyc-fast-eq r$550 0)
                       0
                       (Cyc-fast-sub r$550 y$545)))))
                (Cyc-fast-sub x$546 (Cyc-fast-mul q$549 y$545))))
             (quotient x$546 y$545))))
         ((lambda ()
            ((lambda (q$547)
               ((lambda (r$548)
                  ((lambda ()
                     (if (Cyc-fast-eq r$548 0)
                       0
                       (Cyc-fast-plus r$548 y$545)))))
                (Cyc-fast-sub x$546 (Cyc-fast-mul q$547 y$545))))
             (quotient x$546 y$545))))))))
 (define random-state
   (lambda (n$544) (cons n$544 #f)))
 (define rand
   (lambda (state$534)
     ((lambda (seed$539 A$538 M$537 Q$536 R$535)
        ((lambda (hi$540)
           ((lambda (lo$541)
              ((lambda (test$542)
                 ((lambda (val$543)
                    ((lambda () (set-car! state$534 val$543) val$543)))
                  (if (Cyc-fast-gt test$542 0)
                    test$542
                    (Cyc-fast-plus test$542 M$537))))
               (Cyc-fast-sub
                 (Cyc-fast-mul A$538 lo$541)
                 (Cyc-fast-mul R$535 hi$540))))
            (mod seed$539 Q$536)))
         (div seed$539 Q$536)))
      (car state$534)
      2813
      8388607
      2787
      2699)))
 (define random-int
   (lambda (n$533 state$532)
     (mod (rand state$532) n$533)))
 (define base-set
   (lambda (nelts$531) (cons nelts$531 '())))
 (define get-set-root
   (lambda (s$522)
     ((lambda (r$523)
        ((lambda (lp$524)
           (set! lp$524
             (lambda (r$525)
               ((lambda (next$526)
                  (if (pair? next$526)
                    ((lambda () (lp$524 next$526)))
                    ((lambda ()
                       (if (eq? r$525 s$522)
                         #f
                         ((lambda (x$527)
                            ((lambda (lp$528)
                               (set! lp$528
                                 (lambda (x$529)
                                   ((lambda (next$530)
                                      (if (eq? r$525 next$530)
                                        #f
                                        ((lambda ()
                                           (set-cdr! x$529 r$525)
                                           (lp$528 next$530)))))
                                    (cdr x$529))))
                               (lp$528 x$527))
                             #f))
                          s$522))
                       r$525))))
                (cdr r$525))))
           (lp$524 r$523))
         #f))
      s$522)))
 (define set-equal?
   (lambda (s1$521 s2$520)
     (eq? (get-set-root s1$521) (get-set-root s2$520))))
 (define set-size
   (lambda (s$519) (car (get-set-root s$519))))
 (define union!
   (lambda (s1$513 s2$512)
     ((lambda (r1$514)
        ((lambda (r2$515)
           ((lambda (n1$516)
              ((lambda (n2$517)
                 ((lambda (n$518)
                    ((lambda ()
                       (if (Cyc-fast-gt n1$516 n2$517)
                         ((lambda ()
                            (set-cdr! r2$515 r1$514)
                            (set-car! r1$514 n$518)))
                         ((lambda ()
                            (set-cdr! r1$514 r2$515)
                            (set-car! r2$515 n$518)))))))
                  (Cyc-fast-plus n1$516 n2$517)))
               (set-size r2$515)))
            (set-size r1$514)))
         (get-set-root s2$512)))
      (get-set-root s1$513))))
 (define make-wall
   (lambda (owner$511 neighbor$510 bit$509)
     (vector 'wall owner$511 neighbor$510 bit$509)))
 (define wall:owner
   (lambda (o$508) (vector-ref o$508 1)))
 (define wall:neighbor
   (lambda (o$507) (vector-ref o$507 2)))
 (define wall:bit
   (lambda (o$506) (vector-ref o$506 3)))
 (define make-cell
   (lambda (reachable$505 id$504)
     (vector 'cell reachable$505 id$504 -1 #f #f)))
 (define cell:reachable
   (lambda (o$503) (vector-ref o$503 1)))
 (define cell:id
   (lambda (o$502) (vector-ref o$502 2)))
 (define cell:walls
   (lambda (o$501) (vector-ref o$501 3)))
 (define set-cell:walls
   (lambda (o$500 v$499)
     (vector-set! o$500 3 v$499)))
 (define cell:parent
   (lambda (o$498) (vector-ref o$498 4)))
 (define set-cell:parent
   (lambda (o$497 v$496)
     (vector-set! o$497 4 v$496)))
 (define cell:mark
   (lambda (o$495) (vector-ref o$495 5)))
 (define set-cell:mark
   (lambda (o$494 v$493)
     (vector-set! o$494 5 v$493)))
 (define vector-for-each-rev
   (lambda (proc$489 v$488)
     ((lambda (i$490)
        ((lambda (lp$491)
           (set! lp$491
             (lambda (i$492)
               (if (Cyc-fast-gte i$492 0)
                 ((lambda ()
                    (proc$489 (vector-ref v$488 i$492))
                    (lp$491 (Cyc-fast-sub i$492 1))))
                 #f)))
           (lp$491 i$490))
         #f))
      (Cyc-fast-sub (vector-length v$488) 1))))
 (define permute-vec!
   (lambda (v$482 random-state$481)
     ((lambda (i$483)
        ((lambda (lp$484)
           (set! lp$484
             (lambda (i$485)
               (if (Cyc-fast-gt i$485 1)
                 ((lambda ()
                    ((lambda (elt-i$487 j$486)
                       (vector-set!
                         v$482
                         i$485
                         (vector-ref v$482 j$486))
                       (vector-set! v$482 j$486 elt-i$487))
                     (vector-ref v$482 i$485)
                     (random-int i$485 random-state$481))
                    (lp$484 (Cyc-fast-sub i$485 1))))
                 #f)))
           (lp$484 i$483))
         #f))
      (Cyc-fast-sub (vector-length v$482) 1))
     v$482))
 (define dig-maze
   (lambda (walls$472 ncells$471)
     (call-with-current-continuation
       (lambda (quit$473)
         (vector-for-each-rev
           (lambda (wall$474)
             ((lambda (c1$475)
                ((lambda (set1$476)
                   ((lambda (c2$477)
                      ((lambda (set2$478)
                         ((lambda ()
                            (if (set-equal? set1$476 set2$478)
                              #f
                              ((lambda (walls$480 wall-mask$479)
                                 (union! set1$476 set2$478)
                                 (set-cell:walls
                                   c1$475
                                   (bitwise-and walls$480 wall-mask$479))
                                 (if (Cyc-fast-eq
                                       (set-size set1$476)
                                       ncells$471)
                                   (quit$473 #f)
                                   #f))
                               (cell:walls c1$475)
                               (bitwise-not (wall:bit wall$474)))))))
                       (cell:reachable c2$477)))
                    (wall:neighbor wall$474)))
                 (cell:reachable c1$475)))
              (wall:owner wall$474)))
           walls$472)))))
 (define dfs-maze
   (lambda (maze$464 root$463 do-children$462)
     ((lambda (node$466 parent$465)
        ((lambda (search$467)
           (set! search$467
             (lambda (node$469 parent$468)
               (set-cell:parent node$469 parent$468)
               (do-children$462
                 (lambda (child$470)
                   (if (eq? child$470 parent$468)
                     #f
                     (search$467 child$470 node$469)))
                 maze$464
                 node$469)))
           (search$467 node$466 parent$465))
         #f))
      root$463
      #f)))
 (define reroot-maze
   (lambda (new-root$455)
     ((lambda (node$457 new-parent$456)
        ((lambda (lp$458)
           (set! lp$458
             (lambda (node$460 new-parent$459)
               ((lambda (old-parent$461)
                  (set-cell:parent node$460 new-parent$459)
                  (if old-parent$461
                    (lp$458 old-parent$461 node$460)
                    #f))
                (cell:parent node$460))))
           (lp$458 node$457 new-parent$456))
         #f))
      new-root$455
      #f)))
 (define path-length
   (lambda (cell$449)
     ((lambda (len$451 node$450)
        ((lambda (lp$105$452)
           (set! lp$105$452
             (lambda (len$454 node$453)
               (if node$453
                 (lp$105$452
                   (Cyc-fast-plus len$454 1)
                   (cell:parent node$453))
                 len$454)))
           (lp$105$452 len$451 node$450))
         #f))
      0
      (cell:parent cell$449))))
 (define mark-path
   (lambda (node$444)
     ((lambda (node$445)
        ((lambda (lp$446)
           (set! lp$446
             (lambda (node$447)
               (set-cell:mark node$447 #t)
               ((lambda (tmp$111$448)
                  (if tmp$111$448 (lp$446 tmp$111$448) #f))
                (cell:parent node$447))))
           (lp$446 node$445))
         #f))
      node$444)))
 (define make-harr
   (lambda (nrows$443 ncols$442 elts$441)
     (vector 'harr nrows$443 ncols$442 elts$441)))
 (define harr:nrows
   (lambda (o$440) (vector-ref o$440 1)))
 (define harr:ncols
   (lambda (o$439) (vector-ref o$439 2)))
 (define harr:elts
   (lambda (o$438) (vector-ref o$438 3)))
 (define href
   (lambda (ha$435 x$434 y$433)
     ((lambda (r$437 c$436)
        (vector-ref
          (harr:elts ha$435)
          (Cyc-fast-plus
            (Cyc-fast-mul (harr:ncols ha$435) r$437)
            c$436)))
      (div y$433 2)
      (div x$434 3))))
 (define href/rc
   (lambda (ha$432 r$431 c$430)
     (vector-ref
       (harr:elts ha$432)
       (Cyc-fast-plus
         (Cyc-fast-mul (harr:ncols ha$432) r$431)
         c$430))))
 (define harr-tabulate
   (lambda (nrows$418 ncols$417 proc$416)
     ((lambda (v$419)
        ((lambda (r$420)
           ((lambda (lp$113$421)
              (set! lp$113$421
                (lambda (r$422)
                  ((lambda (tmp$115$423)
                     (if tmp$115$423
                       tmp$115$423
                       ((lambda ()
                          ((lambda (c$425 i$424)
                             ((lambda (lp$117$426)
                                (set! lp$117$426
                                  (lambda (c$428 i$427)
                                    ((lambda (tmp$119$429)
                                       (if tmp$119$429
                                         tmp$119$429
                                         ((lambda ()
                                            (vector-set!
                                              v$419
                                              i$427
                                              (proc$416
                                                (Cyc-fast-mul 3 c$428)
                                                (Cyc-fast-plus
                                                  (Cyc-fast-mul 2 r$422)
                                                  (bitwise-and c$428 1))))
                                            (lp$117$426
                                              (Cyc-fast-plus c$428 1)
                                              (Cyc-fast-plus i$427 1))))))
                                     (Cyc-fast-eq c$428 ncols$417))))
                                (lp$117$426 c$425 i$424))
                              #f))
                           0
                           (Cyc-fast-mul r$422 ncols$417))
                          (lp$113$421 (Cyc-fast-sub r$422 1))))))
                   (Cyc-fast-lt r$422 0))))
              (lp$113$421 r$420))
            #f))
         (Cyc-fast-sub nrows$418 1))
        (make-harr nrows$418 ncols$417 v$419))
      (make-vector (Cyc-fast-mul nrows$418 ncols$417)))))
 (define south-west 1)
 (define south 2)
 (define south-east 4)
 (define gen-maze-array
   (lambda (r$413 c$412)
     (harr-tabulate
       r$413
       c$412
       (lambda (x$415 y$414)
         (make-cell (base-set 1) (cons x$415 y$414))))))
 (define make-wall-vec
   (lambda (harr$388)
     ((lambda (nrows$389)
        ((lambda (ncols$390)
           ((lambda (xmax$391)
              ((lambda (walls$392)
                 ((lambda (add-wall$396)
                    ((lambda ()
                       ((lambda (x$403)
                          ((lambda (lp$132$404)
                             (set! lp$132$404
                               (lambda (x$405)
                                 ((lambda (tmp$134$406)
                                    (if tmp$134$406
                                      tmp$134$406
                                      ((lambda ()
                                         ((lambda (y$407)
                                            ((lambda (lp$136$408)
                                               (set! lp$136$408
                                                 (lambda (y$409)
                                                   ((lambda (tmp$138$410)
                                                      (if tmp$138$410
                                                        tmp$138$410
                                                        ((lambda ()
                                                           ((lambda (hex$411)
                                                              (if (zero? x$405)
                                                                #f
                                                                (add-wall$396
                                                                  hex$411
                                                                  (href harr$388
                                                                        (Cyc-fast-sub
                                                                          x$405
                                                                          3)
                                                                        (Cyc-fast-sub
                                                                          y$409
                                                                          1))
                                                                  south-west))
                                                              (add-wall$396
                                                                hex$411
                                                                (href harr$388
                                                                      x$405
                                                                      (Cyc-fast-sub
                                                                        y$409
                                                                        2))
                                                                south)
                                                              (if (Cyc-fast-lt
                                                                    x$405
                                                                    xmax$391)
                                                                (add-wall$396
                                                                  hex$411
                                                                  (href harr$388
                                                                        (Cyc-fast-plus
                                                                          x$405
                                                                          3)
                                                                        (Cyc-fast-sub
                                                                          y$409
                                                                          1))
                                                                  south-east)
                                                                #f))
                                                            (href harr$388
                                                                  x$405
                                                                  y$409))
                                                           (lp$136$408
                                                             (Cyc-fast-sub
                                                               y$409
                                                               2))))))
                                                    (Cyc-fast-lte y$409 1))))
                                               (lp$136$408 y$407))
                                             #f))
                                          (Cyc-fast-plus
                                            (Cyc-fast-mul
                                              (Cyc-fast-sub nrows$389 1)
                                              2)
                                            (bitwise-and x$405 1)))
                                         (lp$132$404 (Cyc-fast-sub x$405 3))))))
                                  (Cyc-fast-lt x$405 0))))
                             (lp$132$404 x$403))
                           #f))
                        (Cyc-fast-mul (Cyc-fast-sub ncols$390 1) 3))
                       (if (Cyc-fast-gt ncols$390 1)
                         ((lambda (rmoc-x$397)
                            ((lambda (rmoc-hex$402)
                               (if (Cyc-fast-lt rmoc-x$397 xmax$391)
                                 (add-wall$396
                                   rmoc-hex$402
                                   (href harr$388 xmax$391 0)
                                   south-east)
                                 #f)
                               (add-wall$396
                                 rmoc-hex$402
                                 (href harr$388 (Cyc-fast-sub rmoc-x$397 3) 0)
                                 south-west))
                             (href harr$388 rmoc-x$397 1))
                            ((lambda (x$398)
                               ((lambda (lp$140$399)
                                  (set! lp$140$399
                                    (lambda (x$400)
                                      ((lambda (tmp$142$401)
                                         (if tmp$142$401
                                           tmp$142$401
                                           ((lambda ()
                                              (add-wall$396
                                                (href harr$388 x$400 1)
                                                (href harr$388
                                                      (Cyc-fast-sub x$400 3)
                                                      0)
                                                south-west)
                                              (add-wall$396
                                                (href harr$388 x$400 1)
                                                (href harr$388
                                                      (Cyc-fast-plus x$400 3)
                                                      0)
                                                south-east)
                                              (lp$140$399
                                                (Cyc-fast-sub x$400 6))))))
                                       (Cyc-fast-lt x$400 3))))
                                  (lp$140$399 x$398))
                                #f))
                             (Cyc-fast-sub rmoc-x$397 6)))
                          (Cyc-fast-plus
                            3
                            (Cyc-fast-mul
                              6
                              (div (Cyc-fast-sub ncols$390 2) 2))))
                         #f)
                       (list->vector walls$392))))
                  (lambda (o$395 n$394 b$393)
                    (set! walls$392
                      (cons (make-wall o$395 n$394 b$393) walls$392)))))
               '()))
            (Cyc-fast-mul 3 (Cyc-fast-sub ncols$390 1))))
         (harr:ncols harr$388)))
      (harr:nrows harr$388))))
 (define pick-entrances
   (lambda (harr$361)
     (dfs-maze
       harr$361
       (href/rc harr$361 0 0)
       for-each-hex-child)
     ((lambda (nrows$363 ncols$362)
        ((lambda (max-len$367 entrance$366 exit$365 tcol$364)
           ((lambda (tp-lp$368)
              (set! tp-lp$368
                (lambda (max-len$372 entrance$371 exit$370 tcol$369)
                  (if (Cyc-fast-lt tcol$369 0)
                    (vector entrance$371 exit$370)
                    ((lambda (top-cell$373)
                       (reroot-maze top-cell$373)
                       ((lambda (result$384)
                          ((lambda (max-len$387 entrance$386 exit$385)
                             (tp-lp$368
                               max-len$387
                               entrance$386
                               exit$385
                               (Cyc-fast-sub tcol$369 1)))
                           (vector-ref result$384 0)
                           (vector-ref result$384 1)
                           (vector-ref result$384 2)))
                        ((lambda (max-len$377 entrance$376 exit$375 bcol$374)
                           ((lambda (bt-lp$378)
                              (set! bt-lp$378
                                (lambda (max-len$382
                                         entrance$381
                                         exit$380
                                         bcol$379)
                                  (if (Cyc-fast-lt bcol$379 0)
                                    (vector max-len$382 entrance$381 exit$380)
                                    ((lambda (this-len$383)
                                       (if (Cyc-fast-gt
                                             this-len$383
                                             max-len$382)
                                         (bt-lp$378
                                           this-len$383
                                           tcol$369
                                           bcol$379
                                           (Cyc-fast-sub bcol$379 1))
                                         (bt-lp$378
                                           max-len$382
                                           entrance$381
                                           exit$380
                                           (Cyc-fast-sub bcol$379 1))))
                                     (path-length
                                       (href/rc harr$361 0 bcol$379))))))
                              (bt-lp$378
                                max-len$377
                                entrance$376
                                exit$375
                                bcol$374))
                            #f))
                         max-len$372
                         entrance$371
                         exit$370
                         (Cyc-fast-sub ncols$362 1))))
                     (href/rc
                       harr$361
                       (Cyc-fast-sub nrows$363 1)
                       tcol$369)))))
              (tp-lp$368
                max-len$367
                entrance$366
                exit$365
                tcol$364))
            #f))
         -1
         #f
         #f
         (Cyc-fast-sub ncols$362 1)))
      (harr:nrows harr$361)
      (harr:ncols harr$361))))
 (define for-each-hex-child
   (lambda (proc$347 harr$346 cell$345)
     ((lambda (walls$348)
        ((lambda (id$349)
           ((lambda (x$350)
              ((lambda (y$351)
                 ((lambda (nr$352)
                    ((lambda (nc$353)
                       ((lambda (maxy$354)
                          ((lambda (maxx$355)
                             ((lambda ()
                                (if (bit-test walls$348 south-west)
                                  #f
                                  (proc$347
                                    (href harr$346
                                          (Cyc-fast-sub x$350 3)
                                          (Cyc-fast-sub y$351 1))))
                                (if (bit-test walls$348 south)
                                  #f
                                  (proc$347
                                    (href harr$346
                                          x$350
                                          (Cyc-fast-sub y$351 2))))
                                (if (bit-test walls$348 south-east)
                                  #f
                                  (proc$347
                                    (href harr$346
                                          (Cyc-fast-plus x$350 3)
                                          (Cyc-fast-sub y$351 1))))
                                (if (if (Cyc-fast-gt x$350 0)
                                      ((lambda (tmp$165$360)
                                         (if tmp$165$360
                                           tmp$165$360
                                           (zero? (mod x$350 6))))
                                       (Cyc-fast-lte y$351 maxy$354))
                                      #f)
                                  ((lambda (nw$359)
                                     (if (bit-test
                                           (cell:walls nw$359)
                                           south-east)
                                       #f
                                       (proc$347 nw$359)))
                                   (href harr$346
                                         (Cyc-fast-sub x$350 3)
                                         (Cyc-fast-plus y$351 1)))
                                  #f)
                                (if (Cyc-fast-lt y$351 maxy$354)
                                  ((lambda (n$358)
                                     (if (bit-test (cell:walls n$358) south)
                                       #f
                                       (proc$347 n$358)))
                                   (href harr$346
                                         x$350
                                         (Cyc-fast-plus y$351 2)))
                                  #f)
                                (if (if (Cyc-fast-lt x$350 maxx$355)
                                      ((lambda (tmp$169$357)
                                         (if tmp$169$357
                                           tmp$169$357
                                           (zero? (mod x$350 6))))
                                       (Cyc-fast-lte y$351 maxy$354))
                                      #f)
                                  ((lambda (ne$356)
                                     (if (bit-test
                                           (cell:walls ne$356)
                                           south-west)
                                       #f
                                       (proc$347 ne$356)))
                                   (href harr$346
                                         (Cyc-fast-plus x$350 3)
                                         (Cyc-fast-plus y$351 1)))
                                  #f))))
                           (Cyc-fast-mul 3 (Cyc-fast-sub nc$353 1))))
                        (Cyc-fast-mul 2 (Cyc-fast-sub nr$352 1))))
                     (harr:ncols harr$346)))
                  (harr:nrows harr$346)))
               (cdr id$349)))
            (car id$349)))
         (cell:id cell$345)))
      (cell:walls cell$345))))
 (define make-maze
   (lambda (nrows$337 ncols$336)
     ((lambda (cells$338)
        ((lambda (walls$339)
           ((lambda ()
              (dig-maze
                walls$339
                (Cyc-fast-mul nrows$337 ncols$336))
              ((lambda (result$340)
                 ((lambda (entrance$342 exit$341)
                    ((lambda (exit-cell$343)
                       ((lambda (walls$344)
                          ((lambda ()
                             (reroot-maze
                               (href/rc
                                 cells$338
                                 (Cyc-fast-sub nrows$337 1)
                                 entrance$342))
                             (mark-path exit-cell$343)
                             (set-cell:walls
                               exit-cell$343
                               (bitwise-and walls$344 (bitwise-not south)))
                             (vector cells$338 entrance$342 exit$341))))
                        (cell:walls exit-cell$343)))
                     (href/rc cells$338 0 exit$341)))
                  (vector-ref result$340 0)
                  (vector-ref result$340 1)))
               (pick-entrances cells$338)))))
         (permute-vec!
           (make-wall-vec cells$338)
           (random-state 20))))
      (gen-maze-array nrows$337 ncols$336))))
 (define pmaze
   (lambda (nrows$331 ncols$330)
     ((lambda (result$332)
        ((lambda (cells$335 entrance$334 exit$333)
           (print-hexmaze cells$335 entrance$334))
         (vector-ref result$332 0)
         (vector-ref result$332 1)
         (vector-ref result$332 2)))
      (make-maze nrows$331 ncols$330))))
 (define output #f)
 (define write-ch
   (lambda (c$329)
     (set! output (cons c$329 output))))
 (define print-hexmaze
   (lambda (harr$305 entrance$304)
     ((lambda (nrows$306)
        ((lambda (ncols$307)
           ((lambda (ncols2$308)
              ((lambda ()
                 ((lambda (c$325)
                    ((lambda (lp$188$326)
                       (set! lp$188$326
                         (lambda (c$327)
                           ((lambda (tmp$190$328)
                              (if tmp$190$328
                                tmp$190$328
                                ((lambda ()
                                   (write-ch #\space)
                                   (write-ch #\space)
                                   (write-ch #\space)
                                   (write-ch
                                     (if (Cyc-fast-eq c$327 entrance$304)
                                       #\space
                                       #\_))
                                   (lp$188$326 (Cyc-fast-plus c$327 2))))))
                            (Cyc-fast-gte c$327 ncols$307))))
                       (lp$188$326 c$325))
                     #f))
                  1)
                 (write-ch #\newline)
                 (write-ch #\space)
                 ((lambda (c$321)
                    ((lambda (lp$192$322)
                       (set! lp$192$322
                         (lambda (c$323)
                           ((lambda (tmp$194$324)
                              (if tmp$194$324
                                tmp$194$324
                                ((lambda ()
                                   (write-ch
                                     (if (Cyc-fast-eq c$323 entrance$304)
                                       #\space
                                       #\_))
                                   (write-ch #\/)
                                   (write-ch
                                     (dot/space
                                       harr$305
                                       (Cyc-fast-sub nrows$306 1)
                                       (Cyc-fast-plus c$323 1)))
                                   (write-ch #\\)
                                   (lp$192$322 (Cyc-fast-plus c$323 2))))))
                            (Cyc-fast-gte c$323 ncols2$308))))
                       (lp$192$322 c$321))
                     #f))
                  0)
                 (if (odd? ncols$307)
                   (write-ch
                     (if (Cyc-fast-eq
                           entrance$304
                           (Cyc-fast-sub ncols$307 1))
                       #\space
                       #\_))
                   #f)
                 (write-ch #\newline)
                 ((lambda (r$309)
                    ((lambda (lp$196$310)
                       (set! lp$196$310
                         (lambda (r$311)
                           ((lambda (tmp$198$312)
                              (if tmp$198$312
                                tmp$198$312
                                ((lambda ()
                                   (write-ch #\/)
                                   ((lambda (c$317)
                                      ((lambda (lp$200$318)
                                         (set! lp$200$318
                                           (lambda (c$319)
                                             ((lambda (tmp$202$320)
                                                (if tmp$202$320
                                                  tmp$202$320
                                                  ((lambda ()
                                                     (write-ch
                                                       (dot/space
                                                         harr$305
                                                         r$311
                                                         (Cyc-fast-sub
                                                           c$319
                                                           1)))
                                                     (display-hexbottom
                                                       (cell:walls
                                                         (href/rc
                                                           harr$305
                                                           r$311
                                                           c$319)))
                                                     (lp$200$318
                                                       (Cyc-fast-plus
                                                         c$319
                                                         2))))))
                                              (Cyc-fast-gte c$319 ncols2$308))))
                                         (lp$200$318 c$317))
                                       #f))
                                    1)
                                   (if (odd? ncols$307)
                                     ((lambda ()
                                        (write-ch
                                          (dot/space
                                            harr$305
                                            r$311
                                            (Cyc-fast-sub ncols$307 1)))
                                        (write-ch #\\)))
                                     #f)
                                   (write-ch #\newline)
                                   ((lambda (c$313)
                                      ((lambda (lp$207$314)
                                         (set! lp$207$314
                                           (lambda (c$315)
                                             ((lambda (tmp$209$316)
                                                (if tmp$209$316
                                                  tmp$209$316
                                                  ((lambda ()
                                                     (display-hexbottom
                                                       (cell:walls
                                                         (href/rc
                                                           harr$305
                                                           r$311
                                                           c$315)))
                                                     (write-ch
                                                       (dot/space
                                                         harr$305
                                                         (Cyc-fast-sub r$311 1)
                                                         (Cyc-fast-plus
                                                           c$315
                                                           1)))
                                                     (lp$207$314
                                                       (Cyc-fast-plus
                                                         c$315
                                                         2))))))
                                              (Cyc-fast-gte c$315 ncols2$308))))
                                         (lp$207$314 c$313))
                                       #f))
                                    0)
                                   (if (odd? ncols$307)
                                     ((lambda ()
                                        (display-hexbottom
                                          (cell:walls
                                            (href/rc
                                              harr$305
                                              r$311
                                              (Cyc-fast-sub ncols$307 1))))))
                                     (if (zero? r$311)
                                       #f
                                       ((lambda () (write-ch #\\)))))
                                   (write-ch #\newline)
                                   (lp$196$310 (Cyc-fast-sub r$311 1))))))
                            (Cyc-fast-lt r$311 0))))
                       (lp$196$310 r$309))
                     #f))
                  (Cyc-fast-sub nrows$306 1)))))
            (Cyc-fast-mul 2 (div ncols$307 2))))
         (harr:ncols harr$305)))
      (harr:nrows harr$305))))
 (define bit-test
   (lambda (j$303 bit$302)
     (not (zero? (bitwise-and j$303 bit$302)))))
 (define dot/space
   (lambda (harr$301 r$300 c$299)
     (if (if (Cyc-fast-gte r$300 0)
           (cell:mark (href/rc harr$301 r$300 c$299))
           #f)
       #\.
       #\space)))
 (define display-hexbottom
   (lambda (hexwalls$298)
     (write-ch
       (if (bit-test hexwalls$298 south-west)
         #\\
         #\space))
     (write-ch
       (if (bit-test hexwalls$298 south) #\_ #\space))
     (write-ch
       (if (bit-test hexwalls$298 south-east)
         #\/
         #\space))))
 (define run
   (lambda (nrows$297 ncols$296)
     (set! output '())
     (pmaze nrows$297 ncols$296)
     (reverse output)))
 (define main
   (lambda ()
     ((lambda (count$287)
        ((lambda (input1$288)
           ((lambda (input2$289)
              ((lambda (output$290)
                 ((lambda (s3$291)
                    ((lambda (s2$292)
                       ((lambda (s1$293)
                          ((lambda (name$294)
                             ((lambda ()
                                (run-r7rs-benchmark
                                  (string-append
                                    name$294
                                    ":"
                                    s1$293
                                    ":"
                                    s2$292
                                    ":"
                                    s3$291)
                                  count$287
                                  (lambda ()
                                    (run (hide count$287 input1$288)
                                         (hide count$287 input2$289)))
                                  (lambda (result$295)
                                    (equal? result$295 output$290))))))
                           "maze"))
                        (number->string input1$288)))
                     (number->string input2$289)))
                  (number->string count$287)))
               (read)))
            (read)))
         (read)))
      (read))))
 (define hide
   (lambda (r$283 x$282)
     (call-with-values
       (lambda ()
         (values
           (vector values (lambda (x$286) x$286))
           (if (Cyc-fast-lt r$283 100) 0 1)))
       (lambda (v$285 i$284)
         ((vector-ref v$285 i$284) x$282)))))
 (define run-r7rs-benchmark
   (lambda (name$264 count$263 thunk$262 ok?$261)
     ((lambda (rounded$266)
        ((lambda (rounded$267)
           (set! rounded$266
             (lambda (x$281)
               (Cyc-fast-div
                 (round (Cyc-fast-mul 1000 x$281))
                 1000)))
           (display "Running ")
           (display name$264)
           (newline)
           (flush-output-port (current-output-port))
           ((lambda (j/s$268)
              ((lambda (t0$269)
                 ((lambda (j0$270)
                    ((lambda ()
                       ((lambda (i$272 result$271)
                          ((lambda (loop$273)
                             (set! loop$273
                               (lambda (i$275 result$274)
                                 (if (Cyc-fast-lt i$275 count$263)
                                   ((lambda ()
                                      (loop$273
                                        (Cyc-fast-plus i$275 1)
                                        (thunk$262))))
                                   (if (ok?$261 result$274)
                                     ((lambda ()
                                        ((lambda (j1$276)
                                           ((lambda (t1$277)
                                              ((lambda (jifs$278)
                                                 ((lambda (secs$279)
                                                    ((lambda (secs2$280)
                                                       ((lambda ()
                                                          (display
                                                            "Elapsed time: ")
                                                          (write secs$279)
                                                          (display " seconds (")
                                                          (write secs2$280)
                                                          (display ") for ")
                                                          (display name$264)
                                                          (newline)
                                                          (display
                                                            "+!CSVLINE!+")
                                                          (display
                                                            (this-scheme-implementation-name))
                                                          (display ",")
                                                          (display name$264)
                                                          (display ",")
                                                          (display secs$279)
                                                          (newline)
                                                          (flush-output-port
                                                            (current-output-port)))))
                                                     (rounded$266
                                                       (Cyc-fast-sub
                                                         t1$277
                                                         t0$269))))
                                                  (inexact
                                                    (Cyc-fast-div
                                                      jifs$278
                                                      j/s$268))))
                                               (Cyc-fast-sub j1$276 j0$270)))
                                            (current-second)))
                                         (current-jiffy))
                                        result$274))
                                     ((lambda ()
                                        (display
                                          "ERROR: returned incorrect result: ")
                                        (write result$274)
                                        (newline)
                                        (flush-output-port
                                          (current-output-port))
                                        result$274))))))
                             (loop$273 i$272 result$271))
                           #f))
                        0
                        #f))))
                  (current-jiffy)))
               (current-second)))
            (jiffies-per-second)))
         #f))
      #f)))
 (define this-scheme-implementation-name
   (lambda ()
     (string-append "cyclone-" (Cyc-version))))
 ((lambda () 0 (main))))
 */
/* 
"---------------- after func->primitive conversion:"
 */
/* 
((define bitwise-not
   (lambda (x$560) (Cyc-fast-sub (- x$560) 1)))
 (define bitwise-and
   (lambda (x$558 y$557)
     (if (Cyc-fast-eq x$558 0)
       ((lambda () 0))
       (if (Cyc-fast-eq y$557 0)
         ((lambda () 0))
         (if (Cyc-fast-eq x$558 -1)
           ((lambda () y$557))
           (if (Cyc-fast-eq y$557 -1)
             ((lambda () x$558))
             ((lambda ()
                ((lambda (z$559)
                   (if (if (odd? x$558) (odd? y$557) #f)
                     (+ z$559 z$559 1)
                     (Cyc-fast-plus z$559 z$559)))
                 (bitwise-and (div x$558 2) (div y$557 2)))))))))))
 (define div
   (lambda (x$552 y$551)
     (if (if (exact-integer?__inline__ x$552)
           (if (exact-integer?__inline__ y$551)
             (Cyc-fast-gte x$552 0)
             #f)
           #f)
       ((lambda () (quotient__inline__ x$552 y$551)))
       (if (Cyc-fast-lt y$551 0)
         ((lambda ()
            ((lambda (q$555)
               ((lambda (r$556)
                  ((lambda ()
                     (if (Cyc-fast-eq r$556 0)
                       q$555
                       (Cyc-fast-plus q$555 1)))))
                (Cyc-fast-sub x$552 (Cyc-fast-mul q$555 y$551))))
             (quotient__inline__ x$552 y$551))))
         ((lambda ()
            ((lambda (q$553)
               ((lambda (r$554)
                  ((lambda ()
                     (if (Cyc-fast-eq r$554 0)
                       q$553
                       (Cyc-fast-sub q$553 1)))))
                (Cyc-fast-sub x$552 (Cyc-fast-mul q$553 y$551))))
             (quotient__inline__ x$552 y$551))))))))
 (define mod
   (lambda (x$546 y$545)
     (if (if (exact-integer?__inline__ x$546)
           (if (exact-integer?__inline__ y$545)
             (Cyc-fast-gte x$546 0)
             #f)
           #f)
       ((lambda () (remainder x$546 y$545)))
       (if (Cyc-fast-lt y$545 0)
         ((lambda ()
            ((lambda (q$549)
               ((lambda (r$550)
                  ((lambda ()
                     (if (Cyc-fast-eq r$550 0)
                       0
                       (Cyc-fast-sub r$550 y$545)))))
                (Cyc-fast-sub x$546 (Cyc-fast-mul q$549 y$545))))
             (quotient__inline__ x$546 y$545))))
         ((lambda ()
            ((lambda (q$547)
               ((lambda (r$548)
                  ((lambda ()
                     (if (Cyc-fast-eq r$548 0)
                       0
                       (Cyc-fast-plus r$548 y$545)))))
                (Cyc-fast-sub x$546 (Cyc-fast-mul q$547 y$545))))
             (quotient__inline__ x$546 y$545))))))))
 (define random-state
   (lambda (n$544) (cons n$544 #f)))
 (define rand
   (lambda (state$534)
     ((lambda (seed$539 A$538 M$537 Q$536 R$535)
        ((lambda (hi$540)
           ((lambda (lo$541)
              ((lambda (test$542)
                 ((lambda (val$543)
                    ((lambda () (set-car! state$534 val$543) val$543)))
                  (if (Cyc-fast-gt test$542 0)
                    test$542
                    (Cyc-fast-plus test$542 M$537))))
               (Cyc-fast-sub
                 (Cyc-fast-mul A$538 lo$541)
                 (Cyc-fast-mul R$535 hi$540))))
            (mod seed$539 Q$536)))
         (div seed$539 Q$536)))
      (car state$534)
      2813
      8388607
      2787
      2699)))
 (define random-int
   (lambda (n$533 state$532)
     (mod (rand state$532) n$533)))
 (define base-set
   (lambda (nelts$531) (cons nelts$531 '())))
 (define get-set-root
   (lambda (s$522)
     ((lambda (r$523)
        ((lambda (lp$524)
           (set! lp$524
             (lambda (r$525)
               ((lambda (next$526)
                  (if (pair? next$526)
                    ((lambda () (lp$524 next$526)))
                    ((lambda ()
                       (if (eq? r$525 s$522)
                         #f
                         ((lambda (x$527)
                            ((lambda (lp$528)
                               (set! lp$528
                                 (lambda (x$529)
                                   ((lambda (next$530)
                                      (if (eq? r$525 next$530)
                                        #f
                                        ((lambda ()
                                           (set-cdr! x$529 r$525)
                                           (lp$528 next$530)))))
                                    (cdr x$529))))
                               (lp$528 x$527))
                             #f))
                          s$522))
                       r$525))))
                (cdr r$525))))
           (lp$524 r$523))
         #f))
      s$522)))
 (define set-equal?
   (lambda (s1$521 s2$520)
     (eq? (get-set-root s1$521) (get-set-root s2$520))))
 (define set-size
   (lambda (s$519) (car (get-set-root s$519))))
 (define union!
   (lambda (s1$513 s2$512)
     ((lambda (r1$514)
        ((lambda (r2$515)
           ((lambda (n1$516)
              ((lambda (n2$517)
                 ((lambda (n$518)
                    ((lambda ()
                       (if (Cyc-fast-gt n1$516 n2$517)
                         ((lambda ()
                            (set-cdr! r2$515 r1$514)
                            (set-car! r1$514 n$518)))
                         ((lambda ()
                            (set-cdr! r1$514 r2$515)
                            (set-car! r2$515 n$518)))))))
                  (Cyc-fast-plus n1$516 n2$517)))
               (set-size r2$515)))
            (set-size r1$514)))
         (get-set-root s2$512)))
      (get-set-root s1$513))))
 (define make-wall
   (lambda (owner$511 neighbor$510 bit$509)
     (vector 'wall owner$511 neighbor$510 bit$509)))
 (define wall:owner
   (lambda (o$508) (vector-ref o$508 1)))
 (define wall:neighbor
   (lambda (o$507) (vector-ref o$507 2)))
 (define wall:bit
   (lambda (o$506) (vector-ref o$506 3)))
 (define make-cell
   (lambda (reachable$505 id$504)
     (vector 'cell reachable$505 id$504 -1 #f #f)))
 (define cell:reachable
   (lambda (o$503) (vector-ref o$503 1)))
 (define cell:id
   (lambda (o$502) (vector-ref o$502 2)))
 (define cell:walls
   (lambda (o$501) (vector-ref o$501 3)))
 (define set-cell:walls
   (lambda (o$500 v$499)
     (vector-set! o$500 3 v$499)))
 (define cell:parent
   (lambda (o$498) (vector-ref o$498 4)))
 (define set-cell:parent
   (lambda (o$497 v$496)
     (vector-set! o$497 4 v$496)))
 (define cell:mark
   (lambda (o$495) (vector-ref o$495 5)))
 (define set-cell:mark
   (lambda (o$494 v$493)
     (vector-set! o$494 5 v$493)))
 (define vector-for-each-rev
   (lambda (proc$489 v$488)
     ((lambda (i$490)
        ((lambda (lp$491)
           (set! lp$491
             (lambda (i$492)
               (if (Cyc-fast-gte i$492 0)
                 ((lambda ()
                    (proc$489 (vector-ref v$488 i$492))
                    (lp$491 (Cyc-fast-sub i$492 1))))
                 #f)))
           (lp$491 i$490))
         #f))
      (Cyc-fast-sub (vector-length v$488) 1))))
 (define permute-vec!
   (lambda (v$482 random-state$481)
     ((lambda (i$483)
        ((lambda (lp$484)
           (set! lp$484
             (lambda (i$485)
               (if (Cyc-fast-gt i$485 1)
                 ((lambda ()
                    ((lambda (elt-i$487 j$486)
                       (vector-set!
                         v$482
                         i$485
                         (vector-ref v$482 j$486))
                       (vector-set! v$482 j$486 elt-i$487))
                     (vector-ref v$482 i$485)
                     (random-int i$485 random-state$481))
                    (lp$484 (Cyc-fast-sub i$485 1))))
                 #f)))
           (lp$484 i$483))
         #f))
      (Cyc-fast-sub (vector-length v$482) 1))
     v$482))
 (define dig-maze
   (lambda (walls$472 ncells$471)
     (call-with-current-continuation
       (lambda (quit$473)
         (vector-for-each-rev
           (lambda (wall$474)
             ((lambda (c1$475)
                ((lambda (set1$476)
                   ((lambda (c2$477)
                      ((lambda (set2$478)
                         ((lambda ()
                            (if (set-equal? set1$476 set2$478)
                              #f
                              ((lambda (walls$480 wall-mask$479)
                                 (union! set1$476 set2$478)
                                 (set-cell:walls
                                   c1$475
                                   (bitwise-and walls$480 wall-mask$479))
                                 (if (Cyc-fast-eq
                                       (set-size set1$476)
                                       ncells$471)
                                   (quit$473 #f)
                                   #f))
                               (cell:walls c1$475)
                               (bitwise-not (wall:bit wall$474)))))))
                       (cell:reachable c2$477)))
                    (wall:neighbor wall$474)))
                 (cell:reachable c1$475)))
              (wall:owner wall$474)))
           walls$472)))))
 (define dfs-maze
   (lambda (maze$464 root$463 do-children$462)
     ((lambda (node$466 parent$465)
        ((lambda (search$467)
           (set! search$467
             (lambda (node$469 parent$468)
               (set-cell:parent node$469 parent$468)
               (do-children$462
                 (lambda (child$470)
                   (if (eq? child$470 parent$468)
                     #f
                     (search$467 child$470 node$469)))
                 maze$464
                 node$469)))
           (search$467 node$466 parent$465))
         #f))
      root$463
      #f)))
 (define reroot-maze
   (lambda (new-root$455)
     ((lambda (node$457 new-parent$456)
        ((lambda (lp$458)
           (set! lp$458
             (lambda (node$460 new-parent$459)
               ((lambda (old-parent$461)
                  (set-cell:parent node$460 new-parent$459)
                  (if old-parent$461
                    (lp$458 old-parent$461 node$460)
                    #f))
                (cell:parent node$460))))
           (lp$458 node$457 new-parent$456))
         #f))
      new-root$455
      #f)))
 (define path-length
   (lambda (cell$449)
     ((lambda (len$451 node$450)
        ((lambda (lp$105$452)
           (set! lp$105$452
             (lambda (len$454 node$453)
               (if node$453
                 (lp$105$452
                   (Cyc-fast-plus len$454 1)
                   (cell:parent node$453))
                 len$454)))
           (lp$105$452 len$451 node$450))
         #f))
      0
      (cell:parent cell$449))))
 (define mark-path
   (lambda (node$444)
     ((lambda (node$445)
        ((lambda (lp$446)
           (set! lp$446
             (lambda (node$447)
               (set-cell:mark node$447 #t)
               ((lambda (tmp$111$448)
                  (if tmp$111$448 (lp$446 tmp$111$448) #f))
                (cell:parent node$447))))
           (lp$446 node$445))
         #f))
      node$444)))
 (define make-harr
   (lambda (nrows$443 ncols$442 elts$441)
     (vector 'harr nrows$443 ncols$442 elts$441)))
 (define harr:nrows
   (lambda (o$440) (vector-ref o$440 1)))
 (define harr:ncols
   (lambda (o$439) (vector-ref o$439 2)))
 (define harr:elts
   (lambda (o$438) (vector-ref o$438 3)))
 (define href
   (lambda (ha$435 x$434 y$433)
     ((lambda (r$437 c$436)
        (vector-ref
          (harr:elts ha$435)
          (Cyc-fast-plus
            (Cyc-fast-mul (harr:ncols ha$435) r$437)
            c$436)))
      (div y$433 2)
      (div x$434 3))))
 (define href/rc
   (lambda (ha$432 r$431 c$430)
     (vector-ref
       (harr:elts ha$432)
       (Cyc-fast-plus
         (Cyc-fast-mul (harr:ncols ha$432) r$431)
         c$430))))
 (define harr-tabulate
   (lambda (nrows$418 ncols$417 proc$416)
     ((lambda (v$419)
        ((lambda (r$420)
           ((lambda (lp$113$421)
              (set! lp$113$421
                (lambda (r$422)
                  ((lambda (tmp$115$423)
                     (if tmp$115$423
                       tmp$115$423
                       ((lambda ()
                          ((lambda (c$425 i$424)
                             ((lambda (lp$117$426)
                                (set! lp$117$426
                                  (lambda (c$428 i$427)
                                    ((lambda (tmp$119$429)
                                       (if tmp$119$429
                                         tmp$119$429
                                         ((lambda ()
                                            (vector-set!
                                              v$419
                                              i$427
                                              (proc$416
                                                (Cyc-fast-mul 3 c$428)
                                                (Cyc-fast-plus
                                                  (Cyc-fast-mul 2 r$422)
                                                  (bitwise-and c$428 1))))
                                            (lp$117$426
                                              (Cyc-fast-plus c$428 1)
                                              (Cyc-fast-plus i$427 1))))))
                                     (Cyc-fast-eq c$428 ncols$417))))
                                (lp$117$426 c$425 i$424))
                              #f))
                           0
                           (Cyc-fast-mul r$422 ncols$417))
                          (lp$113$421 (Cyc-fast-sub r$422 1))))))
                   (Cyc-fast-lt r$422 0))))
              (lp$113$421 r$420))
            #f))
         (Cyc-fast-sub nrows$418 1))
        (make-harr nrows$418 ncols$417 v$419))
      (make-vector (Cyc-fast-mul nrows$418 ncols$417)))))
 (define south-west 1)
 (define south 2)
 (define south-east 4)
 (define gen-maze-array
   (lambda (r$413 c$412)
     (harr-tabulate
       r$413
       c$412
       (lambda (x$415 y$414)
         (make-cell (base-set 1) (cons x$415 y$414))))))
 (define make-wall-vec
   (lambda (harr$388)
     ((lambda (nrows$389)
        ((lambda (ncols$390)
           ((lambda (xmax$391)
              ((lambda (walls$392)
                 ((lambda (add-wall$396)
                    ((lambda ()
                       ((lambda (x$403)
                          ((lambda (lp$132$404)
                             (set! lp$132$404
                               (lambda (x$405)
                                 ((lambda (tmp$134$406)
                                    (if tmp$134$406
                                      tmp$134$406
                                      ((lambda ()
                                         ((lambda (y$407)
                                            ((lambda (lp$136$408)
                                               (set! lp$136$408
                                                 (lambda (y$409)
                                                   ((lambda (tmp$138$410)
                                                      (if tmp$138$410
                                                        tmp$138$410
                                                        ((lambda ()
                                                           ((lambda (hex$411)
                                                              (if (zero?__inline__
                                                                    x$405)
                                                                #f
                                                                (add-wall$396
                                                                  hex$411
                                                                  (href harr$388
                                                                        (Cyc-fast-sub
                                                                          x$405
                                                                          3)
                                                                        (Cyc-fast-sub
                                                                          y$409
                                                                          1))
                                                                  south-west))
                                                              (add-wall$396
                                                                hex$411
                                                                (href harr$388
                                                                      x$405
                                                                      (Cyc-fast-sub
                                                                        y$409
                                                                        2))
                                                                south)
                                                              (if (Cyc-fast-lt
                                                                    x$405
                                                                    xmax$391)
                                                                (add-wall$396
                                                                  hex$411
                                                                  (href harr$388
                                                                        (Cyc-fast-plus
                                                                          x$405
                                                                          3)
                                                                        (Cyc-fast-sub
                                                                          y$409
                                                                          1))
                                                                  south-east)
                                                                #f))
                                                            (href harr$388
                                                                  x$405
                                                                  y$409))
                                                           (lp$136$408
                                                             (Cyc-fast-sub
                                                               y$409
                                                               2))))))
                                                    (Cyc-fast-lte y$409 1))))
                                               (lp$136$408 y$407))
                                             #f))
                                          (Cyc-fast-plus
                                            (Cyc-fast-mul
                                              (Cyc-fast-sub nrows$389 1)
                                              2)
                                            (bitwise-and x$405 1)))
                                         (lp$132$404 (Cyc-fast-sub x$405 3))))))
                                  (Cyc-fast-lt x$405 0))))
                             (lp$132$404 x$403))
                           #f))
                        (Cyc-fast-mul (Cyc-fast-sub ncols$390 1) 3))
                       (if (Cyc-fast-gt ncols$390 1)
                         ((lambda (rmoc-x$397)
                            ((lambda (rmoc-hex$402)
                               (if (Cyc-fast-lt rmoc-x$397 xmax$391)
                                 (add-wall$396
                                   rmoc-hex$402
                                   (href harr$388 xmax$391 0)
                                   south-east)
                                 #f)
                               (add-wall$396
                                 rmoc-hex$402
                                 (href harr$388 (Cyc-fast-sub rmoc-x$397 3) 0)
                                 south-west))
                             (href harr$388 rmoc-x$397 1))
                            ((lambda (x$398)
                               ((lambda (lp$140$399)
                                  (set! lp$140$399
                                    (lambda (x$400)
                                      ((lambda (tmp$142$401)
                                         (if tmp$142$401
                                           tmp$142$401
                                           ((lambda ()
                                              (add-wall$396
                                                (href harr$388 x$400 1)
                                                (href harr$388
                                                      (Cyc-fast-sub x$400 3)
                                                      0)
                                                south-west)
                                              (add-wall$396
                                                (href harr$388 x$400 1)
                                                (href harr$388
                                                      (Cyc-fast-plus x$400 3)
                                                      0)
                                                south-east)
                                              (lp$140$399
                                                (Cyc-fast-sub x$400 6))))))
                                       (Cyc-fast-lt x$400 3))))
                                  (lp$140$399 x$398))
                                #f))
                             (Cyc-fast-sub rmoc-x$397 6)))
                          (Cyc-fast-plus
                            3
                            (Cyc-fast-mul
                              6
                              (div (Cyc-fast-sub ncols$390 2) 2))))
                         #f)
                       (list->vector walls$392))))
                  (lambda (o$395 n$394 b$393)
                    (set! walls$392
                      (cons (make-wall o$395 n$394 b$393) walls$392)))))
               '()))
            (Cyc-fast-mul 3 (Cyc-fast-sub ncols$390 1))))
         (harr:ncols harr$388)))
      (harr:nrows harr$388))))
 (define pick-entrances
   (lambda (harr$361)
     (dfs-maze
       harr$361
       (href/rc harr$361 0 0)
       for-each-hex-child)
     ((lambda (nrows$363 ncols$362)
        ((lambda (max-len$367 entrance$366 exit$365 tcol$364)
           ((lambda (tp-lp$368)
              (set! tp-lp$368
                (lambda (max-len$372 entrance$371 exit$370 tcol$369)
                  (if (Cyc-fast-lt tcol$369 0)
                    (vector entrance$371 exit$370)
                    ((lambda (top-cell$373)
                       (reroot-maze top-cell$373)
                       ((lambda (result$384)
                          ((lambda (max-len$387 entrance$386 exit$385)
                             (tp-lp$368
                               max-len$387
                               entrance$386
                               exit$385
                               (Cyc-fast-sub tcol$369 1)))
                           (vector-ref result$384 0)
                           (vector-ref result$384 1)
                           (vector-ref result$384 2)))
                        ((lambda (max-len$377 entrance$376 exit$375 bcol$374)
                           ((lambda (bt-lp$378)
                              (set! bt-lp$378
                                (lambda (max-len$382
                                         entrance$381
                                         exit$380
                                         bcol$379)
                                  (if (Cyc-fast-lt bcol$379 0)
                                    (vector max-len$382 entrance$381 exit$380)
                                    ((lambda (this-len$383)
                                       (if (Cyc-fast-gt
                                             this-len$383
                                             max-len$382)
                                         (bt-lp$378
                                           this-len$383
                                           tcol$369
                                           bcol$379
                                           (Cyc-fast-sub bcol$379 1))
                                         (bt-lp$378
                                           max-len$382
                                           entrance$381
                                           exit$380
                                           (Cyc-fast-sub bcol$379 1))))
                                     (path-length
                                       (href/rc harr$361 0 bcol$379))))))
                              (bt-lp$378
                                max-len$377
                                entrance$376
                                exit$375
                                bcol$374))
                            #f))
                         max-len$372
                         entrance$371
                         exit$370
                         (Cyc-fast-sub ncols$362 1))))
                     (href/rc
                       harr$361
                       (Cyc-fast-sub nrows$363 1)
                       tcol$369)))))
              (tp-lp$368
                max-len$367
                entrance$366
                exit$365
                tcol$364))
            #f))
         -1
         #f
         #f
         (Cyc-fast-sub ncols$362 1)))
      (harr:nrows harr$361)
      (harr:ncols harr$361))))
 (define for-each-hex-child
   (lambda (proc$347 harr$346 cell$345)
     ((lambda (walls$348)
        ((lambda (id$349)
           ((lambda (x$350)
              ((lambda (y$351)
                 ((lambda (nr$352)
                    ((lambda (nc$353)
                       ((lambda (maxy$354)
                          ((lambda (maxx$355)
                             ((lambda ()
                                (if (bit-test walls$348 south-west)
                                  #f
                                  (proc$347
                                    (href harr$346
                                          (Cyc-fast-sub x$350 3)
                                          (Cyc-fast-sub y$351 1))))
                                (if (bit-test walls$348 south)
                                  #f
                                  (proc$347
                                    (href harr$346
                                          x$350
                                          (Cyc-fast-sub y$351 2))))
                                (if (bit-test walls$348 south-east)
                                  #f
                                  (proc$347
                                    (href harr$346
                                          (Cyc-fast-plus x$350 3)
                                          (Cyc-fast-sub y$351 1))))
                                (if (if (Cyc-fast-gt x$350 0)
                                      ((lambda (tmp$165$360)
                                         (if tmp$165$360
                                           tmp$165$360
                                           (zero?__inline__ (mod x$350 6))))
                                       (Cyc-fast-lte y$351 maxy$354))
                                      #f)
                                  ((lambda (nw$359)
                                     (if (bit-test
                                           (cell:walls nw$359)
                                           south-east)
                                       #f
                                       (proc$347 nw$359)))
                                   (href harr$346
                                         (Cyc-fast-sub x$350 3)
                                         (Cyc-fast-plus y$351 1)))
                                  #f)
                                (if (Cyc-fast-lt y$351 maxy$354)
                                  ((lambda (n$358)
                                     (if (bit-test (cell:walls n$358) south)
                                       #f
                                       (proc$347 n$358)))
                                   (href harr$346
                                         x$350
                                         (Cyc-fast-plus y$351 2)))
                                  #f)
                                (if (if (Cyc-fast-lt x$350 maxx$355)
                                      ((lambda (tmp$169$357)
                                         (if tmp$169$357
                                           tmp$169$357
                                           (zero?__inline__ (mod x$350 6))))
                                       (Cyc-fast-lte y$351 maxy$354))
                                      #f)
                                  ((lambda (ne$356)
                                     (if (bit-test
                                           (cell:walls ne$356)
                                           south-west)
                                       #f
                                       (proc$347 ne$356)))
                                   (href harr$346
                                         (Cyc-fast-plus x$350 3)
                                         (Cyc-fast-plus y$351 1)))
                                  #f))))
                           (Cyc-fast-mul 3 (Cyc-fast-sub nc$353 1))))
                        (Cyc-fast-mul 2 (Cyc-fast-sub nr$352 1))))
                     (harr:ncols harr$346)))
                  (harr:nrows harr$346)))
               (cdr id$349)))
            (car id$349)))
         (cell:id cell$345)))
      (cell:walls cell$345))))
 (define make-maze
   (lambda (nrows$337 ncols$336)
     ((lambda (cells$338)
        ((lambda (walls$339)
           ((lambda ()
              (dig-maze
                walls$339
                (Cyc-fast-mul nrows$337 ncols$336))
              ((lambda (result$340)
                 ((lambda (entrance$342 exit$341)
                    ((lambda (exit-cell$343)
                       ((lambda (walls$344)
                          ((lambda ()
                             (reroot-maze
                               (href/rc
                                 cells$338
                                 (Cyc-fast-sub nrows$337 1)
                                 entrance$342))
                             (mark-path exit-cell$343)
                             (set-cell:walls
                               exit-cell$343
                               (bitwise-and walls$344 (bitwise-not south)))
                             (vector cells$338 entrance$342 exit$341))))
                        (cell:walls exit-cell$343)))
                     (href/rc cells$338 0 exit$341)))
                  (vector-ref result$340 0)
                  (vector-ref result$340 1)))
               (pick-entrances cells$338)))))
         (permute-vec!
           (make-wall-vec cells$338)
           (random-state 20))))
      (gen-maze-array nrows$337 ncols$336))))
 (define pmaze
   (lambda (nrows$331 ncols$330)
     ((lambda (result$332)
        ((lambda (cells$335 entrance$334 exit$333)
           (print-hexmaze cells$335 entrance$334))
         (vector-ref result$332 0)
         (vector-ref result$332 1)
         (vector-ref result$332 2)))
      (make-maze nrows$331 ncols$330))))
 (define output #f)
 (define write-ch
   (lambda (c$329)
     (set! output (cons c$329 output))))
 (define print-hexmaze
   (lambda (harr$305 entrance$304)
     ((lambda (nrows$306)
        ((lambda (ncols$307)
           ((lambda (ncols2$308)
              ((lambda ()
                 ((lambda (c$325)
                    ((lambda (lp$188$326)
                       (set! lp$188$326
                         (lambda (c$327)
                           ((lambda (tmp$190$328)
                              (if tmp$190$328
                                tmp$190$328
                                ((lambda ()
                                   (write-ch #\space)
                                   (write-ch #\space)
                                   (write-ch #\space)
                                   (write-ch
                                     (if (Cyc-fast-eq c$327 entrance$304)
                                       #\space
                                       #\_))
                                   (lp$188$326 (Cyc-fast-plus c$327 2))))))
                            (Cyc-fast-gte c$327 ncols$307))))
                       (lp$188$326 c$325))
                     #f))
                  1)
                 (write-ch #\newline)
                 (write-ch #\space)
                 ((lambda (c$321)
                    ((lambda (lp$192$322)
                       (set! lp$192$322
                         (lambda (c$323)
                           ((lambda (tmp$194$324)
                              (if tmp$194$324
                                tmp$194$324
                                ((lambda ()
                                   (write-ch
                                     (if (Cyc-fast-eq c$323 entrance$304)
                                       #\space
                                       #\_))
                                   (write-ch #\/)
                                   (write-ch
                                     (dot/space
                                       harr$305
                                       (Cyc-fast-sub nrows$306 1)
                                       (Cyc-fast-plus c$323 1)))
                                   (write-ch #\\)
                                   (lp$192$322 (Cyc-fast-plus c$323 2))))))
                            (Cyc-fast-gte c$323 ncols2$308))))
                       (lp$192$322 c$321))
                     #f))
                  0)
                 (if (odd? ncols$307)
                   (write-ch
                     (if (Cyc-fast-eq
                           entrance$304
                           (Cyc-fast-sub ncols$307 1))
                       #\space
                       #\_))
                   #f)
                 (write-ch #\newline)
                 ((lambda (r$309)
                    ((lambda (lp$196$310)
                       (set! lp$196$310
                         (lambda (r$311)
                           ((lambda (tmp$198$312)
                              (if tmp$198$312
                                tmp$198$312
                                ((lambda ()
                                   (write-ch #\/)
                                   ((lambda (c$317)
                                      ((lambda (lp$200$318)
                                         (set! lp$200$318
                                           (lambda (c$319)
                                             ((lambda (tmp$202$320)
                                                (if tmp$202$320
                                                  tmp$202$320
                                                  ((lambda ()
                                                     (write-ch
                                                       (dot/space
                                                         harr$305
                                                         r$311
                                                         (Cyc-fast-sub
                                                           c$319
                                                           1)))
                                                     (display-hexbottom
                                                       (cell:walls
                                                         (href/rc
                                                           harr$305
                                                           r$311
                                                           c$319)))
                                                     (lp$200$318
                                                       (Cyc-fast-plus
                                                         c$319
                                                         2))))))
                                              (Cyc-fast-gte c$319 ncols2$308))))
                                         (lp$200$318 c$317))
                                       #f))
                                    1)
                                   (if (odd? ncols$307)
                                     ((lambda ()
                                        (write-ch
                                          (dot/space
                                            harr$305
                                            r$311
                                            (Cyc-fast-sub ncols$307 1)))
                                        (write-ch #\\)))
                                     #f)
                                   (write-ch #\newline)
                                   ((lambda (c$313)
                                      ((lambda (lp$207$314)
                                         (set! lp$207$314
                                           (lambda (c$315)
                                             ((lambda (tmp$209$316)
                                                (if tmp$209$316
                                                  tmp$209$316
                                                  ((lambda ()
                                                     (display-hexbottom
                                                       (cell:walls
                                                         (href/rc
                                                           harr$305
                                                           r$311
                                                           c$315)))
                                                     (write-ch
                                                       (dot/space
                                                         harr$305
                                                         (Cyc-fast-sub r$311 1)
                                                         (Cyc-fast-plus
                                                           c$315
                                                           1)))
                                                     (lp$207$314
                                                       (Cyc-fast-plus
                                                         c$315
                                                         2))))))
                                              (Cyc-fast-gte c$315 ncols2$308))))
                                         (lp$207$314 c$313))
                                       #f))
                                    0)
                                   (if (odd? ncols$307)
                                     ((lambda ()
                                        (display-hexbottom
                                          (cell:walls
                                            (href/rc
                                              harr$305
                                              r$311
                                              (Cyc-fast-sub ncols$307 1))))))
                                     (if (zero?__inline__ r$311)
                                       #f
                                       ((lambda () (write-ch #\\)))))
                                   (write-ch #\newline)
                                   (lp$196$310 (Cyc-fast-sub r$311 1))))))
                            (Cyc-fast-lt r$311 0))))
                       (lp$196$310 r$309))
                     #f))
                  (Cyc-fast-sub nrows$306 1)))))
            (Cyc-fast-mul 2 (div ncols$307 2))))
         (harr:ncols harr$305)))
      (harr:nrows harr$305))))
 (define bit-test
   (lambda (j$303 bit$302)
     (not__inline__
       (zero?__inline__ (bitwise-and j$303 bit$302)))))
 (define dot/space
   (lambda (harr$301 r$300 c$299)
     (if (if (Cyc-fast-gte r$300 0)
           (cell:mark (href/rc harr$301 r$300 c$299))
           #f)
       #\.
       #\space)))
 (define display-hexbottom
   (lambda (hexwalls$298)
     (write-ch
       (if (bit-test hexwalls$298 south-west)
         #\\
         #\space))
     (write-ch
       (if (bit-test hexwalls$298 south) #\_ #\space))
     (write-ch
       (if (bit-test hexwalls$298 south-east)
         #\/
         #\space))))
 (define run
   (lambda (nrows$297 ncols$296)
     (set! output '())
     (pmaze nrows$297 ncols$296)
     (reverse output)))
 (define main
   (lambda ()
     ((lambda (count$287)
        ((lambda (input1$288)
           ((lambda (input2$289)
              ((lambda (output$290)
                 ((lambda (s3$291)
                    ((lambda (s2$292)
                       ((lambda (s1$293)
                          ((lambda (name$294)
                             ((lambda ()
                                (run-r7rs-benchmark
                                  (string-append
                                    name$294
                                    ":"
                                    s1$293
                                    ":"
                                    s2$292
                                    ":"
                                    s3$291)
                                  count$287
                                  (lambda ()
                                    (run (hide count$287 input1$288)
                                         (hide count$287 input2$289)))
                                  (lambda (result$295)
                                    (equal? result$295 output$290))))))
                           "maze"))
                        (number->string input1$288)))
                     (number->string input2$289)))
                  (number->string count$287)))
               (read)))
            (read)))
         (read)))
      (read))))
 (define hide
   (lambda (r$283 x$282)
     (call-with-values
       (lambda ()
         (values
           (vector values (lambda (x$286) x$286))
           (if (Cyc-fast-lt r$283 100) 0 1)))
       (lambda (v$285 i$284)
         ((vector-ref v$285 i$284) x$282)))))
 (define run-r7rs-benchmark
   (lambda (name$264 count$263 thunk$262 ok?$261)
     ((lambda (rounded$266)
        ((lambda (rounded$267)
           (set! rounded$266
             (lambda (x$281)
               (Cyc-fast-div
                 (round__inline__ (Cyc-fast-mul 1000 x$281))
                 1000)))
           (display "Running ")
           (display name$264)
           (newline)
           (flush-output-port (current-output-port))
           ((lambda (j/s$268)
              ((lambda (t0$269)
                 ((lambda (j0$270)
                    ((lambda ()
                       ((lambda (i$272 result$271)
                          ((lambda (loop$273)
                             (set! loop$273
                               (lambda (i$275 result$274)
                                 (if (Cyc-fast-lt i$275 count$263)
                                   ((lambda ()
                                      (loop$273
                                        (Cyc-fast-plus i$275 1)
                                        (thunk$262))))
                                   (if (ok?$261 result$274)
                                     ((lambda ()
                                        ((lambda (j1$276)
                                           ((lambda (t1$277)
                                              ((lambda (jifs$278)
                                                 ((lambda (secs$279)
                                                    ((lambda (secs2$280)
                                                       ((lambda ()
                                                          (display
                                                            "Elapsed time: ")
                                                          (write secs$279)
                                                          (display " seconds (")
                                                          (write secs2$280)
                                                          (display ") for ")
                                                          (display name$264)
                                                          (newline)
                                                          (display
                                                            "+!CSVLINE!+")
                                                          (display
                                                            (this-scheme-implementation-name))
                                                          (display ",")
                                                          (display name$264)
                                                          (display ",")
                                                          (display secs$279)
                                                          (newline)
                                                          (flush-output-port
                                                            (current-output-port)))))
                                                     (rounded$266
                                                       (Cyc-fast-sub
                                                         t1$277
                                                         t0$269))))
                                                  (inexact__inline__
                                                    (Cyc-fast-div
                                                      jifs$278
                                                      j/s$268))))
                                               (Cyc-fast-sub j1$276 j0$270)))
                                            (current-second)))
                                         (current-jiffy))
                                        result$274))
                                     ((lambda ()
                                        (display
                                          "ERROR: returned incorrect result: ")
                                        (write result$274)
                                        (newline)
                                        (flush-output-port
                                          (current-output-port))
                                        result$274))))))
                             (loop$273 i$272 result$271))
                           #f))
                        0
                        #f))))
                  (current-jiffy)))
               (current-second)))
            (jiffies-per-second)))
         #f))
      #f)))
 (define this-scheme-implementation-name
   (lambda ()
     (string-append "cyclone-" (Cyc-version))))
 ((lambda () 0 (main))))
 */
/* 
"---------------- results of inlinable-top-level-lambda analysis: "
 */
/* 
()
 */
/* 
"---------------- after CPS:"
 */
/* 
((define bitwise-not
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(783
       (k$1272 x$560)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(782
             (r$1273)
             ((k$1272 (Cyc-fast-sub r$1273 1)))
             #f))
         (- x$560)))
       #t)))
 (define bitwise-and
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(781
       (k$1259 x$558 y$557)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(780
             (r$1260)
             ((if r$1260
                (#((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(765 () ((k$1259 0)) #f)))
                (#((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(779
                     (r$1261)
                     ((if r$1261
                        (#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(766 () ((k$1259 0)) #f)))
                        (#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(778
                             (r$1262)
                             ((if r$1262
                                (#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(767 () ((k$1259 y$557)) #f)))
                                (#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(777
                                     (r$1263)
                                     ((if r$1263
                                        (#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(768 () ((k$1259 x$558)) #f)))
                                        (#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(776
                                             ()
                                             ((div #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(775
                                                       (r$1268)
                                                       ((div #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(774
                                                                 (r$1269)
                                                                 ((bitwise-and
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(773
                                                                        (r$1264)
                                                                        ((#((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(772
                                                                              (z$559)
                                                                              ((#((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(771
                                                                                    (k$1266)
                                                                                    ((odd? #((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(770
                                                                                               (r$1267)
                                                                                               ((if r$1267
                                                                                                  (odd? k$1266
                                                                                                        y$557)
                                                                                                  (k$1266
                                                                                                    #f)))
                                                                                               #f))
                                                                                           x$558))
                                                                                    #t))
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(769
                                                                                    (r$1265)
                                                                                    ((if r$1265
                                                                                       (k$1259
                                                                                         (+ z$559
                                                                                            z$559
                                                                                            1))
                                                                                       (k$1259
                                                                                         (Cyc-fast-plus
                                                                                           z$559
                                                                                           z$559))))
                                                                                    #f))))
                                                                              #f))
                                                                          r$1264))
                                                                        #f))
                                                                    r$1268
                                                                    r$1269))
                                                                 #f))
                                                             y$557
                                                             2))
                                                       #f))
                                                   x$558
                                                   2))
                                             #f)))))
                                     #f))
                                 (Cyc-fast-eq y$557 -1))))
                             #f))
                         (Cyc-fast-eq x$558 -1))))
                     #f))
                 (Cyc-fast-eq y$557 0))))
             #f))
         (Cyc-fast-eq x$558 0)))
       #t)))
 (define div
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(764
       (k$1243 x$552 y$551)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(763
             (k$1254)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(762
                   (r$1255)
                   ((if r$1255
                      (#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(761
                           (r$1256)
                           ((if r$1256
                              (k$1254 (Cyc-fast-gte x$552 0))
                              (k$1254 #f)))
                           #f))
                       (exact-integer?__inline__ y$551))
                      (k$1254 #f)))
                   #f))
               (exact-integer?__inline__ x$552)))
             #t))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(760
             (r$1244)
             ((if r$1244
                (#((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(742
                     ()
                     ((k$1243 (quotient__inline__ x$552 y$551)))
                     #f)))
                (#((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(759
                     (r$1245)
                     ((if r$1245
                        (#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(750
                             ()
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(749
                                   (r$1246)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(748
                                         (q$555)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(747
                                               (r$1249)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(746
                                                     (r$1247)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(745
                                                           (r$556)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(744
                                                                 ()
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(743
                                                                       (r$1248)
                                                                       ((if r$1248
                                                                          (k$1243
                                                                            q$555)
                                                                          (k$1243
                                                                            (Cyc-fast-plus
                                                                              q$555
                                                                              1))))
                                                                       #f))
                                                                   (Cyc-fast-eq
                                                                     r$556
                                                                     0)))
                                                                 #f))))
                                                           #f))
                                                       r$1247))
                                                     #f))
                                                 (Cyc-fast-sub x$552 r$1249)))
                                               #f))
                                           (Cyc-fast-mul q$555 y$551)))
                                         #f))
                                     r$1246))
                                   #f))
                               (quotient__inline__ x$552 y$551)))
                             #f)))
                        (#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(758
                             ()
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(757
                                   (r$1250)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(756
                                         (q$553)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(755
                                               (r$1253)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(754
                                                     (r$1251)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(753
                                                           (r$554)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(752
                                                                 ()
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(751
                                                                       (r$1252)
                                                                       ((if r$1252
                                                                          (k$1243
                                                                            q$553)
                                                                          (k$1243
                                                                            (Cyc-fast-sub
                                                                              q$553
                                                                              1))))
                                                                       #f))
                                                                   (Cyc-fast-eq
                                                                     r$554
                                                                     0)))
                                                                 #f))))
                                                           #f))
                                                       r$1251))
                                                     #f))
                                                 (Cyc-fast-sub x$552 r$1253)))
                                               #f))
                                           (Cyc-fast-mul q$553 y$551)))
                                         #f))
                                     r$1250))
                                   #f))
                               (quotient__inline__ x$552 y$551)))
                             #f)))))
                     #f))
                 (Cyc-fast-lt y$551 0))))
             #f))))
       #t)))
 (define mod
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(741
       (k$1227 x$546 y$545)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(740
             (k$1238)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(739
                   (r$1239)
                   ((if r$1239
                      (#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(738
                           (r$1240)
                           ((if r$1240
                              (k$1238 (Cyc-fast-gte x$546 0))
                              (k$1238 #f)))
                           #f))
                       (exact-integer?__inline__ y$545))
                      (k$1238 #f)))
                   #f))
               (exact-integer?__inline__ x$546)))
             #t))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(737
             (r$1228)
             ((if r$1228
                (#((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(719 () ((remainder k$1227 x$546 y$545)) #f)))
                (#((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(736
                     (r$1229)
                     ((if r$1229
                        (#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(727
                             ()
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(726
                                   (r$1230)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(725
                                         (q$549)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(724
                                               (r$1233)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(723
                                                     (r$1231)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(722
                                                           (r$550)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(721
                                                                 ()
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(720
                                                                       (r$1232)
                                                                       ((if r$1232
                                                                          (k$1227
                                                                            0)
                                                                          (k$1227
                                                                            (Cyc-fast-sub
                                                                              r$550
                                                                              y$545))))
                                                                       #f))
                                                                   (Cyc-fast-eq
                                                                     r$550
                                                                     0)))
                                                                 #f))))
                                                           #f))
                                                       r$1231))
                                                     #f))
                                                 (Cyc-fast-sub x$546 r$1233)))
                                               #f))
                                           (Cyc-fast-mul q$549 y$545)))
                                         #f))
                                     r$1230))
                                   #f))
                               (quotient__inline__ x$546 y$545)))
                             #f)))
                        (#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(735
                             ()
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(734
                                   (r$1234)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(733
                                         (q$547)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(732
                                               (r$1237)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(731
                                                     (r$1235)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(730
                                                           (r$548)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(729
                                                                 ()
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(728
                                                                       (r$1236)
                                                                       ((if r$1236
                                                                          (k$1227
                                                                            0)
                                                                          (k$1227
                                                                            (Cyc-fast-plus
                                                                              r$548
                                                                              y$545))))
                                                                       #f))
                                                                   (Cyc-fast-eq
                                                                     r$548
                                                                     0)))
                                                                 #f))))
                                                           #f))
                                                       r$1235))
                                                     #f))
                                                 (Cyc-fast-sub x$546 r$1237)))
                                               #f))
                                           (Cyc-fast-mul q$547 y$545)))
                                         #f))
                                     r$1234))
                                   #f))
                               (quotient__inline__ x$546 y$545)))
                             #f)))))
                     #f))
                 (Cyc-fast-lt y$545 0))))
             #f))))
       #t)))
 (define random-state
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(718
       (k$1224 n$544)
       ((k$1224 (cons n$544 #f)))
       #t)))
 (define rand
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(717
       (k$1211 state$534)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(716
             (r$1212)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(715
                   (seed$539 A$538 M$537 Q$536 R$535)
                   ((div #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(714
                             (r$1213)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(713
                                   (hi$540)
                                   ((mod #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(712
                                             (r$1214)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(711
                                                   (lo$541)
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(710
                                                         (r$1220)
                                                         ((#((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(709
                                                               (r$1221)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(708
                                                                     (r$1215)
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(707
                                                                           (test$542)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(706
                                                                                 (k$1218)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(705
                                                                                       (r$1219)
                                                                                       ((if r$1219
                                                                                          (k$1218
                                                                                            test$542)
                                                                                          (k$1218
                                                                                            (Cyc-fast-plus
                                                                                              test$542
                                                                                              M$537))))
                                                                                       #f))
                                                                                   (Cyc-fast-gt
                                                                                     test$542
                                                                                     0)))
                                                                                 #t))
                                                                             #((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(704
                                                                                 (r$1216)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(703
                                                                                       (val$543)
                                                                                       ((#((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(702
                                                                                             ()
                                                                                             ((#((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(701
                                                                                                   (r$1217)
                                                                                                   ((k$1211
                                                                                                      val$543))
                                                                                                   #f))
                                                                                               (set-car!
                                                                                                 state$534
                                                                                                 val$543)))
                                                                                             #f))))
                                                                                       #f))
                                                                                   r$1216))
                                                                                 #f))))
                                                                           #f))
                                                                       r$1215))
                                                                     #f))
                                                                 (Cyc-fast-sub
                                                                   r$1220
                                                                   r$1221)))
                                                               #f))
                                                           (Cyc-fast-mul
                                                             R$535
                                                             hi$540)))
                                                         #f))
                                                     (Cyc-fast-mul
                                                       A$538
                                                       lo$541)))
                                                   #f))
                                               r$1214))
                                             #f))
                                         seed$539
                                         Q$536))
                                   #f))
                               r$1213))
                             #f))
                         seed$539
                         Q$536))
                   #f))
               r$1212
               2813
               8388607
               2787
               2699))
             #f))
         (car state$534)))
       #t)))
 (define random-int
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(700
       (k$1207 n$533 state$532)
       ((rand #((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(699 (r$1208) ((mod k$1207 r$1208 n$533)) #f))
              state$532))
       #t)))
 (define base-set
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(698
       (k$1203 nelts$531)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(697
             (r$1204)
             ((k$1203 (cons nelts$531 r$1204)))
             #f))
         '()))
       #t)))
 (define get-set-root
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(696
       (k$1186 s$522)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(695
             (r$523)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(694
                   (lp$524)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(674
                         (r$1188)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(673 (r$1187) ((lp$524 k$1186 r$523)) #f))
                           (set! lp$524 r$1188)))
                         #f))
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(693
                         (k$1189 r$525)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(692
                               (r$1190)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(691
                                     (next$526)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(690
                                           (r$1191)
                                           ((if r$1191
                                              (#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(675
                                                   ()
                                                   ((lp$524 k$1189 next$526))
                                                   #f)))
                                              (#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(689
                                                   ()
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(688
                                                         (k$1193)
                                                         ((#((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(687
                                                               (r$1194)
                                                               ((if r$1194
                                                                  (k$1193 #f)
                                                                  (#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(686
                                                                       (x$527)
                                                                       ((#((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(685
                                                                             (lp$528)
                                                                             ((#((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(678
                                                                                   (r$1196)
                                                                                   ((#((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(677
                                                                                         (r$1195)
                                                                                         ((lp$528
                                                                                            k$1193
                                                                                            x$527))
                                                                                         #f))
                                                                                     (set! lp$528
                                                                                       r$1196)))
                                                                                   #f))
                                                                               #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(684
                                                                                   (k$1197
                                                                                     x$529)
                                                                                   ((#((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(683
                                                                                         (r$1198)
                                                                                         ((#((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(682
                                                                                               (next$530)
                                                                                               ((#((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(681
                                                                                                     (r$1199)
                                                                                                     ((if r$1199
                                                                                                        (k$1197
                                                                                                          #f)
                                                                                                        (#((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(680
                                                                                                             ()
                                                                                                             ((#((record-marker)
                                                                                                                 #((record-marker)
                                                                                                                   #f
                                                                                                                   (id args
                                                                                                                       body
                                                                                                                       has-cont))
                                                                                                                 #(679
                                                                                                                   (r$1200)
                                                                                                                   ((lp$528
                                                                                                                      k$1197
                                                                                                                      next$530))
                                                                                                                   #f))
                                                                                                               (set-cdr!
                                                                                                                 x$529
                                                                                                                 r$525)))
                                                                                                             #f)))))
                                                                                                     #f))
                                                                                                 (eq? r$525
                                                                                                      next$530)))
                                                                                               #f))
                                                                                           r$1198))
                                                                                         #f))
                                                                                     (cdr x$529)))
                                                                                   #t))))
                                                                             #f))
                                                                         #f))
                                                                       #f))
                                                                   s$522)))
                                                               #f))
                                                           (eq? r$525 s$522)))
                                                         #t))
                                                     #((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(676
                                                         (r$1192)
                                                         ((k$1189 r$525))
                                                         #f))))
                                                   #f)))))
                                           #f))
                                       (pair? next$526)))
                                     #f))
                                 r$1190))
                               #f))
                           (cdr r$525)))
                         #t))))
                   #f))
               #f))
             #f))
         s$522))
       #t)))
 (define set-equal?
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(672
       (k$1181 s1$521 s2$520)
       ((get-set-root
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(671
              (r$1182)
              ((get-set-root
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(670 (r$1183) ((k$1181 (eq? r$1182 r$1183))) #f))
                 s2$520))
              #f))
          s1$521))
       #t)))
 (define set-size
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(669
       (k$1177 s$519)
       ((get-set-root
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(668 (r$1178) ((k$1177 (car r$1178))) #f))
          s$519))
       #t)))
 (define union!
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(667
       (k$1166 s1$513 s2$512)
       ((get-set-root
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(666
              (r$1167)
              ((#((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(665
                    (r1$514)
                    ((get-set-root
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(664
                           (r$1168)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(663
                                 (r2$515)
                                 ((set-size
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(662
                                        (r$1169)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(661
                                              (n1$516)
                                              ((set-size
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(660
                                                     (r$1170)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(659
                                                           (n2$517)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(658
                                                                 (r$1171)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(657
                                                                       (n$518)
                                                                       ((#((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(656
                                                                             ()
                                                                             ((#((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(655
                                                                                   (r$1172)
                                                                                   ((if r$1172
                                                                                      (#((record-marker)
                                                                                         #((record-marker)
                                                                                           #f
                                                                                           (id args
                                                                                               body
                                                                                               has-cont))
                                                                                         #(652
                                                                                           ()
                                                                                           ((#((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(651
                                                                                                 (r$1173)
                                                                                                 ((k$1166
                                                                                                    (set-car!
                                                                                                      r1$514
                                                                                                      n$518)))
                                                                                                 #f))
                                                                                             (set-cdr!
                                                                                               r2$515
                                                                                               r1$514)))
                                                                                           #f)))
                                                                                      (#((record-marker)
                                                                                         #((record-marker)
                                                                                           #f
                                                                                           (id args
                                                                                               body
                                                                                               has-cont))
                                                                                         #(654
                                                                                           ()
                                                                                           ((#((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(653
                                                                                                 (r$1174)
                                                                                                 ((k$1166
                                                                                                    (set-car!
                                                                                                      r2$515
                                                                                                      n$518)))
                                                                                                 #f))
                                                                                             (set-cdr!
                                                                                               r1$514
                                                                                               r2$515)))
                                                                                           #f)))))
                                                                                   #f))
                                                                               (Cyc-fast-gt
                                                                                 n1$516
                                                                                 n2$517)))
                                                                             #f))))
                                                                       #f))
                                                                   r$1171))
                                                                 #f))
                                                             (Cyc-fast-plus
                                                               n1$516
                                                               n2$517)))
                                                           #f))
                                                       r$1170))
                                                     #f))
                                                 r2$515))
                                              #f))
                                          r$1169))
                                        #f))
                                    r1$514))
                                 #f))
                             r$1168))
                           #f))
                       s2$512))
                    #f))
                r$1167))
              #f))
          s1$513))
       #t)))
 (define make-wall
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(650
       (k$1162 owner$511 neighbor$510 bit$509)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(649
             (r$1163)
             ((vector
                k$1162
                r$1163
                owner$511
                neighbor$510
                bit$509))
             #f))
         'wall))
       #t)))
 (define wall:owner
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(648
       (k$1159 o$508)
       ((k$1159 (vector-ref o$508 1)))
       #t)))
 (define wall:neighbor
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(647
       (k$1156 o$507)
       ((k$1156 (vector-ref o$507 2)))
       #t)))
 (define wall:bit
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(646
       (k$1153 o$506)
       ((k$1153 (vector-ref o$506 3)))
       #t)))
 (define make-cell
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(645
       (k$1149 reachable$505 id$504)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(644
             (r$1150)
             ((vector
                k$1149
                r$1150
                reachable$505
                id$504
                -1
                #f
                #f))
             #f))
         'cell))
       #t)))
 (define cell:reachable
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(643
       (k$1146 o$503)
       ((k$1146 (vector-ref o$503 1)))
       #t)))
 (define cell:id
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(642
       (k$1143 o$502)
       ((k$1143 (vector-ref o$502 2)))
       #t)))
 (define cell:walls
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(641
       (k$1140 o$501)
       ((k$1140 (vector-ref o$501 3)))
       #t)))
 (define set-cell:walls
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(640
       (k$1137 o$500 v$499)
       ((k$1137 (vector-set! o$500 3 v$499)))
       #t)))
 (define cell:parent
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(639
       (k$1134 o$498)
       ((k$1134 (vector-ref o$498 4)))
       #t)))
 (define set-cell:parent
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(638
       (k$1131 o$497 v$496)
       ((k$1131 (vector-set! o$497 4 v$496)))
       #t)))
 (define cell:mark
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(637
       (k$1128 o$495)
       ((k$1128 (vector-ref o$495 5)))
       #t)))
 (define set-cell:mark
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(636
       (k$1125 o$494 v$493)
       ((k$1125 (vector-set! o$494 5 v$493)))
       #t)))
 (define vector-for-each-rev
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(635
       (k$1113 proc$489 v$488)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(634
             (r$1122)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(633
                   (r$1114)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(632
                         (i$490)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(631
                               (lp$491)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(624
                                     (r$1116)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(623
                                           (r$1115)
                                           ((lp$491 k$1113 i$490))
                                           #f))
                                       (set! lp$491 r$1116)))
                                     #f))
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(630
                                     (k$1117 i$492)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(629
                                           (r$1118)
                                           ((if r$1118
                                              (#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(628
                                                   ()
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(627
                                                         (r$1121)
                                                         ((proc$489
                                                            #((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(626
                                                                (r$1119)
                                                                ((#((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(625
                                                                      (r$1120)
                                                                      ((lp$491
                                                                         k$1117
                                                                         r$1120))
                                                                      #f))
                                                                  (Cyc-fast-sub
                                                                    i$492
                                                                    1)))
                                                                #f))
                                                            r$1121))
                                                         #f))
                                                     (vector-ref v$488 i$492)))
                                                   #f)))
                                              (k$1117 #f)))
                                           #f))
                                       (Cyc-fast-gte i$492 0)))
                                     #t))))
                               #f))
                           #f))
                         #f))
                     r$1114))
                   #f))
               (Cyc-fast-sub r$1122 1)))
             #f))
         (vector-length v$488)))
       #t)))
 (define permute-vec!
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(622
       (k$1097 v$482 random-state$481)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(621
             (r$1110)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(620
                   (r$1099)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(619
                         (i$483)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(618
                               (lp$484)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(607
                                     (r$1101)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(606
                                           (r$1100)
                                           ((lp$484
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(605
                                                  (r$1098)
                                                  ((k$1097 v$482))
                                                  #f))
                                              i$483))
                                           #f))
                                       (set! lp$484 r$1101)))
                                     #f))
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(617
                                     (k$1102 i$485)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(616
                                           (r$1103)
                                           ((if r$1103
                                              (#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(615
                                                   ()
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(614
                                                         (r$1106)
                                                         ((random-int
                                                            #((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(613
                                                                (r$1107)
                                                                ((#((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(612
                                                                      (elt-i$487
                                                                        j$486)
                                                                      ((#((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(611
                                                                            (r$1109)
                                                                            ((#((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(610
                                                                                  (r$1108)
                                                                                  ((#((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(609
                                                                                        (r$1104)
                                                                                        ((#((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(608
                                                                                              (r$1105)
                                                                                              ((lp$484
                                                                                                 k$1102
                                                                                                 r$1105))
                                                                                              #f))
                                                                                          (Cyc-fast-sub
                                                                                            i$485
                                                                                            1)))
                                                                                        #f))
                                                                                    (vector-set!
                                                                                      v$482
                                                                                      j$486
                                                                                      elt-i$487)))
                                                                                  #f))
                                                                              (vector-set!
                                                                                v$482
                                                                                i$485
                                                                                r$1109)))
                                                                            #f))
                                                                        (vector-ref
                                                                          v$482
                                                                          j$486)))
                                                                      #f))
                                                                  r$1106
                                                                  r$1107))
                                                                #f))
                                                            i$485
                                                            random-state$481))
                                                         #f))
                                                     (vector-ref v$482 i$485)))
                                                   #f)))
                                              (k$1102 #f)))
                                           #f))
                                       (Cyc-fast-gt i$485 1)))
                                     #t))))
                               #f))
                           #f))
                         #f))
                     r$1099))
                   #f))
               (Cyc-fast-sub r$1110 1)))
             #f))
         (vector-length v$482)))
       #t)))
 (define dig-maze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(604
       (k$1077 walls$472 ncells$471)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(581
             (r$1078)
             ((call-with-current-continuation k$1077 r$1078))
             #f))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(603
             (k$1079 quit$473)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(582
                   (r$1080)
                   ((vector-for-each-rev k$1079 r$1080 walls$472))
                   #f))
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(602
                   (k$1081 wall$474)
                   ((wall:owner
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(601
                          (r$1082)
                          ((#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(600
                                (c1$475)
                                ((cell:reachable
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(599
                                       (r$1083)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(598
                                             (set1$476)
                                             ((wall:neighbor
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(597
                                                    (r$1084)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(596
                                                          (c2$477)
                                                          ((cell:reachable
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(595
                                                                 (r$1085)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(594
                                                                       (set2$478)
                                                                       ((#((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(593
                                                                             ()
                                                                             ((set-equal?
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(592
                                                                                    (r$1086)
                                                                                    ((if r$1086
                                                                                       (k$1081
                                                                                         #f)
                                                                                       (cell:walls
                                                                                         #((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(591
                                                                                             (r$1087)
                                                                                             ((wall:bit
                                                                                                #((record-marker)
                                                                                                  #((record-marker)
                                                                                                    #f
                                                                                                    (id args
                                                                                                        body
                                                                                                        has-cont))
                                                                                                  #(590
                                                                                                    (r$1094)
                                                                                                    ((bitwise-not
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(589
                                                                                                           (r$1088)
                                                                                                           ((#((record-marker)
                                                                                                               #((record-marker)
                                                                                                                 #f
                                                                                                                 (id args
                                                                                                                     body
                                                                                                                     has-cont))
                                                                                                               #(588
                                                                                                                 (walls$480
                                                                                                                   wall-mask$479)
                                                                                                                 ((union!
                                                                                                                    #((record-marker)
                                                                                                                      #((record-marker)
                                                                                                                        #f
                                                                                                                        (id args
                                                                                                                            body
                                                                                                                            has-cont))
                                                                                                                      #(587
                                                                                                                        (r$1089)
                                                                                                                        ((bitwise-and
                                                                                                                           #((record-marker)
                                                                                                                             #((record-marker)
                                                                                                                               #f
                                                                                                                               (id args
                                                                                                                                   body
                                                                                                                                   has-cont))
                                                                                                                             #(586
                                                                                                                               (r$1093)
                                                                                                                               ((set-cell:walls
                                                                                                                                  #((record-marker)
                                                                                                                                    #((record-marker)
                                                                                                                                      #f
                                                                                                                                      (id args
                                                                                                                                          body
                                                                                                                                          has-cont))
                                                                                                                                    #(585
                                                                                                                                      (r$1090)
                                                                                                                                      ((set-size
                                                                                                                                         #((record-marker)
                                                                                                                                           #((record-marker)
                                                                                                                                             #f
                                                                                                                                             (id args
                                                                                                                                                 body
                                                                                                                                                 has-cont))
                                                                                                                                           #(584
                                                                                                                                             (r$1092)
                                                                                                                                             ((#((record-marker)
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #f
                                                                                                                                                   (id args
                                                                                                                                                       body
                                                                                                                                                       has-cont))
                                                                                                                                                 #(583
                                                                                                                                                   (r$1091)
                                                                                                                                                   ((if r$1091
                                                                                                                                                      (quit$473
                                                                                                                                                        k$1081
                                                                                                                                                        #f)
                                                                                                                                                      (k$1081
                                                                                                                                                        #f)))
                                                                                                                                                   #f))
                                                                                                                                               (Cyc-fast-eq
                                                                                                                                                 r$1092
                                                                                                                                                 ncells$471)))
                                                                                                                                             #f))
                                                                                                                                         set1$476))
                                                                                                                                      #f))
                                                                                                                                  c1$475
                                                                                                                                  r$1093))
                                                                                                                               #f))
                                                                                                                           walls$480
                                                                                                                           wall-mask$479))
                                                                                                                        #f))
                                                                                                                    set1$476
                                                                                                                    set2$478))
                                                                                                                 #f))
                                                                                                             r$1087
                                                                                                             r$1088))
                                                                                                           #f))
                                                                                                       r$1094))
                                                                                                    #f))
                                                                                                wall$474))
                                                                                             #f))
                                                                                         c1$475)))
                                                                                    #f))
                                                                                set1$476
                                                                                set2$478))
                                                                             #f))))
                                                                       #f))
                                                                   r$1085))
                                                                 #f))
                                                             c2$477))
                                                          #f))
                                                      r$1084))
                                                    #f))
                                                wall$474))
                                             #f))
                                         r$1083))
                                       #f))
                                   c1$475))
                                #f))
                            r$1082))
                          #f))
                      wall$474))
                   #t))))
             #t))))
       #t)))
 (define dfs-maze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(580
       (k$1067 maze$464 root$463 do-children$462)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(579
             (node$466 parent$465)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(578
                   (search$467)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(572
                         (r$1069)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(571
                               (r$1068)
                               ((search$467 k$1067 node$466 parent$465))
                               #f))
                           (set! search$467 r$1069)))
                         #f))
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(577
                         (k$1070 node$469 parent$468)
                         ((set-cell:parent
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(576
                                (r$1071)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(573
                                      (r$1072)
                                      ((do-children$462
                                         k$1070
                                         r$1072
                                         maze$464
                                         node$469))
                                      #f))
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(575
                                      (k$1073 child$470)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(574
                                            (r$1074)
                                            ((if r$1074
                                               (k$1073 #f)
                                               (search$467
                                                 k$1073
                                                 child$470
                                                 node$469)))
                                            #f))
                                        (eq? child$470 parent$468)))
                                      #t))))
                                #f))
                            node$469
                            parent$468))
                         #t))))
                   #f))
               #f))
             #f))
         root$463
         #f))
       #t)))
 (define reroot-maze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(570
       (k$1059 new-root$455)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(569
             (node$457 new-parent$456)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(568
                   (lp$458)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(563
                         (r$1061)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(562
                               (r$1060)
                               ((lp$458 k$1059 node$457 new-parent$456))
                               #f))
                           (set! lp$458 r$1061)))
                         #f))
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(567
                         (k$1062 node$460 new-parent$459)
                         ((cell:parent
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(566
                                (r$1063)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(565
                                      (old-parent$461)
                                      ((set-cell:parent
                                         #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(564
                                             (r$1064)
                                             ((if old-parent$461
                                                (lp$458
                                                  k$1062
                                                  old-parent$461
                                                  node$460)
                                                (k$1062 #f)))
                                             #f))
                                         node$460
                                         new-parent$459))
                                      #f))
                                  r$1063))
                                #f))
                            node$460))
                         #t))))
                   #f))
               #f))
             #f))
         new-root$455
         #f))
       #t)))
 (define path-length
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(561
       (k$1050 cell$449)
       ((cell:parent
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(560
              (r$1051)
              ((#((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(559
                    (len$451 node$450)
                    ((#((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(558
                          (lp$105$452)
                          ((#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(554
                                (r$1053)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(553
                                      (r$1052)
                                      ((lp$105$452 k$1050 len$451 node$450))
                                      #f))
                                  (set! lp$105$452 r$1053)))
                                #f))
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(557
                                (k$1054 len$454 node$453)
                                ((if node$453
                                   (#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(556
                                        (r$1055)
                                        ((cell:parent
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(555
                                               (r$1056)
                                               ((lp$105$452
                                                  k$1054
                                                  r$1055
                                                  r$1056))
                                               #f))
                                           node$453))
                                        #f))
                                    (Cyc-fast-plus len$454 1))
                                   (k$1054 len$454)))
                                #t))))
                          #f))
                      #f))
                    #f))
                0
                r$1051))
              #f))
          cell$449))
       #t)))
 (define mark-path
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(552
       (k$1042 node$444)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(551
             (node$445)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(550
                   (lp$446)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(545
                         (r$1044)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(544 (r$1043) ((lp$446 k$1042 node$445)) #f))
                           (set! lp$446 r$1044)))
                         #f))
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(549
                         (k$1045 node$447)
                         ((set-cell:mark
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(548
                                (r$1046)
                                ((cell:parent
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(547
                                       (r$1047)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(546
                                             (tmp$111$448)
                                             ((if tmp$111$448
                                                (lp$446 k$1045 tmp$111$448)
                                                (k$1045 #f)))
                                             #f))
                                         r$1047))
                                       #f))
                                   node$447))
                                #f))
                            node$447
                            #t))
                         #t))))
                   #f))
               #f))
             #f))
         node$444))
       #t)))
 (define make-harr
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(543
       (k$1038 nrows$443 ncols$442 elts$441)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(542
             (r$1039)
             ((vector
                k$1038
                r$1039
                nrows$443
                ncols$442
                elts$441))
             #f))
         'harr))
       #t)))
 (define harr:nrows
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(541
       (k$1035 o$440)
       ((k$1035 (vector-ref o$440 1)))
       #t)))
 (define harr:ncols
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(540
       (k$1032 o$439)
       ((k$1032 (vector-ref o$439 2)))
       #t)))
 (define harr:elts
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(539
       (k$1029 o$438)
       ((k$1029 (vector-ref o$438 3)))
       #t)))
 (define href
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(538
       (k$1020 ha$435 x$434 y$433)
       ((div #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(537
                 (r$1021)
                 ((div #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(536
                           (r$1022)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(535
                                 (r$437 c$436)
                                 ((harr:elts
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(534
                                        (r$1023)
                                        ((harr:ncols
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(533
                                               (r$1026)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(532
                                                     (r$1025)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(531
                                                           (r$1024)
                                                           ((k$1020
                                                              (vector-ref
                                                                r$1023
                                                                r$1024)))
                                                           #f))
                                                       (Cyc-fast-plus
                                                         r$1025
                                                         c$436)))
                                                     #f))
                                                 (Cyc-fast-mul r$1026 r$437)))
                                               #f))
                                           ha$435))
                                        #f))
                                    ha$435))
                                 #f))
                             r$1021
                             r$1022))
                           #f))
                       x$434
                       3))
                 #f))
             y$433
             2))
       #t)))
 (define href/rc
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(530
       (k$1013 ha$432 r$431 c$430)
       ((harr:elts
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(529
              (r$1014)
              ((harr:ncols
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(528
                     (r$1017)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(527
                           (r$1016)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(526
                                 (r$1015)
                                 ((k$1013 (vector-ref r$1014 r$1015)))
                                 #f))
                             (Cyc-fast-plus r$1016 c$430)))
                           #f))
                       (Cyc-fast-mul r$1017 r$431)))
                     #f))
                 ha$432))
              #f))
          ha$432))
       #t)))
 (define harr-tabulate
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(525
       (k$987 nrows$418 ncols$417 proc$416)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(524
             (r$1010)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(523
                   (r$988)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(522
                         (v$419)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(521
                               (r$990)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(520
                                     (r$420)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(519
                                           (lp$113$421)
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(495
                                                 (r$992)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(494
                                                       (r$991)
                                                       ((lp$113$421
                                                          #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(493
                                                              (r$989)
                                                              ((make-harr
                                                                 k$987
                                                                 nrows$418
                                                                 ncols$417
                                                                 v$419))
                                                              #f))
                                                          r$420))
                                                       #f))
                                                   (set! lp$113$421 r$992)))
                                                 #f))
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(518
                                                 (k$993 r$422)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(517
                                                       (r$994)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(516
                                                             (tmp$115$423)
                                                             ((if tmp$115$423
                                                                (k$993 tmp$115$423)
                                                                (#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(515
                                                                     ()
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(514
                                                                           (r$997)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(513
                                                                                 (c$425 i$424)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(512
                                                                                       (lp$117$426)
                                                                                       ((#((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(499
                                                                                             (r$999)
                                                                                             ((#((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(498
                                                                                                   (r$998)
                                                                                                   ((lp$117$426
                                                                                                      #((record-marker)
                                                                                                        #((record-marker)
                                                                                                          #f
                                                                                                          (id args
                                                                                                              body
                                                                                                              has-cont))
                                                                                                        #(497
                                                                                                          (r$995)
                                                                                                          ((#((record-marker)
                                                                                                              #((record-marker)
                                                                                                                #f
                                                                                                                (id args
                                                                                                                    body
                                                                                                                    has-cont))
                                                                                                              #(496
                                                                                                                (r$996)
                                                                                                                ((lp$113$421
                                                                                                                   k$993
                                                                                                                   r$996))
                                                                                                                #f))
                                                                                                            (Cyc-fast-sub
                                                                                                              r$422
                                                                                                              1)))
                                                                                                          #f))
                                                                                                      c$425
                                                                                                      i$424))
                                                                                                   #f))
                                                                                               (set! lp$117$426
                                                                                                 r$999)))
                                                                                             #f))
                                                                                         #((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(511
                                                                                             (k$1000
                                                                                               c$428
                                                                                               i$427)
                                                                                             ((#((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(510
                                                                                                   (r$1001)
                                                                                                   ((#((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(509
                                                                                                         (tmp$119$429)
                                                                                                         ((if tmp$119$429
                                                                                                            (k$1000
                                                                                                              tmp$119$429)
                                                                                                            (#((record-marker)
                                                                                                               #((record-marker)
                                                                                                                 #f
                                                                                                                 (id args
                                                                                                                     body
                                                                                                                     has-cont))
                                                                                                               #(508
                                                                                                                 ()
                                                                                                                 ((#((record-marker)
                                                                                                                     #((record-marker)
                                                                                                                       #f
                                                                                                                       (id args
                                                                                                                           body
                                                                                                                           has-cont))
                                                                                                                     #(507
                                                                                                                       (r$1006)
                                                                                                                       ((#((record-marker)
                                                                                                                           #((record-marker)
                                                                                                                             #f
                                                                                                                             (id args
                                                                                                                                 body
                                                                                                                                 has-cont))
                                                                                                                           #(506
                                                                                                                             (r$1008)
                                                                                                                             ((bitwise-and
                                                                                                                                #((record-marker)
                                                                                                                                  #((record-marker)
                                                                                                                                    #f
                                                                                                                                    (id args
                                                                                                                                        body
                                                                                                                                        has-cont))
                                                                                                                                  #(505
                                                                                                                                    (r$1009)
                                                                                                                                    ((#((record-marker)
                                                                                                                                        #((record-marker)
                                                                                                                                          #f
                                                                                                                                          (id args
                                                                                                                                              body
                                                                                                                                              has-cont))
                                                                                                                                        #(504
                                                                                                                                          (r$1007)
                                                                                                                                          ((proc$416
                                                                                                                                             #((record-marker)
                                                                                                                                               #((record-marker)
                                                                                                                                                 #f
                                                                                                                                                 (id args
                                                                                                                                                     body
                                                                                                                                                     has-cont))
                                                                                                                                               #(503
                                                                                                                                                 (r$1005)
                                                                                                                                                 ((#((record-marker)
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #f
                                                                                                                                                       (id args
                                                                                                                                                           body
                                                                                                                                                           has-cont))
                                                                                                                                                     #(502
                                                                                                                                                       (r$1002)
                                                                                                                                                       ((#((record-marker)
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #f
                                                                                                                                                             (id args
                                                                                                                                                                 body
                                                                                                                                                                 has-cont))
                                                                                                                                                           #(501
                                                                                                                                                             (r$1003)
                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                 #((record-marker)
                                                                                                                                                                   #f
                                                                                                                                                                   (id args
                                                                                                                                                                       body
                                                                                                                                                                       has-cont))
                                                                                                                                                                 #(500
                                                                                                                                                                   (r$1004)
                                                                                                                                                                   ((lp$117$426
                                                                                                                                                                      k$1000
                                                                                                                                                                      r$1003
                                                                                                                                                                      r$1004))
                                                                                                                                                                   #f))
                                                                                                                                                               (Cyc-fast-plus
                                                                                                                                                                 i$427
                                                                                                                                                                 1)))
                                                                                                                                                             #f))
                                                                                                                                                         (Cyc-fast-plus
                                                                                                                                                           c$428
                                                                                                                                                           1)))
                                                                                                                                                       #f))
                                                                                                                                                   (vector-set!
                                                                                                                                                     v$419
                                                                                                                                                     i$427
                                                                                                                                                     r$1005)))
                                                                                                                                                 #f))
                                                                                                                                             r$1006
                                                                                                                                             r$1007))
                                                                                                                                          #f))
                                                                                                                                      (Cyc-fast-plus
                                                                                                                                        r$1008
                                                                                                                                        r$1009)))
                                                                                                                                    #f))
                                                                                                                                c$428
                                                                                                                                1))
                                                                                                                             #f))
                                                                                                                         (Cyc-fast-mul
                                                                                                                           2
                                                                                                                           r$422)))
                                                                                                                       #f))
                                                                                                                   (Cyc-fast-mul
                                                                                                                     3
                                                                                                                     c$428)))
                                                                                                                 #f)))))
                                                                                                         #f))
                                                                                                     r$1001))
                                                                                                   #f))
                                                                                               (Cyc-fast-eq
                                                                                                 c$428
                                                                                                 ncols$417)))
                                                                                             #t))))
                                                                                       #f))
                                                                                   #f))
                                                                                 #f))
                                                                             0
                                                                             r$997))
                                                                           #f))
                                                                       (Cyc-fast-mul
                                                                         r$422
                                                                         ncols$417)))
                                                                     #f)))))
                                                             #f))
                                                         r$994))
                                                       #f))
                                                   (Cyc-fast-lt r$422 0)))
                                                 #t))))
                                           #f))
                                       #f))
                                     #f))
                                 r$990))
                               #f))
                           (Cyc-fast-sub nrows$418 1)))
                         #f))
                     r$988))
                   #f))
               (make-vector r$1010)))
             #f))
         (Cyc-fast-mul nrows$418 ncols$417)))
       #t)))
 (define south-west 1)
 (define south 2)
 (define south-east 4)
 (define gen-maze-array
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(492
       (k$974 r$413 c$412)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(488
             (r$975)
             ((harr-tabulate k$974 r$413 c$412 r$975))
             #f))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(491
             (k$976 x$415 y$414)
             ((base-set
                #((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(490
                    (r$977)
                    ((#((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(489 (r$978) ((make-cell k$976 r$977 r$978)) #f))
                      (cons x$415 y$414)))
                    #f))
                1))
             #t))))
       #t)))
 (define make-wall-vec
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(487
       (k$899 harr$388)
       ((harr:nrows
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(486
              (r$900)
              ((#((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(485
                    (nrows$389)
                    ((harr:ncols
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(484
                           (r$901)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(483
                                 (ncols$390)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(482
                                       (r$971)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(481
                                             (r$902)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(480
                                                   (xmax$391)
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(479
                                                         (r$903)
                                                         ((#((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(478
                                                               (walls$392)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(474
                                                                     (r$904)
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(473
                                                                           (add-wall$396)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(472
                                                                                 ()
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(471
                                                                                       (r$967)
                                                                                       ((#((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(470
                                                                                             (r$935)
                                                                                             ((#((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(469
                                                                                                   (x$403)
                                                                                                   ((#((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(468
                                                                                                         (lp$132$404)
                                                                                                         ((#((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(431
                                                                                                               (r$937)
                                                                                                               ((#((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(430
                                                                                                                     (r$936)
                                                                                                                     ((lp$132$404
                                                                                                                        #((record-marker)
                                                                                                                          #((record-marker)
                                                                                                                            #f
                                                                                                                            (id args
                                                                                                                                body
                                                                                                                                has-cont))
                                                                                                                          #(429
                                                                                                                            (r$905)
                                                                                                                            ((#((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(428
                                                                                                                                  (k$907)
                                                                                                                                  ((#((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(427
                                                                                                                                        (r$908)
                                                                                                                                        ((if r$908
                                                                                                                                           (#((record-marker)
                                                                                                                                              #((record-marker)
                                                                                                                                                #f
                                                                                                                                                (id args
                                                                                                                                                    body
                                                                                                                                                    has-cont))
                                                                                                                                              #(426
                                                                                                                                                (r$934)
                                                                                                                                                ((div #((record-marker)
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #f
                                                                                                                                                          (id args
                                                                                                                                                              body
                                                                                                                                                              has-cont))
                                                                                                                                                        #(425
                                                                                                                                                          (r$933)
                                                                                                                                                          ((#((record-marker)
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #f
                                                                                                                                                                (id args
                                                                                                                                                                    body
                                                                                                                                                                    has-cont))
                                                                                                                                                              #(424
                                                                                                                                                                (r$932)
                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                    #((record-marker)
                                                                                                                                                                      #f
                                                                                                                                                                      (id args
                                                                                                                                                                          body
                                                                                                                                                                          has-cont))
                                                                                                                                                                    #(423
                                                                                                                                                                      (r$909)
                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #f
                                                                                                                                                                            (id args
                                                                                                                                                                                body
                                                                                                                                                                                has-cont))
                                                                                                                                                                          #(422
                                                                                                                                                                            (rmoc-x$397)
                                                                                                                                                                            ((href #((record-marker)
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #f
                                                                                                                                                                                       (id args
                                                                                                                                                                                           body
                                                                                                                                                                                           has-cont))
                                                                                                                                                                                     #(421
                                                                                                                                                                                       (r$925)
                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                             #f
                                                                                                                                                                                             (id args
                                                                                                                                                                                                 body
                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                           #(420
                                                                                                                                                                                             (rmoc-hex$402)
                                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                   #f
                                                                                                                                                                                                   (id args
                                                                                                                                                                                                       body
                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                 #(419
                                                                                                                                                                                                   (k$929)
                                                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                         #f
                                                                                                                                                                                                         (id args
                                                                                                                                                                                                             body
                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                       #(418
                                                                                                                                                                                                         (r$930)
                                                                                                                                                                                                         ((if r$930
                                                                                                                                                                                                            (href #((record-marker)
                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                          body
                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                    #(417
                                                                                                                                                                                                                      (r$931)
                                                                                                                                                                                                                      ((add-wall$396
                                                                                                                                                                                                                         k$929
                                                                                                                                                                                                                         rmoc-hex$402
                                                                                                                                                                                                                         r$931
                                                                                                                                                                                                                         south-east))
                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                  harr$388
                                                                                                                                                                                                                  xmax$391
                                                                                                                                                                                                                  0)
                                                                                                                                                                                                            (k$929 #f)))
                                                                                                                                                                                                         #f))
                                                                                                                                                                                                     (Cyc-fast-lt
                                                                                                                                                                                                       rmoc-x$397
                                                                                                                                                                                                       xmax$391)))
                                                                                                                                                                                                   #t))
                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                   #f
                                                                                                                                                                                                   (id args
                                                                                                                                                                                                       body
                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                 #(416
                                                                                                                                                                                                   (r$926)
                                                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                         #f
                                                                                                                                                                                                         (id args
                                                                                                                                                                                                             body
                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                       #(415
                                                                                                                                                                                                         (r$928)
                                                                                                                                                                                                         ((href #((record-marker)
                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                        body
                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                  #(414
                                                                                                                                                                                                                    (r$927)
                                                                                                                                                                                                                    ((add-wall$396
                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                               body
                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                         #(413
                                                                                                                                                                                                                           (r$910)
                                                                                                                                                                                                                           ((#((record-marker)
                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                               #(412
                                                                                                                                                                                                                                 (r$911)
                                                                                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                     #(411
                                                                                                                                                                                                                                       (x$398)
                                                                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                           #(410
                                                                                                                                                                                                                                             (lp$140$399)
                                                                                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                 #(396
                                                                                                                                                                                                                                                   (r$913)
                                                                                                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                       #(395
                                                                                                                                                                                                                                                         (r$912)
                                                                                                                                                                                                                                                         ((lp$140$399
                                                                                                                                                                                                                                                            k$907
                                                                                                                                                                                                                                                            x$398))
                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                     (set! lp$140$399
                                                                                                                                                                                                                                                       r$913)))
                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                 #(409
                                                                                                                                                                                                                                                   (k$914 x$400)
                                                                                                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                       #(408
                                                                                                                                                                                                                                                         (r$915)
                                                                                                                                                                                                                                                         ((#((record-marker)
                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                                             #(407
                                                                                                                                                                                                                                                               (tmp$142$401)
                                                                                                                                                                                                                                                               ((if tmp$142$401
                                                                                                                                                                                                                                                                  (k$914 tmp$142$401)
                                                                                                                                                                                                                                                                  (#((record-marker)
                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                     #(406
                                                                                                                                                                                                                                                                       ()
                                                                                                                                                                                                                                                                       ((href #((record-marker)
                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                #(405
                                                                                                                                                                                                                                                                                  (r$922)
                                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                      #(404
                                                                                                                                                                                                                                                                                        (r$924)
                                                                                                                                                                                                                                                                                        ((href #((record-marker)
                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                                                 #(403
                                                                                                                                                                                                                                                                                                   (r$923)
                                                                                                                                                                                                                                                                                                   ((add-wall$396
                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                        #(402
                                                                                                                                                                                                                                                                                                          (r$916)
                                                                                                                                                                                                                                                                                                          ((href #((record-marker)
                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                                   #(401
                                                                                                                                                                                                                                                                                                                     (r$919)
                                                                                                                                                                                                                                                                                                                     ((#((record-marker)
                                                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                                                                                         #(400
                                                                                                                                                                                                                                                                                                                           (r$921)
                                                                                                                                                                                                                                                                                                                           ((href #((record-marker)
                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                                    #(399
                                                                                                                                                                                                                                                                                                                                      (r$920)
                                                                                                                                                                                                                                                                                                                                      ((add-wall$396
                                                                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                                                                           #(398
                                                                                                                                                                                                                                                                                                                                             (r$917)
                                                                                                                                                                                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                                                                                                 #(397
                                                                                                                                                                                                                                                                                                                                                   (r$918)
                                                                                                                                                                                                                                                                                                                                                   ((lp$140$399
                                                                                                                                                                                                                                                                                                                                                      k$914
                                                                                                                                                                                                                                                                                                                                                      r$918))
                                                                                                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                                                                                                               (Cyc-fast-sub
                                                                                                                                                                                                                                                                                                                                                 x$400
                                                                                                                                                                                                                                                                                                                                                 6)))
                                                                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                                                                         r$919
                                                                                                                                                                                                                                                                                                                                         r$920
                                                                                                                                                                                                                                                                                                                                         south-east))
                                                                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                                                                  harr$388
                                                                                                                                                                                                                                                                                                                                  r$921
                                                                                                                                                                                                                                                                                                                                  0))
                                                                                                                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                                                                                                                       (Cyc-fast-plus
                                                                                                                                                                                                                                                                                                                         x$400
                                                                                                                                                                                                                                                                                                                         3)))
                                                                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                                                                 harr$388
                                                                                                                                                                                                                                                                                                                 x$400
                                                                                                                                                                                                                                                                                                                 1))
                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                      r$922
                                                                                                                                                                                                                                                                                                      r$923
                                                                                                                                                                                                                                                                                                      south-west))
                                                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                                                               harr$388
                                                                                                                                                                                                                                                                                               r$924
                                                                                                                                                                                                                                                                                               0))
                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                    (Cyc-fast-sub
                                                                                                                                                                                                                                                                                      x$400
                                                                                                                                                                                                                                                                                      3)))
                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                              harr$388
                                                                                                                                                                                                                                                                              x$400
                                                                                                                                                                                                                                                                              1))
                                                                                                                                                                                                                                                                       #f)))))
                                                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                                                           r$915))
                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                     (Cyc-fast-lt
                                                                                                                                                                                                                                                       x$400
                                                                                                                                                                                                                                                       3)))
                                                                                                                                                                                                                                                   #t))))
                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                   r$911))
                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                             (Cyc-fast-sub
                                                                                                                                                                                                                               rmoc-x$397
                                                                                                                                                                                                                               6)))
                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                       rmoc-hex$402
                                                                                                                                                                                                                       r$927
                                                                                                                                                                                                                       south-west))
                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                harr$388
                                                                                                                                                                                                                r$928
                                                                                                                                                                                                                0))
                                                                                                                                                                                                         #f))
                                                                                                                                                                                                     (Cyc-fast-sub
                                                                                                                                                                                                       rmoc-x$397
                                                                                                                                                                                                       3)))
                                                                                                                                                                                                   #f))))
                                                                                                                                                                                             #f))
                                                                                                                                                                                         r$925))
                                                                                                                                                                                       #f))
                                                                                                                                                                                   harr$388
                                                                                                                                                                                   rmoc-x$397
                                                                                                                                                                                   1))
                                                                                                                                                                            #f))
                                                                                                                                                                        r$909))
                                                                                                                                                                      #f))
                                                                                                                                                                  (Cyc-fast-plus
                                                                                                                                                                    3
                                                                                                                                                                    r$932)))
                                                                                                                                                                #f))
                                                                                                                                                            (Cyc-fast-mul
                                                                                                                                                              6
                                                                                                                                                              r$933)))
                                                                                                                                                          #f))
                                                                                                                                                      r$934
                                                                                                                                                      2))
                                                                                                                                                #f))
                                                                                                                                            (Cyc-fast-sub
                                                                                                                                              ncols$390
                                                                                                                                              2))
                                                                                                                                           (k$907 #f)))
                                                                                                                                        #f))
                                                                                                                                    (Cyc-fast-gt
                                                                                                                                      ncols$390
                                                                                                                                      1)))
                                                                                                                                  #t))
                                                                                                                              #((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(394
                                                                                                                                  (r$906)
                                                                                                                                  ((k$899 (list->vector
                                                                                                                                            walls$392)))
                                                                                                                                  #f))))
                                                                                                                            #f))
                                                                                                                        x$403))
                                                                                                                     #f))
                                                                                                                 (set! lp$132$404
                                                                                                                   r$937)))
                                                                                                               #f))
                                                                                                           #((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(467
                                                                                                               (k$938 x$405)
                                                                                                               ((#((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(466
                                                                                                                     (r$939)
                                                                                                                     ((#((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(465
                                                                                                                           (tmp$134$406)
                                                                                                                           ((if tmp$134$406
                                                                                                                              (k$938 tmp$134$406)
                                                                                                                              (#((record-marker)
                                                                                                                                 #((record-marker)
                                                                                                                                   #f
                                                                                                                                   (id args
                                                                                                                                       body
                                                                                                                                       has-cont))
                                                                                                                                 #(464
                                                                                                                                   ()
                                                                                                                                   ((#((record-marker)
                                                                                                                                       #((record-marker)
                                                                                                                                         #f
                                                                                                                                         (id args
                                                                                                                                             body
                                                                                                                                             has-cont))
                                                                                                                                       #(463
                                                                                                                                         (r$966)
                                                                                                                                         ((#((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(462
                                                                                                                                               (r$964)
                                                                                                                                               ((bitwise-and
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(461
                                                                                                                                                      (r$965)
                                                                                                                                                      ((#((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(460
                                                                                                                                                            (r$942)
                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(459
                                                                                                                                                                  (y$407)
                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #f
                                                                                                                                                                        (id args
                                                                                                                                                                            body
                                                                                                                                                                            has-cont))
                                                                                                                                                                      #(458
                                                                                                                                                                        (lp$136$408)
                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(435
                                                                                                                                                                              (r$944)
                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(434
                                                                                                                                                                                    (r$943)
                                                                                                                                                                                    ((lp$136$408
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                           #f
                                                                                                                                                                                           (id args
                                                                                                                                                                                               body
                                                                                                                                                                                               has-cont))
                                                                                                                                                                                         #(433
                                                                                                                                                                                           (r$940)
                                                                                                                                                                                           ((#((record-marker)
                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                 #f
                                                                                                                                                                                                 (id args
                                                                                                                                                                                                     body
                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                               #(432
                                                                                                                                                                                                 (r$941)
                                                                                                                                                                                                 ((lp$132$404
                                                                                                                                                                                                    k$938
                                                                                                                                                                                                    r$941))
                                                                                                                                                                                                 #f))
                                                                                                                                                                                             (Cyc-fast-sub
                                                                                                                                                                                               x$405
                                                                                                                                                                                               3)))
                                                                                                                                                                                           #f))
                                                                                                                                                                                       y$407))
                                                                                                                                                                                    #f))
                                                                                                                                                                                (set! lp$136$408
                                                                                                                                                                                  r$944)))
                                                                                                                                                                              #f))
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(457
                                                                                                                                                                              (k$945 y$409)
                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(456
                                                                                                                                                                                    (r$946)
                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                          #f
                                                                                                                                                                                          (id args
                                                                                                                                                                                              body
                                                                                                                                                                                              has-cont))
                                                                                                                                                                                        #(455
                                                                                                                                                                                          (tmp$138$410)
                                                                                                                                                                                          ((if tmp$138$410
                                                                                                                                                                                             (k$945 tmp$138$410)
                                                                                                                                                                                             (#((record-marker)
                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                  #f
                                                                                                                                                                                                  (id args
                                                                                                                                                                                                      body
                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                #(454
                                                                                                                                                                                                  ()
                                                                                                                                                                                                  ((href #((record-marker)
                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                             #f
                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                 body
                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                           #(453
                                                                                                                                                                                                             (r$949)
                                                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                       body
                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                 #(452
                                                                                                                                                                                                                   (hex$411)
                                                                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                             body
                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                       #(451
                                                                                                                                                                                                                         (k$959)
                                                                                                                                                                                                                         ((#((record-marker)
                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                             #(450
                                                                                                                                                                                                                               (r$960)
                                                                                                                                                                                                                               ((if r$960
                                                                                                                                                                                                                                  (k$959 #f)
                                                                                                                                                                                                                                  (#((record-marker)
                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                     #(449
                                                                                                                                                                                                                                       (r$962)
                                                                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                           #(448
                                                                                                                                                                                                                                             (r$963)
                                                                                                                                                                                                                                             ((href #((record-marker)
                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                      #(447
                                                                                                                                                                                                                                                        (r$961)
                                                                                                                                                                                                                                                        ((add-wall$396
                                                                                                                                                                                                                                                           k$959
                                                                                                                                                                                                                                                           hex$411
                                                                                                                                                                                                                                                           r$961
                                                                                                                                                                                                                                                           south-west))
                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                    harr$388
                                                                                                                                                                                                                                                    r$962
                                                                                                                                                                                                                                                    r$963))
                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                         (Cyc-fast-sub
                                                                                                                                                                                                                                           y$409
                                                                                                                                                                                                                                           1)))
                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                   (Cyc-fast-sub
                                                                                                                                                                                                                                     x$405
                                                                                                                                                                                                                                     3))))
                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                           (zero?__inline__
                                                                                                                                                                                                                             x$405)))
                                                                                                                                                                                                                         #t))
                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                             body
                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                       #(446
                                                                                                                                                                                                                         (r$950)
                                                                                                                                                                                                                         ((#((record-marker)
                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                             #(445
                                                                                                                                                                                                                               (r$958)
                                                                                                                                                                                                                               ((href #((record-marker)
                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                        #(444
                                                                                                                                                                                                                                          (r$957)
                                                                                                                                                                                                                                          ((add-wall$396
                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                               #(443
                                                                                                                                                                                                                                                 (r$951)
                                                                                                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                     #(442
                                                                                                                                                                                                                                                       (k$952)
                                                                                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                           #(441
                                                                                                                                                                                                                                                             (r$953)
                                                                                                                                                                                                                                                             ((if r$953
                                                                                                                                                                                                                                                                (#((record-marker)
                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                   #(440
                                                                                                                                                                                                                                                                     (r$955)
                                                                                                                                                                                                                                                                     ((#((record-marker)
                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                                         #(439
                                                                                                                                                                                                                                                                           (r$956)
                                                                                                                                                                                                                                                                           ((href #((record-marker)
                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                    #(438
                                                                                                                                                                                                                                                                                      (r$954)
                                                                                                                                                                                                                                                                                      ((add-wall$396
                                                                                                                                                                                                                                                                                         k$952
                                                                                                                                                                                                                                                                                         hex$411
                                                                                                                                                                                                                                                                                         r$954
                                                                                                                                                                                                                                                                                         south-east))
                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                  harr$388
                                                                                                                                                                                                                                                                                  r$955
                                                                                                                                                                                                                                                                                  r$956))
                                                                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                                                                       (Cyc-fast-sub
                                                                                                                                                                                                                                                                         y$409
                                                                                                                                                                                                                                                                         1)))
                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                 (Cyc-fast-plus
                                                                                                                                                                                                                                                                   x$405
                                                                                                                                                                                                                                                                   3))
                                                                                                                                                                                                                                                                (k$952 #f)))
                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                         (Cyc-fast-lt
                                                                                                                                                                                                                                                           x$405
                                                                                                                                                                                                                                                           xmax$391)))
                                                                                                                                                                                                                                                       #t))
                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                     #(437
                                                                                                                                                                                                                                                       (r$947)
                                                                                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                           #(436
                                                                                                                                                                                                                                                             (r$948)
                                                                                                                                                                                                                                                             ((lp$136$408
                                                                                                                                                                                                                                                                k$945
                                                                                                                                                                                                                                                                r$948))
                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                         (Cyc-fast-sub
                                                                                                                                                                                                                                                           y$409
                                                                                                                                                                                                                                                           2)))
                                                                                                                                                                                                                                                       #f))))
                                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                                             hex$411
                                                                                                                                                                                                                                             r$957
                                                                                                                                                                                                                                             south))
                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                      harr$388
                                                                                                                                                                                                                                      x$405
                                                                                                                                                                                                                                      r$958))
                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                           (Cyc-fast-sub
                                                                                                                                                                                                                             y$409
                                                                                                                                                                                                                             2)))
                                                                                                                                                                                                                         #f))))
                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                               r$949))
                                                                                                                                                                                                             #f))
                                                                                                                                                                                                         harr$388
                                                                                                                                                                                                         x$405
                                                                                                                                                                                                         y$409))
                                                                                                                                                                                                  #f)))))
                                                                                                                                                                                          #f))
                                                                                                                                                                                      r$946))
                                                                                                                                                                                    #f))
                                                                                                                                                                                (Cyc-fast-lte
                                                                                                                                                                                  y$409
                                                                                                                                                                                  1)))
                                                                                                                                                                              #t))))
                                                                                                                                                                        #f))
                                                                                                                                                                    #f))
                                                                                                                                                                  #f))
                                                                                                                                                              r$942))
                                                                                                                                                            #f))
                                                                                                                                                        (Cyc-fast-plus
                                                                                                                                                          r$964
                                                                                                                                                          r$965)))
                                                                                                                                                      #f))
                                                                                                                                                  x$405
                                                                                                                                                  1))
                                                                                                                                               #f))
                                                                                                                                           (Cyc-fast-mul
                                                                                                                                             r$966
                                                                                                                                             2)))
                                                                                                                                         #f))
                                                                                                                                     (Cyc-fast-sub
                                                                                                                                       nrows$389
                                                                                                                                       1)))
                                                                                                                                   #f)))))
                                                                                                                           #f))
                                                                                                                       r$939))
                                                                                                                     #f))
                                                                                                                 (Cyc-fast-lt
                                                                                                                   x$405
                                                                                                                   0)))
                                                                                                               #t))))
                                                                                                         #f))
                                                                                                     #f))
                                                                                                   #f))
                                                                                               r$935))
                                                                                             #f))
                                                                                         (Cyc-fast-mul
                                                                                           r$967
                                                                                           3)))
                                                                                       #f))
                                                                                   (Cyc-fast-sub
                                                                                     ncols$390
                                                                                     1)))
                                                                                 #f))))
                                                                           #f))
                                                                       r$904))
                                                                     #f))
                                                                 #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(477
                                                                     (k$968 o$395
                                                                            n$394
                                                                            b$393)
                                                                     ((make-wall
                                                                        #((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(476
                                                                            (r$970)
                                                                            ((#((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(475
                                                                                  (r$969)
                                                                                  ((k$968 (set! walls$392
                                                                                            r$969)))
                                                                                  #f))
                                                                              (cons r$970
                                                                                    walls$392)))
                                                                            #f))
                                                                        o$395
                                                                        n$394
                                                                        b$393))
                                                                     #t))))
                                                               #f))
                                                           r$903))
                                                         #f))
                                                     '()))
                                                   #f))
                                               r$902))
                                             #f))
                                         (Cyc-fast-mul 3 r$971)))
                                       #f))
                                   (Cyc-fast-sub ncols$390 1)))
                                 #f))
                             r$901))
                           #f))
                       harr$388))
                    #f))
                r$900))
              #f))
          harr$388))
       #t)))
 (define pick-entrances
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(393
       (k$869 harr$361)
       ((href/rc
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(392
              (r$896)
              ((dfs-maze
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(391
                     (r$870)
                     ((harr:nrows
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(390
                            (r$871)
                            ((harr:ncols
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(389
                                   (r$872)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(388
                                         (nrows$363 ncols$362)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(387
                                               (r$873)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(386
                                                     (max-len$367
                                                       entrance$366
                                                       exit$365
                                                       tcol$364)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(385
                                                           (tp-lp$368)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(358
                                                                 (r$875)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(357
                                                                       (r$874)
                                                                       ((tp-lp$368
                                                                          k$869
                                                                          max-len$367
                                                                          entrance$366
                                                                          exit$365
                                                                          tcol$364))
                                                                       #f))
                                                                   (set! tp-lp$368
                                                                     r$875)))
                                                                 #f))
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(384
                                                                 (k$876 max-len$372
                                                                        entrance$371
                                                                        exit$370
                                                                        tcol$369)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(383
                                                                       (r$877)
                                                                       ((if r$877
                                                                          (vector
                                                                            k$876
                                                                            entrance$371
                                                                            exit$370)
                                                                          (#((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(382
                                                                               (r$895)
                                                                               ((href/rc
                                                                                  #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(381
                                                                                      (r$878)
                                                                                      ((#((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(380
                                                                                            (top-cell$373)
                                                                                            ((reroot-maze
                                                                                               #((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(379
                                                                                                   (r$879)
                                                                                                   ((#((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(378
                                                                                                         (r$885)
                                                                                                         ((#((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(377
                                                                                                               (max-len$377
                                                                                                                 entrance$376
                                                                                                                 exit$375
                                                                                                                 bcol$374)
                                                                                                               ((#((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(376
                                                                                                                     (bt-lp$378)
                                                                                                                     ((#((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(367
                                                                                                                           (r$887)
                                                                                                                           ((#((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(366
                                                                                                                                 (r$886)
                                                                                                                                 ((bt-lp$378
                                                                                                                                    #((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(365
                                                                                                                                        (r$880)
                                                                                                                                        ((#((record-marker)
                                                                                                                                            #((record-marker)
                                                                                                                                              #f
                                                                                                                                              (id args
                                                                                                                                                  body
                                                                                                                                                  has-cont))
                                                                                                                                            #(364
                                                                                                                                              (result$384)
                                                                                                                                              ((#((record-marker)
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #f
                                                                                                                                                    (id args
                                                                                                                                                        body
                                                                                                                                                        has-cont))
                                                                                                                                                  #(363
                                                                                                                                                    (r$881)
                                                                                                                                                    ((#((record-marker)
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #f
                                                                                                                                                          (id args
                                                                                                                                                              body
                                                                                                                                                              has-cont))
                                                                                                                                                        #(362
                                                                                                                                                          (r$882)
                                                                                                                                                          ((#((record-marker)
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #f
                                                                                                                                                                (id args
                                                                                                                                                                    body
                                                                                                                                                                    has-cont))
                                                                                                                                                              #(361
                                                                                                                                                                (r$883)
                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                    #((record-marker)
                                                                                                                                                                      #f
                                                                                                                                                                      (id args
                                                                                                                                                                          body
                                                                                                                                                                          has-cont))
                                                                                                                                                                    #(360
                                                                                                                                                                      (max-len$387
                                                                                                                                                                        entrance$386
                                                                                                                                                                        exit$385)
                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #f
                                                                                                                                                                            (id args
                                                                                                                                                                                body
                                                                                                                                                                                has-cont))
                                                                                                                                                                          #(359
                                                                                                                                                                            (r$884)
                                                                                                                                                                            ((tp-lp$368
                                                                                                                                                                               k$876
                                                                                                                                                                               max-len$387
                                                                                                                                                                               entrance$386
                                                                                                                                                                               exit$385
                                                                                                                                                                               r$884))
                                                                                                                                                                            #f))
                                                                                                                                                                        (Cyc-fast-sub
                                                                                                                                                                          tcol$369
                                                                                                                                                                          1)))
                                                                                                                                                                      #f))
                                                                                                                                                                  r$881
                                                                                                                                                                  r$882
                                                                                                                                                                  r$883))
                                                                                                                                                                #f))
                                                                                                                                                            (vector-ref
                                                                                                                                                              result$384
                                                                                                                                                              2)))
                                                                                                                                                          #f))
                                                                                                                                                      (vector-ref
                                                                                                                                                        result$384
                                                                                                                                                        1)))
                                                                                                                                                    #f))
                                                                                                                                                (vector-ref
                                                                                                                                                  result$384
                                                                                                                                                  0)))
                                                                                                                                              #f))
                                                                                                                                          r$880))
                                                                                                                                        #f))
                                                                                                                                    max-len$377
                                                                                                                                    entrance$376
                                                                                                                                    exit$375
                                                                                                                                    bcol$374))
                                                                                                                                 #f))
                                                                                                                             (set! bt-lp$378
                                                                                                                               r$887)))
                                                                                                                           #f))
                                                                                                                       #((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(375
                                                                                                                           (k$888 max-len$382
                                                                                                                                  entrance$381
                                                                                                                                  exit$380
                                                                                                                                  bcol$379)
                                                                                                                           ((#((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(374
                                                                                                                                 (r$889)
                                                                                                                                 ((if r$889
                                                                                                                                    (vector
                                                                                                                                      k$888
                                                                                                                                      max-len$382
                                                                                                                                      entrance$381
                                                                                                                                      exit$380)
                                                                                                                                    (href/rc
                                                                                                                                      #((record-marker)
                                                                                                                                        #((record-marker)
                                                                                                                                          #f
                                                                                                                                          (id args
                                                                                                                                              body
                                                                                                                                              has-cont))
                                                                                                                                        #(373
                                                                                                                                          (r$894)
                                                                                                                                          ((path-length
                                                                                                                                             #((record-marker)
                                                                                                                                               #((record-marker)
                                                                                                                                                 #f
                                                                                                                                                 (id args
                                                                                                                                                     body
                                                                                                                                                     has-cont))
                                                                                                                                               #(372
                                                                                                                                                 (r$890)
                                                                                                                                                 ((#((record-marker)
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #f
                                                                                                                                                       (id args
                                                                                                                                                           body
                                                                                                                                                           has-cont))
                                                                                                                                                     #(371
                                                                                                                                                       (this-len$383)
                                                                                                                                                       ((#((record-marker)
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #f
                                                                                                                                                             (id args
                                                                                                                                                                 body
                                                                                                                                                                 has-cont))
                                                                                                                                                           #(370
                                                                                                                                                             (r$891)
                                                                                                                                                             ((if r$891
                                                                                                                                                                (#((record-marker)
                                                                                                                                                                   #((record-marker)
                                                                                                                                                                     #f
                                                                                                                                                                     (id args
                                                                                                                                                                         body
                                                                                                                                                                         has-cont))
                                                                                                                                                                   #(368
                                                                                                                                                                     (r$892)
                                                                                                                                                                     ((bt-lp$378
                                                                                                                                                                        k$888
                                                                                                                                                                        this-len$383
                                                                                                                                                                        tcol$369
                                                                                                                                                                        bcol$379
                                                                                                                                                                        r$892))
                                                                                                                                                                     #f))
                                                                                                                                                                 (Cyc-fast-sub
                                                                                                                                                                   bcol$379
                                                                                                                                                                   1))
                                                                                                                                                                (#((record-marker)
                                                                                                                                                                   #((record-marker)
                                                                                                                                                                     #f
                                                                                                                                                                     (id args
                                                                                                                                                                         body
                                                                                                                                                                         has-cont))
                                                                                                                                                                   #(369
                                                                                                                                                                     (r$893)
                                                                                                                                                                     ((bt-lp$378
                                                                                                                                                                        k$888
                                                                                                                                                                        max-len$382
                                                                                                                                                                        entrance$381
                                                                                                                                                                        exit$380
                                                                                                                                                                        r$893))
                                                                                                                                                                     #f))
                                                                                                                                                                 (Cyc-fast-sub
                                                                                                                                                                   bcol$379
                                                                                                                                                                   1))))
                                                                                                                                                             #f))
                                                                                                                                                         (Cyc-fast-gt
                                                                                                                                                           this-len$383
                                                                                                                                                           max-len$382)))
                                                                                                                                                       #f))
                                                                                                                                                   r$890))
                                                                                                                                                 #f))
                                                                                                                                             r$894))
                                                                                                                                          #f))
                                                                                                                                      harr$361
                                                                                                                                      0
                                                                                                                                      bcol$379)))
                                                                                                                                 #f))
                                                                                                                             (Cyc-fast-lt
                                                                                                                               bcol$379
                                                                                                                               0)))
                                                                                                                           #t))))
                                                                                                                     #f))
                                                                                                                 #f))
                                                                                                               #f))
                                                                                                           max-len$372
                                                                                                           entrance$371
                                                                                                           exit$370
                                                                                                           r$885))
                                                                                                         #f))
                                                                                                     (Cyc-fast-sub
                                                                                                       ncols$362
                                                                                                       1)))
                                                                                                   #f))
                                                                                               top-cell$373))
                                                                                            #f))
                                                                                        r$878))
                                                                                      #f))
                                                                                  harr$361
                                                                                  r$895
                                                                                  tcol$369))
                                                                               #f))
                                                                           (Cyc-fast-sub
                                                                             nrows$363
                                                                             1))))
                                                                       #f))
                                                                   (Cyc-fast-lt
                                                                     tcol$369
                                                                     0)))
                                                                 #t))))
                                                           #f))
                                                       #f))
                                                     #f))
                                                 -1
                                                 #f
                                                 #f
                                                 r$873))
                                               #f))
                                           (Cyc-fast-sub ncols$362 1)))
                                         #f))
                                     r$871
                                     r$872))
                                   #f))
                               harr$361))
                            #f))
                        harr$361))
                     #f))
                 harr$361
                 r$896
                 for-each-hex-child))
              #f))
          harr$361
          0
          0))
       #t)))
 (define for-each-hex-child
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(356
       (k$810 proc$347 harr$346 cell$345)
       ((cell:walls
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(355
              (r$811)
              ((#((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(354
                    (walls$348)
                    ((cell:id
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(353
                           (r$812)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(352
                                 (id$349)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(351
                                       (r$813)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(350
                                             (x$350)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(349
                                                   (r$814)
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(348
                                                         (y$351)
                                                         ((harr:nrows
                                                            #((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(347
                                                                (r$815)
                                                                ((#((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(346
                                                                      (nr$352)
                                                                      ((harr:ncols
                                                                         #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(345
                                                                             (r$816)
                                                                             ((#((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(344
                                                                                   (nc$353)
                                                                                   ((#((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(343
                                                                                         (r$866)
                                                                                         ((#((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(342
                                                                                               (r$817)
                                                                                               ((#((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(341
                                                                                                     (maxy$354)
                                                                                                     ((#((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(340
                                                                                                           (r$865)
                                                                                                           ((#((record-marker)
                                                                                                               #((record-marker)
                                                                                                                 #f
                                                                                                                 (id args
                                                                                                                     body
                                                                                                                     has-cont))
                                                                                                               #(339
                                                                                                                 (r$818)
                                                                                                                 ((#((record-marker)
                                                                                                                     #((record-marker)
                                                                                                                       #f
                                                                                                                       (id args
                                                                                                                           body
                                                                                                                           has-cont))
                                                                                                                     #(338
                                                                                                                       (maxx$355)
                                                                                                                       ((#((record-marker)
                                                                                                                           #((record-marker)
                                                                                                                             #f
                                                                                                                             (id args
                                                                                                                                 body
                                                                                                                                 has-cont))
                                                                                                                           #(337
                                                                                                                             ()
                                                                                                                             ((#((record-marker)
                                                                                                                                 #((record-marker)
                                                                                                                                   #f
                                                                                                                                   (id args
                                                                                                                                       body
                                                                                                                                       has-cont))
                                                                                                                                 #(336
                                                                                                                                   (k$860)
                                                                                                                                   ((bit-test
                                                                                                                                      #((record-marker)
                                                                                                                                        #((record-marker)
                                                                                                                                          #f
                                                                                                                                          (id args
                                                                                                                                              body
                                                                                                                                              has-cont))
                                                                                                                                        #(335
                                                                                                                                          (r$861)
                                                                                                                                          ((if r$861
                                                                                                                                             (k$860 #f)
                                                                                                                                             (#((record-marker)
                                                                                                                                                #((record-marker)
                                                                                                                                                  #f
                                                                                                                                                  (id args
                                                                                                                                                      body
                                                                                                                                                      has-cont))
                                                                                                                                                #(334
                                                                                                                                                  (r$863)
                                                                                                                                                  ((#((record-marker)
                                                                                                                                                      #((record-marker)
                                                                                                                                                        #f
                                                                                                                                                        (id args
                                                                                                                                                            body
                                                                                                                                                            has-cont))
                                                                                                                                                      #(333
                                                                                                                                                        (r$864)
                                                                                                                                                        ((href #((record-marker)
                                                                                                                                                                 #((record-marker)
                                                                                                                                                                   #f
                                                                                                                                                                   (id args
                                                                                                                                                                       body
                                                                                                                                                                       has-cont))
                                                                                                                                                                 #(332
                                                                                                                                                                   (r$862)
                                                                                                                                                                   ((proc$347
                                                                                                                                                                      k$860
                                                                                                                                                                      r$862))
                                                                                                                                                                   #f))
                                                                                                                                                               harr$346
                                                                                                                                                               r$863
                                                                                                                                                               r$864))
                                                                                                                                                        #f))
                                                                                                                                                    (Cyc-fast-sub
                                                                                                                                                      y$351
                                                                                                                                                      1)))
                                                                                                                                                  #f))
                                                                                                                                              (Cyc-fast-sub
                                                                                                                                                x$350
                                                                                                                                                3))))
                                                                                                                                          #f))
                                                                                                                                      walls$348
                                                                                                                                      south-west))
                                                                                                                                   #t))
                                                                                                                               #((record-marker)
                                                                                                                                 #((record-marker)
                                                                                                                                   #f
                                                                                                                                   (id args
                                                                                                                                       body
                                                                                                                                       has-cont))
                                                                                                                                 #(331
                                                                                                                                   (r$819)
                                                                                                                                   ((#((record-marker)
                                                                                                                                       #((record-marker)
                                                                                                                                         #f
                                                                                                                                         (id args
                                                                                                                                             body
                                                                                                                                             has-cont))
                                                                                                                                       #(330
                                                                                                                                         (k$856)
                                                                                                                                         ((bit-test
                                                                                                                                            #((record-marker)
                                                                                                                                              #((record-marker)
                                                                                                                                                #f
                                                                                                                                                (id args
                                                                                                                                                    body
                                                                                                                                                    has-cont))
                                                                                                                                              #(329
                                                                                                                                                (r$857)
                                                                                                                                                ((if r$857
                                                                                                                                                   (k$856 #f)
                                                                                                                                                   (#((record-marker)
                                                                                                                                                      #((record-marker)
                                                                                                                                                        #f
                                                                                                                                                        (id args
                                                                                                                                                            body
                                                                                                                                                            has-cont))
                                                                                                                                                      #(328
                                                                                                                                                        (r$859)
                                                                                                                                                        ((href #((record-marker)
                                                                                                                                                                 #((record-marker)
                                                                                                                                                                   #f
                                                                                                                                                                   (id args
                                                                                                                                                                       body
                                                                                                                                                                       has-cont))
                                                                                                                                                                 #(327
                                                                                                                                                                   (r$858)
                                                                                                                                                                   ((proc$347
                                                                                                                                                                      k$856
                                                                                                                                                                      r$858))
                                                                                                                                                                   #f))
                                                                                                                                                               harr$346
                                                                                                                                                               x$350
                                                                                                                                                               r$859))
                                                                                                                                                        #f))
                                                                                                                                                    (Cyc-fast-sub
                                                                                                                                                      y$351
                                                                                                                                                      2))))
                                                                                                                                                #f))
                                                                                                                                            walls$348
                                                                                                                                            south))
                                                                                                                                         #t))
                                                                                                                                     #((record-marker)
                                                                                                                                       #((record-marker)
                                                                                                                                         #f
                                                                                                                                         (id args
                                                                                                                                             body
                                                                                                                                             has-cont))
                                                                                                                                       #(326
                                                                                                                                         (r$820)
                                                                                                                                         ((#((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(325
                                                                                                                                               (k$851)
                                                                                                                                               ((bit-test
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(324
                                                                                                                                                      (r$852)
                                                                                                                                                      ((if r$852
                                                                                                                                                         (k$851 #f)
                                                                                                                                                         (#((record-marker)
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #f
                                                                                                                                                              (id args
                                                                                                                                                                  body
                                                                                                                                                                  has-cont))
                                                                                                                                                            #(323
                                                                                                                                                              (r$854)
                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #f
                                                                                                                                                                    (id args
                                                                                                                                                                        body
                                                                                                                                                                        has-cont))
                                                                                                                                                                  #(322
                                                                                                                                                                    (r$855)
                                                                                                                                                                    ((href #((record-marker)
                                                                                                                                                                             #((record-marker)
                                                                                                                                                                               #f
                                                                                                                                                                               (id args
                                                                                                                                                                                   body
                                                                                                                                                                                   has-cont))
                                                                                                                                                                             #(321
                                                                                                                                                                               (r$853)
                                                                                                                                                                               ((proc$347
                                                                                                                                                                                  k$851
                                                                                                                                                                                  r$853))
                                                                                                                                                                               #f))
                                                                                                                                                                           harr$346
                                                                                                                                                                           r$854
                                                                                                                                                                           r$855))
                                                                                                                                                                    #f))
                                                                                                                                                                (Cyc-fast-sub
                                                                                                                                                                  y$351
                                                                                                                                                                  1)))
                                                                                                                                                              #f))
                                                                                                                                                          (Cyc-fast-plus
                                                                                                                                                            x$350
                                                                                                                                                            3))))
                                                                                                                                                      #f))
                                                                                                                                                  walls$348
                                                                                                                                                  south-east))
                                                                                                                                               #t))
                                                                                                                                           #((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(320
                                                                                                                                               (r$821)
                                                                                                                                               ((#((record-marker)
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #f
                                                                                                                                                     (id args
                                                                                                                                                         body
                                                                                                                                                         has-cont))
                                                                                                                                                   #(319
                                                                                                                                                     (k$840)
                                                                                                                                                     ((#((record-marker)
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #f
                                                                                                                                                           (id args
                                                                                                                                                               body
                                                                                                                                                               has-cont))
                                                                                                                                                         #(318
                                                                                                                                                           (k$847)
                                                                                                                                                           ((#((record-marker)
                                                                                                                                                               #((record-marker)
                                                                                                                                                                 #f
                                                                                                                                                                 (id args
                                                                                                                                                                     body
                                                                                                                                                                     has-cont))
                                                                                                                                                               #(317
                                                                                                                                                                 (r$848)
                                                                                                                                                                 ((if r$848
                                                                                                                                                                    (#((record-marker)
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #f
                                                                                                                                                                         (id args
                                                                                                                                                                             body
                                                                                                                                                                             has-cont))
                                                                                                                                                                       #(316
                                                                                                                                                                         (r$849)
                                                                                                                                                                         ((#((record-marker)
                                                                                                                                                                             #((record-marker)
                                                                                                                                                                               #f
                                                                                                                                                                               (id args
                                                                                                                                                                                   body
                                                                                                                                                                                   has-cont))
                                                                                                                                                                             #(315
                                                                                                                                                                               (tmp$165$360)
                                                                                                                                                                               ((if tmp$165$360
                                                                                                                                                                                  (k$847 tmp$165$360)
                                                                                                                                                                                  (mod #((record-marker)
                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                           #f
                                                                                                                                                                                           (id args
                                                                                                                                                                                               body
                                                                                                                                                                                               has-cont))
                                                                                                                                                                                         #(314
                                                                                                                                                                                           (r$850)
                                                                                                                                                                                           ((k$847 (zero?__inline__
                                                                                                                                                                                                     r$850)))
                                                                                                                                                                                           #f))
                                                                                                                                                                                       x$350
                                                                                                                                                                                       6)))
                                                                                                                                                                               #f))
                                                                                                                                                                           r$849))
                                                                                                                                                                         #f))
                                                                                                                                                                     (Cyc-fast-lte
                                                                                                                                                                       y$351
                                                                                                                                                                       maxy$354))
                                                                                                                                                                    (k$847 #f)))
                                                                                                                                                                 #f))
                                                                                                                                                             (Cyc-fast-gt
                                                                                                                                                               x$350
                                                                                                                                                               0)))
                                                                                                                                                           #t))
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #f
                                                                                                                                                           (id args
                                                                                                                                                               body
                                                                                                                                                               has-cont))
                                                                                                                                                         #(313
                                                                                                                                                           (r$841)
                                                                                                                                                           ((if r$841
                                                                                                                                                              (#((record-marker)
                                                                                                                                                                 #((record-marker)
                                                                                                                                                                   #f
                                                                                                                                                                   (id args
                                                                                                                                                                       body
                                                                                                                                                                       has-cont))
                                                                                                                                                                 #(312
                                                                                                                                                                   (r$845)
                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #f
                                                                                                                                                                         (id args
                                                                                                                                                                             body
                                                                                                                                                                             has-cont))
                                                                                                                                                                       #(311
                                                                                                                                                                         (r$846)
                                                                                                                                                                         ((href #((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(310
                                                                                                                                                                                    (r$842)
                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                          #f
                                                                                                                                                                                          (id args
                                                                                                                                                                                              body
                                                                                                                                                                                              has-cont))
                                                                                                                                                                                        #(309
                                                                                                                                                                                          (nw$359)
                                                                                                                                                                                          ((cell:walls
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                 #f
                                                                                                                                                                                                 (id args
                                                                                                                                                                                                     body
                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                               #(308
                                                                                                                                                                                                 (r$844)
                                                                                                                                                                                                 ((bit-test
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                        #f
                                                                                                                                                                                                        (id args
                                                                                                                                                                                                            body
                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                      #(307
                                                                                                                                                                                                        (r$843)
                                                                                                                                                                                                        ((if r$843
                                                                                                                                                                                                           (k$840 #f)
                                                                                                                                                                                                           (proc$347
                                                                                                                                                                                                             k$840
                                                                                                                                                                                                             nw$359)))
                                                                                                                                                                                                        #f))
                                                                                                                                                                                                    r$844
                                                                                                                                                                                                    south-east))
                                                                                                                                                                                                 #f))
                                                                                                                                                                                             nw$359))
                                                                                                                                                                                          #f))
                                                                                                                                                                                      r$842))
                                                                                                                                                                                    #f))
                                                                                                                                                                                harr$346
                                                                                                                                                                                r$845
                                                                                                                                                                                r$846))
                                                                                                                                                                         #f))
                                                                                                                                                                     (Cyc-fast-plus
                                                                                                                                                                       y$351
                                                                                                                                                                       1)))
                                                                                                                                                                   #f))
                                                                                                                                                               (Cyc-fast-sub
                                                                                                                                                                 x$350
                                                                                                                                                                 3))
                                                                                                                                                              (k$840 #f)))
                                                                                                                                                           #f))))
                                                                                                                                                     #t))
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #f
                                                                                                                                                     (id args
                                                                                                                                                         body
                                                                                                                                                         has-cont))
                                                                                                                                                   #(306
                                                                                                                                                     (r$822)
                                                                                                                                                     ((#((record-marker)
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #f
                                                                                                                                                           (id args
                                                                                                                                                               body
                                                                                                                                                               has-cont))
                                                                                                                                                         #(305
                                                                                                                                                           (k$834)
                                                                                                                                                           ((#((record-marker)
                                                                                                                                                               #((record-marker)
                                                                                                                                                                 #f
                                                                                                                                                                 (id args
                                                                                                                                                                     body
                                                                                                                                                                     has-cont))
                                                                                                                                                               #(304
                                                                                                                                                                 (r$835)
                                                                                                                                                                 ((if r$835
                                                                                                                                                                    (#((record-marker)
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #f
                                                                                                                                                                         (id args
                                                                                                                                                                             body
                                                                                                                                                                             has-cont))
                                                                                                                                                                       #(303
                                                                                                                                                                         (r$839)
                                                                                                                                                                         ((href #((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(302
                                                                                                                                                                                    (r$836)
                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                          #f
                                                                                                                                                                                          (id args
                                                                                                                                                                                              body
                                                                                                                                                                                              has-cont))
                                                                                                                                                                                        #(301
                                                                                                                                                                                          (n$358)
                                                                                                                                                                                          ((cell:walls
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                 #f
                                                                                                                                                                                                 (id args
                                                                                                                                                                                                     body
                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                               #(300
                                                                                                                                                                                                 (r$838)
                                                                                                                                                                                                 ((bit-test
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                        #f
                                                                                                                                                                                                        (id args
                                                                                                                                                                                                            body
                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                      #(299
                                                                                                                                                                                                        (r$837)
                                                                                                                                                                                                        ((if r$837
                                                                                                                                                                                                           (k$834 #f)
                                                                                                                                                                                                           (proc$347
                                                                                                                                                                                                             k$834
                                                                                                                                                                                                             n$358)))
                                                                                                                                                                                                        #f))
                                                                                                                                                                                                    r$838
                                                                                                                                                                                                    south))
                                                                                                                                                                                                 #f))
                                                                                                                                                                                             n$358))
                                                                                                                                                                                          #f))
                                                                                                                                                                                      r$836))
                                                                                                                                                                                    #f))
                                                                                                                                                                                harr$346
                                                                                                                                                                                x$350
                                                                                                                                                                                r$839))
                                                                                                                                                                         #f))
                                                                                                                                                                     (Cyc-fast-plus
                                                                                                                                                                       y$351
                                                                                                                                                                       2))
                                                                                                                                                                    (k$834 #f)))
                                                                                                                                                                 #f))
                                                                                                                                                             (Cyc-fast-lt
                                                                                                                                                               y$351
                                                                                                                                                               maxy$354)))
                                                                                                                                                           #t))
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #f
                                                                                                                                                           (id args
                                                                                                                                                               body
                                                                                                                                                               has-cont))
                                                                                                                                                         #(298
                                                                                                                                                           (r$823)
                                                                                                                                                           ((#((record-marker)
                                                                                                                                                               #((record-marker)
                                                                                                                                                                 #f
                                                                                                                                                                 (id args
                                                                                                                                                                     body
                                                                                                                                                                     has-cont))
                                                                                                                                                               #(297
                                                                                                                                                                 (k$830)
                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                     #((record-marker)
                                                                                                                                                                       #f
                                                                                                                                                                       (id args
                                                                                                                                                                           body
                                                                                                                                                                           has-cont))
                                                                                                                                                                     #(296
                                                                                                                                                                       (r$831)
                                                                                                                                                                       ((if r$831
                                                                                                                                                                          (#((record-marker)
                                                                                                                                                                             #((record-marker)
                                                                                                                                                                               #f
                                                                                                                                                                               (id args
                                                                                                                                                                                   body
                                                                                                                                                                                   has-cont))
                                                                                                                                                                             #(295
                                                                                                                                                                               (r$832)
                                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                     #f
                                                                                                                                                                                     (id args
                                                                                                                                                                                         body
                                                                                                                                                                                         has-cont))
                                                                                                                                                                                   #(294
                                                                                                                                                                                     (tmp$169$357)
                                                                                                                                                                                     ((if tmp$169$357
                                                                                                                                                                                        (k$830 tmp$169$357)
                                                                                                                                                                                        (mod #((record-marker)
                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                 #f
                                                                                                                                                                                                 (id args
                                                                                                                                                                                                     body
                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                               #(293
                                                                                                                                                                                                 (r$833)
                                                                                                                                                                                                 ((k$830 (zero?__inline__
                                                                                                                                                                                                           r$833)))
                                                                                                                                                                                                 #f))
                                                                                                                                                                                             x$350
                                                                                                                                                                                             6)))
                                                                                                                                                                                     #f))
                                                                                                                                                                                 r$832))
                                                                                                                                                                               #f))
                                                                                                                                                                           (Cyc-fast-lte
                                                                                                                                                                             y$351
                                                                                                                                                                             maxy$354))
                                                                                                                                                                          (k$830 #f)))
                                                                                                                                                                       #f))
                                                                                                                                                                   (Cyc-fast-lt
                                                                                                                                                                     x$350
                                                                                                                                                                     maxx$355)))
                                                                                                                                                                 #t))
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #((record-marker)
                                                                                                                                                                 #f
                                                                                                                                                                 (id args
                                                                                                                                                                     body
                                                                                                                                                                     has-cont))
                                                                                                                                                               #(292
                                                                                                                                                                 (r$824)
                                                                                                                                                                 ((if r$824
                                                                                                                                                                    (#((record-marker)
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #f
                                                                                                                                                                         (id args
                                                                                                                                                                             body
                                                                                                                                                                             has-cont))
                                                                                                                                                                       #(291
                                                                                                                                                                         (r$828)
                                                                                                                                                                         ((#((record-marker)
                                                                                                                                                                             #((record-marker)
                                                                                                                                                                               #f
                                                                                                                                                                               (id args
                                                                                                                                                                                   body
                                                                                                                                                                                   has-cont))
                                                                                                                                                                             #(290
                                                                                                                                                                               (r$829)
                                                                                                                                                                               ((href #((record-marker)
                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                          #f
                                                                                                                                                                                          (id args
                                                                                                                                                                                              body
                                                                                                                                                                                              has-cont))
                                                                                                                                                                                        #(289
                                                                                                                                                                                          (r$825)
                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #f
                                                                                                                                                                                                (id args
                                                                                                                                                                                                    body
                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                              #(288
                                                                                                                                                                                                (ne$356)
                                                                                                                                                                                                ((cell:walls
                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                       #f
                                                                                                                                                                                                       (id args
                                                                                                                                                                                                           body
                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                     #(287
                                                                                                                                                                                                       (r$827)
                                                                                                                                                                                                       ((bit-test
                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                              #f
                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                  body
                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                            #(286
                                                                                                                                                                                                              (r$826)
                                                                                                                                                                                                              ((if r$826
                                                                                                                                                                                                                 (k$810 #f)
                                                                                                                                                                                                                 (proc$347
                                                                                                                                                                                                                   k$810
                                                                                                                                                                                                                   ne$356)))
                                                                                                                                                                                                              #f))
                                                                                                                                                                                                          r$827
                                                                                                                                                                                                          south-west))
                                                                                                                                                                                                       #f))
                                                                                                                                                                                                   ne$356))
                                                                                                                                                                                                #f))
                                                                                                                                                                                            r$825))
                                                                                                                                                                                          #f))
                                                                                                                                                                                      harr$346
                                                                                                                                                                                      r$828
                                                                                                                                                                                      r$829))
                                                                                                                                                                               #f))
                                                                                                                                                                           (Cyc-fast-plus
                                                                                                                                                                             y$351
                                                                                                                                                                             1)))
                                                                                                                                                                         #f))
                                                                                                                                                                     (Cyc-fast-plus
                                                                                                                                                                       x$350
                                                                                                                                                                       3))
                                                                                                                                                                    (k$810 #f)))
                                                                                                                                                                 #f))))
                                                                                                                                                           #f))))
                                                                                                                                                     #f))))
                                                                                                                                               #f))))
                                                                                                                                         #f))))
                                                                                                                                   #f))))
                                                                                                                             #f))))
                                                                                                                       #f))
                                                                                                                   r$818))
                                                                                                                 #f))
                                                                                                             (Cyc-fast-mul
                                                                                                               3
                                                                                                               r$865)))
                                                                                                           #f))
                                                                                                       (Cyc-fast-sub
                                                                                                         nc$353
                                                                                                         1)))
                                                                                                     #f))
                                                                                                 r$817))
                                                                                               #f))
                                                                                           (Cyc-fast-mul
                                                                                             2
                                                                                             r$866)))
                                                                                         #f))
                                                                                     (Cyc-fast-sub
                                                                                       nr$352
                                                                                       1)))
                                                                                   #f))
                                                                               r$816))
                                                                             #f))
                                                                         harr$346))
                                                                      #f))
                                                                  r$815))
                                                                #f))
                                                            harr$346))
                                                         #f))
                                                     r$814))
                                                   #f))
                                               (cdr id$349)))
                                             #f))
                                         r$813))
                                       #f))
                                   (car id$349)))
                                 #f))
                             r$812))
                           #f))
                       cell$345))
                    #f))
                r$811))
              #f))
          cell$345))
       #t)))
 (define make-maze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(285
       (k$789 nrows$337 ncols$336)
       ((gen-maze-array
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(284
              (r$790)
              ((#((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(283
                    (cells$338)
                    ((make-wall-vec
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(282
                           (r$806)
                           ((random-state
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(281
                                  (r$807)
                                  ((permute-vec!
                                     #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(280
                                         (r$791)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(279
                                               (walls$339)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(278
                                                     ()
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(277
                                                           (r$805)
                                                           ((dig-maze
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(276
                                                                  (r$792)
                                                                  ((pick-entrances
                                                                     #((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(275
                                                                         (r$793)
                                                                         ((#((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(274
                                                                               (result$340)
                                                                               ((#((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(273
                                                                                     (r$794)
                                                                                     ((#((record-marker)
                                                                                         #((record-marker)
                                                                                           #f
                                                                                           (id args
                                                                                               body
                                                                                               has-cont))
                                                                                         #(272
                                                                                           (r$795)
                                                                                           ((#((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(271
                                                                                                 (entrance$342
                                                                                                   exit$341)
                                                                                                 ((href/rc
                                                                                                    #((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(270
                                                                                                        (r$796)
                                                                                                        ((#((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(269
                                                                                                              (exit-cell$343)
                                                                                                              ((cell:walls
                                                                                                                 #((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(268
                                                                                                                     (r$797)
                                                                                                                     ((#((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(267
                                                                                                                           (walls$344)
                                                                                                                           ((#((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(266
                                                                                                                                 ()
                                                                                                                                 ((#((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(265
                                                                                                                                       (r$804)
                                                                                                                                       ((href/rc
                                                                                                                                          #((record-marker)
                                                                                                                                            #((record-marker)
                                                                                                                                              #f
                                                                                                                                              (id args
                                                                                                                                                  body
                                                                                                                                                  has-cont))
                                                                                                                                            #(264
                                                                                                                                              (r$803)
                                                                                                                                              ((reroot-maze
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #f
                                                                                                                                                     (id args
                                                                                                                                                         body
                                                                                                                                                         has-cont))
                                                                                                                                                   #(263
                                                                                                                                                     (r$798)
                                                                                                                                                     ((mark-path
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(262
                                                                                                                                                            (r$799)
                                                                                                                                                            ((bitwise-not
                                                                                                                                                               #((record-marker)
                                                                                                                                                                 #((record-marker)
                                                                                                                                                                   #f
                                                                                                                                                                   (id args
                                                                                                                                                                       body
                                                                                                                                                                       has-cont))
                                                                                                                                                                 #(261
                                                                                                                                                                   (r$802)
                                                                                                                                                                   ((bitwise-and
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(260
                                                                                                                                                                          (r$801)
                                                                                                                                                                          ((set-cell:walls
                                                                                                                                                                             #((record-marker)
                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                 #f
                                                                                                                                                                                 (id args
                                                                                                                                                                                     body
                                                                                                                                                                                     has-cont))
                                                                                                                                                                               #(259
                                                                                                                                                                                 (r$800)
                                                                                                                                                                                 ((vector
                                                                                                                                                                                    k$789
                                                                                                                                                                                    cells$338
                                                                                                                                                                                    entrance$342
                                                                                                                                                                                    exit$341))
                                                                                                                                                                                 #f))
                                                                                                                                                                             exit-cell$343
                                                                                                                                                                             r$801))
                                                                                                                                                                          #f))
                                                                                                                                                                      walls$344
                                                                                                                                                                      r$802))
                                                                                                                                                                   #f))
                                                                                                                                                               south))
                                                                                                                                                            #f))
                                                                                                                                                        exit-cell$343))
                                                                                                                                                     #f))
                                                                                                                                                 r$803))
                                                                                                                                              #f))
                                                                                                                                          cells$338
                                                                                                                                          r$804
                                                                                                                                          entrance$342))
                                                                                                                                       #f))
                                                                                                                                   (Cyc-fast-sub
                                                                                                                                     nrows$337
                                                                                                                                     1)))
                                                                                                                                 #f))))
                                                                                                                           #f))
                                                                                                                       r$797))
                                                                                                                     #f))
                                                                                                                 exit-cell$343))
                                                                                                              #f))
                                                                                                          r$796))
                                                                                                        #f))
                                                                                                    cells$338
                                                                                                    0
                                                                                                    exit$341))
                                                                                                 #f))
                                                                                             r$794
                                                                                             r$795))
                                                                                           #f))
                                                                                       (vector-ref
                                                                                         result$340
                                                                                         1)))
                                                                                     #f))
                                                                                 (vector-ref
                                                                                   result$340
                                                                                   0)))
                                                                               #f))
                                                                           r$793))
                                                                         #f))
                                                                     cells$338))
                                                                  #f))
                                                              walls$339
                                                              r$805))
                                                           #f))
                                                       (Cyc-fast-mul
                                                         nrows$337
                                                         ncols$336)))
                                                     #f))))
                                               #f))
                                           r$791))
                                         #f))
                                     r$806
                                     r$807))
                                  #f))
                              20))
                           #f))
                       cells$338))
                    #f))
                r$790))
              #f))
          nrows$337
          ncols$336))
       #t)))
 (define pmaze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(258
       (k$782 nrows$331 ncols$330)
       ((make-maze
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(257
              (r$783)
              ((#((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(256
                    (result$332)
                    ((#((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(255
                          (r$784)
                          ((#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(254
                                (r$785)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(253
                                      (r$786)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(252
                                            (cells$335 entrance$334 exit$333)
                                            ((print-hexmaze
                                               k$782
                                               cells$335
                                               entrance$334))
                                            #f))
                                        r$784
                                        r$785
                                        r$786))
                                      #f))
                                  (vector-ref result$332 2)))
                                #f))
                            (vector-ref result$332 1)))
                          #f))
                      (vector-ref result$332 0)))
                    #f))
                r$783))
              #f))
          nrows$331
          ncols$330))
       #t)))
 (define output #f)
 (define write-ch
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(251
       (k$776 c$329)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(250 (r$777) ((k$776 (set! output r$777))) #f))
         (cons c$329 output)))
       #t)))
 (define print-hexmaze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(249
       (k$683 harr$305 entrance$304)
       ((harr:nrows
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(248
              (r$684)
              ((#((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(247
                    (nrows$306)
                    ((harr:ncols
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(246
                           (r$685)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(245
                                 (ncols$307)
                                 ((div #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(244
                                           (r$773)
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(243
                                                 (r$686)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(242
                                                       (ncols2$308)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(241
                                                             ()
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(240
                                                                   (c$325)
                                                                   ((#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(239
                                                                         (lp$188$326)
                                                                         ((#((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(226
                                                                               (r$762)
                                                                               ((#((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(225
                                                                                     (r$761)
                                                                                     ((lp$188$326
                                                                                        #((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(224
                                                                                            (r$687)
                                                                                            ((write-ch
                                                                                               #((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(223
                                                                                                   (r$688)
                                                                                                   ((write-ch
                                                                                                      #((record-marker)
                                                                                                        #((record-marker)
                                                                                                          #f
                                                                                                          (id args
                                                                                                              body
                                                                                                              has-cont))
                                                                                                        #(222
                                                                                                          (r$689)
                                                                                                          ((#((record-marker)
                                                                                                              #((record-marker)
                                                                                                                #f
                                                                                                                (id args
                                                                                                                    body
                                                                                                                    has-cont))
                                                                                                              #(221
                                                                                                                (c$321)
                                                                                                                ((#((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(220
                                                                                                                      (lp$192$322)
                                                                                                                      ((#((record-marker)
                                                                                                                          #((record-marker)
                                                                                                                            #f
                                                                                                                            (id args
                                                                                                                                body
                                                                                                                                has-cont))
                                                                                                                          #(204
                                                                                                                            (r$747)
                                                                                                                            ((#((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(203
                                                                                                                                  (r$746)
                                                                                                                                  ((lp$192$322
                                                                                                                                     #((record-marker)
                                                                                                                                       #((record-marker)
                                                                                                                                         #f
                                                                                                                                         (id args
                                                                                                                                             body
                                                                                                                                             has-cont))
                                                                                                                                       #(202
                                                                                                                                         (r$690)
                                                                                                                                         ((#((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(201
                                                                                                                                               (k$740)
                                                                                                                                               ((odd? #((record-marker)
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #f
                                                                                                                                                          (id args
                                                                                                                                                              body
                                                                                                                                                              has-cont))
                                                                                                                                                        #(200
                                                                                                                                                          (r$741)
                                                                                                                                                          ((if r$741
                                                                                                                                                             (#((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(199
                                                                                                                                                                  (k$743)
                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #f
                                                                                                                                                                        (id args
                                                                                                                                                                            body
                                                                                                                                                                            has-cont))
                                                                                                                                                                      #(198
                                                                                                                                                                        (r$745)
                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(197
                                                                                                                                                                              (r$744)
                                                                                                                                                                              ((if r$744
                                                                                                                                                                                 (k$743 #\space)
                                                                                                                                                                                 (k$743 #\_)))
                                                                                                                                                                              #f))
                                                                                                                                                                          (Cyc-fast-eq
                                                                                                                                                                            entrance$304
                                                                                                                                                                            r$745)))
                                                                                                                                                                        #f))
                                                                                                                                                                    (Cyc-fast-sub
                                                                                                                                                                      ncols$307
                                                                                                                                                                      1)))
                                                                                                                                                                  #t))
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(196
                                                                                                                                                                  (r$742)
                                                                                                                                                                  ((write-ch
                                                                                                                                                                     k$740
                                                                                                                                                                     r$742))
                                                                                                                                                                  #f)))
                                                                                                                                                             (k$740 #f)))
                                                                                                                                                          #f))
                                                                                                                                                      ncols$307))
                                                                                                                                               #t))
                                                                                                                                           #((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(195
                                                                                                                                               (r$691)
                                                                                                                                               ((write-ch
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(194
                                                                                                                                                      (r$692)
                                                                                                                                                      ((#((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(193
                                                                                                                                                            (r$693)
                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(192
                                                                                                                                                                  (r$309)
                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #f
                                                                                                                                                                        (id args
                                                                                                                                                                            body
                                                                                                                                                                            has-cont))
                                                                                                                                                                      #(191
                                                                                                                                                                        (lp$196$310)
                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(133
                                                                                                                                                                              (r$695)
                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(132
                                                                                                                                                                                    (r$694)
                                                                                                                                                                                    ((lp$196$310
                                                                                                                                                                                       k$683
                                                                                                                                                                                       r$309))
                                                                                                                                                                                    #f))
                                                                                                                                                                                (set! lp$196$310
                                                                                                                                                                                  r$695)))
                                                                                                                                                                              #f))
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(190
                                                                                                                                                                              (k$696 r$311)
                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(189
                                                                                                                                                                                    (r$697)
                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                          #f
                                                                                                                                                                                          (id args
                                                                                                                                                                                              body
                                                                                                                                                                                              has-cont))
                                                                                                                                                                                        #(188
                                                                                                                                                                                          (tmp$198$312)
                                                                                                                                                                                          ((if tmp$198$312
                                                                                                                                                                                             (k$696 tmp$198$312)
                                                                                                                                                                                             (#((record-marker)
                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                  #f
                                                                                                                                                                                                  (id args
                                                                                                                                                                                                      body
                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                #(187
                                                                                                                                                                                                  ()
                                                                                                                                                                                                  ((write-ch
                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                         #f
                                                                                                                                                                                                         (id args
                                                                                                                                                                                                             body
                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                       #(186
                                                                                                                                                                                                         (r$698)
                                                                                                                                                                                                         ((#((record-marker)
                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                               #f
                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                   body
                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                             #(185
                                                                                                                                                                                                               (c$317)
                                                                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                         body
                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                   #(184
                                                                                                                                                                                                                     (lp$200$318)
                                                                                                                                                                                                                     ((#((record-marker)
                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                               body
                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                         #(172
                                                                                                                                                                                                                           (r$730)
                                                                                                                                                                                                                           ((#((record-marker)
                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                               #(171
                                                                                                                                                                                                                                 (r$729)
                                                                                                                                                                                                                                 ((lp$200$318
                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                      #(170
                                                                                                                                                                                                                                        (r$699)
                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                            #(169
                                                                                                                                                                                                                                              (k$724)
                                                                                                                                                                                                                                              ((odd? #((record-marker)
                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                       #(168
                                                                                                                                                                                                                                                         (r$725)
                                                                                                                                                                                                                                                         ((if r$725
                                                                                                                                                                                                                                                            (#((record-marker)
                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                                               #(167
                                                                                                                                                                                                                                                                 ()
                                                                                                                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                     #(166
                                                                                                                                                                                                                                                                       (r$728)
                                                                                                                                                                                                                                                                       ((dot/space
                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                            #(165
                                                                                                                                                                                                                                                                              (r$727)
                                                                                                                                                                                                                                                                              ((write-ch
                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                   #(164
                                                                                                                                                                                                                                                                                     (r$726)
                                                                                                                                                                                                                                                                                     ((write-ch
                                                                                                                                                                                                                                                                                        k$724
                                                                                                                                                                                                                                                                                        #\\))
                                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                                 r$727))
                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                          harr$305
                                                                                                                                                                                                                                                                          r$311
                                                                                                                                                                                                                                                                          r$728))
                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                   (Cyc-fast-sub
                                                                                                                                                                                                                                                                     ncols$307
                                                                                                                                                                                                                                                                     1)))
                                                                                                                                                                                                                                                                 #f)))
                                                                                                                                                                                                                                                            (k$724 #f)))
                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                     ncols$307))
                                                                                                                                                                                                                                              #t))
                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                            #(163
                                                                                                                                                                                                                                              (r$700)
                                                                                                                                                                                                                                              ((write-ch
                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                   #(162
                                                                                                                                                                                                                                                     (r$701)
                                                                                                                                                                                                                                                     ((#((record-marker)
                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                         #(161
                                                                                                                                                                                                                                                           (c$313)
                                                                                                                                                                                                                                                           ((#((record-marker)
                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                                               #(160
                                                                                                                                                                                                                                                                 (lp$207$314)
                                                                                                                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                     #(147
                                                                                                                                                                                                                                                                       (r$713)
                                                                                                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                           #(146
                                                                                                                                                                                                                                                                             (r$712)
                                                                                                                                                                                                                                                                             ((lp$207$314
                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                  #(145
                                                                                                                                                                                                                                                                                    (r$702)
                                                                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                        #(144
                                                                                                                                                                                                                                                                                          (k$706)
                                                                                                                                                                                                                                                                                          ((odd? #((record-marker)
                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                   #(143
                                                                                                                                                                                                                                                                                                     (r$707)
                                                                                                                                                                                                                                                                                                     ((if r$707
                                                                                                                                                                                                                                                                                                        (#((record-marker)
                                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                                           #(140
                                                                                                                                                                                                                                                                                                             ()
                                                                                                                                                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                                                                 #(139
                                                                                                                                                                                                                                                                                                                   (r$710)
                                                                                                                                                                                                                                                                                                                   ((href/rc
                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                        #(138
                                                                                                                                                                                                                                                                                                                          (r$709)
                                                                                                                                                                                                                                                                                                                          ((cell:walls
                                                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                                                                                                               #(137
                                                                                                                                                                                                                                                                                                                                 (r$708)
                                                                                                                                                                                                                                                                                                                                 ((display-hexbottom
                                                                                                                                                                                                                                                                                                                                    k$706
                                                                                                                                                                                                                                                                                                                                    r$708))
                                                                                                                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                                                                                                                             r$709))
                                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                                      harr$305
                                                                                                                                                                                                                                                                                                                      r$311
                                                                                                                                                                                                                                                                                                                      r$710))
                                                                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                                                                               (Cyc-fast-sub
                                                                                                                                                                                                                                                                                                                 ncols$307
                                                                                                                                                                                                                                                                                                                 1)))
                                                                                                                                                                                                                                                                                                             #f)))
                                                                                                                                                                                                                                                                                                        (#((record-marker)
                                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                                           #(142
                                                                                                                                                                                                                                                                                                             (r$711)
                                                                                                                                                                                                                                                                                                             ((if r$711
                                                                                                                                                                                                                                                                                                                (k$706 #f)
                                                                                                                                                                                                                                                                                                                (#((record-marker)
                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                                   #(141
                                                                                                                                                                                                                                                                                                                     ()
                                                                                                                                                                                                                                                                                                                     ((write-ch
                                                                                                                                                                                                                                                                                                                        k$706
                                                                                                                                                                                                                                                                                                                        #\\))
                                                                                                                                                                                                                                                                                                                     #f)))))
                                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                                         (zero?__inline__
                                                                                                                                                                                                                                                                                                           r$311))))
                                                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                                                 ncols$307))
                                                                                                                                                                                                                                                                                          #t))
                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                        #(136
                                                                                                                                                                                                                                                                                          (r$703)
                                                                                                                                                                                                                                                                                          ((write-ch
                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                                                                               #(135
                                                                                                                                                                                                                                                                                                 (r$704)
                                                                                                                                                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                     #(134
                                                                                                                                                                                                                                                                                                       (r$705)
                                                                                                                                                                                                                                                                                                       ((lp$196$310
                                                                                                                                                                                                                                                                                                          k$696
                                                                                                                                                                                                                                                                                                          r$705))
                                                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                                                   (Cyc-fast-sub
                                                                                                                                                                                                                                                                                                     r$311
                                                                                                                                                                                                                                                                                                     1)))
                                                                                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                                                                                             #\newline))
                                                                                                                                                                                                                                                                                          #f))))
                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                c$313))
                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                         (set! lp$207$314
                                                                                                                                                                                                                                                                           r$713)))
                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                     #(159
                                                                                                                                                                                                                                                                       (k$714 c$315)
                                                                                                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                           #(158
                                                                                                                                                                                                                                                                             (r$715)
                                                                                                                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                                 #(157
                                                                                                                                                                                                                                                                                   (tmp$209$316)
                                                                                                                                                                                                                                                                                   ((if tmp$209$316
                                                                                                                                                                                                                                                                                      (k$714 tmp$209$316)
                                                                                                                                                                                                                                                                                      (#((record-marker)
                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                                                         #(156
                                                                                                                                                                                                                                                                                           ()
                                                                                                                                                                                                                                                                                           ((href/rc
                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                #(155
                                                                                                                                                                                                                                                                                                  (r$723)
                                                                                                                                                                                                                                                                                                  ((cell:walls
                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                                                       #(154
                                                                                                                                                                                                                                                                                                         (r$722)
                                                                                                                                                                                                                                                                                                         ((display-hexbottom
                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                              #(153
                                                                                                                                                                                                                                                                                                                (r$716)
                                                                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                    #(152
                                                                                                                                                                                                                                                                                                                      (r$720)
                                                                                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                          #(151
                                                                                                                                                                                                                                                                                                                            (r$721)
                                                                                                                                                                                                                                                                                                                            ((dot/space
                                                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                                                                                 #(150
                                                                                                                                                                                                                                                                                                                                   (r$719)
                                                                                                                                                                                                                                                                                                                                   ((write-ch
                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                        #(149
                                                                                                                                                                                                                                                                                                                                          (r$717)
                                                                                                                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                              #(148
                                                                                                                                                                                                                                                                                                                                                (r$718)
                                                                                                                                                                                                                                                                                                                                                ((lp$207$314
                                                                                                                                                                                                                                                                                                                                                   k$714
                                                                                                                                                                                                                                                                                                                                                   r$718))
                                                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                                                            (Cyc-fast-plus
                                                                                                                                                                                                                                                                                                                                              c$315
                                                                                                                                                                                                                                                                                                                                              2)))
                                                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                                                      r$719))
                                                                                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                                                                                               harr$305
                                                                                                                                                                                                                                                                                                                               r$720
                                                                                                                                                                                                                                                                                                                               r$721))
                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                        (Cyc-fast-plus
                                                                                                                                                                                                                                                                                                                          c$315
                                                                                                                                                                                                                                                                                                                          1)))
                                                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                                                  (Cyc-fast-sub
                                                                                                                                                                                                                                                                                                                    r$311
                                                                                                                                                                                                                                                                                                                    1)))
                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                            r$722))
                                                                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                                                                     r$723))
                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                              harr$305
                                                                                                                                                                                                                                                                                              r$311
                                                                                                                                                                                                                                                                                              c$315))
                                                                                                                                                                                                                                                                                           #f)))))
                                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                                               r$715))
                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                         (Cyc-fast-gte
                                                                                                                                                                                                                                                                           c$315
                                                                                                                                                                                                                                                                           ncols2$308)))
                                                                                                                                                                                                                                                                       #t))))
                                                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                                                       0))
                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                 #\newline))
                                                                                                                                                                                                                                              #f))))
                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                    c$317))
                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                             (set! lp$200$318
                                                                                                                                                                                                                               r$730)))
                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                               body
                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                         #(183
                                                                                                                                                                                                                           (k$731 c$319)
                                                                                                                                                                                                                           ((#((record-marker)
                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                               #(182
                                                                                                                                                                                                                                 (r$732)
                                                                                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                     #(181
                                                                                                                                                                                                                                       (tmp$202$320)
                                                                                                                                                                                                                                       ((if tmp$202$320
                                                                                                                                                                                                                                          (k$731 tmp$202$320)
                                                                                                                                                                                                                                          (#((record-marker)
                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                             #(180
                                                                                                                                                                                                                                               ()
                                                                                                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                   #(179
                                                                                                                                                                                                                                                     (r$739)
                                                                                                                                                                                                                                                     ((dot/space
                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                          #(178
                                                                                                                                                                                                                                                            (r$738)
                                                                                                                                                                                                                                                            ((write-ch
                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                 #(177
                                                                                                                                                                                                                                                                   (r$733)
                                                                                                                                                                                                                                                                   ((href/rc
                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                        #(176
                                                                                                                                                                                                                                                                          (r$737)
                                                                                                                                                                                                                                                                          ((cell:walls
                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                                                               #(175
                                                                                                                                                                                                                                                                                 (r$736)
                                                                                                                                                                                                                                                                                 ((display-hexbottom
                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                      #(174
                                                                                                                                                                                                                                                                                        (r$734)
                                                                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                            #(173
                                                                                                                                                                                                                                                                                              (r$735)
                                                                                                                                                                                                                                                                                              ((lp$200$318
                                                                                                                                                                                                                                                                                                 k$731
                                                                                                                                                                                                                                                                                                 r$735))
                                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                                          (Cyc-fast-plus
                                                                                                                                                                                                                                                                                            c$319
                                                                                                                                                                                                                                                                                            2)))
                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                    r$736))
                                                                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                                                                             r$737))
                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                      harr$305
                                                                                                                                                                                                                                                                      r$311
                                                                                                                                                                                                                                                                      c$319))
                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                               r$738))
                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                        harr$305
                                                                                                                                                                                                                                                        r$311
                                                                                                                                                                                                                                                        r$739))
                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                 (Cyc-fast-sub
                                                                                                                                                                                                                                                   c$319
                                                                                                                                                                                                                                                   1)))
                                                                                                                                                                                                                                               #f)))))
                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                   r$732))
                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                             (Cyc-fast-gte
                                                                                                                                                                                                                               c$319
                                                                                                                                                                                                                               ncols2$308)))
                                                                                                                                                                                                                           #t))))
                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                               #f))
                                                                                                                                                                                                           1))
                                                                                                                                                                                                         #f))
                                                                                                                                                                                                     #\/))
                                                                                                                                                                                                  #f)))))
                                                                                                                                                                                          #f))
                                                                                                                                                                                      r$697))
                                                                                                                                                                                    #f))
                                                                                                                                                                                (Cyc-fast-lt
                                                                                                                                                                                  r$311
                                                                                                                                                                                  0)))
                                                                                                                                                                              #t))))
                                                                                                                                                                        #f))
                                                                                                                                                                    #f))
                                                                                                                                                                  #f))
                                                                                                                                                              r$693))
                                                                                                                                                            #f))
                                                                                                                                                        (Cyc-fast-sub
                                                                                                                                                          nrows$306
                                                                                                                                                          1)))
                                                                                                                                                      #f))
                                                                                                                                                  #\newline))
                                                                                                                                               #f))))
                                                                                                                                         #f))
                                                                                                                                     c$321))
                                                                                                                                  #f))
                                                                                                                              (set! lp$192$322
                                                                                                                                r$747)))
                                                                                                                            #f))
                                                                                                                        #((record-marker)
                                                                                                                          #((record-marker)
                                                                                                                            #f
                                                                                                                            (id args
                                                                                                                                body
                                                                                                                                has-cont))
                                                                                                                          #(219
                                                                                                                            (k$748 c$323)
                                                                                                                            ((#((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(218
                                                                                                                                  (r$749)
                                                                                                                                  ((#((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(217
                                                                                                                                        (tmp$194$324)
                                                                                                                                        ((if tmp$194$324
                                                                                                                                           (k$748 tmp$194$324)
                                                                                                                                           (#((record-marker)
                                                                                                                                              #((record-marker)
                                                                                                                                                #f
                                                                                                                                                (id args
                                                                                                                                                    body
                                                                                                                                                    has-cont))
                                                                                                                                              #(216
                                                                                                                                                ()
                                                                                                                                                ((#((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(215
                                                                                                                                                      (k$759)
                                                                                                                                                      ((#((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(214
                                                                                                                                                            (r$760)
                                                                                                                                                            ((if r$760
                                                                                                                                                               (k$759 #\space)
                                                                                                                                                               (k$759 #\_)))
                                                                                                                                                            #f))
                                                                                                                                                        (Cyc-fast-eq
                                                                                                                                                          c$323
                                                                                                                                                          entrance$304)))
                                                                                                                                                      #t))
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(213
                                                                                                                                                      (r$758)
                                                                                                                                                      ((write-ch
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #f
                                                                                                                                                             (id args
                                                                                                                                                                 body
                                                                                                                                                                 has-cont))
                                                                                                                                                           #(212
                                                                                                                                                             (r$750)
                                                                                                                                                             ((write-ch
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #f
                                                                                                                                                                    (id args
                                                                                                                                                                        body
                                                                                                                                                                        has-cont))
                                                                                                                                                                  #(211
                                                                                                                                                                    (r$751)
                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(210
                                                                                                                                                                          (r$756)
                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #f
                                                                                                                                                                                (id args
                                                                                                                                                                                    body
                                                                                                                                                                                    has-cont))
                                                                                                                                                                              #(209
                                                                                                                                                                                (r$757)
                                                                                                                                                                                ((dot/space
                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #f
                                                                                                                                                                                       (id args
                                                                                                                                                                                           body
                                                                                                                                                                                           has-cont))
                                                                                                                                                                                     #(208
                                                                                                                                                                                       (r$755)
                                                                                                                                                                                       ((write-ch
                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                              #f
                                                                                                                                                                                              (id args
                                                                                                                                                                                                  body
                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                            #(207
                                                                                                                                                                                              (r$752)
                                                                                                                                                                                              ((write-ch
                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                     #f
                                                                                                                                                                                                     (id args
                                                                                                                                                                                                         body
                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                   #(206
                                                                                                                                                                                                     (r$753)
                                                                                                                                                                                                     ((#((record-marker)
                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                           #f
                                                                                                                                                                                                           (id args
                                                                                                                                                                                                               body
                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                         #(205
                                                                                                                                                                                                           (r$754)
                                                                                                                                                                                                           ((lp$192$322
                                                                                                                                                                                                              k$748
                                                                                                                                                                                                              r$754))
                                                                                                                                                                                                           #f))
                                                                                                                                                                                                       (Cyc-fast-plus
                                                                                                                                                                                                         c$323
                                                                                                                                                                                                         2)))
                                                                                                                                                                                                     #f))
                                                                                                                                                                                                 #\\))
                                                                                                                                                                                              #f))
                                                                                                                                                                                          r$755))
                                                                                                                                                                                       #f))
                                                                                                                                                                                   harr$305
                                                                                                                                                                                   r$756
                                                                                                                                                                                   r$757))
                                                                                                                                                                                #f))
                                                                                                                                                                            (Cyc-fast-plus
                                                                                                                                                                              c$323
                                                                                                                                                                              1)))
                                                                                                                                                                          #f))
                                                                                                                                                                      (Cyc-fast-sub
                                                                                                                                                                        nrows$306
                                                                                                                                                                        1)))
                                                                                                                                                                    #f))
                                                                                                                                                                #\/))
                                                                                                                                                             #f))
                                                                                                                                                         r$758))
                                                                                                                                                      #f))))
                                                                                                                                                #f)))))
                                                                                                                                        #f))
                                                                                                                                    r$749))
                                                                                                                                  #f))
                                                                                                                              (Cyc-fast-gte
                                                                                                                                c$323
                                                                                                                                ncols2$308)))
                                                                                                                            #t))))
                                                                                                                      #f))
                                                                                                                  #f))
                                                                                                                #f))
                                                                                                            0))
                                                                                                          #f))
                                                                                                      #\space))
                                                                                                   #f))
                                                                                               #\newline))
                                                                                            #f))
                                                                                        c$325))
                                                                                     #f))
                                                                                 (set! lp$188$326
                                                                                   r$762)))
                                                                               #f))
                                                                           #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(238
                                                                               (k$763 c$327)
                                                                               ((#((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(237
                                                                                     (r$764)
                                                                                     ((#((record-marker)
                                                                                         #((record-marker)
                                                                                           #f
                                                                                           (id args
                                                                                               body
                                                                                               has-cont))
                                                                                         #(236
                                                                                           (tmp$190$328)
                                                                                           ((if tmp$190$328
                                                                                              (k$763 tmp$190$328)
                                                                                              (#((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(235
                                                                                                   ()
                                                                                                   ((write-ch
                                                                                                      #((record-marker)
                                                                                                        #((record-marker)
                                                                                                          #f
                                                                                                          (id args
                                                                                                              body
                                                                                                              has-cont))
                                                                                                        #(234
                                                                                                          (r$765)
                                                                                                          ((write-ch
                                                                                                             #((record-marker)
                                                                                                               #((record-marker)
                                                                                                                 #f
                                                                                                                 (id args
                                                                                                                     body
                                                                                                                     has-cont))
                                                                                                               #(233
                                                                                                                 (r$766)
                                                                                                                 ((write-ch
                                                                                                                    #((record-marker)
                                                                                                                      #((record-marker)
                                                                                                                        #f
                                                                                                                        (id args
                                                                                                                            body
                                                                                                                            has-cont))
                                                                                                                      #(232
                                                                                                                        (r$767)
                                                                                                                        ((#((record-marker)
                                                                                                                            #((record-marker)
                                                                                                                              #f
                                                                                                                              (id args
                                                                                                                                  body
                                                                                                                                  has-cont))
                                                                                                                            #(231
                                                                                                                              (k$771)
                                                                                                                              ((#((record-marker)
                                                                                                                                  #((record-marker)
                                                                                                                                    #f
                                                                                                                                    (id args
                                                                                                                                        body
                                                                                                                                        has-cont))
                                                                                                                                  #(230
                                                                                                                                    (r$772)
                                                                                                                                    ((if r$772
                                                                                                                                       (k$771 #\space)
                                                                                                                                       (k$771 #\_)))
                                                                                                                                    #f))
                                                                                                                                (Cyc-fast-eq
                                                                                                                                  c$327
                                                                                                                                  entrance$304)))
                                                                                                                              #t))
                                                                                                                          #((record-marker)
                                                                                                                            #((record-marker)
                                                                                                                              #f
                                                                                                                              (id args
                                                                                                                                  body
                                                                                                                                  has-cont))
                                                                                                                            #(229
                                                                                                                              (r$770)
                                                                                                                              ((write-ch
                                                                                                                                 #((record-marker)
                                                                                                                                   #((record-marker)
                                                                                                                                     #f
                                                                                                                                     (id args
                                                                                                                                         body
                                                                                                                                         has-cont))
                                                                                                                                   #(228
                                                                                                                                     (r$768)
                                                                                                                                     ((#((record-marker)
                                                                                                                                         #((record-marker)
                                                                                                                                           #f
                                                                                                                                           (id args
                                                                                                                                               body
                                                                                                                                               has-cont))
                                                                                                                                         #(227
                                                                                                                                           (r$769)
                                                                                                                                           ((lp$188$326
                                                                                                                                              k$763
                                                                                                                                              r$769))
                                                                                                                                           #f))
                                                                                                                                       (Cyc-fast-plus
                                                                                                                                         c$327
                                                                                                                                         2)))
                                                                                                                                     #f))
                                                                                                                                 r$770))
                                                                                                                              #f))))
                                                                                                                        #f))
                                                                                                                    #\space))
                                                                                                                 #f))
                                                                                                             #\space))
                                                                                                          #f))
                                                                                                      #\space))
                                                                                                   #f)))))
                                                                                           #f))
                                                                                       r$764))
                                                                                     #f))
                                                                                 (Cyc-fast-gte
                                                                                   c$327
                                                                                   ncols$307)))
                                                                               #t))))
                                                                         #f))
                                                                     #f))
                                                                   #f))
                                                               1))
                                                             #f))))
                                                       #f))
                                                   r$686))
                                                 #f))
                                             (Cyc-fast-mul 2 r$773)))
                                           #f))
                                       ncols$307
                                       2))
                                 #f))
                             r$685))
                           #f))
                       harr$305))
                    #f))
                r$684))
              #f))
          harr$305))
       #t)))
 (define bit-test
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(131
       (k$678 j$303 bit$302)
       ((bitwise-and
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(130
              (r$680)
              ((#((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(129 (r$679) ((k$678 (not__inline__ r$679))) #f))
                (zero?__inline__ r$680)))
              #f))
          j$303
          bit$302))
       #t)))
 (define dot/space
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(128
       (k$671 harr$301 r$300 c$299)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(127
             (k$673)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(126
                   (r$674)
                   ((if r$674
                      (href/rc
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(125 (r$675) ((cell:mark k$673 r$675)) #f))
                        harr$301
                        r$300
                        c$299)
                      (k$673 #f)))
                   #f))
               (Cyc-fast-gte r$300 0)))
             #t))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(124
             (r$672)
             ((if r$672 (k$671 #\.) (k$671 #\space)))
             #f))))
       #t)))
 (define display-hexbottom
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(123
       (k$657 hexwalls$298)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(122
             (k$667)
             ((bit-test
                #((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(121
                    (r$668)
                    ((if r$668 (k$667 #\\) (k$667 #\space)))
                    #f))
                hexwalls$298
                south-west))
             #t))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(120
             (r$666)
             ((write-ch
                #((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(119
                    (r$658)
                    ((#((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(118
                          (k$664)
                          ((bit-test
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(117
                                 (r$665)
                                 ((if r$665 (k$664 #\_) (k$664 #\space)))
                                 #f))
                             hexwalls$298
                             south))
                          #t))
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(116
                          (r$663)
                          ((write-ch
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(115
                                 (r$659)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(114
                                       (k$661)
                                       ((bit-test
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(113
                                              (r$662)
                                              ((if r$662
                                                 (k$661 #\/)
                                                 (k$661 #\space)))
                                              #f))
                                          hexwalls$298
                                          south-east))
                                       #t))
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(112
                                       (r$660)
                                       ((write-ch k$657 r$660))
                                       #f))))
                                 #f))
                             r$663))
                          #f))))
                    #f))
                r$666))
             #f))))
       #t)))
 (define run
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(111
       (k$651 nrows$297 ncols$296)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(110
             (r$654)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(109
                   (r$652)
                   ((pmaze #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(108 (r$653) ((reverse k$651 output)) #f))
                           nrows$297
                           ncols$296))
                   #f))
               (set! output r$654)))
             #f))
         '()))
       #t)))
 (define main
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(107
       (k$634)
       ((read #((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(106
                  (r$635)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(105
                        (count$287)
                        ((read #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(104
                                   (r$636)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(103
                                         (input1$288)
                                         ((read #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(102
                                                    (r$637)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(101
                                                          (input2$289)
                                                          ((read #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(100
                                                                     (r$638)
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(99
                                                                           (output$290)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(98
                                                                                 (r$639)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(97
                                                                                       (s3$291)
                                                                                       ((#((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(96
                                                                                             (r$640)
                                                                                             ((#((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(95
                                                                                                   (s2$292)
                                                                                                   ((#((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(94
                                                                                                         (r$641)
                                                                                                         ((#((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(93
                                                                                                               (s1$293)
                                                                                                               ((#((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(92
                                                                                                                     (name$294)
                                                                                                                     ((#((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(91
                                                                                                                           ()
                                                                                                                           ((#((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(90
                                                                                                                                 (r$642)
                                                                                                                                 ((#((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(86
                                                                                                                                       (r$643)
                                                                                                                                       ((#((record-marker)
                                                                                                                                           #((record-marker)
                                                                                                                                             #f
                                                                                                                                             (id args
                                                                                                                                                 body
                                                                                                                                                 has-cont))
                                                                                                                                           #(84
                                                                                                                                             (r$644)
                                                                                                                                             ((run-r7rs-benchmark
                                                                                                                                                k$634
                                                                                                                                                r$642
                                                                                                                                                count$287
                                                                                                                                                r$643
                                                                                                                                                r$644))
                                                                                                                                             #f))
                                                                                                                                         #((record-marker)
                                                                                                                                           #((record-marker)
                                                                                                                                             #f
                                                                                                                                             (id args
                                                                                                                                                 body
                                                                                                                                                 has-cont))
                                                                                                                                           #(85
                                                                                                                                             (k$645 result$295)
                                                                                                                                             ((k$645 (equal?
                                                                                                                                                       result$295
                                                                                                                                                       output$290)))
                                                                                                                                             #t))))
                                                                                                                                       #f))
                                                                                                                                   #((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(89
                                                                                                                                       (k$646)
                                                                                                                                       ((hide #((record-marker)
                                                                                                                                                #((record-marker)
                                                                                                                                                  #f
                                                                                                                                                  (id args
                                                                                                                                                      body
                                                                                                                                                      has-cont))
                                                                                                                                                #(88
                                                                                                                                                  (r$647)
                                                                                                                                                  ((hide #((record-marker)
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #f
                                                                                                                                                             (id args
                                                                                                                                                                 body
                                                                                                                                                                 has-cont))
                                                                                                                                                           #(87
                                                                                                                                                             (r$648)
                                                                                                                                                             ((run k$646
                                                                                                                                                                   r$647
                                                                                                                                                                   r$648))
                                                                                                                                                             #f))
                                                                                                                                                         count$287
                                                                                                                                                         input2$289))
                                                                                                                                                  #f))
                                                                                                                                              count$287
                                                                                                                                              input1$288))
                                                                                                                                       #t))))
                                                                                                                                 #f))
                                                                                                                             (string-append
                                                                                                                               name$294
                                                                                                                               ":"
                                                                                                                               s1$293
                                                                                                                               ":"
                                                                                                                               s2$292
                                                                                                                               ":"
                                                                                                                               s3$291)))
                                                                                                                           #f))))
                                                                                                                     #f))
                                                                                                                 "maze"))
                                                                                                               #f))
                                                                                                           r$641))
                                                                                                         #f))
                                                                                                     (number->string
                                                                                                       input1$288)))
                                                                                                   #f))
                                                                                               r$640))
                                                                                             #f))
                                                                                         (number->string
                                                                                           input2$289)))
                                                                                       #f))
                                                                                   r$639))
                                                                                 #f))
                                                                             (number->string
                                                                               count$287)))
                                                                           #f))
                                                                       r$638))
                                                                     #f))))
                                                          #f))
                                                      r$637))
                                                    #f))))
                                         #f))
                                     r$636))
                                   #f))))
                        #f))
                    r$635))
                  #f))))
       #t)))
 (define hide
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(83
       (k$620 r$283 x$282)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(75
             (r$621)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(72
                   (r$622)
                   ((call-with-values k$620 r$621 r$622))
                   #f))
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(74
                   (k$623 v$285 i$284)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(73 (r$624) ((r$624 k$623 x$282)) #f))
                     (vector-ref v$285 i$284)))
                   #t))))
             #f))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(82
             (k$625)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(80
                   (r$630)
                   ((vector
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(79
                          (r$626)
                          ((#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(78
                                (k$628)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(77
                                      (r$629)
                                      ((if r$629 (k$628 0) (k$628 1)))
                                      #f))
                                  (Cyc-fast-lt r$283 100)))
                                #t))
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(76 (r$627) ((values k$625 r$626 r$627)) #f))))
                          #f))
                      values
                      r$630))
                   #f))
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(81 (k$631 x$286) ((k$631 x$286)) #t))))
             #t))))
       #t)))
 (define run-r7rs-benchmark
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(71
       (k$568 name$264 count$263 thunk$262 ok?$261)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(70
             (rounded$266)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(69
                   (rounded$267)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(65
                         (r$614)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(64
                               (r$569)
                               ((display
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(63
                                      (r$570)
                                      ((display
                                         #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(62
                                             (r$571)
                                             ((newline
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(61
                                                    (r$572)
                                                    ((current-output-port
                                                       #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(60
                                                           (r$613)
                                                           ((flush-output-port
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(59
                                                                  (r$573)
                                                                  ((jiffies-per-second
                                                                     #((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(58
                                                                         (r$574)
                                                                         ((#((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(57
                                                                               (j/s$268)
                                                                               ((current-second
                                                                                  #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(56
                                                                                      (r$575)
                                                                                      ((#((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(55
                                                                                            (t0$269)
                                                                                            ((current-jiffy
                                                                                               #((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(54
                                                                                                   (r$576)
                                                                                                   ((#((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(53
                                                                                                         (j0$270)
                                                                                                         ((#((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(52
                                                                                                               ()
                                                                                                               ((#((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(51
                                                                                                                     (i$272 result$271)
                                                                                                                     ((#((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(50
                                                                                                                           (loop$273)
                                                                                                                           ((#((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(6
                                                                                                                                 (r$578)
                                                                                                                                 ((#((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(5
                                                                                                                                       (r$577)
                                                                                                                                       ((loop$273
                                                                                                                                          k$568
                                                                                                                                          i$272
                                                                                                                                          result$271))
                                                                                                                                       #f))
                                                                                                                                   (set! loop$273
                                                                                                                                     r$578)))
                                                                                                                                 #f))
                                                                                                                             #((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(49
                                                                                                                                 (k$579 i$275
                                                                                                                                        result$274)
                                                                                                                                 ((#((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(48
                                                                                                                                       (r$580)
                                                                                                                                       ((if r$580
                                                                                                                                          (#((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(9
                                                                                                                                               ()
                                                                                                                                               ((#((record-marker)
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #f
                                                                                                                                                     (id args
                                                                                                                                                         body
                                                                                                                                                         has-cont))
                                                                                                                                                   #(8
                                                                                                                                                     (r$581)
                                                                                                                                                     ((thunk$262
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(7
                                                                                                                                                            (r$582)
                                                                                                                                                            ((loop$273
                                                                                                                                                               k$579
                                                                                                                                                               r$581
                                                                                                                                                               r$582))
                                                                                                                                                            #f))))
                                                                                                                                                     #f))
                                                                                                                                                 (Cyc-fast-plus
                                                                                                                                                   i$275
                                                                                                                                                   1)))
                                                                                                                                               #f)))
                                                                                                                                          (ok?$261
                                                                                                                                            #((record-marker)
                                                                                                                                              #((record-marker)
                                                                                                                                                #f
                                                                                                                                                (id args
                                                                                                                                                    body
                                                                                                                                                    has-cont))
                                                                                                                                              #(47
                                                                                                                                                (r$583)
                                                                                                                                                ((if r$583
                                                                                                                                                   (#((record-marker)
                                                                                                                                                      #((record-marker)
                                                                                                                                                        #f
                                                                                                                                                        (id args
                                                                                                                                                            body
                                                                                                                                                            has-cont))
                                                                                                                                                      #(40
                                                                                                                                                        ()
                                                                                                                                                        ((current-jiffy
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #f
                                                                                                                                                               (id args
                                                                                                                                                                   body
                                                                                                                                                                   has-cont))
                                                                                                                                                             #(39
                                                                                                                                                               (r$585)
                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                   #((record-marker)
                                                                                                                                                                     #f
                                                                                                                                                                     (id args
                                                                                                                                                                         body
                                                                                                                                                                         has-cont))
                                                                                                                                                                   #(38
                                                                                                                                                                     (j1$276)
                                                                                                                                                                     ((current-second
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #f
                                                                                                                                                                            (id args
                                                                                                                                                                                body
                                                                                                                                                                                has-cont))
                                                                                                                                                                          #(37
                                                                                                                                                                            (r$586)
                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(36
                                                                                                                                                                                  (t1$277)
                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                        #f
                                                                                                                                                                                        (id args
                                                                                                                                                                                            body
                                                                                                                                                                                            has-cont))
                                                                                                                                                                                      #(35
                                                                                                                                                                                        (r$587)
                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                              #f
                                                                                                                                                                                              (id args
                                                                                                                                                                                                  body
                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                            #(34
                                                                                                                                                                                              (jifs$278)
                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                    #f
                                                                                                                                                                                                    (id args
                                                                                                                                                                                                        body
                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                  #(33
                                                                                                                                                                                                    (r$607)
                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                          #f
                                                                                                                                                                                                          (id args
                                                                                                                                                                                                              body
                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                        #(32
                                                                                                                                                                                                          (r$588)
                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                #f
                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                    body
                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                              #(31
                                                                                                                                                                                                                (secs$279)
                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                          body
                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                    #(30
                                                                                                                                                                                                                      (r$606)
                                                                                                                                                                                                                      ((rounded$266
                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                           #(29
                                                                                                                                                                                                                             (r$589)
                                                                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                 #(28
                                                                                                                                                                                                                                   (secs2$280)
                                                                                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                       #(27
                                                                                                                                                                                                                                         ()
                                                                                                                                                                                                                                         ((display
                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                              #(26
                                                                                                                                                                                                                                                (r$590)
                                                                                                                                                                                                                                                ((write #((record-marker)
                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                          #(25
                                                                                                                                                                                                                                                            (r$591)
                                                                                                                                                                                                                                                            ((display
                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                 #(24
                                                                                                                                                                                                                                                                   (r$592)
                                                                                                                                                                                                                                                                   ((write #((record-marker)
                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                                                             #(23
                                                                                                                                                                                                                                                                               (r$593)
                                                                                                                                                                                                                                                                               ((display
                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                    #(22
                                                                                                                                                                                                                                                                                      (r$594)
                                                                                                                                                                                                                                                                                      ((display
                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                           #(21
                                                                                                                                                                                                                                                                                             (r$595)
                                                                                                                                                                                                                                                                                             ((newline
                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                  #(20
                                                                                                                                                                                                                                                                                                    (r$596)
                                                                                                                                                                                                                                                                                                    ((display
                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                                                                         #(19
                                                                                                                                                                                                                                                                                                           (r$597)
                                                                                                                                                                                                                                                                                                           ((this-scheme-implementation-name
                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                #(18
                                                                                                                                                                                                                                                                                                                  (r$605)
                                                                                                                                                                                                                                                                                                                  ((display
                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                                                                       #(17
                                                                                                                                                                                                                                                                                                                         (r$598)
                                                                                                                                                                                                                                                                                                                         ((display
                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                              #(16
                                                                                                                                                                                                                                                                                                                                (r$599)
                                                                                                                                                                                                                                                                                                                                ((display
                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                                                     #(15
                                                                                                                                                                                                                                                                                                                                       (r$600)
                                                                                                                                                                                                                                                                                                                                       ((display
                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                            #(14
                                                                                                                                                                                                                                                                                                                                              (r$601)
                                                                                                                                                                                                                                                                                                                                              ((display
                                                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                                                                   #(13
                                                                                                                                                                                                                                                                                                                                                     (r$602)
                                                                                                                                                                                                                                                                                                                                                     ((newline
                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                          #(12
                                                                                                                                                                                                                                                                                                                                                            (r$603)
                                                                                                                                                                                                                                                                                                                                                            ((current-output-port
                                                                                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                                                                                                                 #(11
                                                                                                                                                                                                                                                                                                                                                                   (r$604)
                                                                                                                                                                                                                                                                                                                                                                   ((flush-output-port
                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                                                        #(10
                                                                                                                                                                                                                                                                                                                                                                          (r$584)
                                                                                                                                                                                                                                                                                                                                                                          ((k$579 result$274))
                                                                                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                                                                                      r$604))
                                                                                                                                                                                                                                                                                                                                                                   #f))))
                                                                                                                                                                                                                                                                                                                                                            #f))))
                                                                                                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                                                                                                 secs$279))
                                                                                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                                                                                          ","))
                                                                                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                                                                                   name$264))
                                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                                            ","))
                                                                                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                                                                                     r$605))
                                                                                                                                                                                                                                                                                                                  #f))))
                                                                                                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                                                                                                       "+!CSVLINE!+"))
                                                                                                                                                                                                                                                                                                    #f))))
                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                         name$264))
                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                  ") for "))
                                                                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                                                                           secs2$280))
                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                               " seconds ("))
                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                        secs$279))
                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                            "Elapsed time: "))
                                                                                                                                                                                                                                         #f))))
                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                               r$589))
                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                         r$606))
                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                  (Cyc-fast-sub
                                                                                                                                                                                                                    t1$277
                                                                                                                                                                                                                    t0$269)))
                                                                                                                                                                                                                #f))
                                                                                                                                                                                                            r$588))
                                                                                                                                                                                                          #f))
                                                                                                                                                                                                      (inexact__inline__
                                                                                                                                                                                                        r$607)))
                                                                                                                                                                                                    #f))
                                                                                                                                                                                                (Cyc-fast-div
                                                                                                                                                                                                  jifs$278
                                                                                                                                                                                                  j/s$268)))
                                                                                                                                                                                              #f))
                                                                                                                                                                                          r$587))
                                                                                                                                                                                        #f))
                                                                                                                                                                                    (Cyc-fast-sub
                                                                                                                                                                                      j1$276
                                                                                                                                                                                      j0$270)))
                                                                                                                                                                                  #f))
                                                                                                                                                                              r$586))
                                                                                                                                                                            #f))))
                                                                                                                                                                     #f))
                                                                                                                                                                 r$585))
                                                                                                                                                               #f))))
                                                                                                                                                        #f)))
                                                                                                                                                   (#((record-marker)
                                                                                                                                                      #((record-marker)
                                                                                                                                                        #f
                                                                                                                                                        (id args
                                                                                                                                                            body
                                                                                                                                                            has-cont))
                                                                                                                                                      #(46
                                                                                                                                                        ()
                                                                                                                                                        ((display
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #f
                                                                                                                                                               (id args
                                                                                                                                                                   body
                                                                                                                                                                   has-cont))
                                                                                                                                                             #(45
                                                                                                                                                               (r$608)
                                                                                                                                                               ((write #((record-marker)
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #f
                                                                                                                                                                           (id args
                                                                                                                                                                               body
                                                                                                                                                                               has-cont))
                                                                                                                                                                         #(44
                                                                                                                                                                           (r$609)
                                                                                                                                                                           ((newline
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(43
                                                                                                                                                                                  (r$610)
                                                                                                                                                                                  ((current-output-port
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(42
                                                                                                                                                                                         (r$612)
                                                                                                                                                                                         ((flush-output-port
                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #f
                                                                                                                                                                                                (id args
                                                                                                                                                                                                    body
                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                              #(41
                                                                                                                                                                                                (r$611)
                                                                                                                                                                                                ((k$579 result$274))
                                                                                                                                                                                                #f))
                                                                                                                                                                                            r$612))
                                                                                                                                                                                         #f))))
                                                                                                                                                                                  #f))))
                                                                                                                                                                           #f))
                                                                                                                                                                       result$274))
                                                                                                                                                               #f))
                                                                                                                                                           "ERROR: returned incorrect result: "))
                                                                                                                                                        #f)))))
                                                                                                                                                #f))
                                                                                                                                            result$274)))
                                                                                                                                       #f))
                                                                                                                                   (Cyc-fast-lt
                                                                                                                                     i$275
                                                                                                                                     count$263)))
                                                                                                                                 #t))))
                                                                                                                           #f))
                                                                                                                       #f))
                                                                                                                     #f))
                                                                                                                 0
                                                                                                                 #f))
                                                                                                               #f))))
                                                                                                         #f))
                                                                                                     r$576))
                                                                                                   #f))))
                                                                                            #f))
                                                                                        r$575))
                                                                                      #f))))
                                                                               #f))
                                                                           r$574))
                                                                         #f))))
                                                                  #f))
                                                              r$613))
                                                           #f))))
                                                    #f))))
                                             #f))
                                         name$264))
                                      #f))
                                  "Running "))
                               #f))
                           (set! rounded$266 r$614)))
                         #f))
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(68
                         (k$615 x$281)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(67
                               (r$617)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(66
                                     (r$616)
                                     ((k$615 (Cyc-fast-div r$616 1000)))
                                     #f))
                                 (round__inline__ r$617)))
                               #f))
                           (Cyc-fast-mul 1000 x$281)))
                         #t))))
                   #f))
               #f))
             #f))
         #f))
       #t)))
 (define this-scheme-implementation-name
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(4
       (k$564)
       ((Cyc-version
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(3
              (r$565)
              ((k$564 (string-append "cyclone-" r$565)))
              #f))))
       #t)))
 (#((record-marker)
    #((record-marker) #f (id args body has-cont))
    #(2
      ()
      ((#((record-marker)
          #((record-marker) #f (id args body has-cont))
          #(1 (r$561) ((main %halt)) #f))
        0))
      #f))))
 */
/* 
"---------------- cps analysis db:"
 */
/* 
#((record-marker)
  #((record-marker)
    #f
    (size hash compare associate entries))
  #(1786
    #[procedure]
    #[procedure]
    #[procedure]
    #(()
      ((1
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((2
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((3
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((4
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((5
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((6
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((7
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((8
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((9
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((10
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((11
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((12
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((13
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$938 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 467 #f #f #f 2 (432 465) #f #f 1 1 #f #f #t)))
       (k$1131
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 638 #f #f #f 1 (638) #f #f 1 0 #t #f #t)))
       (14
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((15
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((16
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$1134
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 639 #f #f #f 1 (639) #f #f 1 0 #t #f #t)))
       (17
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((18
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((19
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$1137
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 640 #f #f #f 1 (640) #f #f 1 0 #t #f #t)))
       (20
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((21
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((path-length
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             561
             #f
             #f
             2
             (373 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(561
                  (k$1050 cell$449)
                  ((cell:parent
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(560
                         (r$1051)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(559
                               (len$451 node$450)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(558
                                     (lp$105$452)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(554
                                           (r$1053)
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(553
                                                 (r$1052)
                                                 ((lp$105$452
                                                    k$1050
                                                    len$451
                                                    node$450))
                                                 #f))
                                             (set! lp$105$452 r$1053)))
                                           #f))
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(557
                                           (k$1054 len$454 node$453)
                                           ((if node$453
                                              (#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(556
                                                   (r$1055)
                                                   ((cell:parent
                                                      #((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(555
                                                          (r$1056)
                                                          ((lp$105$452
                                                             k$1054
                                                             r$1055
                                                             r$1056))
                                                          #f))
                                                      node$453))
                                                   #f))
                                               (Cyc-fast-plus len$454 1))
                                              (k$1054 len$454)))
                                           #t))))
                                     #f))
                                 #f))
                               #f))
                           0
                           r$1051))
                         #f))
                     cell$449))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (22
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((23
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((24
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((25
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((26
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((27
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (y$551 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  764
                  #f
                  #f
                  #f
                  7
                  (760 758 756 750 748 742 762)
                  #f
                  #f
                  0
                  7
                  #t
                  #f
                  #f))))
      ((28
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((29
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((30
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((31
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((32
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((c$313 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 161 #f #t 0 1 (146) #f 0 0 1 #f #f #f)))
       (33
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (y$557 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  781
                  #f
                  #f
                  #f
                  5
                  (780 778 775 770 767)
                  #f
                  #f
                  0
                  5
                  #f
                  #f
                  #f))))
      ((34
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((c$315 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  159
                  #f
                  #f
                  #f
                  4
                  (159 156 152 149)
                  #f
                  #f
                  0
                  4
                  #t
                  #f
                  #f)))
       (35
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((36
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((c$317 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 185 #f #t 1 1 (171) #f 1 0 1 #f #f #f)))
       (k$645 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 85 #f #f #f 1 (85) #f #f 1 0 #t #f #t)))
       (37
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((k$646 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 89 #f #f #f 1 (87) #f #f 0 1 #f #f #t)))
       (38
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((c$319 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  183
                  #f
                  #f
                  #f
                  4
                  (183 180 177 174)
                  #f
                  #f
                  0
                  4
                  #t
                  #f
                  #f)))
       (39
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((40
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((41
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((42
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((43
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((dfs-maze
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             580
             #f
             #f
             2
             (392 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(580
                  (k$1067 maze$464 root$463 do-children$462)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(579
                        (node$466 parent$465)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(578
                              (search$467)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(572
                                    (r$1069)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(571
                                          (r$1068)
                                          ((search$467
                                             k$1067
                                             node$466
                                             parent$465))
                                          #f))
                                      (set! search$467 r$1069)))
                                    #f))
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(577
                                    (k$1070 node$469 parent$468)
                                    ((set-cell:parent
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(576
                                           (r$1071)
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(573
                                                 (r$1072)
                                                 ((do-children$462
                                                    k$1070
                                                    r$1072
                                                    maze$464
                                                    node$469))
                                                 #f))
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(575
                                                 (k$1073 child$470)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(574
                                                       (r$1074)
                                                       ((if r$1074
                                                          (k$1073 #f)
                                                          (search$467
                                                            k$1073
                                                            child$470
                                                            node$469)))
                                                       #f))
                                                   (eq? child$470 parent$468)))
                                                 #t))))
                                           #f))
                                       node$469
                                       parent$468))
                                    #t))))
                              #f))
                          #f))
                        #f))
                    root$463
                    #f))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (44
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((45
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((46
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((47
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$945 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 457 #f #f #f 2 (436 455) #f #f 1 1 #f #f #t)))
       (48
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((49
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$578 loop$273 r$578) #f))))
      ((k$1140
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 641 #f #f #f 1 (641) #f #f 1 0 #t #f #t)))
       (50
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((51
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((52
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$1143
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 642 #f #f #f 1 (642) #f #f 1 0 #t #f #t)))
       (53
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((54
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((nrows$418
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             525
             #f
             #f
             #f
             3
             (525 522 493)
             #f
             #f
             0
             3
             #t
             #f
             #f)))
       (55
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((zero?__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             5
             (130 143 293 314 451)
             #f
             #f
             5
             0
             #t
             #f
             #f)))
       (k$1146
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 643 #f #f #f 1 (643) #f #f 1 0 #t #f #t)))
       (56
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((57
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((58
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((k$1149
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 645 #f #f #f 1 (644) #f #f 0 1 #f #f #t)))
       (59
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((60
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((61
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((62
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((63
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((64
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((65
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((66
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((67
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((c$321 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 221 #f #t 0 1 (203) #f 0 0 1 #f #f #f)))
       (68
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$614 rounded$266 r$614) #f))))
      ((69
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((c$323 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  219
                  #f
                  #f
                  #f
                  4
                  (219 210 206 215)
                  #f
                  #f
                  0
                  4
                  #t
                  #f
                  #f)))
       (k$651 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 111 #f #f #f 1 (108) #f #f 0 1 #f #f #t)))
       (70
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((make-harr
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             543
             #f
             #f
             2
             (493 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(543
                  (k$1038 nrows$443 ncols$442 elts$441)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(542
                        (r$1039)
                        ((vector
                           k$1038
                           r$1039
                           nrows$443
                           ncols$442
                           elts$441))
                        #f))
                    'harr))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (71
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((c$325 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 240 #f #t 1 1 (225) #f 1 0 1 #f #f #f)))
       (72
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((73
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((c$327 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  238
                  #f
                  #f
                  #f
                  3
                  (238 228 231)
                  #f
                  #f
                  0
                  3
                  #t
                  #f
                  #f)))
       (74
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$622) #f))))
      ((thunk$262
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 71 #f #f #f 1 (8) #f #f 1 0 #f #f #f)))
       (75
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((c$329 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 251 #f #f #f 1 (251) #f #f 0 1 #t #f #f)))
       (k$657 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 123 #f #f #f 1 (112) #f #f 0 1 #f #f #t)))
       (76
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$628) #f))))
      ((77
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((78
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((79
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((80
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((81
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$630) #f))))
      ((k$952 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  442
                  #f
                  #f
                  #f
                  2
                  (441 438)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(437
                      (r$947)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(436 (r$948) ((lp$136$408 k$945 r$948)) #f))
                        (Cyc-fast-sub y$409 2)))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t)))
       (harr:ncols
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             540
             #f
             #f
             7
             (247 346 390 485 529 534 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(540
                  (k$1032 o$439)
                  ((k$1032 (vector-ref o$439 2)))
                  #t)))
             6
             0
             #f
             #f
             #f)))
       (82
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$621) #f))))
      ((83
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((84
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((85
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$644) #f))))
      ((86
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((87
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((b$393 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 477 #f #f #f 1 (477) #f #f 0 1 #t #f #f)))
       (88
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$959 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  451
                  #f
                  #f
                  #f
                  2
                  (447 450)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(446
                      (r$950)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(445
                            (r$958)
                            ((href #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(444
                                       (r$957)
                                       ((add-wall$396
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(443
                                              (r$951)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(442
                                                    (k$952)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(441
                                                          (r$953)
                                                          ((if r$953
                                                             (#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(440
                                                                  (r$955)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(439
                                                                        (r$956)
                                                                        ((href #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(438
                                                                                   (r$954)
                                                                                   ((add-wall$396
                                                                                      k$952
                                                                                      hex$411
                                                                                      r$954
                                                                                      south-east))
                                                                                   #f))
                                                                               harr$388
                                                                               r$955
                                                                               r$956))
                                                                        #f))
                                                                    (Cyc-fast-sub
                                                                      y$409
                                                                      1)))
                                                                  #f))
                                                              (Cyc-fast-plus
                                                                x$405
                                                                3))
                                                             (k$952 #f)))
                                                          #f))
                                                      (Cyc-fast-lt
                                                        x$405
                                                        xmax$391)))
                                                    #t))
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(437
                                                    (r$947)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(436
                                                          (r$948)
                                                          ((lp$136$408
                                                             k$945
                                                             r$948))
                                                          #f))
                                                      (Cyc-fast-sub y$409 2)))
                                                    #f))))
                                              #f))
                                          hex$411
                                          r$957
                                          south))
                                       #f))
                                   harr$388
                                   x$405
                                   r$958))
                            #f))
                        (Cyc-fast-sub y$409 2)))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t)))
       (89
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$643) #t))))
      ((k$1153
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 646 #f #f #f 1 (646) #f #f 1 0 #t #f #t)))
       (90
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((91
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((92
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((state$532
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 700 #f #f #f 1 (700) #f #f 0 1 #t #f #f)))
       (k$1156
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 647 #f #f #f 1 (647) #f #f 1 0 #t #f #t)))
       (93
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((94
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((v$482 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  622
                  #f
                  #f
                  #f
                  6
                  (622 615 612 611 610 605)
                  #f
                  #f
                  0
                  6
                  #f
                  #t
                  #f)))
       (95
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (state$534
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 717 #f #f #f 2 (717 702) #f #f 0 2 #f #t #f))))
      ((k$1159
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 648 #f #f #f 1 (648) #f #f 1 0 #t #f #t)))
       (96
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((97
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((98
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((99
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((100
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((Cyc-version
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (4) #f #f 1 0 #f #f #f)))
       (v$488 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 635 #f #f #f 2 (635 628) #f #f 0 2 #t #f #f)))
       (get-set-root
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             696
             #f
             #f
             6
             (665 667 669 671 672 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(696
                  (k$1186 s$522)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(695
                        (r$523)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(694
                              (lp$524)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(674
                                    (r$1188)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(673
                                          (r$1187)
                                          ((lp$524 k$1186 r$523))
                                          #f))
                                      (set! lp$524 r$1188)))
                                    #f))
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(693
                                    (k$1189 r$525)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(692
                                          (r$1190)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(691
                                                (next$526)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(690
                                                      (r$1191)
                                                      ((if r$1191
                                                         (#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(675
                                                              ()
                                                              ((lp$524
                                                                 k$1189
                                                                 next$526))
                                                              #f)))
                                                         (#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(689
                                                              ()
                                                              ((#((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(688
                                                                    (k$1193)
                                                                    ((#((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(687
                                                                          (r$1194)
                                                                          ((if r$1194
                                                                             (k$1193
                                                                               #f)
                                                                             (#((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(686
                                                                                  (x$527)
                                                                                  ((#((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(685
                                                                                        (lp$528)
                                                                                        ((#((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(678
                                                                                              (r$1196)
                                                                                              ((#((record-marker)
                                                                                                  #((record-marker)
                                                                                                    #f
                                                                                                    (id args
                                                                                                        body
                                                                                                        has-cont))
                                                                                                  #(677
                                                                                                    (r$1195)
                                                                                                    ((lp$528
                                                                                                       k$1193
                                                                                                       x$527))
                                                                                                    #f))
                                                                                                (set! lp$528
                                                                                                  r$1196)))
                                                                                              #f))
                                                                                          #((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(684
                                                                                              (k$1197
                                                                                                x$529)
                                                                                              ((#((record-marker)
                                                                                                  #((record-marker)
                                                                                                    #f
                                                                                                    (id args
                                                                                                        body
                                                                                                        has-cont))
                                                                                                  #(683
                                                                                                    (r$1198)
                                                                                                    ((#((record-marker)
                                                                                                        #((record-marker)
                                                                                                          #f
                                                                                                          (id args
                                                                                                              body
                                                                                                              has-cont))
                                                                                                        #(682
                                                                                                          (next$530)
                                                                                                          ((#((record-marker)
                                                                                                              #((record-marker)
                                                                                                                #f
                                                                                                                (id args
                                                                                                                    body
                                                                                                                    has-cont))
                                                                                                              #(681
                                                                                                                (r$1199)
                                                                                                                ((if r$1199
                                                                                                                   (k$1197
                                                                                                                     #f)
                                                                                                                   (#((record-marker)
                                                                                                                      #((record-marker)
                                                                                                                        #f
                                                                                                                        (id args
                                                                                                                            body
                                                                                                                            has-cont))
                                                                                                                      #(680
                                                                                                                        ()
                                                                                                                        ((#((record-marker)
                                                                                                                            #((record-marker)
                                                                                                                              #f
                                                                                                                              (id args
                                                                                                                                  body
                                                                                                                                  has-cont))
                                                                                                                            #(679
                                                                                                                              (r$1200)
                                                                                                                              ((lp$528
                                                                                                                                 k$1197
                                                                                                                                 next$530))
                                                                                                                              #f))
                                                                                                                          (set-cdr!
                                                                                                                            x$529
                                                                                                                            r$525)))
                                                                                                                        #f)))))
                                                                                                                #f))
                                                                                                            (eq? r$525
                                                                                                                 next$530)))
                                                                                                          #f))
                                                                                                      r$1198))
                                                                                                    #f))
                                                                                                (cdr x$529)))
                                                                                              #t))))
                                                                                        #f))
                                                                                    #f))
                                                                                  #f))
                                                                              s$522)))
                                                                          #f))
                                                                      (eq? r$525
                                                                           s$522)))
                                                                    #t))
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(676
                                                                    (r$1192)
                                                                    ((k$1189
                                                                       r$525))
                                                                    #f))))
                                                              #f)))))
                                                      #f))
                                                  (pair? next$526)))
                                                #f))
                                            r$1190))
                                          #f))
                                      (cdr r$525)))
                                    #t))))
                              #f))
                          #f))
                        #f))
                    s$522))
                  #t)))
             5
             0
             #f
             #f
             #f)))
       (101
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((102
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((103
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((104
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((105
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((106
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((k$661 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  114
                  #f
                  #f
                  #f
                  2
                  (113 113)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(112 (r$660) ((write-ch k$657 r$660)) #f))
                  2
                  0
                  #f
                  #f
                  #t)))
       (107
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((108
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((109
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$664 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  118
                  #f
                  #f
                  #f
                  2
                  (117 117)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(116
                      (r$663)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(115
                             (r$659)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(114
                                   (k$661)
                                   ((bit-test
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(113
                                          (r$662)
                                          ((if r$662
                                             (k$661 #\/)
                                             (k$661 #\space)))
                                          #f))
                                      hexwalls$298
                                      south-east))
                                   #t))
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(112 (r$660) ((write-ch k$657 r$660)) #f))))
                             #f))
                         r$663))
                      #f))
                  2
                  0
                  #f
                  #f
                  #t)))
       (110
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((111
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((112
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$661) #t))))
      ((k$667 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  122
                  #f
                  #f
                  #f
                  2
                  (121 121)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(120
                      (r$666)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(119
                             (r$658)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(118
                                   (k$664)
                                   ((bit-test
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(117
                                          (r$665)
                                          ((if r$665
                                             (k$664 #\_)
                                             (k$664 #\space)))
                                          #f))
                                      hexwalls$298
                                      south))
                                   #t))
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(116
                                   (r$663)
                                   ((write-ch
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(115
                                          (r$659)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(114
                                                (k$661)
                                                ((bit-test
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(113
                                                       (r$662)
                                                       ((if r$662
                                                          (k$661 #\/)
                                                          (k$661 #\space)))
                                                       #f))
                                                   hexwalls$298
                                                   south-east))
                                                #t))
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(112
                                                (r$660)
                                                ((write-ch k$657 r$660))
                                                #f))))
                                          #f))
                                      r$663))
                                   #f))))
                             #f))
                         r$666))
                      #f))
                  2
                  0
                  #f
                  #f
                  #t)))
       (113
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((exit-cell$343
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             269
             #f
             #f
             #f
             3
             (269 263 260)
             #f
             r$796
             0
             3
             #f
             #f
             #f)))
       (114
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((115
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((116
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$664) #t)))
       (q$547 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 733 #f #f #f 1 (733) #f r$1234 0 1 #t #f #f))))
      ((117
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((south-east
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             #f
             #f
             #f
             7
             (114 308 325 438 399 417 -1)
             #f
             (4)
             0
             6
             #f
             #f
             #f)))
       (118
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (q$549 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 725 #f #f #f 1 (725) #f r$1230 0 1 #t #f #f))))
      ((119
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((120
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$667) #t))))
      ((121
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((exit$333
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 252 #f #f #f 0 () #f r$786 0 0 #t #f #f)))
       (base-set
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             698
             #f
             #f
             2
             (491 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(698
                  (k$1203 nelts$531)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(697
                        (r$1204)
                        ((k$1203 (cons nelts$531 r$1204)))
                        #f))
                    '()))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (122
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((123
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((124
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$673) #f))))
      ((k$968 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 477 #f #f #f 1 (475) #f #f 1 0 #t #f #t)))
       (125
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((rounded$266
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 70 #f #f #f 2 (65 30) #f r$614 1 0 #f #f #f)))
       (k$1162
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 650 #f #f #f 1 (649) #f #f 0 1 #f #f #t)))
       (126
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((rounded$267
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 69 #f #t #f 0 () #f #f 0 0 #t #f #f)))
       (127
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((128
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((129
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$1166
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 667 #f #f #f 2 (653 651) #f #f 2 0 #t #f #t)))
       (130
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((131
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((132
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((v$493 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 636 #f #f #f 1 (636) #f #f 0 1 #t #f #f)))
       (133
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((134
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((135
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((v$496 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 638 #f #f #f 1 (638) #f #f 0 1 #t #f #f)))
       (136
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$706) #t))))
      ((137
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((138
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((v$499 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 640 #f #f #f 1 (640) #f #f 0 1 #t #f #f)))
       (139
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((140
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((141
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((142
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((143
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((144
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$671 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 128 #f #f #f 2 (124 124) #f #f 2 0 #t #f #t))))
      ((145
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((146
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$673 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  127
                  #f
                  #f
                  #f
                  2
                  (126 125)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(124
                      (r$672)
                      ((if r$672 (k$671 #\.) (k$671 #\space)))
                      #f))
                  1
                  1
                  #t
                  #f
                  #t))))
      ((147
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((print-hexmaze
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             249
             #f
             #f
             2
             (-1 252)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(249
                  (k$683 harr$305 entrance$304)
                  ((harr:nrows
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(248
                         (r$684)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(247
                               (nrows$306)
                               ((harr:ncols
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(246
                                      (r$685)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(245
                                            (ncols$307)
                                            ((div #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(244
                                                      (r$773)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(243
                                                            (r$686)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(242
                                                                  (ncols2$308)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(241
                                                                        ()
                                                                        ((#((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(240
                                                                              (c$325)
                                                                              ((#((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(239
                                                                                    (lp$188$326)
                                                                                    ((#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(226
                                                                                          (r$762)
                                                                                          ((#((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(225
                                                                                                (r$761)
                                                                                                ((lp$188$326
                                                                                                   #((record-marker)
                                                                                                     #((record-marker)
                                                                                                       #f
                                                                                                       (id args
                                                                                                           body
                                                                                                           has-cont))
                                                                                                     #(224
                                                                                                       (r$687)
                                                                                                       ((write-ch
                                                                                                          #((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(223
                                                                                                              (r$688)
                                                                                                              ((write-ch
                                                                                                                 #((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(222
                                                                                                                     (r$689)
                                                                                                                     ((#((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(221
                                                                                                                           (c$321)
                                                                                                                           ((#((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(220
                                                                                                                                 (lp$192$322)
                                                                                                                                 ((#((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(204
                                                                                                                                       (r$747)
                                                                                                                                       ((#((record-marker)
                                                                                                                                           #((record-marker)
                                                                                                                                             #f
                                                                                                                                             (id args
                                                                                                                                                 body
                                                                                                                                                 has-cont))
                                                                                                                                           #(203
                                                                                                                                             (r$746)
                                                                                                                                             ((lp$192$322
                                                                                                                                                #((record-marker)
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #f
                                                                                                                                                    (id args
                                                                                                                                                        body
                                                                                                                                                        has-cont))
                                                                                                                                                  #(202
                                                                                                                                                    (r$690)
                                                                                                                                                    ((#((record-marker)
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #f
                                                                                                                                                          (id args
                                                                                                                                                              body
                                                                                                                                                              has-cont))
                                                                                                                                                        #(201
                                                                                                                                                          (k$740)
                                                                                                                                                          ((odd? #((record-marker)
                                                                                                                                                                   #((record-marker)
                                                                                                                                                                     #f
                                                                                                                                                                     (id args
                                                                                                                                                                         body
                                                                                                                                                                         has-cont))
                                                                                                                                                                   #(200
                                                                                                                                                                     (r$741)
                                                                                                                                                                     ((if r$741
                                                                                                                                                                        (#((record-marker)
                                                                                                                                                                           #((record-marker)
                                                                                                                                                                             #f
                                                                                                                                                                             (id args
                                                                                                                                                                                 body
                                                                                                                                                                                 has-cont))
                                                                                                                                                                           #(199
                                                                                                                                                                             (k$743)
                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                   #f
                                                                                                                                                                                   (id args
                                                                                                                                                                                       body
                                                                                                                                                                                       has-cont))
                                                                                                                                                                                 #(198
                                                                                                                                                                                   (r$745)
                                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(197
                                                                                                                                                                                         (r$744)
                                                                                                                                                                                         ((if r$744
                                                                                                                                                                                            (k$743 #\space)
                                                                                                                                                                                            (k$743 #\_)))
                                                                                                                                                                                         #f))
                                                                                                                                                                                     (Cyc-fast-eq
                                                                                                                                                                                       entrance$304
                                                                                                                                                                                       r$745)))
                                                                                                                                                                                   #f))
                                                                                                                                                                               (Cyc-fast-sub
                                                                                                                                                                                 ncols$307
                                                                                                                                                                                 1)))
                                                                                                                                                                             #t))
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #((record-marker)
                                                                                                                                                                             #f
                                                                                                                                                                             (id args
                                                                                                                                                                                 body
                                                                                                                                                                                 has-cont))
                                                                                                                                                                           #(196
                                                                                                                                                                             (r$742)
                                                                                                                                                                             ((write-ch
                                                                                                                                                                                k$740
                                                                                                                                                                                r$742))
                                                                                                                                                                             #f)))
                                                                                                                                                                        (k$740 #f)))
                                                                                                                                                                     #f))
                                                                                                                                                                 ncols$307))
                                                                                                                                                          #t))
                                                                                                                                                      #((record-marker)
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #f
                                                                                                                                                          (id args
                                                                                                                                                              body
                                                                                                                                                              has-cont))
                                                                                                                                                        #(195
                                                                                                                                                          (r$691)
                                                                                                                                                          ((write-ch
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #((record-marker)
                                                                                                                                                                 #f
                                                                                                                                                                 (id args
                                                                                                                                                                     body
                                                                                                                                                                     has-cont))
                                                                                                                                                               #(194
                                                                                                                                                                 (r$692)
                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                     #((record-marker)
                                                                                                                                                                       #f
                                                                                                                                                                       (id args
                                                                                                                                                                           body
                                                                                                                                                                           has-cont))
                                                                                                                                                                     #(193
                                                                                                                                                                       (r$693)
                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                           #((record-marker)
                                                                                                                                                                             #f
                                                                                                                                                                             (id args
                                                                                                                                                                                 body
                                                                                                                                                                                 has-cont))
                                                                                                                                                                           #(192
                                                                                                                                                                             (r$309)
                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                   #f
                                                                                                                                                                                   (id args
                                                                                                                                                                                       body
                                                                                                                                                                                       has-cont))
                                                                                                                                                                                 #(191
                                                                                                                                                                                   (lp$196$310)
                                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(133
                                                                                                                                                                                         (r$695)
                                                                                                                                                                                         ((#((record-marker)
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #f
                                                                                                                                                                                               (id args
                                                                                                                                                                                                   body
                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                             #(132
                                                                                                                                                                                               (r$694)
                                                                                                                                                                                               ((lp$196$310
                                                                                                                                                                                                  k$683
                                                                                                                                                                                                  r$309))
                                                                                                                                                                                               #f))
                                                                                                                                                                                           (set! lp$196$310
                                                                                                                                                                                             r$695)))
                                                                                                                                                                                         #f))
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(190
                                                                                                                                                                                         (k$696 r$311)
                                                                                                                                                                                         ((#((record-marker)
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #f
                                                                                                                                                                                               (id args
                                                                                                                                                                                                   body
                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                             #(189
                                                                                                                                                                                               (r$697)
                                                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                     #f
                                                                                                                                                                                                     (id args
                                                                                                                                                                                                         body
                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                   #(188
                                                                                                                                                                                                     (tmp$198$312)
                                                                                                                                                                                                     ((if tmp$198$312
                                                                                                                                                                                                        (k$696 tmp$198$312)
                                                                                                                                                                                                        (#((record-marker)
                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                             #f
                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                 body
                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                           #(187
                                                                                                                                                                                                             ()
                                                                                                                                                                                                             ((write-ch
                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                        body
                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                  #(186
                                                                                                                                                                                                                    (r$698)
                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                              body
                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                        #(185
                                                                                                                                                                                                                          (c$317)
                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                              #(184
                                                                                                                                                                                                                                (lp$200$318)
                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                    #(172
                                                                                                                                                                                                                                      (r$730)
                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                          #(171
                                                                                                                                                                                                                                            (r$729)
                                                                                                                                                                                                                                            ((lp$200$318
                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                 #(170
                                                                                                                                                                                                                                                   (r$699)
                                                                                                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                       #(169
                                                                                                                                                                                                                                                         (k$724)
                                                                                                                                                                                                                                                         ((odd? #((record-marker)
                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                  #(168
                                                                                                                                                                                                                                                                    (r$725)
                                                                                                                                                                                                                                                                    ((if r$725
                                                                                                                                                                                                                                                                       (#((record-marker)
                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                          #(167
                                                                                                                                                                                                                                                                            ()
                                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                #(166
                                                                                                                                                                                                                                                                                  (r$728)
                                                                                                                                                                                                                                                                                  ((dot/space
                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                                       #(165
                                                                                                                                                                                                                                                                                         (r$727)
                                                                                                                                                                                                                                                                                         ((write-ch
                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                              #(164
                                                                                                                                                                                                                                                                                                (r$726)
                                                                                                                                                                                                                                                                                                ((write-ch
                                                                                                                                                                                                                                                                                                   k$724
                                                                                                                                                                                                                                                                                                   #\\))
                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                            r$727))
                                                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                                                     harr$305
                                                                                                                                                                                                                                                                                     r$311
                                                                                                                                                                                                                                                                                     r$728))
                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                              (Cyc-fast-sub
                                                                                                                                                                                                                                                                                ncols$307
                                                                                                                                                                                                                                                                                1)))
                                                                                                                                                                                                                                                                            #f)))
                                                                                                                                                                                                                                                                       (k$724 #f)))
                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                ncols$307))
                                                                                                                                                                                                                                                         #t))
                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                       #(163
                                                                                                                                                                                                                                                         (r$700)
                                                                                                                                                                                                                                                         ((write-ch
                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                              #(162
                                                                                                                                                                                                                                                                (r$701)
                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                    #(161
                                                                                                                                                                                                                                                                      (c$313)
                                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                          #(160
                                                                                                                                                                                                                                                                            (lp$207$314)
                                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                #(147
                                                                                                                                                                                                                                                                                  (r$713)
                                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                      #(146
                                                                                                                                                                                                                                                                                        (r$712)
                                                                                                                                                                                                                                                                                        ((lp$207$314
                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                                                                             #(145
                                                                                                                                                                                                                                                                                               (r$702)
                                                                                                                                                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                   #(144
                                                                                                                                                                                                                                                                                                     (k$706)
                                                                                                                                                                                                                                                                                                     ((odd? #((record-marker)
                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                              #(143
                                                                                                                                                                                                                                                                                                                (r$707)
                                                                                                                                                                                                                                                                                                                ((if r$707
                                                                                                                                                                                                                                                                                                                   (#((record-marker)
                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                      #(140
                                                                                                                                                                                                                                                                                                                        ()
                                                                                                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                            #(139
                                                                                                                                                                                                                                                                                                                              (r$710)
                                                                                                                                                                                                                                                                                                                              ((href/rc
                                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                                                   #(138
                                                                                                                                                                                                                                                                                                                                     (r$709)
                                                                                                                                                                                                                                                                                                                                     ((cell:walls
                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                          #(137
                                                                                                                                                                                                                                                                                                                                            (r$708)
                                                                                                                                                                                                                                                                                                                                            ((display-hexbottom
                                                                                                                                                                                                                                                                                                                                               k$706
                                                                                                                                                                                                                                                                                                                                               r$708))
                                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                                        r$709))
                                                                                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                                                                                 harr$305
                                                                                                                                                                                                                                                                                                                                 r$311
                                                                                                                                                                                                                                                                                                                                 r$710))
                                                                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                                                                          (Cyc-fast-sub
                                                                                                                                                                                                                                                                                                                            ncols$307
                                                                                                                                                                                                                                                                                                                            1)))
                                                                                                                                                                                                                                                                                                                        #f)))
                                                                                                                                                                                                                                                                                                                   (#((record-marker)
                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                      #(142
                                                                                                                                                                                                                                                                                                                        (r$711)
                                                                                                                                                                                                                                                                                                                        ((if r$711
                                                                                                                                                                                                                                                                                                                           (k$706 #f)
                                                                                                                                                                                                                                                                                                                           (#((record-marker)
                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                              #(141
                                                                                                                                                                                                                                                                                                                                ()
                                                                                                                                                                                                                                                                                                                                ((write-ch
                                                                                                                                                                                                                                                                                                                                   k$706
                                                                                                                                                                                                                                                                                                                                   #\\))
                                                                                                                                                                                                                                                                                                                                #f)))))
                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                    (zero?__inline__
                                                                                                                                                                                                                                                                                                                      r$311))))
                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                            ncols$307))
                                                                                                                                                                                                                                                                                                     #t))
                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                   #(136
                                                                                                                                                                                                                                                                                                     (r$703)
                                                                                                                                                                                                                                                                                                     ((write-ch
                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                          #(135
                                                                                                                                                                                                                                                                                                            (r$704)
                                                                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                #(134
                                                                                                                                                                                                                                                                                                                  (r$705)
                                                                                                                                                                                                                                                                                                                  ((lp$196$310
                                                                                                                                                                                                                                                                                                                     k$696
                                                                                                                                                                                                                                                                                                                     r$705))
                                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                                              (Cyc-fast-sub
                                                                                                                                                                                                                                                                                                                r$311
                                                                                                                                                                                                                                                                                                                1)))
                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                        #\newline))
                                                                                                                                                                                                                                                                                                     #f))))
                                                                                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                                                                                           c$313))
                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                    (set! lp$207$314
                                                                                                                                                                                                                                                                                      r$713)))
                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                #(159
                                                                                                                                                                                                                                                                                  (k$714 c$315)
                                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                      #(158
                                                                                                                                                                                                                                                                                        (r$715)
                                                                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                            #(157
                                                                                                                                                                                                                                                                                              (tmp$209$316)
                                                                                                                                                                                                                                                                                              ((if tmp$209$316
                                                                                                                                                                                                                                                                                                 (k$714 tmp$209$316)
                                                                                                                                                                                                                                                                                                 (#((record-marker)
                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                    #(156
                                                                                                                                                                                                                                                                                                      ()
                                                                                                                                                                                                                                                                                                      ((href/rc
                                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                                           #(155
                                                                                                                                                                                                                                                                                                             (r$723)
                                                                                                                                                                                                                                                                                                             ((cell:walls
                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                  #(154
                                                                                                                                                                                                                                                                                                                    (r$722)
                                                                                                                                                                                                                                                                                                                    ((display-hexbottom
                                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                                                                                         #(153
                                                                                                                                                                                                                                                                                                                           (r$716)
                                                                                                                                                                                                                                                                                                                           ((#((record-marker)
                                                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                                                                                                               #(152
                                                                                                                                                                                                                                                                                                                                 (r$720)
                                                                                                                                                                                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                                                     #(151
                                                                                                                                                                                                                                                                                                                                       (r$721)
                                                                                                                                                                                                                                                                                                                                       ((dot/space
                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                            #(150
                                                                                                                                                                                                                                                                                                                                              (r$719)
                                                                                                                                                                                                                                                                                                                                              ((write-ch
                                                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                                                                   #(149
                                                                                                                                                                                                                                                                                                                                                     (r$717)
                                                                                                                                                                                                                                                                                                                                                     ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                                                                                                                         #(148
                                                                                                                                                                                                                                                                                                                                                           (r$718)
                                                                                                                                                                                                                                                                                                                                                           ((lp$207$314
                                                                                                                                                                                                                                                                                                                                                              k$714
                                                                                                                                                                                                                                                                                                                                                              r$718))
                                                                                                                                                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                                                                                                                                                       (Cyc-fast-plus
                                                                                                                                                                                                                                                                                                                                                         c$315
                                                                                                                                                                                                                                                                                                                                                         2)))
                                                                                                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                                                                                                 r$719))
                                                                                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                                                                                          harr$305
                                                                                                                                                                                                                                                                                                                                          r$720
                                                                                                                                                                                                                                                                                                                                          r$721))
                                                                                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                                                                                   (Cyc-fast-plus
                                                                                                                                                                                                                                                                                                                                     c$315
                                                                                                                                                                                                                                                                                                                                     1)))
                                                                                                                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                                                                                                                             (Cyc-fast-sub
                                                                                                                                                                                                                                                                                                                               r$311
                                                                                                                                                                                                                                                                                                                               1)))
                                                                                                                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                                                                                                                       r$722))
                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                r$723))
                                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                                         harr$305
                                                                                                                                                                                                                                                                                                         r$311
                                                                                                                                                                                                                                                                                                         c$315))
                                                                                                                                                                                                                                                                                                      #f)))))
                                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                                          r$715))
                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                    (Cyc-fast-gte
                                                                                                                                                                                                                                                                                      c$315
                                                                                                                                                                                                                                                                                      ncols2$308)))
                                                                                                                                                                                                                                                                                  #t))))
                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                  0))
                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                            #\newline))
                                                                                                                                                                                                                                                         #f))))
                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                               c$317))
                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                        (set! lp$200$318
                                                                                                                                                                                                                                          r$730)))
                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                    #(183
                                                                                                                                                                                                                                      (k$731 c$319)
                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                          #(182
                                                                                                                                                                                                                                            (r$732)
                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                #(181
                                                                                                                                                                                                                                                  (tmp$202$320)
                                                                                                                                                                                                                                                  ((if tmp$202$320
                                                                                                                                                                                                                                                     (k$731 tmp$202$320)
                                                                                                                                                                                                                                                     (#((record-marker)
                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                        #(180
                                                                                                                                                                                                                                                          ()
                                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                              #(179
                                                                                                                                                                                                                                                                (r$739)
                                                                                                                                                                                                                                                                ((dot/space
                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                     #(178
                                                                                                                                                                                                                                                                       (r$738)
                                                                                                                                                                                                                                                                       ((write-ch
                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                            #(177
                                                                                                                                                                                                                                                                              (r$733)
                                                                                                                                                                                                                                                                              ((href/rc
                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                   #(176
                                                                                                                                                                                                                                                                                     (r$737)
                                                                                                                                                                                                                                                                                     ((cell:walls
                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                          #(175
                                                                                                                                                                                                                                                                                            (r$736)
                                                                                                                                                                                                                                                                                            ((display-hexbottom
                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                                                 #(174
                                                                                                                                                                                                                                                                                                   (r$734)
                                                                                                                                                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                                                       #(173
                                                                                                                                                                                                                                                                                                         (r$735)
                                                                                                                                                                                                                                                                                                         ((lp$200$318
                                                                                                                                                                                                                                                                                                            k$731
                                                                                                                                                                                                                                                                                                            r$735))
                                                                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                                                                     (Cyc-fast-plus
                                                                                                                                                                                                                                                                                                       c$319
                                                                                                                                                                                                                                                                                                       2)))
                                                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                                                               r$736))
                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                        r$737))
                                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                                 harr$305
                                                                                                                                                                                                                                                                                 r$311
                                                                                                                                                                                                                                                                                 c$319))
                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                          r$738))
                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                   harr$305
                                                                                                                                                                                                                                                                   r$311
                                                                                                                                                                                                                                                                   r$739))
                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                            (Cyc-fast-sub
                                                                                                                                                                                                                                                              c$319
                                                                                                                                                                                                                                                              1)))
                                                                                                                                                                                                                                                          #f)))))
                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                              r$732))
                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                        (Cyc-fast-gte
                                                                                                                                                                                                                                          c$319
                                                                                                                                                                                                                                          ncols2$308)))
                                                                                                                                                                                                                                      #t))))
                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                      1))
                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                #\/))
                                                                                                                                                                                                             #f)))))
                                                                                                                                                                                                     #f))
                                                                                                                                                                                                 r$697))
                                                                                                                                                                                               #f))
                                                                                                                                                                                           (Cyc-fast-lt
                                                                                                                                                                                             r$311
                                                                                                                                                                                             0)))
                                                                                                                                                                                         #t))))
                                                                                                                                                                                   #f))
                                                                                                                                                                               #f))
                                                                                                                                                                             #f))
                                                                                                                                                                         r$693))
                                                                                                                                                                       #f))
                                                                                                                                                                   (Cyc-fast-sub
                                                                                                                                                                     nrows$306
                                                                                                                                                                     1)))
                                                                                                                                                                 #f))
                                                                                                                                                             #\newline))
                                                                                                                                                          #f))))
                                                                                                                                                    #f))
                                                                                                                                                c$321))
                                                                                                                                             #f))
                                                                                                                                         (set! lp$192$322
                                                                                                                                           r$747)))
                                                                                                                                       #f))
                                                                                                                                   #((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(219
                                                                                                                                       (k$748 c$323)
                                                                                                                                       ((#((record-marker)
                                                                                                                                           #((record-marker)
                                                                                                                                             #f
                                                                                                                                             (id args
                                                                                                                                                 body
                                                                                                                                                 has-cont))
                                                                                                                                           #(218
                                                                                                                                             (r$749)
                                                                                                                                             ((#((record-marker)
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #f
                                                                                                                                                   (id args
                                                                                                                                                       body
                                                                                                                                                       has-cont))
                                                                                                                                                 #(217
                                                                                                                                                   (tmp$194$324)
                                                                                                                                                   ((if tmp$194$324
                                                                                                                                                      (k$748 tmp$194$324)
                                                                                                                                                      (#((record-marker)
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #f
                                                                                                                                                           (id args
                                                                                                                                                               body
                                                                                                                                                               has-cont))
                                                                                                                                                         #(216
                                                                                                                                                           ()
                                                                                                                                                           ((#((record-marker)
                                                                                                                                                               #((record-marker)
                                                                                                                                                                 #f
                                                                                                                                                                 (id args
                                                                                                                                                                     body
                                                                                                                                                                     has-cont))
                                                                                                                                                               #(215
                                                                                                                                                                 (k$759)
                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                     #((record-marker)
                                                                                                                                                                       #f
                                                                                                                                                                       (id args
                                                                                                                                                                           body
                                                                                                                                                                           has-cont))
                                                                                                                                                                     #(214
                                                                                                                                                                       (r$760)
                                                                                                                                                                       ((if r$760
                                                                                                                                                                          (k$759 #\space)
                                                                                                                                                                          (k$759 #\_)))
                                                                                                                                                                       #f))
                                                                                                                                                                   (Cyc-fast-eq
                                                                                                                                                                     c$323
                                                                                                                                                                     entrance$304)))
                                                                                                                                                                 #t))
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #((record-marker)
                                                                                                                                                                 #f
                                                                                                                                                                 (id args
                                                                                                                                                                     body
                                                                                                                                                                     has-cont))
                                                                                                                                                               #(213
                                                                                                                                                                 (r$758)
                                                                                                                                                                 ((write-ch
                                                                                                                                                                    #((record-marker)
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #f
                                                                                                                                                                        (id args
                                                                                                                                                                            body
                                                                                                                                                                            has-cont))
                                                                                                                                                                      #(212
                                                                                                                                                                        (r$750)
                                                                                                                                                                        ((write-ch
                                                                                                                                                                           #((record-marker)
                                                                                                                                                                             #((record-marker)
                                                                                                                                                                               #f
                                                                                                                                                                               (id args
                                                                                                                                                                                   body
                                                                                                                                                                                   has-cont))
                                                                                                                                                                             #(211
                                                                                                                                                                               (r$751)
                                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                     #f
                                                                                                                                                                                     (id args
                                                                                                                                                                                         body
                                                                                                                                                                                         has-cont))
                                                                                                                                                                                   #(210
                                                                                                                                                                                     (r$756)
                                                                                                                                                                                     ((#((record-marker)
                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                           #f
                                                                                                                                                                                           (id args
                                                                                                                                                                                               body
                                                                                                                                                                                               has-cont))
                                                                                                                                                                                         #(209
                                                                                                                                                                                           (r$757)
                                                                                                                                                                                           ((dot/space
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                  #f
                                                                                                                                                                                                  (id args
                                                                                                                                                                                                      body
                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                #(208
                                                                                                                                                                                                  (r$755)
                                                                                                                                                                                                  ((write-ch
                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                         #f
                                                                                                                                                                                                         (id args
                                                                                                                                                                                                             body
                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                       #(207
                                                                                                                                                                                                         (r$752)
                                                                                                                                                                                                         ((write-ch
                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                #f
                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                    body
                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                              #(206
                                                                                                                                                                                                                (r$753)
                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                          body
                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                    #(205
                                                                                                                                                                                                                      (r$754)
                                                                                                                                                                                                                      ((lp$192$322
                                                                                                                                                                                                                         k$748
                                                                                                                                                                                                                         r$754))
                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                  (Cyc-fast-plus
                                                                                                                                                                                                                    c$323
                                                                                                                                                                                                                    2)))
                                                                                                                                                                                                                #f))
                                                                                                                                                                                                            #\\))
                                                                                                                                                                                                         #f))
                                                                                                                                                                                                     r$755))
                                                                                                                                                                                                  #f))
                                                                                                                                                                                              harr$305
                                                                                                                                                                                              r$756
                                                                                                                                                                                              r$757))
                                                                                                                                                                                           #f))
                                                                                                                                                                                       (Cyc-fast-plus
                                                                                                                                                                                         c$323
                                                                                                                                                                                         1)))
                                                                                                                                                                                     #f))
                                                                                                                                                                                 (Cyc-fast-sub
                                                                                                                                                                                   nrows$306
                                                                                                                                                                                   1)))
                                                                                                                                                                               #f))
                                                                                                                                                                           #\/))
                                                                                                                                                                        #f))
                                                                                                                                                                    r$758))
                                                                                                                                                                 #f))))
                                                                                                                                                           #f)))))
                                                                                                                                                   #f))
                                                                                                                                               r$749))
                                                                                                                                             #f))
                                                                                                                                         (Cyc-fast-gte
                                                                                                                                           c$323
                                                                                                                                           ncols2$308)))
                                                                                                                                       #t))))
                                                                                                                                 #f))
                                                                                                                             #f))
                                                                                                                           #f))
                                                                                                                       0))
                                                                                                                     #f))
                                                                                                                 #\space))
                                                                                                              #f))
                                                                                                          #\newline))
                                                                                                       #f))
                                                                                                   c$325))
                                                                                                #f))
                                                                                            (set! lp$188$326
                                                                                              r$762)))
                                                                                          #f))
                                                                                      #((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(238
                                                                                          (k$763 c$327)
                                                                                          ((#((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(237
                                                                                                (r$764)
                                                                                                ((#((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(236
                                                                                                      (tmp$190$328)
                                                                                                      ((if tmp$190$328
                                                                                                         (k$763 tmp$190$328)
                                                                                                         (#((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(235
                                                                                                              ()
                                                                                                              ((write-ch
                                                                                                                 #((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(234
                                                                                                                     (r$765)
                                                                                                                     ((write-ch
                                                                                                                        #((record-marker)
                                                                                                                          #((record-marker)
                                                                                                                            #f
                                                                                                                            (id args
                                                                                                                                body
                                                                                                                                has-cont))
                                                                                                                          #(233
                                                                                                                            (r$766)
                                                                                                                            ((write-ch
                                                                                                                               #((record-marker)
                                                                                                                                 #((record-marker)
                                                                                                                                   #f
                                                                                                                                   (id args
                                                                                                                                       body
                                                                                                                                       has-cont))
                                                                                                                                 #(232
                                                                                                                                   (r$767)
                                                                                                                                   ((#((record-marker)
                                                                                                                                       #((record-marker)
                                                                                                                                         #f
                                                                                                                                         (id args
                                                                                                                                             body
                                                                                                                                             has-cont))
                                                                                                                                       #(231
                                                                                                                                         (k$771)
                                                                                                                                         ((#((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(230
                                                                                                                                               (r$772)
                                                                                                                                               ((if r$772
                                                                                                                                                  (k$771 #\space)
                                                                                                                                                  (k$771 #\_)))
                                                                                                                                               #f))
                                                                                                                                           (Cyc-fast-eq
                                                                                                                                             c$327
                                                                                                                                             entrance$304)))
                                                                                                                                         #t))
                                                                                                                                     #((record-marker)
                                                                                                                                       #((record-marker)
                                                                                                                                         #f
                                                                                                                                         (id args
                                                                                                                                             body
                                                                                                                                             has-cont))
                                                                                                                                       #(229
                                                                                                                                         (r$770)
                                                                                                                                         ((write-ch
                                                                                                                                            #((record-marker)
                                                                                                                                              #((record-marker)
                                                                                                                                                #f
                                                                                                                                                (id args
                                                                                                                                                    body
                                                                                                                                                    has-cont))
                                                                                                                                              #(228
                                                                                                                                                (r$768)
                                                                                                                                                ((#((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(227
                                                                                                                                                      (r$769)
                                                                                                                                                      ((lp$188$326
                                                                                                                                                         k$763
                                                                                                                                                         r$769))
                                                                                                                                                      #f))
                                                                                                                                                  (Cyc-fast-plus
                                                                                                                                                    c$327
                                                                                                                                                    2)))
                                                                                                                                                #f))
                                                                                                                                            r$770))
                                                                                                                                         #f))))
                                                                                                                                   #f))
                                                                                                                               #\space))
                                                                                                                            #f))
                                                                                                                        #\space))
                                                                                                                     #f))
                                                                                                                 #\space))
                                                                                                              #f)))))
                                                                                                      #f))
                                                                                                  r$764))
                                                                                                #f))
                                                                                            (Cyc-fast-gte
                                                                                              c$327
                                                                                              ncols$307)))
                                                                                          #t))))
                                                                                    #f))
                                                                                #f))
                                                                              #f))
                                                                          1))
                                                                        #f))))
                                                                  #f))
                                                              r$686))
                                                            #f))
                                                        (Cyc-fast-mul 2 r$773)))
                                                      #f))
                                                  ncols$307
                                                  2))
                                            #f))
                                        r$685))
                                      #f))
                                  harr$305))
                               #f))
                           r$684))
                         #f))
                     harr$305))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (148
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((149
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (q$553 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  756
                  #f
                  #f
                  #f
                  3
                  (756 751 751)
                  #f
                  r$1250
                  0
                  3
                  #t
                  #f
                  #f))))
      ((150
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((151
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$678 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 131 #f #f #f 1 (129) #f #f 1 0 #t #f #t)))
       (q$555 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  748
                  #f
                  #f
                  #f
                  3
                  (748 743 743)
                  #f
                  r$1246
                  0
                  3
                  #t
                  #f
                  #f))))
      ((152
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((153
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((154
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((155
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((rand .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 717
                 #f
                 #f
                 2
                 (700 -1)
                 #f
                 (#((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(717
                      (k$1211 state$534)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(716
                            (r$1212)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(715
                                  (seed$539 A$538 M$537 Q$536 R$535)
                                  ((div #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(714
                                            (r$1213)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(713
                                                  (hi$540)
                                                  ((mod #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(712
                                                            (r$1214)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(711
                                                                  (lo$541)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(710
                                                                        (r$1220)
                                                                        ((#((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(709
                                                                              (r$1221)
                                                                              ((#((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(708
                                                                                    (r$1215)
                                                                                    ((#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(707
                                                                                          (test$542)
                                                                                          ((#((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(706
                                                                                                (k$1218)
                                                                                                ((#((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(705
                                                                                                      (r$1219)
                                                                                                      ((if r$1219
                                                                                                         (k$1218
                                                                                                           test$542)
                                                                                                         (k$1218
                                                                                                           (Cyc-fast-plus
                                                                                                             test$542
                                                                                                             M$537))))
                                                                                                      #f))
                                                                                                  (Cyc-fast-gt
                                                                                                    test$542
                                                                                                    0)))
                                                                                                #t))
                                                                                            #((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(704
                                                                                                (r$1216)
                                                                                                ((#((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(703
                                                                                                      (val$543)
                                                                                                      ((#((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(702
                                                                                                            ()
                                                                                                            ((#((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(701
                                                                                                                  (r$1217)
                                                                                                                  ((k$1211
                                                                                                                     val$543))
                                                                                                                  #f))
                                                                                                              (set-car!
                                                                                                                state$534
                                                                                                                val$543)))
                                                                                                            #f))))
                                                                                                      #f))
                                                                                                  r$1216))
                                                                                                #f))))
                                                                                          #f))
                                                                                      r$1215))
                                                                                    #f))
                                                                                (Cyc-fast-sub
                                                                                  r$1220
                                                                                  r$1221)))
                                                                              #f))
                                                                          (Cyc-fast-mul
                                                                            R$535
                                                                            hi$540)))
                                                                        #f))
                                                                    (Cyc-fast-mul
                                                                      A$538
                                                                      lo$541)))
                                                                  #f))
                                                              r$1214))
                                                            #f))
                                                        seed$539
                                                        Q$536))
                                                  #f))
                                              r$1213))
                                            #f))
                                        seed$539
                                        Q$536))
                                  #f))
                              r$1212
                              2813
                              8388607
                              2787
                              2699))
                            #f))
                        (car state$534)))
                      #t)))
                 1
                 0
                 #f
                 #f
                 #f)))
       (156
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((exit$341
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             271
             #f
             #f
             #f
             2
             (271 259)
             #f
             r$795
             0
             2
             #f
             #f
             #f)))
       (157
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$974 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 492 #f #f #f 1 (488) #f #f 0 1 #f #f #t)))
       (158
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((159
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$713 lp$207$314 r$713) #t))))
      ((k$976 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 491 #f #f #f 1 (489) #f #f 0 1 #t #f #t)))
       (160
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((nrows$443
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 543 #f #f #f 1 (542) #f #f 0 1 #f #f #f)))
       (161
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((162
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((163
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$724) #t))))
      ((164
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((165
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((166
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((href/rc
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             530
             #f
             #f
             10
             (126 177 156 139 265 271 374 382 393 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(530
                  (k$1013 ha$432 r$431 c$430)
                  ((harr:elts
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(529
                         (r$1014)
                         ((harr:ncols
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(528
                                (r$1017)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(527
                                      (r$1016)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(526
                                            (r$1015)
                                            ((k$1013
                                               (vector-ref r$1014 r$1015)))
                                            #f))
                                        (Cyc-fast-plus r$1016 c$430)))
                                      #f))
                                  (Cyc-fast-mul r$1017 r$431)))
                                #f))
                            ha$432))
                         #f))
                     ha$432))
                  #t)))
             9
             0
             #f
             #f
             #f)))
       (167
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$1177
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 669 #f #f #f 1 (668) #f #f 1 0 #t #f #t)))
       (168
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((169
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((170
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((171
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((172
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((173
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((174
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((175
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((176
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((177
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((dig-maze
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             604
             #f
             #f
             2
             (277 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(604
                  (k$1077 walls$472 ncells$471)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(581
                        (r$1078)
                        ((call-with-current-continuation k$1077 r$1078))
                        #f))
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(603
                        (k$1079 quit$473)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(582
                              (r$1080)
                              ((vector-for-each-rev k$1079 r$1080 walls$472))
                              #f))
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(602
                              (k$1081 wall$474)
                              ((wall:owner
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(601
                                     (r$1082)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(600
                                           (c1$475)
                                           ((cell:reachable
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(599
                                                  (r$1083)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(598
                                                        (set1$476)
                                                        ((wall:neighbor
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(597
                                                               (r$1084)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(596
                                                                     (c2$477)
                                                                     ((cell:reachable
                                                                        #((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(595
                                                                            (r$1085)
                                                                            ((#((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(594
                                                                                  (set2$478)
                                                                                  ((#((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(593
                                                                                        ()
                                                                                        ((set-equal?
                                                                                           #((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(592
                                                                                               (r$1086)
                                                                                               ((if r$1086
                                                                                                  (k$1081
                                                                                                    #f)
                                                                                                  (cell:walls
                                                                                                    #((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(591
                                                                                                        (r$1087)
                                                                                                        ((wall:bit
                                                                                                           #((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(590
                                                                                                               (r$1094)
                                                                                                               ((bitwise-not
                                                                                                                  #((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(589
                                                                                                                      (r$1088)
                                                                                                                      ((#((record-marker)
                                                                                                                          #((record-marker)
                                                                                                                            #f
                                                                                                                            (id args
                                                                                                                                body
                                                                                                                                has-cont))
                                                                                                                          #(588
                                                                                                                            (walls$480
                                                                                                                              wall-mask$479)
                                                                                                                            ((union!
                                                                                                                               #((record-marker)
                                                                                                                                 #((record-marker)
                                                                                                                                   #f
                                                                                                                                   (id args
                                                                                                                                       body
                                                                                                                                       has-cont))
                                                                                                                                 #(587
                                                                                                                                   (r$1089)
                                                                                                                                   ((bitwise-and
                                                                                                                                      #((record-marker)
                                                                                                                                        #((record-marker)
                                                                                                                                          #f
                                                                                                                                          (id args
                                                                                                                                              body
                                                                                                                                              has-cont))
                                                                                                                                        #(586
                                                                                                                                          (r$1093)
                                                                                                                                          ((set-cell:walls
                                                                                                                                             #((record-marker)
                                                                                                                                               #((record-marker)
                                                                                                                                                 #f
                                                                                                                                                 (id args
                                                                                                                                                     body
                                                                                                                                                     has-cont))
                                                                                                                                               #(585
                                                                                                                                                 (r$1090)
                                                                                                                                                 ((set-size
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #((record-marker)
                                                                                                                                                        #f
                                                                                                                                                        (id args
                                                                                                                                                            body
                                                                                                                                                            has-cont))
                                                                                                                                                      #(584
                                                                                                                                                        (r$1092)
                                                                                                                                                        ((#((record-marker)
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #f
                                                                                                                                                              (id args
                                                                                                                                                                  body
                                                                                                                                                                  has-cont))
                                                                                                                                                            #(583
                                                                                                                                                              (r$1091)
                                                                                                                                                              ((if r$1091
                                                                                                                                                                 (quit$473
                                                                                                                                                                   k$1081
                                                                                                                                                                   #f)
                                                                                                                                                                 (k$1081
                                                                                                                                                                   #f)))
                                                                                                                                                              #f))
                                                                                                                                                          (Cyc-fast-eq
                                                                                                                                                            r$1092
                                                                                                                                                            ncells$471)))
                                                                                                                                                        #f))
                                                                                                                                                    set1$476))
                                                                                                                                                 #f))
                                                                                                                                             c1$475
                                                                                                                                             r$1093))
                                                                                                                                          #f))
                                                                                                                                      walls$480
                                                                                                                                      wall-mask$479))
                                                                                                                                   #f))
                                                                                                                               set1$476
                                                                                                                               set2$478))
                                                                                                                            #f))
                                                                                                                        r$1087
                                                                                                                        r$1088))
                                                                                                                      #f))
                                                                                                                  r$1094))
                                                                                                               #f))
                                                                                                           wall$474))
                                                                                                        #f))
                                                                                                    c1$475)))
                                                                                               #f))
                                                                                           set1$476
                                                                                           set2$478))
                                                                                        #f))))
                                                                                  #f))
                                                                              r$1085))
                                                                            #f))
                                                                        c2$477))
                                                                     #f))
                                                                 r$1084))
                                                               #f))
                                                           wall$474))
                                                        #f))
                                                    r$1083))
                                                  #f))
                                              c1$475))
                                           #f))
                                       r$1082))
                                     #f))
                                 wall$474))
                              #t))))
                        #t))))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (178
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((179
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((ncols$307
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             245
             #f
             #f
             #f
             8
             (245 238 144 140 169 167 201 199)
             #f
             r$685
             0
             8
             #f
             #f
             #f)))
       (180
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((181
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((182
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((k$683 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 249 #f #f #f 1 (132) #f #f 0 1 #f #f #t)))
       (183
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$730 lp$200$318 r$730) #t))))
      ((184
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((185
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((186
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((187
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((cell$449
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 561 #f #f #f 1 (561) #f #f 0 1 #t #f #f)))
       (188
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (run .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                -1
                111
                #f
                #f
                2
                (87 -1)
                #f
                (#((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(111
                     (k$651 nrows$297 ncols$296)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(110
                           (r$654)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(109
                                 (r$652)
                                 ((pmaze #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(108
                                             (r$653)
                                             ((reverse k$651 output))
                                             #f))
                                         nrows$297
                                         ncols$296))
                                 #f))
                             (set! output r$654)))
                           #f))
                       '()))
                     #t)))
                1
                0
                #f
                #f
                #f))))
      ((189
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((190
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$695 lp$196$310 r$695) #t))))
      ((nr$352
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 346 #f #f #f 1 (344) #f r$815 0 1 #t #f #f)))
       (191
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((192
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((193
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((194
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((195
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$740) #t))))
      ((196
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$743) #t))))
      ((cell:parent
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             639
             #f
             #f
             5
             (548 556 561 567 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(639
                  (k$1134 o$498)
                  ((k$1134 (vector-ref o$498 4)))
                  #t)))
             4
             0
             #f
             #f
             #f)))
       (197
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$987 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 525 #f #f #f 1 (493) #f #f 0 1 #t #f #t)))
       (198
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$1181
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 672 #f #f #f 1 (670) #f #f 1 0 #t #f #t)))
       (199
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((200
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((201
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((202
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((vector
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             7
             (80 259 374 383 542 644 649)
             #f
             #f
             7
             0
             #f
             #f
             #f)))
       (203
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$1186
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 696 #f #f #f 1 (673) #f #f 0 1 #f #f #t)))
       (204
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$1200
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             679
             #f
             #f
             #f
             0
             ()
             #f
             (set-cdr! x$529 r$525)
             0
             0
             #t
             #f
             #f)))
       (205
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((206
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$1189
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 693 #f #f #f 2 (676 675) #f #f 1 1 #f #f #t)))
       (207
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((208
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$1204
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 697 #f #f #f 1 (697) #f '() 0 1 #t #f #f)))
       (209
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((210
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((211
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((212
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$800 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 259 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (r$1208
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 699 #f #f #f 1 (699) #f #f 0 1 #t #f #f)))
       (213
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$759) #t))))
      ((r$801 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 260 #f #f #f 1 (260) #f #f 0 1 #t #f #f)))
       (214
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$802 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 261 #f #f #f 1 (261) #f #f 0 1 #t #f #f)))
       (215
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$803 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 264 #f #f #f 1 (264) #f #f 0 1 #t #f #f)))
       (216
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$804 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  265
                  #f
                  #f
                  #f
                  1
                  (265)
                  #f
                  (Cyc-fast-sub nrows$337 1)
                  0
                  1
                  #t
                  #f
                  #f)))
       (217
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$805 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  277
                  #f
                  #f
                  #f
                  1
                  (277)
                  #f
                  (Cyc-fast-mul nrows$337 ncols$336)
                  0
                  1
                  #t
                  #f
                  #f)))
       (218
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((r$806 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 282 #f #f #f 1 (281) #f #f 0 1 #f #f #f)))
       (219
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$747 lp$192$322 r$747) #t))))
      ((r$807 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 281 #f #f #f 1 (281) #f #f 0 1 #t #f #f)))
       (220
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((221
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((222
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((proc$489
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 635 #f #f #f 1 (627) #f #f 1 0 #f #f #f)))
       (223
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$696 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 190 #f #f #f 2 (134 188) #f #f 1 1 #f #f #t))))
      ((224
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((225
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((226
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((227
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((228
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((229
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$771) #t))))
      ((230
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$993 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 518 #f #f #f 2 (496 516) #f #f 1 1 #f #f #t)))
       (231
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((bit$302
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 131 #f #f #f 1 (131) #f #f 0 1 #t #f #f)))
       (232
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((233
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((234
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((string-append
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (3 91) #f #f 2 0 #t #f #f)))
       (exit$365
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 386 #f #t #f 1 (357) #f #f 0 1 #f #f #f)))
       (235
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((236
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((237
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((k$1193
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             688
             #f
             #f
             #f
             2
             (677 687)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(676 (r$1192) ((k$1189 r$525)) #f))
             1
             1
             #f
             #f
             #t)))
       (238
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$762 lp$188$326 r$762) #t))))
      ((239
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((240
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((241
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$1197
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 684 #f #f #f 2 (679 681) #f #f 1 1 #f #f #t)))
       (242
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((243
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((244
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1212
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             716
             #f
             #f
             #f
             1
             (716)
             #f
             (car state$534)
             0
             1
             #t
             #f
             #f))))
      ((set-car!
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             3
             (653 651 702)
             #f
             #f
             3
             0
             #t
             #f
             #f)))
       (245
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1213
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 714 #f #f #f 1 (714) #f #f 0 1 #t #f #f))))
      ((r$1214
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 712 #f #f #f 1 (712) #f #f 0 1 #t #f #f)))
       (246
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((r$1215
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             708
             #f
             #f
             #f
             1
             (708)
             #f
             (Cyc-fast-sub r$1220 r$1221)
             0
             1
             #t
             #f
             #f)))
       (247
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$1216
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 704 #f #f #f 1 (704) #f #f 0 1 #t #f #f)))
       (248
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((r$1217
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             701
             #f
             #f
             #f
             0
             ()
             #f
             (set-car! state$534 val$543)
             0
             0
             #t
             #f
             #f)))
       (249
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((250
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$811 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 355 #f #f #f 1 (355) #f #f 0 1 #t #f #f)))
       (r$1219
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             705
             #f
             #f
             #f
             1
             (705)
             #f
             (Cyc-fast-gt test$542 0)
             0
             0
             #t
             #f
             #f)))
       (251
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$812 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 353 #f #f #f 1 (353) #f #f 0 1 #t #f #f)))
       (252
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$813 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  351
                  #f
                  #f
                  #f
                  1
                  (351)
                  #f
                  (car id$349)
                  0
                  1
                  #t
                  #f
                  #f)))
       (253
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$814 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  349
                  #f
                  #f
                  #f
                  1
                  (349)
                  #f
                  (cdr id$349)
                  0
                  1
                  #t
                  #f
                  #f)))
       (254
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$815 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 347 #f #f #f 1 (347) #f #f 0 1 #t #f #f)))
       (255
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$816 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 345 #f #f #f 1 (345) #f #f 0 1 #t #f #f)))
       (set-cdr!
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             3
             (654 652 680)
             #f
             #f
             3
             0
             #t
             #f
             #f)))
       (256
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$817 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  342
                  #f
                  #f
                  #f
                  1
                  (342)
                  #f
                  (Cyc-fast-mul 2 r$866)
                  0
                  1
                  #t
                  #f
                  #f)))
       (257
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((r$818 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  339
                  #f
                  #f
                  #f
                  1
                  (339)
                  #f
                  (Cyc-fast-mul 3 r$865)
                  0
                  1
                  #t
                  #f
                  #f)))
       (258
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$819 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 331 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (259
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((260
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r1$514
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             665
             #f
             #f
             #f
             4
             (663 654 652 651)
             #f
             r$1167
             0
             4
             #f
             #f
             #f)))
       (261
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((262
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((263
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((264
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((265
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((266
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((exit$370
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 384 #f #f #f 2 (378 383) #f #f 0 2 #f #f #f)))
       (267
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((268
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((269
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((270
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((271
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((exit$375
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             377
             #f
             #f
             #f
             1
             (366)
             #f
             exit$370
             0
             1
             #f
             #f
             #f)))
       (272
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((273
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((274
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((275
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((276
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (z$559 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  772
                  #f
                  #f
                  #f
                  4
                  (769 769 769 769)
                  #f
                  r$1264
                  0
                  4
                  #t
                  #f
                  #f)))
       (quotient__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             5
             (735 727 758 750 742)
             #f
             #f
             5
             0
             #t
             #f
             #f))))
      ((o$438 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 539 #f #f #f 1 (539) #f #f 0 1 #t #f #f)))
       (277
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((o$439 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 540 #f #f #f 1 (540) #f #f 0 1 #t #f #f)))
       (278
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((x$400 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  409
                  #f
                  #f
                  #f
                  6
                  (409 406 405 402 401 398)
                  #f
                  #f
                  0
                  6
                  #t
                  #f
                  #f)))
       (r$523 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 695 #f #f #f 1 (673) #f s$522 0 1 #f #f #f)))
       (r$1220
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             710
             #f
             #f
             #f
             1
             (709)
             #f
             (Cyc-fast-mul A$538 lo$541)
             0
             1
             #t
             #f
             #f)))
       (279
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$1221
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             709
             #f
             #f
             #f
             1
             (709)
             #f
             (Cyc-fast-mul R$535 hi$540)
             0
             1
             #t
             #f
             #f)))
       (280
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((r$525 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  693
                  #f
                  #f
                  #f
                  5
                  (693 676 688 682 680)
                  #f
                  #f
                  0
                  5
                  #t
                  #f
                  #f)))
       (281
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((x$403 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 469 #f #f #f 1 (430) #f r$935 0 1 #f #f #f)))
       (282
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((283
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((ncols$330
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 258 #f #f #f 1 (258) #f #f 0 1 #t #f #f)))
       (x$405 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  467
                  #f
                  #f
                  #f
                  9
                  (467 462 454 445 442 441 451 450 433)
                  #f
                  #f
                  0
                  9
                  #t
                  #f
                  #f)))
       (284
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((285
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((286
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$820 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 326 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (tp-lp$368
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             385
             #f
             #f
             #f
             3
             (359 358 357)
             #f
             r$875
             2
             0
             #f
             #f
             #f)))
       (287
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1228
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 737 #f #f #f 1 (737) #f #f 0 0 #t #f #f))))
      ((r$821 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 320 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (288
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (pmaze .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  -1
                  258
                  #f
                  #f
                  2
                  (109 -1)
                  #f
                  (#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(258
                       (k$782 nrows$331 ncols$330)
                       ((make-maze
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(257
                              (r$783)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(256
                                    (result$332)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(255
                                          (r$784)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(254
                                                (r$785)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(253
                                                      (r$786)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(252
                                                            (cells$335
                                                              entrance$334
                                                              exit$333)
                                                            ((print-hexmaze
                                                               k$782
                                                               cells$335
                                                               entrance$334))
                                                            #f))
                                                        r$784
                                                        r$785
                                                        r$786))
                                                      #f))
                                                  (vector-ref result$332 2)))
                                                #f))
                                            (vector-ref result$332 1)))
                                          #f))
                                      (vector-ref result$332 0)))
                                    #f))
                                r$783))
                              #f))
                          nrows$331
                          ncols$330))
                       #t)))
                  1
                  0
                  #f
                  #f
                  #f)))
       (r$1229
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             736
             #f
             #f
             #f
             1
             (736)
             #f
             (Cyc-fast-lt y$545 0)
             0
             0
             #t
             #f
             #f))))
      ((r$822 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 306 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (289
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((ncols$336
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 285 #f #f #f 2 (285 278) #f #f 0 2 #t #f #f)))
       (r$823 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 298 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (290
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$824 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 292 #f #f #f 1 (292) #f #f 0 0 #t #f #f)))
       (reachable$505
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 645 #f #f #f 1 (644) #f #f 0 1 #f #f #f)))
       (291
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((lp$188$326
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             239
             #f
             #f
             #f
             3
             (227 226 225)
             #f
             r$762
             2
             0
             #f
             #f
             #f)))
       (r$825 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 289 #f #f #f 1 (289) #f #f 0 1 #t #f #f)))
       (292
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$830) #f))))
      ((r$826 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 286 #f #f #f 1 (286) #f #f 0 0 #t #f #f)))
       (293
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$827 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 287 #f #f #f 1 (287) #f #f 0 1 #t #f #f)))
       (294
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$828 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  291
                  #f
                  #f
                  #f
                  1
                  (290)
                  #f
                  (Cyc-fast-plus x$350 3)
                  0
                  1
                  #t
                  #f
                  #f)))
       (295
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((r$829 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  290
                  #f
                  #f
                  #f
                  1
                  (290)
                  #f
                  (Cyc-fast-plus y$351 1)
                  0
                  1
                  #t
                  #f
                  #f)))
       (296
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((297
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((298
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$834) #f))))
      ((299
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((300
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((301
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((302
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((303
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((exit$380
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 375 #f #f #f 2 (369 374) #f #f 0 2 #f #f #f)))
       (304
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((305
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((o$440 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 541 #f #f #f 1 (541) #f #f 0 1 #t #f #f)))
       (306
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$840) #f))))
      ((307
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((308
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((exit$385
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 360 #f #f #f 1 (359) #f r$883 0 1 #f #f #f)))
       (309
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((310
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((311
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((312
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((313
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$847) #f))))
      ((314
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((reroot-maze
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             570
             #f
             #f
             3
             (264 380 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(570
                  (k$1059 new-root$455)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(569
                        (node$457 new-parent$456)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(568
                              (lp$458)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(563
                                    (r$1061)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(562
                                          (r$1060)
                                          ((lp$458
                                             k$1059
                                             node$457
                                             new-parent$456))
                                          #f))
                                      (set! lp$458 r$1061)))
                                    #f))
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(567
                                    (k$1062 node$460 new-parent$459)
                                    ((cell:parent
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(566
                                           (r$1063)
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(565
                                                 (old-parent$461)
                                                 ((set-cell:parent
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(564
                                                        (r$1064)
                                                        ((if old-parent$461
                                                           (lp$458
                                                             k$1062
                                                             old-parent$461
                                                             node$460)
                                                           (k$1062 #f)))
                                                        #f))
                                                    node$460
                                                    new-parent$459))
                                                 #f))
                                             r$1063))
                                           #f))
                                       node$460))
                                    #t))))
                              #f))
                          #f))
                        #f))
                    new-root$455
                    #f))
                  #t)))
             2
             0
             #f
             #f
             #f)))
       (315
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((316
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f)))
       (r$1230
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             726
             #f
             #f
             #f
             1
             (726)
             #f
             (quotient__inline__ x$546 y$545)
             0
             1
             #t
             #f
             #f))))
      ((317
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1231
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             723
             #f
             #f
             #f
             1
             (723)
             #f
             (Cyc-fast-sub x$546 r$1233)
             0
             1
             #t
             #f
             #f))))
      ((318
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1232
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             720
             #f
             #f
             #f
             1
             (720)
             #f
             (Cyc-fast-eq r$550 0)
             0
             0
             #t
             #f
             #f))))
      ((319
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1233
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             724
             #f
             #f
             #f
             1
             (724)
             #f
             (Cyc-fast-mul q$549 y$545)
             0
             1
             #t
             #f
             #f))))
      ((320
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$851) #f)))
       (r$1234
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             734
             #f
             #f
             #f
             1
             (734)
             #f
             (quotient__inline__ x$546 y$545)
             0
             1
             #t
             #f
             #f))))
      ((x$415 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 491 #f #f #f 1 (490) #f #f 0 1 #t #f #f)))
       (321
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1235
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             731
             #f
             #f
             #f
             1
             (731)
             #f
             (Cyc-fast-sub x$546 r$1237)
             0
             1
             #t
             #f
             #f))))
      ((322
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1236
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             728
             #f
             #f
             #f
             1
             (728)
             #f
             (Cyc-fast-eq r$548 0)
             0
             0
             #t
             #f
             #f))))
      ((323
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1237
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             732
             #f
             #f
             #f
             1
             (732)
             #f
             (Cyc-fast-mul q$547 y$545)
             0
             1
             #t
             #f
             #f))))
      ((324
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$831 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  296
                  #f
                  #f
                  #f
                  1
                  (296)
                  #f
                  (Cyc-fast-lt x$350 maxx$355)
                  0
                  0
                  #t
                  #f
                  #f)))
       (325
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1239
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             739
             #f
             #f
             #f
             1
             (739)
             #f
             (exact-integer?__inline__ x$546)
             0
             0
             #t
             #f
             #f))))
      ((r$832 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  295
                  #f
                  #f
                  #f
                  1
                  (295)
                  #f
                  (Cyc-fast-lte y$351 maxy$354)
                  0
                  1
                  #t
                  #f
                  #f)))
       (326
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$856) #f))))
      ((r$833 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 293 #f #f #f 1 (293) #f #f 0 1 #t #f #f)))
       (327
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((jifs$278
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 34 #f #f #f 1 (34) #f r$587 0 1 #t #f #f)))
       (328
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$835 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  304
                  #f
                  #f
                  #f
                  1
                  (304)
                  #f
                  (Cyc-fast-lt y$351 maxy$354)
                  0
                  0
                  #t
                  #f
                  #f)))
       (329
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$836 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 302 #f #f #f 1 (302) #f #f 0 1 #t #f #f)))
       (330
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((i$272 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 51 #f #t 0 1 (5) #f 0 0 1 #f #f #f)))
       (r$837 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 299 #f #f #f 1 (299) #f #f 0 0 #t #f #f)))
       (331
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$860) #f))))
      ((r$838 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 300 #f #f #f 1 (300) #f #f 0 1 #t #f #f)))
       (332
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$839 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  303
                  #f
                  #f
                  #f
                  1
                  (303)
                  #f
                  (Cyc-fast-plus y$351 2)
                  0
                  1
                  #t
                  #f
                  #f)))
       (333
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((i$275 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 49 #f #f #f 2 (49 9) #f #f 0 2 #t #f #f)))
       (334
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((335
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((336
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((337
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((338
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((339
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((340
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((341
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((342
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((343
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((wall-mask$479
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 588 #f #f #f 1 (587) #f r$1088 0 1 #t #f #f)))
       (344
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((quit$473
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 603 #f #f #f 1 (583) #f #f 1 0 #f #f #f)))
       (345
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((346
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((347
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((348
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((349
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((350
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((351
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((352
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((353
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f)))
       (r$1240
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             738
             #f
             #f
             #f
             1
             (738)
             #f
             (exact-integer?__inline__ y$545)
             0
             0
             #t
             #f
             #f))))
      ((354
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((355
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((356
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((357
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1244
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 760 #f #f #f 1 (760) #f #f 0 0 #t #f #f))))
      ((358
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1245
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             759
             #f
             #f
             #f
             1
             (759)
             #f
             (Cyc-fast-lt y$551 0)
             0
             0
             #t
             #f
             #f)))
       (r$548 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  730
                  #f
                  #f
                  #f
                  2
                  (729 728)
                  #f
                  r$1235
                  0
                  2
                  #t
                  #f
                  #f))))
      ((359
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1246
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             749
             #f
             #f
             #f
             1
             (749)
             #f
             (quotient__inline__ x$552 y$551)
             0
             1
             #t
             #f
             #f))))
      ((360
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1247
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             746
             #f
             #f
             #f
             1
             (746)
             #f
             (Cyc-fast-sub x$552 r$1249)
             0
             1
             #t
             #f
             #f))))
      ((361
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1248
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             743
             #f
             #f
             #f
             1
             (743)
             #f
             (Cyc-fast-eq r$556 0)
             0
             0
             #t
             #f
             #f))))
      ((r$841 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 313 #f #f #f 1 (313) #f #f 0 0 #t #f #f)))
       (362
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1249
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             747
             #f
             #f
             #f
             1
             (747)
             #f
             (Cyc-fast-mul q$555 y$551)
             0
             1
             #t
             #f
             #f))))
      ((r$842 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 310 #f #f #f 1 (310) #f #f 0 1 #t #f #f)))
       (363
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$843 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 307 #f #f #f 1 (307) #f #f 0 0 #t #f #f)))
       (364
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$844 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 308 #f #f #f 1 (308) #f #f 0 1 #t #f #f)))
       (tmp$115$423
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             516
             #f
             #f
             #f
             2
             (516 516)
             #f
             r$994
             0
             1
             #t
             #f
             #f)))
       (365
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((r$845 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  312
                  #f
                  #f
                  #f
                  1
                  (311)
                  #f
                  (Cyc-fast-sub x$350 3)
                  0
                  1
                  #t
                  #f
                  #f)))
       (366
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$846 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  311
                  #f
                  #f
                  #f
                  1
                  (311)
                  #f
                  (Cyc-fast-plus y$351 1)
                  0
                  1
                  #t
                  #f
                  #f)))
       (367
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((368
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$848 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  317
                  #f
                  #f
                  #f
                  1
                  (317)
                  #f
                  (Cyc-fast-gt x$350 0)
                  0
                  0
                  #t
                  #f
                  #f)))
       (369
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((i$284 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #f)))
       (r$849 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  316
                  #f
                  #f
                  #f
                  1
                  (316)
                  #f
                  (Cyc-fast-lte y$351 maxy$354)
                  0
                  1
                  #t
                  #f
                  #f)))
       (370
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((371
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((372
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((373
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((374
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((375
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$887 bt-lp$378 r$887) #t))))
      ((376
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((377
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((this-len$383
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             371
             #f
             #f
             #f
             2
             (371 368)
             #f
             r$890
             0
             2
             #f
             #f
             #f)))
       (378
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((379
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((380
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((381
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((382
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((383
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((384
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$875 tp-lp$368 r$875) #t))))
      ((385
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((386
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((387
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$550 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  722
                  #f
                  #f
                  #f
                  2
                  (721 720)
                  #f
                  r$1231
                  0
                  2
                  #t
                  #f
                  #f))))
      ((388
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((389
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((390
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1250
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             757
             #f
             #f
             #f
             1
             (757)
             #f
             (quotient__inline__ x$552 y$551)
             0
             1
             #t
             #f
             #f))))
      ((391
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1251
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             754
             #f
             #f
             #f
             1
             (754)
             #f
             (Cyc-fast-sub x$552 r$1253)
             0
             1
             #t
             #f
             #f)))
       (r$554 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 753 #f #f #f 1 (752) #f r$1251 0 1 #t #f #f))))
      ((392
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1252
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             751
             #f
             #f
             #f
             1
             (751)
             #f
             (Cyc-fast-eq r$554 0)
             0
             0
             #t
             #f
             #f))))
      ((393
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$556 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 745 #f #f #f 1 (744) #f r$1247 0 1 #t #f #f)))
       (r$1253
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             755
             #f
             #f
             #f
             1
             (755)
             #f
             (Cyc-fast-mul q$553 y$551)
             0
             1
             #t
             #f
             #f))))
      ((x$434 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 538 #f #f #f 1 (537) #f #f 0 1 #t #f #f)))
       (394
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$907) #f))))
      ((395
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1255
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             762
             #f
             #f
             #f
             1
             (762)
             #f
             (exact-integer?__inline__ x$552)
             0
             0
             #t
             #f
             #f))))
      ((396
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1256
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             761
             #f
             #f
             #f
             1
             (761)
             #f
             (exact-integer?__inline__ y$551)
             0
             0
             #t
             #f
             #f))))
      ((ncols$362
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             388
             #f
             #f
             #f
             2
             (388 379)
             #f
             r$872
             0
             2
             #t
             #f
             #f)))
       (397
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$850 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 314 #f #f #f 1 (314) #f #f 0 1 #t #f #f)))
       (398
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((399
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$852 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 324 #f #f #f 1 (324) #f #f 0 0 #t #f #f)))
       (400
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$853 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 321 #f #f #f 1 (321) #f #f 0 1 #t #f #f)))
       (401
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$854 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  323
                  #f
                  #f
                  #f
                  1
                  (322)
                  #f
                  (Cyc-fast-plus x$350 3)
                  0
                  1
                  #t
                  #f
                  #f)))
       (402
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$855 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  322
                  #f
                  #f
                  #f
                  1
                  (322)
                  #f
                  (Cyc-fast-sub y$351 1)
                  0
                  1
                  #t
                  #f
                  #f)))
       (403
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((404
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$857 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 329 #f #f #f 1 (329) #f #f 0 0 #t #f #f)))
       (405
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$858 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 327 #f #f #f 1 (327) #f #f 0 1 #t #f #f)))
       (406
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$859 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  328
                  #f
                  #f
                  #f
                  1
                  (328)
                  #f
                  (Cyc-fast-sub y$351 2)
                  0
                  1
                  #t
                  #f
                  #f)))
       (407
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((408
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((409
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$913 lp$140$399 r$913) #f))))
      ((410
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((411
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((412
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((413
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((input1$288
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             103
             #f
             #f
             #f
             2
             (95 89)
             #f
             r$636
             0
             2
             #t
             #f
             #f)))
       (414
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((415
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((416
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$929) #t))))
      ((417
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((418
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((419
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((420
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((421
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((422
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((423
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((424
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$561 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 1 #f #t 0 0 () #f 0 0 0 #t #f #f)))
       (425
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((426
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((427
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1260
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             780
             #f
             #f
             #f
             1
             (780)
             #f
             (Cyc-fast-eq x$558 0)
             0
             0
             #t
             #f
             #f))))
      ((428
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1261
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             779
             #f
             #f
             #f
             1
             (779)
             #f
             (Cyc-fast-eq y$557 0)
             0
             0
             #t
             #f
             #f))))
      ((r$565 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 3 #f #f #f 1 (3) #f #f 0 1 #t #f #f)))
       (429
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1262
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             778
             #f
             #f
             #f
             1
             (778)
             #f
             (Cyc-fast-eq x$558 -1)
             0
             0
             #t
             #f
             #f))))
      ((harr$301
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 128 #f #f #f 1 (126) #f #f 0 1 #t #f #f)))
       (430
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1263
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             777
             #f
             #f
             #f
             1
             (777)
             #f
             (Cyc-fast-eq y$557 -1)
             0
             0
             #t
             #f
             #f))))
      ((431
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1264
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 773 #f #f #f 1 (773) #f #f 0 1 #t #f #f))))
      ((432
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1265
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 769 #f #f #f 1 (769) #f #f 0 0 #t #f #f))))
      ((r$569 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  64
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rounded$266 r$614)
                  0
                  0
                  #t
                  #f
                  #f)))
       (433
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((harr$305
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             249
             #f
             #f
             #f
             9
             (249 247 209 179 177 156 151 139 166)
             #f
             #f
             0
             9
             #t
             #f
             #f)))
       (434
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1267
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 770 #f #f #f 1 (770) #f #f 0 0 #t #f #f))))
      ((435
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1268
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 775 #f #f #f 1 (774) #f #f 0 1 #t #f #f))))
      ((r$861 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 335 #f #f #f 1 (335) #f #f 0 0 #t #f #f)))
       (436
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1269
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 774 #f #f #f 1 (774) #f #f 0 1 #t #f #f))))
      ((r$862 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 332 #f #f #f 1 (332) #f #f 0 1 #t #f #f)))
       (437
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$952) #f))))
      ((r$863 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  334
                  #f
                  #f
                  #f
                  1
                  (333)
                  #f
                  (Cyc-fast-sub x$350 3)
                  0
                  1
                  #t
                  #f
                  #f)))
       (lp$117$426
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             512
             #f
             #f
             #f
             3
             (500 499 498)
             #f
             r$999
             2
             0
             #f
             #f
             #f)))
       (438
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$864 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  333
                  #f
                  #f
                  #f
                  1
                  (333)
                  #f
                  (Cyc-fast-sub y$351 1)
                  0
                  1
                  #t
                  #f
                  #f)))
       (439
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$865 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  340
                  #f
                  #f
                  #f
                  1
                  (340)
                  #f
                  (Cyc-fast-sub nc$353 1)
                  0
                  1
                  #t
                  #f
                  #f)))
       (440
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$866 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  343
                  #f
                  #f
                  #f
                  1
                  (343)
                  #f
                  (Cyc-fast-sub nr$352 1)
                  0
                  1
                  #t
                  #f
                  #f)))
       (441
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((442
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((443
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((444
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((445
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((446
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$959) #f))))
      ((447
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((448
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((449
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((tmp$138$410
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             455
             #f
             #f
             #f
             2
             (455 455)
             #f
             r$946
             0
             1
             #t
             #f
             #f)))
       (450
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((451
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((452
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((453
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((south .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  -1
                  #f
                  #f
                  #f
                  6
                  (118 262 300 330 444 -1)
                  #f
                  (2)
                  0
                  5
                  #f
                  #f
                  #f)))
       (454
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((455
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((456
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((457
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$944 lp$136$408 r$944) #f))))
      ((458
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((459
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((460
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((r$570 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 63 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (461
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$571 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 62 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (462
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$572 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 61 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (tmp$194$324
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             217
             #f
             #f
             #f
             2
             (217 217)
             #f
             r$749
             0
             1
             #t
             #f
             #f)))
       (463
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$573 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 59 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (464
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (hi$540
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 713 #f #f #f 1 (710) #f r$1213 0 1 #t #f #f))))
      ((r$574 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 58 #f #f #f 1 (58) #f #f 0 1 #t #f #f)))
       (cells$335
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 252 #f #f #f 1 (252) #f r$784 0 1 #t #f #f)))
       (465
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$575 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 56 #f #f #f 1 (56) #f #f 0 1 #t #f #f)))
       (result$332
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             256
             #f
             #f
             #f
             3
             (256 255 254)
             #f
             r$783
             0
             3
             #t
             #f
             #f)))
       (466
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((r$576 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 54 #f #f #f 1 (54) #f #f 0 1 #t #f #f)))
       (467
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$937 lp$132$404 r$937) #t)))
       (r$1273
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             782
             #f
             #f
             #f
             1
             (782)
             #f
             (- x$560)
             0
             1
             #t
             #f
             #f))))
      ((r$577 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  5
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! loop$273 r$578)
                  0
                  0
                  #t
                  #f
                  #f)))
       (cells$338
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             283
             #f
             #f
             #f
             5
             (283 276 271 265 259)
             #f
             r$790
             0
             5
             #f
             #f
             #f)))
       (468
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$578 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  6
                  #f
                  #f
                  #f
                  1
                  (6)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(49
                      (k$579 i$275 result$274)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(48
                            (r$580)
                            ((if r$580
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(9
                                    ()
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(8
                                          (r$581)
                                          ((thunk$262
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(7
                                                 (r$582)
                                                 ((loop$273 k$579 r$581 r$582))
                                                 #f))))
                                          #f))
                                      (Cyc-fast-plus i$275 1)))
                                    #f)))
                               (ok?$261
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(47
                                     (r$583)
                                     ((if r$583
                                        (#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(40
                                             ()
                                             ((current-jiffy
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(39
                                                    (r$585)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(38
                                                          (j1$276)
                                                          ((current-second
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(37
                                                                 (r$586)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(36
                                                                       (t1$277)
                                                                       ((#((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(35
                                                                             (r$587)
                                                                             ((#((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(34
                                                                                   (jifs$278)
                                                                                   ((#((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(33
                                                                                         (r$607)
                                                                                         ((#((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(32
                                                                                               (r$588)
                                                                                               ((#((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(31
                                                                                                     (secs$279)
                                                                                                     ((#((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(30
                                                                                                           (r$606)
                                                                                                           ((rounded$266
                                                                                                              #((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(29
                                                                                                                  (r$589)
                                                                                                                  ((#((record-marker)
                                                                                                                      #((record-marker)
                                                                                                                        #f
                                                                                                                        (id args
                                                                                                                            body
                                                                                                                            has-cont))
                                                                                                                      #(28
                                                                                                                        (secs2$280)
                                                                                                                        ((#((record-marker)
                                                                                                                            #((record-marker)
                                                                                                                              #f
                                                                                                                              (id args
                                                                                                                                  body
                                                                                                                                  has-cont))
                                                                                                                            #(27
                                                                                                                              ()
                                                                                                                              ((display
                                                                                                                                 #((record-marker)
                                                                                                                                   #((record-marker)
                                                                                                                                     #f
                                                                                                                                     (id args
                                                                                                                                         body
                                                                                                                                         has-cont))
                                                                                                                                   #(26
                                                                                                                                     (r$590)
                                                                                                                                     ((write #((record-marker)
                                                                                                                                               #((record-marker)
                                                                                                                                                 #f
                                                                                                                                                 (id args
                                                                                                                                                     body
                                                                                                                                                     has-cont))
                                                                                                                                               #(25
                                                                                                                                                 (r$591)
                                                                                                                                                 ((display
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #((record-marker)
                                                                                                                                                        #f
                                                                                                                                                        (id args
                                                                                                                                                            body
                                                                                                                                                            has-cont))
                                                                                                                                                      #(24
                                                                                                                                                        (r$592)
                                                                                                                                                        ((write #((record-marker)
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #f
                                                                                                                                                                    (id args
                                                                                                                                                                        body
                                                                                                                                                                        has-cont))
                                                                                                                                                                  #(23
                                                                                                                                                                    (r$593)
                                                                                                                                                                    ((display
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #f
                                                                                                                                                                           (id args
                                                                                                                                                                               body
                                                                                                                                                                               has-cont))
                                                                                                                                                                         #(22
                                                                                                                                                                           (r$594)
                                                                                                                                                                           ((display
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(21
                                                                                                                                                                                  (r$595)
                                                                                                                                                                                  ((newline
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(20
                                                                                                                                                                                         (r$596)
                                                                                                                                                                                         ((display
                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #f
                                                                                                                                                                                                (id args
                                                                                                                                                                                                    body
                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                              #(19
                                                                                                                                                                                                (r$597)
                                                                                                                                                                                                ((this-scheme-implementation-name
                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                       #f
                                                                                                                                                                                                       (id args
                                                                                                                                                                                                           body
                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                     #(18
                                                                                                                                                                                                       (r$605)
                                                                                                                                                                                                       ((display
                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                              #f
                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                  body
                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                            #(17
                                                                                                                                                                                                              (r$598)
                                                                                                                                                                                                              ((display
                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                         body
                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                   #(16
                                                                                                                                                                                                                     (r$599)
                                                                                                                                                                                                                     ((display
                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                          #(15
                                                                                                                                                                                                                            (r$600)
                                                                                                                                                                                                                            ((display
                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                 #(14
                                                                                                                                                                                                                                   (r$601)
                                                                                                                                                                                                                                   ((display
                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                        #(13
                                                                                                                                                                                                                                          (r$602)
                                                                                                                                                                                                                                          ((newline
                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                               #(12
                                                                                                                                                                                                                                                 (r$603)
                                                                                                                                                                                                                                                 ((current-output-port
                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                      #(11
                                                                                                                                                                                                                                                        (r$604)
                                                                                                                                                                                                                                                        ((flush-output-port
                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                                             #(10
                                                                                                                                                                                                                                                               (r$584)
                                                                                                                                                                                                                                                               ((k$579 result$274))
                                                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                                                           r$604))
                                                                                                                                                                                                                                                        #f))))
                                                                                                                                                                                                                                                 #f))))
                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                      secs$279))
                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                               ","))
                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                        name$264))
                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                 ","))
                                                                                                                                                                                                              #f))
                                                                                                                                                                                                          r$605))
                                                                                                                                                                                                       #f))))
                                                                                                                                                                                                #f))
                                                                                                                                                                                            "+!CSVLINE!+"))
                                                                                                                                                                                         #f))))
                                                                                                                                                                                  #f))
                                                                                                                                                                              name$264))
                                                                                                                                                                           #f))
                                                                                                                                                                       ") for "))
                                                                                                                                                                    #f))
                                                                                                                                                                secs2$280))
                                                                                                                                                        #f))
                                                                                                                                                    " seconds ("))
                                                                                                                                                 #f))
                                                                                                                                             secs$279))
                                                                                                                                     #f))
                                                                                                                                 "Elapsed time: "))
                                                                                                                              #f))))
                                                                                                                        #f))
                                                                                                                    r$589))
                                                                                                                  #f))
                                                                                                              r$606))
                                                                                                           #f))
                                                                                                       (Cyc-fast-sub
                                                                                                         t1$277
                                                                                                         t0$269)))
                                                                                                     #f))
                                                                                                 r$588))
                                                                                               #f))
                                                                                           (inexact__inline__
                                                                                             r$607)))
                                                                                         #f))
                                                                                     (Cyc-fast-div
                                                                                       jifs$278
                                                                                       j/s$268)))
                                                                                   #f))
                                                                               r$587))
                                                                             #f))
                                                                         (Cyc-fast-sub
                                                                           j1$276
                                                                           j0$270)))
                                                                       #f))
                                                                   r$586))
                                                                 #f))))
                                                          #f))
                                                      r$585))
                                                    #f))))
                                             #f)))
                                        (#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(46
                                             ()
                                             ((display
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(45
                                                    (r$608)
                                                    ((write #((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(44
                                                                (r$609)
                                                                ((newline
                                                                   #((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(43
                                                                       (r$610)
                                                                       ((current-output-port
                                                                          #((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(42
                                                                              (r$612)
                                                                              ((flush-output-port
                                                                                 #((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(41
                                                                                     (r$611)
                                                                                     ((k$579 result$274))
                                                                                     #f))
                                                                                 r$612))
                                                                              #f))))
                                                                       #f))))
                                                                #f))
                                                            result$274))
                                                    #f))
                                                "ERROR: returned incorrect result: "))
                                             #f)))))
                                     #f))
                                 result$274)))
                            #f))
                        (Cyc-fast-lt i$275 count$263)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f)))
       (469
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((470
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((471
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$870 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 391 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (472
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$871 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 390 #f #f #f 1 (389) #f #f 0 1 #f #f #f)))
       (473
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$872 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 389 #f #f #f 1 (389) #f #f 0 1 #t #f #f)))
       (474
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((r$873 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  387
                  #f
                  #f
                  #f
                  1
                  (387)
                  #f
                  (Cyc-fast-sub ncols$362 1)
                  0
                  1
                  #t
                  #f
                  #f)))
       (475
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$874 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  357
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! tp-lp$368 r$875)
                  0
                  0
                  #t
                  #f
                  #f)))
       (476
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (harr:nrows
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             541
             #f
             #f
             5
             (249 348 391 487 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(541
                  (k$1035 o$440)
                  ((k$1035 (vector-ref o$440 1)))
                  #t)))
             4
             0
             #f
             #f
             #f)))
       (bitwise-not
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             783
             #f
             #f
             3
             (262 590 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(783
                  (k$1272 x$560)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(782
                        (r$1273)
                        ((k$1272 (Cyc-fast-sub r$1273 1)))
                        #f))
                    (- x$560)))
                  #t)))
             2
             0
             #f
             #f
             #f))))
      ((r$875 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  358
                  #f
                  #f
                  #f
                  1
                  (358)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(384
                      (k$876 max-len$372
                             entrance$371
                             exit$370
                             tcol$369)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(383
                            (r$877)
                            ((if r$877
                               (vector k$876 entrance$371 exit$370)
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(382
                                    (r$895)
                                    ((href/rc
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(381
                                           (r$878)
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(380
                                                 (top-cell$373)
                                                 ((reroot-maze
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(379
                                                        (r$879)
                                                        ((#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(378
                                                              (r$885)
                                                              ((#((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(377
                                                                    (max-len$377
                                                                      entrance$376
                                                                      exit$375
                                                                      bcol$374)
                                                                    ((#((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(376
                                                                          (bt-lp$378)
                                                                          ((#((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(367
                                                                                (r$887)
                                                                                ((#((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(366
                                                                                      (r$886)
                                                                                      ((bt-lp$378
                                                                                         #((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(365
                                                                                             (r$880)
                                                                                             ((#((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(364
                                                                                                   (result$384)
                                                                                                   ((#((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(363
                                                                                                         (r$881)
                                                                                                         ((#((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(362
                                                                                                               (r$882)
                                                                                                               ((#((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(361
                                                                                                                     (r$883)
                                                                                                                     ((#((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(360
                                                                                                                           (max-len$387
                                                                                                                             entrance$386
                                                                                                                             exit$385)
                                                                                                                           ((#((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(359
                                                                                                                                 (r$884)
                                                                                                                                 ((tp-lp$368
                                                                                                                                    k$876
                                                                                                                                    max-len$387
                                                                                                                                    entrance$386
                                                                                                                                    exit$385
                                                                                                                                    r$884))
                                                                                                                                 #f))
                                                                                                                             (Cyc-fast-sub
                                                                                                                               tcol$369
                                                                                                                               1)))
                                                                                                                           #f))
                                                                                                                       r$881
                                                                                                                       r$882
                                                                                                                       r$883))
                                                                                                                     #f))
                                                                                                                 (vector-ref
                                                                                                                   result$384
                                                                                                                   2)))
                                                                                                               #f))
                                                                                                           (vector-ref
                                                                                                             result$384
                                                                                                             1)))
                                                                                                         #f))
                                                                                                     (vector-ref
                                                                                                       result$384
                                                                                                       0)))
                                                                                                   #f))
                                                                                               r$880))
                                                                                             #f))
                                                                                         max-len$377
                                                                                         entrance$376
                                                                                         exit$375
                                                                                         bcol$374))
                                                                                      #f))
                                                                                  (set! bt-lp$378
                                                                                    r$887)))
                                                                                #f))
                                                                            #((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(375
                                                                                (k$888 max-len$382
                                                                                       entrance$381
                                                                                       exit$380
                                                                                       bcol$379)
                                                                                ((#((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(374
                                                                                      (r$889)
                                                                                      ((if r$889
                                                                                         (vector
                                                                                           k$888
                                                                                           max-len$382
                                                                                           entrance$381
                                                                                           exit$380)
                                                                                         (href/rc
                                                                                           #((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(373
                                                                                               (r$894)
                                                                                               ((path-length
                                                                                                  #((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(372
                                                                                                      (r$890)
                                                                                                      ((#((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(371
                                                                                                            (this-len$383)
                                                                                                            ((#((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(370
                                                                                                                  (r$891)
                                                                                                                  ((if r$891
                                                                                                                     (#((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(368
                                                                                                                          (r$892)
                                                                                                                          ((bt-lp$378
                                                                                                                             k$888
                                                                                                                             this-len$383
                                                                                                                             tcol$369
                                                                                                                             bcol$379
                                                                                                                             r$892))
                                                                                                                          #f))
                                                                                                                      (Cyc-fast-sub
                                                                                                                        bcol$379
                                                                                                                        1))
                                                                                                                     (#((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(369
                                                                                                                          (r$893)
                                                                                                                          ((bt-lp$378
                                                                                                                             k$888
                                                                                                                             max-len$382
                                                                                                                             entrance$381
                                                                                                                             exit$380
                                                                                                                             r$893))
                                                                                                                          #f))
                                                                                                                      (Cyc-fast-sub
                                                                                                                        bcol$379
                                                                                                                        1))))
                                                                                                                  #f))
                                                                                                              (Cyc-fast-gt
                                                                                                                this-len$383
                                                                                                                max-len$382)))
                                                                                                            #f))
                                                                                                        r$890))
                                                                                                      #f))
                                                                                                  r$894))
                                                                                               #f))
                                                                                           harr$361
                                                                                           0
                                                                                           bcol$379)))
                                                                                      #f))
                                                                                  (Cyc-fast-lt
                                                                                    bcol$379
                                                                                    0)))
                                                                                #t))))
                                                                          #f))
                                                                      #f))
                                                                    #f))
                                                                max-len$372
                                                                entrance$371
                                                                exit$370
                                                                r$885))
                                                              #f))
                                                          (Cyc-fast-sub
                                                            ncols$362
                                                            1)))
                                                        #f))
                                                    top-cell$373))
                                                 #f))
                                             r$878))
                                           #f))
                                       harr$361
                                       r$895
                                       tcol$369))
                                    #f))
                                (Cyc-fast-sub nrows$363 1))))
                            #f))
                        (Cyc-fast-lt tcol$369 0)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f)))
       (477
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$904 add-wall$396 r$904) #t))))
      ((478
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$877 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  383
                  #f
                  #f
                  #f
                  1
                  (383)
                  #f
                  (Cyc-fast-lt tcol$369 0)
                  0
                  0
                  #t
                  #f
                  #f)))
       (479
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((r$878 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 381 #f #f #f 1 (381) #f #f 0 1 #t #f #f)))
       (480
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$879 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 379 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (481
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((482
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((483
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((484
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((485
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((486
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((487
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((488
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((s$519 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 669 #f #f #f 1 (669) #f #f 0 1 #t #f #f)))
       (489
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$283 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 83 #f #f #f 1 (78) #f #f 0 1 #t #f #f)))
       (490
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((491
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$975) #f))))
      ((lp$196$310
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             191
             #f
             #f
             #f
             3
             (134 133 132)
             #f
             r$695
             2
             0
             #f
             #f
             #f)))
       (492
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((493
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((494
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((o$494 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 636 #f #f #f 1 (636) #f #f 0 1 #t #t #f)))
       (495
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((o$495 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 637 #f #f #f 1 (637) #f #f 0 1 #t #f #f)))
       (496
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((497
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$580 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  48
                  #f
                  #f
                  #f
                  1
                  (48)
                  #f
                  (Cyc-fast-lt i$275 count$263)
                  0
                  0
                  #t
                  #f
                  #f)))
       (o$497 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 638 #f #f #f 1 (638) #f #f 0 1 #t #t #f)))
       (498
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$581 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  8
                  #f
                  #f
                  #f
                  1
                  (7)
                  #f
                  (Cyc-fast-plus i$275 1)
                  0
                  1
                  #f
                  #f
                  #f)))
       (o$498 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 639 #f #f #f 1 (639) #f #f 0 1 #t #f #f)))
       (499
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (random-int
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             700
             #f
             #f
             2
             (614 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(700
                  (k$1207 n$533 state$532)
                  ((rand #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(699 (r$1208) ((mod k$1207 r$1208 n$533)) #f))
                         state$532))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((r$582 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 7 #f #f #f 1 (7) #f #f 0 1 #t #f #f)))
       (500
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$583 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 47 #f #f #f 1 (47) #f #f 0 0 #t #f #f)))
       (result$340
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             274
             #f
             #f
             #f
             2
             (274 273)
             #f
             r$793
             0
             2
             #t
             #f
             #f)))
       (501
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$584 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 10 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (502
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$585 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 39 #f #f #f 1 (39) #f #f 0 1 #t #f #f)))
       (r2$515
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             663
             #f
             #f
             #f
             4
             (661 654 653 652)
             #f
             r$1168
             0
             4
             #f
             #f
             #f)))
       (503
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$586 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 37 #f #f #f 1 (37) #f #f 0 1 #t #f #f)))
       (504
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$587 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  35
                  #f
                  #f
                  #f
                  1
                  (35)
                  #f
                  (Cyc-fast-sub j1$276 j0$270)
                  0
                  1
                  #t
                  #f
                  #f)))
       (505
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$588 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  32
                  #f
                  #f
                  #f
                  1
                  (32)
                  #f
                  (inexact__inline__ r$607)
                  0
                  1
                  #t
                  #f
                  #f)))
       (ncols$390
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             483
             #f
             #f
             #f
             4
             (483 472 428 427)
             #f
             r$901
             0
             4
             #t
             #f
             #f)))
       (506
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$589 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 29 #f #f #f 1 (29) #f #f 0 1 #t #f #f)))
       (507
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((508
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$880 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 365 #f #f #f 1 (365) #f #f 0 1 #t #f #f)))
       (509
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$881 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  363
                  #f
                  #f
                  #f
                  1
                  (361)
                  #f
                  (vector-ref result$384 0)
                  0
                  1
                  #f
                  #f
                  #f)))
       (510
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((r$882 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  362
                  #f
                  #f
                  #f
                  1
                  (361)
                  #f
                  (vector-ref result$384 1)
                  0
                  1
                  #f
                  #f
                  #f)))
       (511
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$999 lp$117$426 r$999) #t))))
      ((r$883 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  361
                  #f
                  #f
                  #f
                  1
                  (361)
                  #f
                  (vector-ref result$384 2)
                  0
                  1
                  #t
                  #f
                  #f)))
       (512
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$884 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  359
                  #f
                  #f
                  #f
                  1
                  (359)
                  #f
                  (Cyc-fast-sub tcol$369 1)
                  0
                  1
                  #t
                  #f
                  #f)))
       (513
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$885 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  378
                  #f
                  #f
                  #f
                  1
                  (378)
                  #f
                  (Cyc-fast-sub ncols$362 1)
                  0
                  1
                  #t
                  #f
                  #f)))
       (514
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$886 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  366
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! bt-lp$378 r$887)
                  0
                  0
                  #t
                  #f
                  #f)))
       (515
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$887 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  367
                  #f
                  #f
                  #f
                  1
                  (367)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(375
                      (k$888 max-len$382
                             entrance$381
                             exit$380
                             bcol$379)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(374
                            (r$889)
                            ((if r$889
                               (vector k$888 max-len$382 entrance$381 exit$380)
                               (href/rc
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(373
                                     (r$894)
                                     ((path-length
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(372
                                            (r$890)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(371
                                                  (this-len$383)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(370
                                                        (r$891)
                                                        ((if r$891
                                                           (#((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(368
                                                                (r$892)
                                                                ((bt-lp$378
                                                                   k$888
                                                                   this-len$383
                                                                   tcol$369
                                                                   bcol$379
                                                                   r$892))
                                                                #f))
                                                            (Cyc-fast-sub
                                                              bcol$379
                                                              1))
                                                           (#((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(369
                                                                (r$893)
                                                                ((bt-lp$378
                                                                   k$888
                                                                   max-len$382
                                                                   entrance$381
                                                                   exit$380
                                                                   r$893))
                                                                #f))
                                                            (Cyc-fast-sub
                                                              bcol$379
                                                              1))))
                                                        #f))
                                                    (Cyc-fast-gt
                                                      this-len$383
                                                      max-len$382)))
                                                  #f))
                                              r$890))
                                            #f))
                                        r$894))
                                     #f))
                                 harr$361
                                 0
                                 bcol$379)))
                            #f))
                        (Cyc-fast-lt bcol$379 0)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f)))
       (516
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((517
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((r$889 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  374
                  #f
                  #f
                  #f
                  1
                  (374)
                  #f
                  (Cyc-fast-lt bcol$379 0)
                  0
                  0
                  #t
                  #f
                  #f)))
       (518
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$992 lp$113$421 r$992) #t))))
      ((s$522 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  696
                  #f
                  #f
                  #f
                  3
                  (696 688 687)
                  #f
                  #f
                  0
                  3
                  #f
                  #f
                  #f)))
       (519
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((520
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((521
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((c1$475
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             600
             #f
             #f
             #f
             3
             (600 592 586)
             #f
             r$1082
             0
             3
             #f
             #f
             #f)))
       (522
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((523
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((hexwalls$298
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             123
             #f
             #f
             #f
             3
             (114 118 122)
             #f
             #f
             0
             3
             #t
             #f
             #f)))
       (524
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((525
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((526
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((y$407 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 459 #f #f #f 1 (434) #f r$942 0 1 #f #f #f)))
       (527
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((528
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((y$409 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  457
                  #f
                  #f
                  #f
                  6
                  (457 454 446 437 440 449)
                  #f
                  #f
                  0
                  6
                  #t
                  #f
                  #f)))
       (529
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (set-cell:walls
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             640
             #f
             #f
             3
             (260 586 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(640
                  (k$1137 o$500 v$499)
                  ((k$1137 (vector-set! o$500 3 v$499)))
                  #t)))
             2
             0
             #f
             #f
             #f))))
      ((530
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((531
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((532
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((533
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((534
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$590 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 26 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (535
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$591 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 25 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (elts$441
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 543 #f #f #f 1 (542) #f #f 0 1 #f #f #f)))
       (536
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$592 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 24 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (537
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$593 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 23 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (538
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$594 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 22 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (539
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$595 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 21 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (540
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$596 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 20 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (541
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$597 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 19 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (542
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$598 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 17 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (543
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$599 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 16 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (544
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((545
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$890 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 372 #f #f #f 1 (372) #f #f 0 1 #t #f #f)))
       (546
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$891 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  370
                  #f
                  #f
                  #f
                  1
                  (370)
                  #f
                  (Cyc-fast-gt this-len$383 max-len$382)
                  0
                  0
                  #t
                  #f
                  #f)))
       (547
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((r$892 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  368
                  #f
                  #f
                  #f
                  1
                  (368)
                  #f
                  (Cyc-fast-sub bcol$379 1)
                  0
                  1
                  #t
                  #f
                  #f)))
       (548
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$893 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  369
                  #f
                  #f
                  #f
                  1
                  (369)
                  #f
                  (Cyc-fast-sub bcol$379 1)
                  0
                  1
                  #t
                  #f
                  #f)))
       (549
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$1044 lp$446 r$1044) #t))))
      ((r$894 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 373 #f #f #f 1 (373) #f #f 0 1 #t #f #f)))
       (550
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$895 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  382
                  #f
                  #f
                  #f
                  1
                  (382)
                  #f
                  (Cyc-fast-sub nrows$363 1)
                  0
                  1
                  #t
                  #f
                  #f)))
       (551
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$896 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 392 #f #f #f 1 (392) #f #f 0 1 #t #f #f)))
       (552
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((553
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((554
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((555
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((entrance$304
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             249
             #f
             #f
             #f
             3
             (231 215 198)
             #f
             #f
             0
             3
             #t
             #f
             #f)))
       (556
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((557
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$1053 lp$105$452 r$1053) #f))))
      ((558
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (Q$536 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  715
                  #f
                  #t
                  2787
                  2
                  (715 713)
                  #f
                  2787
                  0
                  2
                  #t
                  #f
                  #f))))
      ((559
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((560
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((y$414 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 491 #f #f #f 1 (490) #f #f 0 1 #t #f #f)))
       (561
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((562
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((563
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((564
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((565
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((566
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((567
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$1061 lp$458 r$1061) #t))))
      ((j0$270
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 53 #f #f #f 1 (36) #f r$576 0 1 #t #f #f)))
       (walls$472
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 604 #f #f #f 1 (582) #f #f 0 1 #f #f #f)))
       (568
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((lp$207$314
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             160
             #f
             #f
             #f
             3
             (148 147 146)
             #f
             r$713
             2
             0
             #f
             #f
             #f)))
       (node$444
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 552 #f #f #f 1 (552) #f #f 0 1 #t #f #f)))
       (569
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((node$445
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             551
             #f
             #f
             #f
             1
             (544)
             #f
             node$444
             0
             1
             #f
             #f
             #f)))
       (570
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((571
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((node$447
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 549 #f #f #f 2 (549 548) #f #f 0 2 #t #f #f)))
       (572
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((573
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((574
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((set1$476
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             598
             #f
             #f
             #f
             3
             (593 588 585)
             #f
             r$1083
             0
             3
             #f
             #f
             #f)))
       (575
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$1072) #f))))
      ((576
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((577
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$1069 search$467 r$1069) #t))))
      ((578
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((579
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((580
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$1000
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 511 #f #f #f 2 (500 509) #f #f 1 1 #f #f #t)))
       (581
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((582
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((harr$346
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             356
             #f
             #f
             #f
             8
             (348 346 290 303 311 322 328 333)
             #f
             #f
             0
             8
             #t
             #f
             #f)))
       (583
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((584
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((585
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((586
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((587
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((count$263
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 71 #f #f #f 1 (49) #f #f 0 1 #t #f #f)))
       (588
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((589
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((590
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((591
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((592
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((593
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((594
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((595
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((596
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((597
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((Cyc-fast-div
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (66 34) #f #f 2 0 #t #f #f)))
       (598
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((599
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((600
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((601
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((node$450
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 559 #f #f #f 1 (553) #f r$1051 0 1 #f #f #f)))
       (602
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$1080) #t))))
      ((walls$480
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 588 #f #f #f 1 (587) #f r$1087 0 1 #t #f #f)))
       (603
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$1078) #t))))
      ((604
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((node$453
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 557 #f #f #f 2 (556 557) #f #f 0 1 #t #f #f)))
       (605
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((606
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((lp$132$404
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             468
             #f
             #f
             #f
             3
             (432 431 430)
             #f
             r$937
             2
             0
             #f
             #f
             #f)))
       (607
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((608
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((node$457
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             569
             #f
             #f
             #f
             1
             (562)
             #f
             new-root$455
             0
             1
             #f
             #f
             #f)))
       (609
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((610
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((611
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$810 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  356
                  #f
                  #f
                  #f
                  3
                  (292 286 286)
                  #f
                  #f
                  2
                  1
                  #f
                  #f
                  #t))))
      ((612
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((613
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((614
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((615
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((616
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((617
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$1101 lp$484 r$1101) #t))))
      ((618
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((619
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((620
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((k$1013
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 530 #f #f #f 1 (526) #f #f 1 0 #t #f #t)))
       (621
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((622
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((623
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((624
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((625
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((626
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((627
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((eq? .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                ?
                #f
                #f
                #f
                4
                (575 670 688 682)
                #f
                #f
                4
                0
                #t
                #f
                #f)))
       (628
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((current-output-port
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 3 (43 12 61) #f #f 3 0 #f #f #f)))
       (629
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((630
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$1116 lp$491 r$1116) #f))))
      ((631
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((632
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((633
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((y$433 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 538 #f #f #f 1 (538) #f #f 0 1 #t #f #f)))
       (634
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((635
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((636
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((637
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((638
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((node$460
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             567
             #f
             #f
             #f
             3
             (567 565 564)
             #f
             #f
             0
             3
             #f
             #f
             #f)))
       (639
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((640
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((641
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((642
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((test$542
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             707
             #f
             #f
             #f
             3
             (706 705 705)
             #f
             r$1215
             0
             3
             #f
             #f
             #f)))
       (643
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((vector-length
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (622 635) #f #f 2 0 #t #f #f)))
       (644
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((node$466
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             579
             #f
             #f
             #f
             1
             (571)
             #f
             root$463
             0
             1
             #f
             #f
             #f)))
       (645
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((646
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((647
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((node$469
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             577
             #f
             #f
             #f
             3
             (577 574 573)
             #f
             #f
             0
             3
             #f
             #f
             #f)))
       (648
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((649
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((650
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((651
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((harr$361
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             393
             #f
             #f
             #f
             6
             (393 392 391 390 382 374)
             #f
             #f
             0
             6
             #f
             #f
             #f)))
       (652
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((result$384
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             364
             #f
             #f
             #f
             3
             (364 363 362)
             #f
             r$880
             0
             3
             #t
             #f
             #f)))
       (653
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((654
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$1020
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 538 #f #f #f 1 (531) #f #f 1 0 #t #f #t)))
       (655
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((input2$289
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             101
             #f
             #f
             #f
             2
             (97 88)
             #f
             r$637
             0
             2
             #t
             #f
             #f)))
       (656
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((657
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((658
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((659
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((660
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((newline
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             4
             (44 13 21 62)
             #f
             #f
             4
             0
             #f
             #f
             #f)))
       (661
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((662
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((663
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$1029
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 539 #f #f #f 1 (539) #f #f 1 0 #t #f #t)))
       (664
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((665
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((count$287
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             105
             #f
             #f
             #f
             4
             (99 89 88 84)
             #f
             r$635
             0
             4
             #f
             #f
             #f)))
       (666
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((entrance$334
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 252 #f #f #f 1 (252) #f r$785 0 1 #t #f #f)))
       (667
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((668
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (main .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 107
                 #f
                 #f
                 2
                 (1 -1)
                 #f
                 (#((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(107
                      (k$634)
                      ((read #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(106
                                 (r$635)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(105
                                       (count$287)
                                       ((read #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(104
                                                  (r$636)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(103
                                                        (input1$288)
                                                        ((read #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(102
                                                                   (r$637)
                                                                   ((#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(101
                                                                         (input2$289)
                                                                         ((read #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(100
                                                                                    (r$638)
                                                                                    ((#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(99
                                                                                          (output$290)
                                                                                          ((#((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(98
                                                                                                (r$639)
                                                                                                ((#((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(97
                                                                                                      (s3$291)
                                                                                                      ((#((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(96
                                                                                                            (r$640)
                                                                                                            ((#((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(95
                                                                                                                  (s2$292)
                                                                                                                  ((#((record-marker)
                                                                                                                      #((record-marker)
                                                                                                                        #f
                                                                                                                        (id args
                                                                                                                            body
                                                                                                                            has-cont))
                                                                                                                      #(94
                                                                                                                        (r$641)
                                                                                                                        ((#((record-marker)
                                                                                                                            #((record-marker)
                                                                                                                              #f
                                                                                                                              (id args
                                                                                                                                  body
                                                                                                                                  has-cont))
                                                                                                                            #(93
                                                                                                                              (s1$293)
                                                                                                                              ((#((record-marker)
                                                                                                                                  #((record-marker)
                                                                                                                                    #f
                                                                                                                                    (id args
                                                                                                                                        body
                                                                                                                                        has-cont))
                                                                                                                                  #(92
                                                                                                                                    (name$294)
                                                                                                                                    ((#((record-marker)
                                                                                                                                        #((record-marker)
                                                                                                                                          #f
                                                                                                                                          (id args
                                                                                                                                              body
                                                                                                                                              has-cont))
                                                                                                                                        #(91
                                                                                                                                          ()
                                                                                                                                          ((#((record-marker)
                                                                                                                                              #((record-marker)
                                                                                                                                                #f
                                                                                                                                                (id args
                                                                                                                                                    body
                                                                                                                                                    has-cont))
                                                                                                                                              #(90
                                                                                                                                                (r$642)
                                                                                                                                                ((#((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(86
                                                                                                                                                      (r$643)
                                                                                                                                                      ((#((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(84
                                                                                                                                                            (r$644)
                                                                                                                                                            ((run-r7rs-benchmark
                                                                                                                                                               k$634
                                                                                                                                                               r$642
                                                                                                                                                               count$287
                                                                                                                                                               r$643
                                                                                                                                                               r$644))
                                                                                                                                                            #f))
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(85
                                                                                                                                                            (k$645 result$295)
                                                                                                                                                            ((k$645 (equal?
                                                                                                                                                                      result$295
                                                                                                                                                                      output$290)))
                                                                                                                                                            #t))))
                                                                                                                                                      #f))
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(89
                                                                                                                                                      (k$646)
                                                                                                                                                      ((hide #((record-marker)
                                                                                                                                                               #((record-marker)
                                                                                                                                                                 #f
                                                                                                                                                                 (id args
                                                                                                                                                                     body
                                                                                                                                                                     has-cont))
                                                                                                                                                               #(88
                                                                                                                                                                 (r$647)
                                                                                                                                                                 ((hide #((record-marker)
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #f
                                                                                                                                                                            (id args
                                                                                                                                                                                body
                                                                                                                                                                                has-cont))
                                                                                                                                                                          #(87
                                                                                                                                                                            (r$648)
                                                                                                                                                                            ((run k$646
                                                                                                                                                                                  r$647
                                                                                                                                                                                  r$648))
                                                                                                                                                                            #f))
                                                                                                                                                                        count$287
                                                                                                                                                                        input2$289))
                                                                                                                                                                 #f))
                                                                                                                                                             count$287
                                                                                                                                                             input1$288))
                                                                                                                                                      #t))))
                                                                                                                                                #f))
                                                                                                                                            (string-append
                                                                                                                                              name$294
                                                                                                                                              ":"
                                                                                                                                              s1$293
                                                                                                                                              ":"
                                                                                                                                              s2$292
                                                                                                                                              ":"
                                                                                                                                              s3$291)))
                                                                                                                                          #f))))
                                                                                                                                    #f))
                                                                                                                                "maze"))
                                                                                                                              #f))
                                                                                                                          r$641))
                                                                                                                        #f))
                                                                                                                    (number->string
                                                                                                                      input1$288)))
                                                                                                                  #f))
                                                                                                              r$640))
                                                                                                            #f))
                                                                                                        (number->string
                                                                                                          input2$289)))
                                                                                                      #f))
                                                                                                  r$639))
                                                                                                #f))
                                                                                            (number->string
                                                                                              count$287)))
                                                                                          #f))
                                                                                      r$638))
                                                                                    #f))))
                                                                         #f))
                                                                     r$637))
                                                                   #f))))
                                                        #f))
                                                    r$636))
                                                  #f))))
                                       #f))
                                   r$635))
                                 #f))))
                      #t)))
                 1
                 0
                 #f
                 #f
                 #f))))
      ((669
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((670
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((671
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((672
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((nc$353
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 344 #f #f #f 1 (341) #f r$816 0 1 #t #f #f)))
       (673
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((674
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((675
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((676
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$1193) #f))))
      ((677
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((678
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((679
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((680
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((681
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((682
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((683
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((684
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$1196 lp$528 r$1196) #t))))
      ((685
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$830 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  297
                  #f
                  #f
                  #f
                  3
                  (296 293 294)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(292
                      (r$824)
                      ((if r$824
                         (#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(291
                              (r$828)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(290
                                    (r$829)
                                    ((href #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(289
                                               (r$825)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(288
                                                     (ne$356)
                                                     ((cell:walls
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(287
                                                            (r$827)
                                                            ((bit-test
                                                               #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(286
                                                                   (r$826)
                                                                   ((if r$826
                                                                      (k$810 #f)
                                                                      (proc$347
                                                                        k$810
                                                                        ne$356)))
                                                                   #f))
                                                               r$827
                                                               south-west))
                                                            #f))
                                                        ne$356))
                                                     #f))
                                                 r$825))
                                               #f))
                                           harr$346
                                           r$828
                                           r$829))
                                    #f))
                                (Cyc-fast-plus y$351 1)))
                              #f))
                          (Cyc-fast-plus x$350 3))
                         (k$810 #f)))
                      #f))
                  3
                  0
                  #t
                  #f
                  #t))))
      ((686
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((687
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((688
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((689
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$834 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  305
                  #f
                  #f
                  #f
                  3
                  (304 299 299)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(298
                      (r$823)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(297
                            (k$830)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(296
                                  (r$831)
                                  ((if r$831
                                     (#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(295
                                          (r$832)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(294
                                                (tmp$169$357)
                                                ((if tmp$169$357
                                                   (k$830 tmp$169$357)
                                                   (mod #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(293
                                                            (r$833)
                                                            ((k$830 (zero?__inline__
                                                                      r$833)))
                                                            #f))
                                                        x$350
                                                        6)))
                                                #f))
                                            r$832))
                                          #f))
                                      (Cyc-fast-lte y$351 maxy$354))
                                     (k$830 #f)))
                                  #f))
                              (Cyc-fast-lt x$350 maxx$355)))
                            #t))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(292
                            (r$824)
                            ((if r$824
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(291
                                    (r$828)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(290
                                          (r$829)
                                          ((href #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(289
                                                     (r$825)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(288
                                                           (ne$356)
                                                           ((cell:walls
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(287
                                                                  (r$827)
                                                                  ((bit-test
                                                                     #((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(286
                                                                         (r$826)
                                                                         ((if r$826
                                                                            (k$810 #f)
                                                                            (proc$347
                                                                              k$810
                                                                              ne$356)))
                                                                         #f))
                                                                     r$827
                                                                     south-west))
                                                                  #f))
                                                              ne$356))
                                                           #f))
                                                       r$825))
                                                     #f))
                                                 harr$346
                                                 r$828
                                                 r$829))
                                          #f))
                                      (Cyc-fast-plus y$351 1)))
                                    #f))
                                (Cyc-fast-plus x$350 3))
                               (k$810 #f)))
                            #f))))
                      #f))
                  2
                  1
                  #f
                  #f
                  #t)))
       (remainder
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (719) #f #f 1 0 #f #f #f))))
      ((690
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((691
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (wall:bit
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             646
             #f
             #f
             2
             (591 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(646
                  (k$1153 o$506)
                  ((k$1153 (vector-ref o$506 3)))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((692
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((693
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$1188 lp$524 r$1188) #t))))
      ((k$1032
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 540 #f #f #f 1 (540) #f #f 1 0 #t #f #t)))
       (694
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((nrows$306
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             247
             #f
             #f
             #f
             2
             (211 194)
             #f
             r$684
             0
             2
             #t
             #f
             #f)))
       (695
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((696
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$1035
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 541 #f #f #f 1 (541) #f #f 1 0 #t #f #t)))
       (697
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((698
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((699
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$1038
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 543 #f #f #f 1 (542) #f #f 0 1 #f #f #t)))
       (700
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((701
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((entrance$342
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             271
             #f
             #f
             #f
             2
             (265 259)
             #f
             r$794
             0
             2
             #f
             #f
             #f)))
       (702
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((703
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((704
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? (k$1218) #t))))
      ((705
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((706
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((707
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((708
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((709
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((710
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((711
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((712
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((713
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((714
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((715
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((716
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((list->vector
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (394) #f #f 1 0 #t #f #f)))
       (717
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((lo$541
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 711 #f #f #f 1 (711) #f r$1214 0 1 #t #f #f)))
       (718
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((719
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((720
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((tmp$165$360
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             315
             #f
             #f
             #f
             2
             (315 315)
             #f
             r$849
             0
             1
             #t
             #f
             #f)))
       (721
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((722
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$840 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  319
                  #f
                  #f
                  #f
                  3
                  (313 307 307)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(306
                      (r$822)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(305
                            (k$834)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(304
                                  (r$835)
                                  ((if r$835
                                     (#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(303
                                          (r$839)
                                          ((href #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(302
                                                     (r$836)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(301
                                                           (n$358)
                                                           ((cell:walls
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(300
                                                                  (r$838)
                                                                  ((bit-test
                                                                     #((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(299
                                                                         (r$837)
                                                                         ((if r$837
                                                                            (k$834 #f)
                                                                            (proc$347
                                                                              k$834
                                                                              n$358)))
                                                                         #f))
                                                                     r$838
                                                                     south))
                                                                  #f))
                                                              n$358))
                                                           #f))
                                                       r$836))
                                                     #f))
                                                 harr$346
                                                 x$350
                                                 r$839))
                                          #f))
                                      (Cyc-fast-plus y$351 2))
                                     (k$834 #f)))
                                  #f))
                              (Cyc-fast-lt y$351 maxy$354)))
                            #t))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(298
                            (r$823)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(297
                                  (k$830)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(296
                                        (r$831)
                                        ((if r$831
                                           (#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(295
                                                (r$832)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(294
                                                      (tmp$169$357)
                                                      ((if tmp$169$357
                                                         (k$830 tmp$169$357)
                                                         (mod #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(293
                                                                  (r$833)
                                                                  ((k$830 (zero?__inline__
                                                                            r$833)))
                                                                  #f))
                                                              x$350
                                                              6)))
                                                      #f))
                                                  r$832))
                                                #f))
                                            (Cyc-fast-lte y$351 maxy$354))
                                           (k$830 #f)))
                                        #f))
                                    (Cyc-fast-lt x$350 maxx$355)))
                                  #t))
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(292
                                  (r$824)
                                  ((if r$824
                                     (#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(291
                                          (r$828)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(290
                                                (r$829)
                                                ((href #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(289
                                                           (r$825)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(288
                                                                 (ne$356)
                                                                 ((cell:walls
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(287
                                                                        (r$827)
                                                                        ((bit-test
                                                                           #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(286
                                                                               (r$826)
                                                                               ((if r$826
                                                                                  (k$810 #f)
                                                                                  (proc$347
                                                                                    k$810
                                                                                    ne$356)))
                                                                               #f))
                                                                           r$827
                                                                           south-west))
                                                                        #f))
                                                                    ne$356))
                                                                 #f))
                                                             r$825))
                                                           #f))
                                                       harr$346
                                                       r$828
                                                       r$829))
                                                #f))
                                            (Cyc-fast-plus y$351 1)))
                                          #f))
                                      (Cyc-fast-plus x$350 3))
                                     (k$810 #f)))
                                  #f))))
                            #f))))
                      #f))
                  2
                  1
                  #f
                  #f
                  #t))))
      ((723
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((724
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((725
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((726
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((727
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((728
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((729
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$847 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  318
                  #f
                  #f
                  #f
                  3
                  (317 314 315)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(313
                      (r$841)
                      ((if r$841
                         (#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(312
                              (r$845)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(311
                                    (r$846)
                                    ((href #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(310
                                               (r$842)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(309
                                                     (nw$359)
                                                     ((cell:walls
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(308
                                                            (r$844)
                                                            ((bit-test
                                                               #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(307
                                                                   (r$843)
                                                                   ((if r$843
                                                                      (k$840 #f)
                                                                      (proc$347
                                                                        k$840
                                                                        nw$359)))
                                                                   #f))
                                                               r$844
                                                               south-east))
                                                            #f))
                                                        nw$359))
                                                     #f))
                                                 r$842))
                                               #f))
                                           harr$346
                                           r$845
                                           r$846))
                                    #f))
                                (Cyc-fast-plus y$351 1)))
                              #f))
                          (Cyc-fast-sub x$350 3))
                         (k$840 #f)))
                      #f))
                  3
                  0
                  #t
                  #f
                  #t))))
      ((730
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$1042
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 552 #f #f #f 1 (544) #f #f 0 1 #f #f #t)))
       (731
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((732
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((harr$388
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             487
             #f
             #f
             #f
             13
             (487
              485
              454
              445
              439
              448
              422
              415
              406
              404
              402
              400
              418)
             #f
             #f
             0
             13
             #t
             #f
             #f)))
       (733
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$1045
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 549 #f #f #f 2 (546 546) #f #f 1 1 #f #f #t)))
       (734
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((735
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((736
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (wall:neighbor
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             647
             #f
             #f
             2
             (598 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(647
                  (k$1156 o$507)
                  ((k$1156 (vector-ref o$507 2)))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((737
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$1238) #f))))
      ((738
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((739
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((740
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((741
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((742
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((743
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((744
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (this-scheme-implementation-name
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             4
             #f
             #f
             2
             (-1 19)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(4
                  (k$564)
                  ((Cyc-version
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(3
                         (r$565)
                         ((k$564 (string-append "cyclone-" r$565)))
                         #f))))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((745
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((746
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f)))
       (cell:id
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             642
             #f
             #f
             2
             (354 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(642
                  (k$1143 o$502)
                  ((k$1143 (vector-ref o$502 2)))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((747
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((748
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((749
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((750
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((751
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((proc$347
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             356
             #f
             #f
             #f
             6
             (286 299 307 321 327 332)
             #f
             #f
             6
             0
             #f
             #f
             #f)))
       (752
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((753
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((754
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((755
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((756
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((757
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((758
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((759
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((old-parent$461
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             565
             #f
             #f
             #f
             2
             (564 564)
             #f
             r$1063
             0
             1
             #f
             #f
             #f)))
       (760
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$1254) #f)))
       (k$851 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  325
                  #f
                  #f
                  #f
                  2
                  (321 324)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(320
                      (r$821)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(319
                            (k$840)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(318
                                  (k$847)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(317
                                        (r$848)
                                        ((if r$848
                                           (#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(316
                                                (r$849)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(315
                                                      (tmp$165$360)
                                                      ((if tmp$165$360
                                                         (k$847 tmp$165$360)
                                                         (mod #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(314
                                                                  (r$850)
                                                                  ((k$847 (zero?__inline__
                                                                            r$850)))
                                                                  #f))
                                                              x$350
                                                              6)))
                                                      #f))
                                                  r$849))
                                                #f))
                                            (Cyc-fast-lte y$351 maxy$354))
                                           (k$847 #f)))
                                        #f))
                                    (Cyc-fast-gt x$350 0)))
                                  #t))
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(313
                                  (r$841)
                                  ((if r$841
                                     (#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(312
                                          (r$845)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(311
                                                (r$846)
                                                ((href #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(310
                                                           (r$842)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(309
                                                                 (nw$359)
                                                                 ((cell:walls
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(308
                                                                        (r$844)
                                                                        ((bit-test
                                                                           #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(307
                                                                               (r$843)
                                                                               ((if r$843
                                                                                  (k$840 #f)
                                                                                  (proc$347
                                                                                    k$840
                                                                                    nw$359)))
                                                                               #f))
                                                                           r$844
                                                                           south-east))
                                                                        #f))
                                                                    nw$359))
                                                                 #f))
                                                             r$842))
                                                           #f))
                                                       harr$346
                                                       r$845
                                                       r$846))
                                                #f))
                                            (Cyc-fast-plus y$351 1)))
                                          #f))
                                      (Cyc-fast-sub x$350 3))
                                     (k$840 #f)))
                                  #f))))
                            #t))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(306
                            (r$822)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(305
                                  (k$834)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(304
                                        (r$835)
                                        ((if r$835
                                           (#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(303
                                                (r$839)
                                                ((href #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(302
                                                           (r$836)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(301
                                                                 (n$358)
                                                                 ((cell:walls
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(300
                                                                        (r$838)
                                                                        ((bit-test
                                                                           #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(299
                                                                               (r$837)
                                                                               ((if r$837
                                                                                  (k$834 #f)
                                                                                  (proc$347
                                                                                    k$834
                                                                                    n$358)))
                                                                               #f))
                                                                           r$838
                                                                           south))
                                                                        #f))
                                                                    n$358))
                                                                 #f))
                                                             r$836))
                                                           #f))
                                                       harr$346
                                                       x$350
                                                       r$839))
                                                #f))
                                            (Cyc-fast-plus y$351 2))
                                           (k$834 #f)))
                                        #f))
                                    (Cyc-fast-lt y$351 maxy$354)))
                                  #t))
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(298
                                  (r$823)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(297
                                        (k$830)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(296
                                              (r$831)
                                              ((if r$831
                                                 (#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(295
                                                      (r$832)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(294
                                                            (tmp$169$357)
                                                            ((if tmp$169$357
                                                               (k$830 tmp$169$357)
                                                               (mod #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(293
                                                                        (r$833)
                                                                        ((k$830 (zero?__inline__
                                                                                  r$833)))
                                                                        #f))
                                                                    x$350
                                                                    6)))
                                                            #f))
                                                        r$832))
                                                      #f))
                                                  (Cyc-fast-lte y$351 maxy$354))
                                                 (k$830 #f)))
                                              #f))
                                          (Cyc-fast-lt x$350 maxx$355)))
                                        #t))
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(292
                                        (r$824)
                                        ((if r$824
                                           (#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(291
                                                (r$828)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(290
                                                      (r$829)
                                                      ((href #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(289
                                                                 (r$825)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(288
                                                                       (ne$356)
                                                                       ((cell:walls
                                                                          #((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(287
                                                                              (r$827)
                                                                              ((bit-test
                                                                                 #((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(286
                                                                                     (r$826)
                                                                                     ((if r$826
                                                                                        (k$810 #f)
                                                                                        (proc$347
                                                                                          k$810
                                                                                          ne$356)))
                                                                                     #f))
                                                                                 r$827
                                                                                 south-west))
                                                                              #f))
                                                                          ne$356))
                                                                       #f))
                                                                   r$825))
                                                                 #f))
                                                             harr$346
                                                             r$828
                                                             r$829))
                                                      #f))
                                                  (Cyc-fast-plus y$351 1)))
                                                #f))
                                            (Cyc-fast-plus x$350 3))
                                           (k$810 #f)))
                                        #f))))
                                  #f))))
                            #f))))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t))))
      ((761
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (set-size
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             669
             #f
             #f
             4
             (585 661 663 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(669
                  (k$1177 s$519)
                  ((get-set-root
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(668 (r$1178) ((k$1177 (car r$1178))) #f))
                     s$519))
                  #t)))
             3
             0
             #f
             #f
             #f))))
      ((762
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((763
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((764
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((c2$477
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 596 #f #f #f 1 (596) #f r$1084 0 1 #t #f #f)))
       (765
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$856 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  330
                  #f
                  #f
                  #f
                  2
                  (327 329)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(326
                      (r$820)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(325
                            (k$851)
                            ((bit-test
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(324
                                   (r$852)
                                   ((if r$852
                                      (k$851 #f)
                                      (#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(323
                                           (r$854)
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(322
                                                 (r$855)
                                                 ((href #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(321
                                                            (r$853)
                                                            ((proc$347
                                                               k$851
                                                               r$853))
                                                            #f))
                                                        harr$346
                                                        r$854
                                                        r$855))
                                                 #f))
                                             (Cyc-fast-sub y$351 1)))
                                           #f))
                                       (Cyc-fast-plus x$350 3))))
                                   #f))
                               walls$348
                               south-east))
                            #t))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(320
                            (r$821)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(319
                                  (k$840)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(318
                                        (k$847)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(317
                                              (r$848)
                                              ((if r$848
                                                 (#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(316
                                                      (r$849)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(315
                                                            (tmp$165$360)
                                                            ((if tmp$165$360
                                                               (k$847 tmp$165$360)
                                                               (mod #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(314
                                                                        (r$850)
                                                                        ((k$847 (zero?__inline__
                                                                                  r$850)))
                                                                        #f))
                                                                    x$350
                                                                    6)))
                                                            #f))
                                                        r$849))
                                                      #f))
                                                  (Cyc-fast-lte y$351 maxy$354))
                                                 (k$847 #f)))
                                              #f))
                                          (Cyc-fast-gt x$350 0)))
                                        #t))
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(313
                                        (r$841)
                                        ((if r$841
                                           (#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(312
                                                (r$845)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(311
                                                      (r$846)
                                                      ((href #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(310
                                                                 (r$842)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(309
                                                                       (nw$359)
                                                                       ((cell:walls
                                                                          #((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(308
                                                                              (r$844)
                                                                              ((bit-test
                                                                                 #((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(307
                                                                                     (r$843)
                                                                                     ((if r$843
                                                                                        (k$840 #f)
                                                                                        (proc$347
                                                                                          k$840
                                                                                          nw$359)))
                                                                                     #f))
                                                                                 r$844
                                                                                 south-east))
                                                                              #f))
                                                                          nw$359))
                                                                       #f))
                                                                   r$842))
                                                                 #f))
                                                             harr$346
                                                             r$845
                                                             r$846))
                                                      #f))
                                                  (Cyc-fast-plus y$351 1)))
                                                #f))
                                            (Cyc-fast-sub x$350 3))
                                           (k$840 #f)))
                                        #f))))
                                  #t))
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(306
                                  (r$822)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(305
                                        (k$834)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(304
                                              (r$835)
                                              ((if r$835
                                                 (#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(303
                                                      (r$839)
                                                      ((href #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(302
                                                                 (r$836)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(301
                                                                       (n$358)
                                                                       ((cell:walls
                                                                          #((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(300
                                                                              (r$838)
                                                                              ((bit-test
                                                                                 #((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(299
                                                                                     (r$837)
                                                                                     ((if r$837
                                                                                        (k$834 #f)
                                                                                        (proc$347
                                                                                          k$834
                                                                                          n$358)))
                                                                                     #f))
                                                                                 r$838
                                                                                 south))
                                                                              #f))
                                                                          n$358))
                                                                       #f))
                                                                   r$836))
                                                                 #f))
                                                             harr$346
                                                             x$350
                                                             r$839))
                                                      #f))
                                                  (Cyc-fast-plus y$351 2))
                                                 (k$834 #f)))
                                              #f))
                                          (Cyc-fast-lt y$351 maxy$354)))
                                        #t))
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(298
                                        (r$823)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(297
                                              (k$830)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(296
                                                    (r$831)
                                                    ((if r$831
                                                       (#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(295
                                                            (r$832)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(294
                                                                  (tmp$169$357)
                                                                  ((if tmp$169$357
                                                                     (k$830 tmp$169$357)
                                                                     (mod #((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(293
                                                                              (r$833)
                                                                              ((k$830 (zero?__inline__
                                                                                        r$833)))
                                                                              #f))
                                                                          x$350
                                                                          6)))
                                                                  #f))
                                                              r$832))
                                                            #f))
                                                        (Cyc-fast-lte
                                                          y$351
                                                          maxy$354))
                                                       (k$830 #f)))
                                                    #f))
                                                (Cyc-fast-lt x$350 maxx$355)))
                                              #t))
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(292
                                              (r$824)
                                              ((if r$824
                                                 (#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(291
                                                      (r$828)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(290
                                                            (r$829)
                                                            ((href #((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(289
                                                                       (r$825)
                                                                       ((#((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(288
                                                                             (ne$356)
                                                                             ((cell:walls
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(287
                                                                                    (r$827)
                                                                                    ((bit-test
                                                                                       #((record-marker)
                                                                                         #((record-marker)
                                                                                           #f
                                                                                           (id args
                                                                                               body
                                                                                               has-cont))
                                                                                         #(286
                                                                                           (r$826)
                                                                                           ((if r$826
                                                                                              (k$810 #f)
                                                                                              (proc$347
                                                                                                k$810
                                                                                                ne$356)))
                                                                                           #f))
                                                                                       r$827
                                                                                       south-west))
                                                                                    #f))
                                                                                ne$356))
                                                                             #f))
                                                                         r$825))
                                                                       #f))
                                                                   harr$346
                                                                   r$828
                                                                   r$829))
                                                            #f))
                                                        (Cyc-fast-plus
                                                          y$351
                                                          1)))
                                                      #f))
                                                  (Cyc-fast-plus x$350 3))
                                                 (k$810 #f)))
                                              #f))))
                                        #f))))
                                  #f))))
                            #f))))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t))))
      ((k$1050
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 561 #f #f #f 1 (553) #f #f 0 1 #f #f #t)))
       (766
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((767
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((768
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((769
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$1266) #f))))
      ((k$1054
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 557 #f #f #f 2 (557 555) #f #f 1 1 #f #f #t)))
       (770
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((771
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((harr:elts
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             539
             #f
             #f
             3
             (530 535 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(539
                  (k$1029 o$438)
                  ((k$1029 (vector-ref o$438 3)))
                  #t)))
             2
             0
             #f
             #f
             #f)))
       (772
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((773
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((774
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$1059
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 570 #f #f #f 1 (562) #f #f 0 1 #f #f #t)))
       (775
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((776
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((777
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((778
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((779
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((entrance$366
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 386 #f #t #f 1 (357) #f #f 0 1 #f #f #f)))
       (780
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((781
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((782
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((783
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((new-parent$456
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 569 #f #t #f 1 (562) #f #f 0 1 #f #f #f))))
      ()
      ()
      ((new-parent$459
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 567 #f #f #f 1 (565) #f #f 0 1 #f #f #f))))
      ()
      ((n$358 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  301
                  #f
                  #f
                  #f
                  2
                  (301 299)
                  #f
                  r$836
                  0
                  2
                  #f
                  #f
                  #f)))
       (k$564 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 4 #f #f #f 1 (3) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ((k$568 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 71 #f #f #f 1 (5) #f #f 0 1 #f #f #t))))
      ()
      ()
      ((k$860 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  336
                  #f
                  #f
                  #f
                  2
                  (332 335)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(331
                      (r$819)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(330
                            (k$856)
                            ((bit-test
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(329
                                   (r$857)
                                   ((if r$857
                                      (k$856 #f)
                                      (#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(328
                                           (r$859)
                                           ((href #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(327
                                                      (r$858)
                                                      ((proc$347 k$856 r$858))
                                                      #f))
                                                  harr$346
                                                  x$350
                                                  r$859))
                                           #f))
                                       (Cyc-fast-sub y$351 2))))
                                   #f))
                               walls$348
                               south))
                            #t))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(326
                            (r$820)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(325
                                  (k$851)
                                  ((bit-test
                                     #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(324
                                         (r$852)
                                         ((if r$852
                                            (k$851 #f)
                                            (#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(323
                                                 (r$854)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(322
                                                       (r$855)
                                                       ((href #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(321
                                                                  (r$853)
                                                                  ((proc$347
                                                                     k$851
                                                                     r$853))
                                                                  #f))
                                                              harr$346
                                                              r$854
                                                              r$855))
                                                       #f))
                                                   (Cyc-fast-sub y$351 1)))
                                                 #f))
                                             (Cyc-fast-plus x$350 3))))
                                         #f))
                                     walls$348
                                     south-east))
                                  #t))
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(320
                                  (r$821)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(319
                                        (k$840)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(318
                                              (k$847)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(317
                                                    (r$848)
                                                    ((if r$848
                                                       (#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(316
                                                            (r$849)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(315
                                                                  (tmp$165$360)
                                                                  ((if tmp$165$360
                                                                     (k$847 tmp$165$360)
                                                                     (mod #((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(314
                                                                              (r$850)
                                                                              ((k$847 (zero?__inline__
                                                                                        r$850)))
                                                                              #f))
                                                                          x$350
                                                                          6)))
                                                                  #f))
                                                              r$849))
                                                            #f))
                                                        (Cyc-fast-lte
                                                          y$351
                                                          maxy$354))
                                                       (k$847 #f)))
                                                    #f))
                                                (Cyc-fast-gt x$350 0)))
                                              #t))
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(313
                                              (r$841)
                                              ((if r$841
                                                 (#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(312
                                                      (r$845)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(311
                                                            (r$846)
                                                            ((href #((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(310
                                                                       (r$842)
                                                                       ((#((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(309
                                                                             (nw$359)
                                                                             ((cell:walls
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(308
                                                                                    (r$844)
                                                                                    ((bit-test
                                                                                       #((record-marker)
                                                                                         #((record-marker)
                                                                                           #f
                                                                                           (id args
                                                                                               body
                                                                                               has-cont))
                                                                                         #(307
                                                                                           (r$843)
                                                                                           ((if r$843
                                                                                              (k$840 #f)
                                                                                              (proc$347
                                                                                                k$840
                                                                                                nw$359)))
                                                                                           #f))
                                                                                       r$844
                                                                                       south-east))
                                                                                    #f))
                                                                                nw$359))
                                                                             #f))
                                                                         r$842))
                                                                       #f))
                                                                   harr$346
                                                                   r$845
                                                                   r$846))
                                                            #f))
                                                        (Cyc-fast-plus
                                                          y$351
                                                          1)))
                                                      #f))
                                                  (Cyc-fast-sub x$350 3))
                                                 (k$840 #f)))
                                              #f))))
                                        #t))
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(306
                                        (r$822)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(305
                                              (k$834)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(304
                                                    (r$835)
                                                    ((if r$835
                                                       (#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(303
                                                            (r$839)
                                                            ((href #((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(302
                                                                       (r$836)
                                                                       ((#((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(301
                                                                             (n$358)
                                                                             ((cell:walls
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(300
                                                                                    (r$838)
                                                                                    ((bit-test
                                                                                       #((record-marker)
                                                                                         #((record-marker)
                                                                                           #f
                                                                                           (id args
                                                                                               body
                                                                                               has-cont))
                                                                                         #(299
                                                                                           (r$837)
                                                                                           ((if r$837
                                                                                              (k$834 #f)
                                                                                              (proc$347
                                                                                                k$834
                                                                                                n$358)))
                                                                                           #f))
                                                                                       r$838
                                                                                       south))
                                                                                    #f))
                                                                                n$358))
                                                                             #f))
                                                                         r$836))
                                                                       #f))
                                                                   harr$346
                                                                   x$350
                                                                   r$839))
                                                            #f))
                                                        (Cyc-fast-plus y$351 2))
                                                       (k$834 #f)))
                                                    #f))
                                                (Cyc-fast-lt y$351 maxy$354)))
                                              #t))
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(298
                                              (r$823)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(297
                                                    (k$830)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(296
                                                          (r$831)
                                                          ((if r$831
                                                             (#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(295
                                                                  (r$832)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(294
                                                                        (tmp$169$357)
                                                                        ((if tmp$169$357
                                                                           (k$830 tmp$169$357)
                                                                           (mod #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(293
                                                                                    (r$833)
                                                                                    ((k$830 (zero?__inline__
                                                                                              r$833)))
                                                                                    #f))
                                                                                x$350
                                                                                6)))
                                                                        #f))
                                                                    r$832))
                                                                  #f))
                                                              (Cyc-fast-lte
                                                                y$351
                                                                maxy$354))
                                                             (k$830 #f)))
                                                          #f))
                                                      (Cyc-fast-lt
                                                        x$350
                                                        maxx$355)))
                                                    #t))
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(292
                                                    (r$824)
                                                    ((if r$824
                                                       (#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(291
                                                            (r$828)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(290
                                                                  (r$829)
                                                                  ((href #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(289
                                                                             (r$825)
                                                                             ((#((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(288
                                                                                   (ne$356)
                                                                                   ((cell:walls
                                                                                      #((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(287
                                                                                          (r$827)
                                                                                          ((bit-test
                                                                                             #((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(286
                                                                                                 (r$826)
                                                                                                 ((if r$826
                                                                                                    (k$810 #f)
                                                                                                    (proc$347
                                                                                                      k$810
                                                                                                      ne$356)))
                                                                                                 #f))
                                                                                             r$827
                                                                                             south-west))
                                                                                          #f))
                                                                                      ne$356))
                                                                                   #f))
                                                                               r$825))
                                                                             #f))
                                                                         harr$346
                                                                         r$828
                                                                         r$829))
                                                                  #f))
                                                              (Cyc-fast-plus
                                                                y$351
                                                                1)))
                                                            #f))
                                                        (Cyc-fast-plus x$350 3))
                                                       (k$810 #f)))
                                                    #f))))
                                              #f))))
                                        #f))))
                                  #f))))
                            #f))))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t))))
      ()
      ((R$535 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 715 #f #t 2699 1 (710) #f 2699 0 1 #t #f #f))))
      ()
      ((A$538 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 715 #f #t 2813 1 (711) #f 2813 0 1 #t #f #f))))
      ((nrows$331
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 258 #f #f #f 1 (258) #f #f 0 1 #t #f #f))))
      ()
      ((ok?$261
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 71 #f #f #f 1 (48) #f #f 1 0 #f #f #f))))
      ()
      ((k$869 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 393 #f #f #f 1 (357) #f #f 0 1 #f #f #t)))
       (k$1062
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 567 #f #f #f 2 (564 564) #f #f 1 1 #f #f #t))))
      ()
      ((nrows$337
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             285
             #f
             #f
             #f
             3
             (285 278 266)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ()
      ()
      ((k$1067
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 580 #f #f #f 1 (571) #f #f 0 1 #f #f #t))))
      ()
      ((entrance$371
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 384 #f #f #f 2 (378 383) #f #f 0 2 #f #f #f))))
      ()
      ((output
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             #f
             #f
             #f
             5
             (110 108 251 250 -1)
             #t
             r$654
             0
             2
             #f
             #f
             #f))))
      ((j1$276
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 38 #f #f #f 1 (36) #f r$585 0 1 #t #f #f))))
      ()
      ((entrance$376
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             377
             #f
             #f
             #f
             1
             (366)
             #f
             entrance$371
             0
             1
             #f
             #f
             #f))))
      ((set2$478
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             594
             #f
             #f
             #f
             2
             (593 588)
             #f
             r$1085
             0
             2
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((loop$273
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 50 #f #f #f 3 (7 6 5) #f r$578 2 0 #f #f #f))))
      ()
      ()
      ((%halt .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(? ? #f #f #f 1 (1) #f #f 0 1 #f #f #f))))
      ()
      ((k$579 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 49 #f #f #f 3 (41 10 7) #f #f 2 1 #f #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((i$424 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 513 #f #f #f 1 (498) #f r$997 0 1 #f #f #f))))
      ((k$876 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 384 #f #f #f 2 (359 383) #f #f 0 2 #f #f #t))))
      ((k$1070
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 577 #f #f #f 1 (573) #f #f 0 1 #f #f #t))))
      ((i$427 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 511 #f #f #f 2 (503 501) #f #f 0 2 #t #f #f))))
      ()
      ((k$1073
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 575 #f #f #f 2 (574 574) #f #f 1 1 #f #f #t))))
      ()
      ()
      ()
      ((k$1077
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 604 #f #f #f 1 (581) #f #f 0 1 #f #f #t))))
      ()
      ((entrance$381
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 375 #f #f #f 2 (369 374) #f #f 0 2 #f #f #f)))
       (k$1079
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 603 #f #f #f 1 (582) #f #f 0 1 #f #f #t))))
      ()
      ()
      ()
      ()
      ((entrance$386
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 360 #f #f #f 1 (359) #f r$882 0 1 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((cell$345
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 356 #f #f #f 2 (356 354) #f #f 0 2 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$1081
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             602
             #f
             #f
             #f
             3
             (583 583 592)
             #f
             #f
             2
             1
             #f
             #f
             #t)))
       (k$888 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  375
                  #f
                  #f
                  #f
                  3
                  (369 368 374)
                  #f
                  #f
                  0
                  3
                  #f
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ()
      ((r$1100
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             606
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$484 r$1101)
             0
             0
             #t
             #f
             #f))))
      ((r$1101
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             607
             #f
             #f
             #f
             1
             (607)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(617
                 (k$1102 i$485)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(616
                       (r$1103)
                       ((if r$1103
                          (#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(615
                               ()
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(614
                                     (r$1106)
                                     ((random-int
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(613
                                            (r$1107)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(612
                                                  (elt-i$487 j$486)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(611
                                                        (r$1109)
                                                        ((#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(610
                                                              (r$1108)
                                                              ((#((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(609
                                                                    (r$1104)
                                                                    ((#((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(608
                                                                          (r$1105)
                                                                          ((lp$484
                                                                             k$1102
                                                                             r$1105))
                                                                          #f))
                                                                      (Cyc-fast-sub
                                                                        i$485
                                                                        1)))
                                                                    #f))
                                                                (vector-set!
                                                                  v$482
                                                                  j$486
                                                                  elt-i$487)))
                                                              #f))
                                                          (vector-set!
                                                            v$482
                                                            i$485
                                                            r$1109)))
                                                        #f))
                                                    (vector-ref v$482 j$486)))
                                                  #f))
                                              r$1106
                                              r$1107))
                                            #f))
                                        i$485
                                        random-state$481))
                                     #f))
                                 (vector-ref v$482 i$485)))
                               #f)))
                          (k$1102 #f)))
                       #f))
                   (Cyc-fast-gt i$485 1)))
                 #t))
             0
             0
             #t
             #f
             #f))))
      ()
      ((r$1103
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             616
             #f
             #f
             #f
             1
             (616)
             #f
             (Cyc-fast-gt i$485 1)
             0
             0
             #t
             #f
             #f))))
      ((r$1104
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             609
             #f
             #f
             #f
             0
             ()
             #f
             (vector-set! v$482 j$486 elt-i$487)
             0
             0
             #t
             #f
             #f)))
       (lp$524
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             694
             #f
             #f
             #f
             3
             (675 674 673)
             #f
             r$1188
             2
             0
             #f
             #f
             #f))))
      ((r$1105
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             608
             #f
             #f
             #f
             1
             (608)
             #f
             (Cyc-fast-sub i$485 1)
             0
             1
             #t
             #f
             #f))))
      ((r$1106
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             614
             #f
             #f
             #f
             1
             (613)
             #f
             (vector-ref v$482 i$485)
             0
             1
             #f
             #f
             #f))))
      ((r$1107
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 613 #f #f #f 1 (613) #f #f 0 1 #t #f #f))))
      ((r$700 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 163 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (r$1108
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             610
             #f
             #f
             #f
             0
             ()
             #f
             (vector-set! v$482 i$485 r$1109)
             0
             0
             #t
             #f
             #f)))
       (lp$528
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             685
             #f
             #f
             #f
             3
             (679 678 677)
             #f
             r$1196
             2
             0
             #f
             #f
             #f))))
      ((r$701 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 162 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (r$1109
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             611
             #f
             #f
             #f
             1
             (611)
             #f
             (vector-ref v$482 j$486)
             0
             1
             #t
             #f
             #f))))
      ((r$702 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 145 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$703 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 136 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (bcol$374
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 377 #f #f #f 1 (366) #f r$885 0 1 #f #f #f))))
      ((r$704 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 135 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$705 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  134
                  #f
                  #f
                  #f
                  1
                  (134)
                  #f
                  (Cyc-fast-sub r$311 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ((r$707 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 143 #f #f #f 1 (143) #f #f 0 0 #t #f #f))))
      ((r$708 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 137 #f #f #f 1 (137) #f #f 0 1 #t #f #f)))
       (bcol$379
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             375
             #f
             #f
             #f
             5
             (375 374 370 370 368)
             #f
             #f
             0
             5
             #f
             #f
             #f))))
      ((r$709 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 138 #f #f #f 1 (138) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((tcol$364
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 386 #f #f #f 1 (357) #f r$873 0 1 #f #f #f))))
      ((round__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (67) #f #f 1 0 #t #f #f)))
       (nrows$363
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 388 #f #f #f 1 (383) #f r$871 0 1 #t #f #f))))
      ()
      ((k$899 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 487 #f #f #f 1 (394) #f #f 1 0 #t #f #t))))
      ()
      ((tcol$369
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             384
             #f
             #f
             #f
             4
             (384 382 368 360)
             #f
             #f
             0
             4
             #f
             #f
             #f)))
       (cons .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 5
                 (251 476 490 697 718)
                 #f
                 #f
                 5
                 0
                 #t
                 #f
                 #f))))
      ()
      ()
      ((r$413 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 492 #f #f #f 1 (488) #f #f 0 1 #f #f #f)))
       (r$1110
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             621
             #f
             #f
             #f
             1
             (621)
             #f
             (vector-length v$482)
             0
             1
             #t
             #f
             #f)))
       (k$1097
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 622 #f #f #f 1 (605) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ((r$1114
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             633
             #f
             #f
             #f
             1
             (633)
             #f
             (Cyc-fast-sub r$1122 1)
             0
             1
             #t
             #f
             #f))))
      ((r$1115
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             623
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$491 r$1116)
             0
             0
             #t
             #f
             #f))))
      ((r$1116
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             624
             #f
             #f
             #f
             1
             (624)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(630
                 (k$1117 i$492)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(629
                       (r$1118)
                       ((if r$1118
                          (#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(628
                               ()
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(627
                                     (r$1121)
                                     ((proc$489
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(626
                                            (r$1119)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(625
                                                  (r$1120)
                                                  ((lp$491 k$1117 r$1120))
                                                  #f))
                                              (Cyc-fast-sub i$492 1)))
                                            #f))
                                        r$1121))
                                     #f))
                                 (vector-ref v$488 i$492)))
                               #f)))
                          (k$1117 #f)))
                       #f))
                   (Cyc-fast-gte i$492 0)))
                 #t))
             0
             0
             #t
             #f
             #f))))
      ()
      ((r$710 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  139
                  #f
                  #f
                  #f
                  1
                  (139)
                  #f
                  (Cyc-fast-sub ncols$307 1)
                  0
                  1
                  #t
                  #f
                  #f)))
       (r$1118
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             629
             #f
             #f
             #f
             1
             (629)
             #f
             (Cyc-fast-gte i$492 0)
             0
             0
             #t
             #f
             #f)))
       (bit$509
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 650 #f #f #f 1 (649) #f #f 0 1 #f #f #f))))
      ((r$711 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  142
                  #f
                  #f
                  #f
                  1
                  (142)
                  #f
                  (zero?__inline__ r$311)
                  0
                  0
                  #t
                  #f
                  #f)))
       (r$1119
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 626 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$712 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  146
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$207$314 r$713)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$713 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  147
                  #f
                  #f
                  #f
                  1
                  (147)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(159
                      (k$714 c$315)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(158
                            (r$715)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(157
                                  (tmp$209$316)
                                  ((if tmp$209$316
                                     (k$714 tmp$209$316)
                                     (#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(156
                                          ()
                                          ((href/rc
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(155
                                                 (r$723)
                                                 ((cell:walls
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(154
                                                        (r$722)
                                                        ((display-hexbottom
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(153
                                                               (r$716)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(152
                                                                     (r$720)
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(151
                                                                           (r$721)
                                                                           ((dot/space
                                                                              #((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(150
                                                                                  (r$719)
                                                                                  ((write-ch
                                                                                     #((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(149
                                                                                         (r$717)
                                                                                         ((#((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(148
                                                                                               (r$718)
                                                                                               ((lp$207$314
                                                                                                  k$714
                                                                                                  r$718))
                                                                                               #f))
                                                                                           (Cyc-fast-plus
                                                                                             c$315
                                                                                             2)))
                                                                                         #f))
                                                                                     r$719))
                                                                                  #f))
                                                                              harr$305
                                                                              r$720
                                                                              r$721))
                                                                           #f))
                                                                       (Cyc-fast-plus
                                                                         c$315
                                                                         1)))
                                                                     #f))
                                                                 (Cyc-fast-sub
                                                                   r$311
                                                                   1)))
                                                               #f))
                                                           r$722))
                                                        #f))
                                                    r$723))
                                                 #f))
                                             harr$305
                                             r$311
                                             c$315))
                                          #f)))))
                                  #f))
                              r$715))
                            #f))
                        (Cyc-fast-gte c$315 ncols2$308)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((n$394 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 477 #f #f #f 1 (477) #f #f 0 1 #t #f #f))))
      ((r$715 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  158
                  #f
                  #f
                  #f
                  1
                  (158)
                  #f
                  (Cyc-fast-gte c$315 ncols2$308)
                  0
                  1
                  #t
                  #f
                  #f)))
       (lp$200$318
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             184
             #f
             #f
             #f
             3
             (173 172 171)
             #f
             r$730
             2
             0
             #f
             #f
             #f))))
      ((r$716 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 153 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$717 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 149 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (elt-i$487
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 612 #f #f #f 1 (610) #f r$1106 0 1 #t #f #f))))
      ((r$718 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  148
                  #f
                  #f
                  #f
                  1
                  (148)
                  #f
                  (Cyc-fast-plus c$315 2)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$719 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 150 #f #f #f 1 (150) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$420 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 520 #f #f #f 1 (494) #f r$990 0 1 #f #f #f))))
      ()
      ((r$422 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  518
                  #f
                  #f
                  #f
                  4
                  (518 515 507 497)
                  #f
                  #f
                  0
                  4
                  #t
                  #f
                  #f))))
      ((r$1120
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             625
             #f
             #f
             #f
             1
             (625)
             #f
             (Cyc-fast-sub i$492 1)
             0
             1
             #t
             #f
             #f))))
      ((r$1121
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             627
             #f
             #f
             #f
             1
             (627)
             #f
             (vector-ref v$488 i$492)
             0
             1
             #t
             #f
             #f))))
      ((r$1122
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             634
             #f
             #f
             #f
             1
             (634)
             #f
             (vector-length v$488)
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ((r$720 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  152
                  #f
                  #f
                  #f
                  1
                  (151)
                  #f
                  (Cyc-fast-sub r$311 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$721 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  151
                  #f
                  #f
                  #f
                  1
                  (151)
                  #f
                  (Cyc-fast-plus c$315 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$722 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 154 #f #f #f 1 (154) #f #f 0 1 #t #f #f))))
      ((r$723 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 155 #f #f #f 1 (155) #f #f 0 1 #t #f #f))))
      ()
      ((r$725 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 168 #f #f #f 1 (168) #f #f 0 0 #t #f #f))))
      ((r$726 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 164 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$727 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 165 #f #f #f 1 (165) #f #f 0 1 #t #f #f))))
      ((r$728 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  166
                  #f
                  #f
                  #f
                  1
                  (166)
                  #f
                  (Cyc-fast-sub ncols$307 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$729 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  171
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$200$318 r$730)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((inexact__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (33) #f #f 1 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((s1$513
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 667 #f #f #f 1 (667) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((jiffies-per-second
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (59) #f #f 1 0 #f #f #f))))
      ((r$431 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 530 #f #f #f 1 (528) #f #f 0 1 #t #f #f))))
      ((hex$411
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             452
             #f
             #f
             #f
             3
             (444 438 447)
             #f
             r$949
             0
             3
             #f
             #f
             #f)))
       (nrows$389
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 485 #f #f #f 1 (464) #f r$900 0 1 #t #f #f))))
      ()
      ((parent$465
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 579 #f #t #f 1 (571) #f #f 0 1 #f #f #f))))
      ()
      ()
      ((r$437 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 535 #f #f #f 1 (533) #f r$1021 0 1 #t #f #f)))
       (parent$468
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 577 #f #f #f 2 (577 575) #f #f 0 2 #t #f #f)))
       (Cyc-fast-gte
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             8
             (127 238 219 183 159 630 738 761)
             #f
             #f
             8
             0
             #t
             #f
             #f))))
      ((owner$511
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 650 #f #f #f 1 (649) #f #f 0 1 #f #f #f))))
      ()
      ()
      ((r$730 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  172
                  #f
                  #f
                  #f
                  1
                  (172)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(183
                      (k$731 c$319)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(182
                            (r$732)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(181
                                  (tmp$202$320)
                                  ((if tmp$202$320
                                     (k$731 tmp$202$320)
                                     (#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(180
                                          ()
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(179
                                                (r$739)
                                                ((dot/space
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(178
                                                       (r$738)
                                                       ((write-ch
                                                          #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(177
                                                              (r$733)
                                                              ((href/rc
                                                                 #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(176
                                                                     (r$737)
                                                                     ((cell:walls
                                                                        #((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(175
                                                                            (r$736)
                                                                            ((display-hexbottom
                                                                               #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(174
                                                                                   (r$734)
                                                                                   ((#((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(173
                                                                                         (r$735)
                                                                                         ((lp$200$318
                                                                                            k$731
                                                                                            r$735))
                                                                                         #f))
                                                                                     (Cyc-fast-plus
                                                                                       c$319
                                                                                       2)))
                                                                                   #f))
                                                                               r$736))
                                                                            #f))
                                                                        r$737))
                                                                     #f))
                                                                 harr$305
                                                                 r$311
                                                                 c$319))
                                                              #f))
                                                          r$738))
                                                       #f))
                                                   harr$305
                                                   r$311
                                                   r$739))
                                                #f))
                                            (Cyc-fast-sub c$319 1)))
                                          #f)))))
                                  #f))
                              r$732))
                            #f))
                        (Cyc-fast-gte c$319 ncols2$308)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$732 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  182
                  #f
                  #f
                  #f
                  1
                  (182)
                  #f
                  (Cyc-fast-gte c$319 ncols2$308)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$733 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 177 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$734 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 174 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$735 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  173
                  #f
                  #f
                  #f
                  1
                  (173)
                  #f
                  (Cyc-fast-plus c$319 2)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$736 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 175 #f #f #f 1 (175) #f #f 0 1 #t #f #f))))
      ((r$737 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 176 #f #f #f 1 (176) #f #f 0 1 #t #f #f))))
      ((r$738 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 178 #f #f #f 1 (178) #f #f 0 1 #t #f #f))))
      ((r$739 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  179
                  #f
                  #f
                  #f
                  1
                  (179)
                  #f
                  (Cyc-fast-sub c$319 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ((c$299 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 128 #f #f #f 1 (126) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((s1$521
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 672 #f #f #f 1 (672) #f #f 0 1 #t #f #f)))
       (exact-integer?__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             4
             (740 739 763 762)
             #f
             #f
             4
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$741 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 200 #f #f #f 1 (200) #f #f 0 0 #t #f #f))))
      ((r$742 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 196 #f #f #f 1 (196) #f #f 0 1 #t #f #f))))
      ()
      ((r$744 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  197
                  #f
                  #f
                  #f
                  1
                  (197)
                  #f
                  (Cyc-fast-eq entrance$304 r$745)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$745 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  198
                  #f
                  #f
                  #f
                  1
                  (198)
                  #f
                  (Cyc-fast-sub ncols$307 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$746 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  203
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$192$322 r$747)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$747 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  204
                  #f
                  #f
                  #f
                  1
                  (204)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(219
                      (k$748 c$323)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(218
                            (r$749)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(217
                                  (tmp$194$324)
                                  ((if tmp$194$324
                                     (k$748 tmp$194$324)
                                     (#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(216
                                          ()
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(215
                                                (k$759)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(214
                                                      (r$760)
                                                      ((if r$760
                                                         (k$759 #\space)
                                                         (k$759 #\_)))
                                                      #f))
                                                  (Cyc-fast-eq
                                                    c$323
                                                    entrance$304)))
                                                #t))
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(213
                                                (r$758)
                                                ((write-ch
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(212
                                                       (r$750)
                                                       ((write-ch
                                                          #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(211
                                                              (r$751)
                                                              ((#((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(210
                                                                    (r$756)
                                                                    ((#((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(209
                                                                          (r$757)
                                                                          ((dot/space
                                                                             #((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(208
                                                                                 (r$755)
                                                                                 ((write-ch
                                                                                    #((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(207
                                                                                        (r$752)
                                                                                        ((write-ch
                                                                                           #((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(206
                                                                                               (r$753)
                                                                                               ((#((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(205
                                                                                                     (r$754)
                                                                                                     ((lp$192$322
                                                                                                        k$748
                                                                                                        r$754))
                                                                                                     #f))
                                                                                                 (Cyc-fast-plus
                                                                                                   c$323
                                                                                                   2)))
                                                                                               #f))
                                                                                           #\\))
                                                                                        #f))
                                                                                    r$755))
                                                                                 #f))
                                                                             harr$305
                                                                             r$756
                                                                             r$757))
                                                                          #f))
                                                                      (Cyc-fast-plus
                                                                        c$323
                                                                        1)))
                                                                    #f))
                                                                (Cyc-fast-sub
                                                                  nrows$306
                                                                  1)))
                                                              #f))
                                                          #\/))
                                                       #f))
                                                   r$758))
                                                #f))))
                                          #f)))))
                                  #f))
                              r$749))
                            #f))
                        (Cyc-fast-gte c$323 ncols2$308)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$749 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  218
                  #f
                  #f
                  #f
                  1
                  (218)
                  #f
                  (Cyc-fast-gte c$323 ncols2$308)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ((Cyc-fast-eq
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             13
             (231
              215
              198
              511
              584
              729
              721
              752
              744
              781
              780
              779
              778)
             #f
             #f
             13
             0
             #t
             #f
             #f))))
      ()
      ((read .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 4
                 (101 103 105 107)
                 #f
                 #f
                 4
                 0
                 #f
                 #f
                 #f))))
      ()
      ()
      ((bitwise-and
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             781
             #f
             #f
             7
             (131 261 462 506 587 774 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(781
                  (k$1259 x$558 y$557)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(780
                        (r$1260)
                        ((if r$1260
                           (#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(765 () ((k$1259 0)) #f)))
                           (#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(779
                                (r$1261)
                                ((if r$1261
                                   (#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(766 () ((k$1259 0)) #f)))
                                   (#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(778
                                        (r$1262)
                                        ((if r$1262
                                           (#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(767 () ((k$1259 y$557)) #f)))
                                           (#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(777
                                                (r$1263)
                                                ((if r$1263
                                                   (#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(768
                                                        ()
                                                        ((k$1259 x$558))
                                                        #f)))
                                                   (#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(776
                                                        ()
                                                        ((div #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(775
                                                                  (r$1268)
                                                                  ((div #((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(774
                                                                            (r$1269)
                                                                            ((bitwise-and
                                                                               #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(773
                                                                                   (r$1264)
                                                                                   ((#((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(772
                                                                                         (z$559)
                                                                                         ((#((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(771
                                                                                               (k$1266)
                                                                                               ((odd? #((record-marker)
                                                                                                        #((record-marker)
                                                                                                          #f
                                                                                                          (id args
                                                                                                              body
                                                                                                              has-cont))
                                                                                                        #(770
                                                                                                          (r$1267)
                                                                                                          ((if r$1267
                                                                                                             (odd? k$1266
                                                                                                                   y$557)
                                                                                                             (k$1266
                                                                                                               #f)))
                                                                                                          #f))
                                                                                                      x$558))
                                                                                               #t))
                                                                                           #((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(769
                                                                                               (r$1265)
                                                                                               ((if r$1265
                                                                                                  (k$1259
                                                                                                    (+ z$559
                                                                                                       z$559
                                                                                                       1))
                                                                                                  (k$1259
                                                                                                    (Cyc-fast-plus
                                                                                                      z$559
                                                                                                      z$559))))
                                                                                               #f))))
                                                                                         #f))
                                                                                     r$1264))
                                                                                   #f))
                                                                               r$1268
                                                                               r$1269))
                                                                            #f))
                                                                        y$557
                                                                        2))
                                                                  #f))
                                                              x$558
                                                              2))
                                                        #f)))))
                                                #f))
                                            (Cyc-fast-eq y$557 -1))))
                                        #f))
                                    (Cyc-fast-eq x$558 -1))))
                                #f))
                            (Cyc-fast-eq y$557 0))))
                        #f))
                    (Cyc-fast-eq x$558 0)))
                  #t)))
             6
             0
             #f
             #f
             #f))))
      ((i$483 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 619 #f #f #f 1 (606) #f r$1099 0 1 #f #f #f))))
      ()
      ((i$485 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  617
                  #f
                  #f
                  #f
                  5
                  (617 615 614 611 609)
                  #f
                  #f
                  0
                  5
                  #f
                  #f
                  #f))))
      ((current-jiffy
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (40 55) #f #f 2 0 #f #f #f))))
      ()
      ()
      ((Cyc-fast-mul
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             21
             (68
              244
              278
              343
              340
              482
              471
              463
              425
              525
              515
              508
              507
              528
              533
              711
              710
              733
              725
              756
              748)
             #f
             #f
             21
             0
             #t
             #f
             #f))))
      ((div .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                -1
                764
                #f
                #f
                8
                (245 426 537 538 715 -1 775 776)
                #f
                (#((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(764
                     (k$1243 x$552 y$551)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(763
                           (k$1254)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(762
                                 (r$1255)
                                 ((if r$1255
                                    (#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(761
                                         (r$1256)
                                         ((if r$1256
                                            (k$1254 (Cyc-fast-gte x$552 0))
                                            (k$1254 #f)))
                                         #f))
                                     (exact-integer?__inline__ y$551))
                                    (k$1254 #f)))
                                 #f))
                             (exact-integer?__inline__ x$552)))
                           #t))
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(760
                           (r$1244)
                           ((if r$1244
                              (#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(742
                                   ()
                                   ((k$1243 (quotient__inline__ x$552 y$551)))
                                   #f)))
                              (#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(759
                                   (r$1245)
                                   ((if r$1245
                                      (#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(750
                                           ()
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(749
                                                 (r$1246)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(748
                                                       (q$555)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(747
                                                             (r$1249)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(746
                                                                   (r$1247)
                                                                   ((#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(745
                                                                         (r$556)
                                                                         ((#((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(744
                                                                               ()
                                                                               ((#((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(743
                                                                                     (r$1248)
                                                                                     ((if r$1248
                                                                                        (k$1243
                                                                                          q$555)
                                                                                        (k$1243
                                                                                          (Cyc-fast-plus
                                                                                            q$555
                                                                                            1))))
                                                                                     #f))
                                                                                 (Cyc-fast-eq
                                                                                   r$556
                                                                                   0)))
                                                                               #f))))
                                                                         #f))
                                                                     r$1247))
                                                                   #f))
                                                               (Cyc-fast-sub
                                                                 x$552
                                                                 r$1249)))
                                                             #f))
                                                         (Cyc-fast-mul
                                                           q$555
                                                           y$551)))
                                                       #f))
                                                   r$1246))
                                                 #f))
                                             (quotient__inline__ x$552 y$551)))
                                           #f)))
                                      (#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(758
                                           ()
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(757
                                                 (r$1250)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(756
                                                       (q$553)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(755
                                                             (r$1253)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(754
                                                                   (r$1251)
                                                                   ((#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(753
                                                                         (r$554)
                                                                         ((#((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(752
                                                                               ()
                                                                               ((#((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(751
                                                                                     (r$1252)
                                                                                     ((if r$1252
                                                                                        (k$1243
                                                                                          q$553)
                                                                                        (k$1243
                                                                                          (Cyc-fast-sub
                                                                                            q$553
                                                                                            1))))
                                                                                     #f))
                                                                                 (Cyc-fast-eq
                                                                                   r$554
                                                                                   0)))
                                                                               #f))))
                                                                         #f))
                                                                     r$1251))
                                                                   #f))
                                                               (Cyc-fast-sub
                                                                 x$552
                                                                 r$1253)))
                                                             #f))
                                                         (Cyc-fast-mul
                                                           q$553
                                                           y$551)))
                                                       #f))
                                                   r$1250))
                                                 #f))
                                             (quotient__inline__ x$552 y$551)))
                                           #f)))))
                                   #f))
                               (Cyc-fast-lt y$551 0))))
                           #f))))
                     #t)))
                7
                0
                #f
                #f
                #f))))
      ()
      ()
      ((r$1150
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 644 #f #f #f 1 (644) #f 'cell 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$750 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 212 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (Cyc-fast-sub
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             52
             (36
              31
              211
              194
              180
              153
              135
              140
              167
              199
              266
              344
              341
              313
              323
              329
              335
              334
              388
              383
              379
              370
              370
              360
              483
              472
              464
              446
              437
              440
              450
              449
              433
              427
              416
              413
              405
              398
              522
              497
              621
              609
              634
              626
              709
              732
              724
              720
              755
              751
              747
              782)
             #f
             #f
             52
             0
             #t
             #f
             #f))))
      ((r$751 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 211 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$752 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 207 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$753 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 206 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$754 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  205
                  #f
                  #f
                  #f
                  1
                  (205)
                  #f
                  (Cyc-fast-plus c$323 2)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$755 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 208 #f #f #f 1 (208) #f #f 0 1 #t #f #f))))
      ((r$756 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  210
                  #f
                  #f
                  #f
                  1
                  (209)
                  #f
                  (Cyc-fast-sub nrows$306 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$757 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  209
                  #f
                  #f
                  #f
                  1
                  (209)
                  #f
                  (Cyc-fast-plus c$323 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$758 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 213 #f #f #f 1 (213) #f #f 0 1 #t #f #f)))
       (wall$474
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             602
             #f
             #f
             #f
             3
             (602 598 591)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((pair? .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(? ? #f #f #f 1 (691) #f #f 1 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((i$490 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 632 #f #f #f 1 (623) #f r$1114 0 1 #f #f #f))))
      ()
      ((make-vector
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (524) #f #f 1 0 #t #f #f)))
       (i$492 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  630
                  #f
                  #f
                  #f
                  3
                  (630 628 626)
                  #f
                  #f
                  0
                  3
                  #t
                  #f
                  #f))))
      ((root$463
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 580 #f #f #f 1 (580) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((walls$339
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 279 #f #f #f 1 (277) #f r$791 0 1 #f #f #f))))
      ()
      ()
      ((r$1163
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 649 #f #f #f 1 (649) #f 'wall 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r$1167
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 666 #f #f #f 1 (666) #f #f 0 1 #t #t #f))))
      ((r$760 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  214
                  #f
                  #f
                  #f
                  1
                  (214)
                  #f
                  (Cyc-fast-eq c$323 entrance$304)
                  0
                  0
                  #t
                  #f
                  #f)))
       (r$1168
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 664 #f #f #f 1 (664) #f #f 0 1 #t #t #f))))
      ((r$761 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  225
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$188$326 r$762)
                  0
                  0
                  #t
                  #f
                  #f)))
       (r$1169
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 662 #f #f #f 1 (662) #f #f 0 1 #t #f #f))))
      ((r$762 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  226
                  #f
                  #f
                  #f
                  1
                  (226)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(238
                      (k$763 c$327)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(237
                            (r$764)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(236
                                  (tmp$190$328)
                                  ((if tmp$190$328
                                     (k$763 tmp$190$328)
                                     (#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(235
                                          ()
                                          ((write-ch
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(234
                                                 (r$765)
                                                 ((write-ch
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(233
                                                        (r$766)
                                                        ((write-ch
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(232
                                                               (r$767)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(231
                                                                     (k$771)
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(230
                                                                           (r$772)
                                                                           ((if r$772
                                                                              (k$771 #\space)
                                                                              (k$771 #\_)))
                                                                           #f))
                                                                       (Cyc-fast-eq
                                                                         c$327
                                                                         entrance$304)))
                                                                     #t))
                                                                 #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(229
                                                                     (r$770)
                                                                     ((write-ch
                                                                        #((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(228
                                                                            (r$768)
                                                                            ((#((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(227
                                                                                  (r$769)
                                                                                  ((lp$188$326
                                                                                     k$763
                                                                                     r$769))
                                                                                  #f))
                                                                              (Cyc-fast-plus
                                                                                c$327
                                                                                2)))
                                                                            #f))
                                                                        r$770))
                                                                     #f))))
                                                               #f))
                                                           #\space))
                                                        #f))
                                                    #\space))
                                                 #f))
                                             #\space))
                                          #f)))))
                                  #f))
                              r$764))
                            #f))
                        (Cyc-fast-gte c$327 ncols$307)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$764 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  237
                  #f
                  #f
                  #f
                  1
                  (237)
                  #f
                  (Cyc-fast-gte c$327 ncols$307)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$765 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 234 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$766 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 233 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$767 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 232 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$768 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 228 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$769 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  227
                  #f
                  #f
                  #f
                  1
                  (227)
                  #f
                  (Cyc-fast-plus c$327 2)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((Cyc-fast-gt
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             6
             (318 371 428 617 656 706)
             #f
             #f
             6
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((walls$344
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 267 #f #f #f 1 (261) #f r$797 0 1 #t #f #f)))
       (child$470
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 575 #f #f #f 2 (575 574) #f #f 0 2 #f #f #f))))
      ()
      ()
      ()
      ((walls$348
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             354
             #f
             #f
             #f
             3
             (325 330 336)
             #f
             r$811
             0
             3
             #t
             #f
             #f))))
      ((x$350 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  350
                  #f
                  #f
                  #f
                  10
                  (292 297 294 303 313 318 315 324 328 335)
                  #f
                  r$813
                  0
                  10
                  #t
                  #f
                  #f)))
       (r$1170
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 660 #f #f #f 1 (660) #f #f 0 1 #t #f #f))))
      ((r$1171
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             658
             #f
             #f
             #f
             1
             (658)
             #f
             (Cyc-fast-plus n1$516 n2$517)
             0
             1
             #t
             #f
             #f))))
      ((r$1172
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             655
             #f
             #f
             #f
             1
             (655)
             #f
             (Cyc-fast-gt n1$516 n2$517)
             0
             0
             #t
             #f
             #f))))
      ((r$1173
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             651
             #f
             #f
             #f
             0
             ()
             #f
             (set-cdr! r2$515 r1$514)
             0
             0
             #t
             #f
             #f))))
      ((r$1174
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             653
             #f
             #f
             #f
             0
             ()
             #f
             (set-cdr! r1$514 r2$515)
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((r$770 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 229 #f #f #f 1 (229) #f #f 0 1 #t #f #f)))
       (r$1178
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 668 #f #f #f 1 (668) #f #f 0 1 #t #f #f))))
      ()
      ((r$772 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  230
                  #f
                  #f
                  #f
                  1
                  (230)
                  #f
                  (Cyc-fast-eq c$327 entrance$304)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$773 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 244 #f #f #f 1 (244) #f #f 0 1 #t #f #f))))
      ()
      ((xmax$391
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             480
             #f
             #f
             #f
             3
             (442 419 418)
             #f
             r$902
             0
             3
             #t
             #f
             #f))))
      ()
      ((r$777 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  250
                  #f
                  #f
                  #f
                  1
                  (250)
                  #f
                  (cons c$329 output)
                  0
                  0
                  #t
                  #f
                  #f)))
       (ne$356
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             288
             #f
             #f
             #f
             2
             (288 286)
             #f
             r$825
             0
             2
             #f
             #f
             #f))))
      ()
      ()
      ((seed$539
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             715
             #f
             #f
             #f
             2
             (715 713)
             #f
             r$1212
             0
             2
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((o$395 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 477 #f #f #f 1 (477) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((output$290
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 99 #f #f #f 1 (85) #f r$638 0 1 #t #f #f)))
       (r$1182
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 671 #f #f #f 1 (670) #f #f 0 1 #t #f #f))))
      ((r$1183
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 670 #f #f #f 1 (670) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r$1187
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             673
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$524 r$1188)
             0
             0
             #t
             #f
             #f))))
      ((r$1188
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             674
             #f
             #f
             #f
             1
             (674)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(693
                 (k$1189 r$525)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(692
                       (r$1190)
                       ((#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(691
                             (next$526)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(690
                                   (r$1191)
                                   ((if r$1191
                                      (#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(675
                                           ()
                                           ((lp$524 k$1189 next$526))
                                           #f)))
                                      (#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(689
                                           ()
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(688
                                                 (k$1193)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(687
                                                       (r$1194)
                                                       ((if r$1194
                                                          (k$1193 #f)
                                                          (#((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(686
                                                               (x$527)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(685
                                                                     (lp$528)
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(678
                                                                           (r$1196)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(677
                                                                                 (r$1195)
                                                                                 ((lp$528
                                                                                    k$1193
                                                                                    x$527))
                                                                                 #f))
                                                                             (set! lp$528
                                                                               r$1196)))
                                                                           #f))
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(684
                                                                           (k$1197
                                                                             x$529)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(683
                                                                                 (r$1198)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(682
                                                                                       (next$530)
                                                                                       ((#((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(681
                                                                                             (r$1199)
                                                                                             ((if r$1199
                                                                                                (k$1197
                                                                                                  #f)
                                                                                                (#((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(680
                                                                                                     ()
                                                                                                     ((#((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(679
                                                                                                           (r$1200)
                                                                                                           ((lp$528
                                                                                                              k$1197
                                                                                                              next$530))
                                                                                                           #f))
                                                                                                       (set-cdr!
                                                                                                         x$529
                                                                                                         r$525)))
                                                                                                     #f)))))
                                                                                             #f))
                                                                                         (eq? r$525
                                                                                              next$530)))
                                                                                       #f))
                                                                                   r$1198))
                                                                                 #f))
                                                                             (cdr x$529)))
                                                                           #t))))
                                                                     #f))
                                                                 #f))
                                                               #f))
                                                           s$522)))
                                                       #f))
                                                   (eq? r$525 s$522)))
                                                 #t))
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(676
                                                 (r$1192)
                                                 ((k$1189 r$525))
                                                 #f))))
                                           #f)))))
                                   #f))
                               (pair? next$526)))
                             #f))
                         r$1190))
                       #f))
                   (cdr r$525)))
                 #t))
             0
             0
             #t
             #f
             #f))))
      ()
      ((+ .
          #((record-marker)
            #((record-marker)
              #f
              (global
                defined-by
                defines-lambda-id
                const
                const-value
                ref-count
                ref-by
                reassigned
                assigned-value
                app-fnc-count
                app-arg-count
                inlinable
                mutated-indirectly
                cont))
            #(? ? #f #f #f 1 (769) #f #f 1 0 #t #f #f))))
      ((ncols$296
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 111 #f #f #f 1 (109) #f #f 0 1 #f #f #f)))
       (r$783 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 257 #f #f #f 1 (257) #f #f 0 1 #t #f #f))))
      ((r$784 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  255
                  #f
                  #f
                  #f
                  1
                  (253)
                  #f
                  (vector-ref result$332 0)
                  0
                  1
                  #f
                  #f
                  #f)))
       (- .
          #((record-marker)
            #((record-marker)
              #f
              (global
                defined-by
                defines-lambda-id
                const
                const-value
                ref-count
                ref-by
                reassigned
                assigned-value
                app-fnc-count
                app-arg-count
                inlinable
                mutated-indirectly
                cont))
            #(? ? #f #f #f 1 (783) #f #f 1 0 #t #f #f))))
      ((r$785 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  254
                  #f
                  #f
                  #f
                  1
                  (253)
                  #f
                  (vector-ref result$332 1)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$786 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  253
                  #f
                  #f
                  #f
                  1
                  (253)
                  #f
                  (vector-ref result$332 2)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ((maxx$355
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 338 #f #f #f 1 (297) #f r$818 0 1 #t #f #f))))
      ()
      ()
      ()
      ((do-children$462
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 580 #f #f #f 1 (573) #f #f 1 0 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((current-second
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (38 57) #f #f 2 0 #f #f #f))))
      ((rmoc-x$397
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             422
             #f
             #f
             #f
             4
             (422 416 413 419)
             #f
             r$909
             0
             4
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$1190
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             692
             #f
             #f
             #f
             1
             (692)
             #f
             (cdr r$525)
             0
             1
             #t
             #f
             #f))))
      ((r$1191
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             690
             #f
             #f
             #f
             1
             (690)
             #f
             (pair? next$526)
             0
             0
             #t
             #f
             #f))))
      ((r$1192
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 676 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((bit-test
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             131
             #f
             #f
             10
             (114 118 122 -1 287 300 308 325 330 336)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(131
                  (k$678 j$303 bit$302)
                  ((bitwise-and
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(130
                         (r$680)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(129 (r$679) ((k$678 (not__inline__ r$679))) #f))
                           (zero?__inline__ r$680)))
                         #f))
                     j$303
                     bit$302))
                  #t)))
             9
             0
             #f
             #f
             #f))))
      ((r$1194
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             687
             #f
             #f
             #f
             1
             (687)
             #f
             (eq? r$525 s$522)
             0
             0
             #t
             #f
             #f))))
      ((r$1195
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             677
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$528 r$1196)
             0
             0
             #t
             #f
             #f))))
      ((r$1196
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             678
             #f
             #f
             #f
             1
             (678)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(684
                 (k$1197 x$529)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(683
                       (r$1198)
                       ((#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(682
                             (next$530)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(681
                                   (r$1199)
                                   ((if r$1199
                                      (k$1197 #f)
                                      (#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(680
                                           ()
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(679
                                                 (r$1200)
                                                 ((lp$528 k$1197 next$530))
                                                 #f))
                                             (set-cdr! x$529 r$525)))
                                           #f)))))
                                   #f))
                               (eq? r$525 next$530)))
                             #f))
                         r$1198))
                       #f))
                   (cdr x$529)))
                 #t))
             0
             0
             #t
             #f
             #f))))
      ()
      ((r$790 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 284 #f #f #f 1 (284) #f #f 0 1 #t #f #f)))
       (s2$512
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 667 #f #f #f 1 (665) #f #f 0 1 #f #f #f)))
       (r$1198
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             683
             #f
             #f
             #f
             1
             (683)
             #f
             (cdr x$529)
             0
             1
             #t
             #f
             #f))))
      ((r$791 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 280 #f #f #f 1 (280) #f #f 0 1 #t #f #f)))
       (r$1199
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             681
             #f
             #f
             #f
             1
             (681)
             #f
             (eq? r$525 next$530)
             0
             0
             #t
             #f
             #f))))
      ((r$792 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 276 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$793 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 275 #f #f #f 1 (275) #f #f 0 1 #t #f #f)))
       (ha$432
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 530 #f #f #f 2 (530 529) #f #f 0 2 #t #f #f))))
      ((r$794 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  273
                  #f
                  #f
                  #f
                  1
                  (272)
                  #f
                  (vector-ref result$340 0)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$795 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  272
                  #f
                  #f
                  #f
                  1
                  (272)
                  #f
                  (vector-ref result$340 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$796 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 270 #f #f #f 1 (270) #f #f 0 1 #t #f #f)))
       (ha$435
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 538 #f #f #f 2 (535 534) #f #f 0 2 #t #f #f))))
      ((reverse
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (108) #f #f 1 0 #f #f #f)))
       (r$797 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 268 #f #f #f 1 (268) #f #f 0 1 #t #f #f))))
      ((r$798 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 263 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$799 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 262 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((call-with-values
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (72) #f #f 1 0 #f #f #f))))
      ()
      ()
      ()
      ((k$706 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  144
                  #f
                  #f
                  #f
                  3
                  (141 142 137)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(136
                      (r$703)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(135
                             (r$704)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(134 (r$705) ((lp$196$310 k$696 r$705)) #f))
                               (Cyc-fast-sub r$311 1)))
                             #f))
                         #\newline))
                      #f))
                  1
                  2
                  #f
                  #f
                  #t))))
      ((s2$520
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 672 #f #f #f 1 (671) #f #f 0 1 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((s1$293
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 93 #f #f #f 1 (91) #f r$641 0 1 #t #f #f))))
      ()
      ()
      ()
      ((k$1203
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 698 #f #f #f 1 (697) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ((k$1207
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 700 #f #f #f 1 (699) #f #f 0 1 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((secs2$280
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 28 #f #f #f 1 (24) #f r$589 0 1 #f #f #f))))
      ()
      ()
      ()
      ()
      ((result$271
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 51 #f #t #f 1 (5) #f #f 0 1 #f #f #f))))
      ()
      ((k$714 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 159 #f #f #f 2 (148 157) #f #f 1 1 #f #f #t))))
      ((result$274
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             49
             #f
             #f
             #f
             4
             (48 45 41 10)
             #f
             #f
             0
             4
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((x$398 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 411 #f #f #f 1 (395) #f r$911 0 1 #f #f #f))))
      ()
      ()
      ()
      ((j$486 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  612
                  #f
                  #f
                  #f
                  2
                  (612 610)
                  #f
                  r$1107
                  0
                  2
                  #t
                  #f
                  #f)))
       (mod .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                -1
                741
                #f
                #f
                5
                (294 315 699 713 -1)
                #f
                (#((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(741
                     (k$1227 x$546 y$545)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(740
                           (k$1238)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(739
                                 (r$1239)
                                 ((if r$1239
                                    (#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(738
                                         (r$1240)
                                         ((if r$1240
                                            (k$1238 (Cyc-fast-gte x$546 0))
                                            (k$1238 #f)))
                                         #f))
                                     (exact-integer?__inline__ y$545))
                                    (k$1238 #f)))
                                 #f))
                             (exact-integer?__inline__ x$546)))
                           #t))
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(737
                           (r$1228)
                           ((if r$1228
                              (#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(719 () ((remainder k$1227 x$546 y$545)) #f)))
                              (#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(736
                                   (r$1229)
                                   ((if r$1229
                                      (#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(727
                                           ()
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(726
                                                 (r$1230)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(725
                                                       (q$549)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(724
                                                             (r$1233)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(723
                                                                   (r$1231)
                                                                   ((#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(722
                                                                         (r$550)
                                                                         ((#((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(721
                                                                               ()
                                                                               ((#((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(720
                                                                                     (r$1232)
                                                                                     ((if r$1232
                                                                                        (k$1227
                                                                                          0)
                                                                                        (k$1227
                                                                                          (Cyc-fast-sub
                                                                                            r$550
                                                                                            y$545))))
                                                                                     #f))
                                                                                 (Cyc-fast-eq
                                                                                   r$550
                                                                                   0)))
                                                                               #f))))
                                                                         #f))
                                                                     r$1231))
                                                                   #f))
                                                               (Cyc-fast-sub
                                                                 x$546
                                                                 r$1233)))
                                                             #f))
                                                         (Cyc-fast-mul
                                                           q$549
                                                           y$545)))
                                                       #f))
                                                   r$1230))
                                                 #f))
                                             (quotient__inline__ x$546 y$545)))
                                           #f)))
                                      (#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(735
                                           ()
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(734
                                                 (r$1234)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(733
                                                       (q$547)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(732
                                                             (r$1237)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(731
                                                                   (r$1235)
                                                                   ((#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(730
                                                                         (r$548)
                                                                         ((#((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(729
                                                                               ()
                                                                               ((#((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(728
                                                                                     (r$1236)
                                                                                     ((if r$1236
                                                                                        (k$1227
                                                                                          0)
                                                                                        (k$1227
                                                                                          (Cyc-fast-plus
                                                                                            r$548
                                                                                            y$545))))
                                                                                     #f))
                                                                                 (Cyc-fast-eq
                                                                                   r$548
                                                                                   0)))
                                                                               #f))))
                                                                         #f))
                                                                     r$1235))
                                                                   #f))
                                                               (Cyc-fast-sub
                                                                 x$546
                                                                 r$1237)))
                                                             #f))
                                                         (Cyc-fast-mul
                                                           q$547
                                                           y$545)))
                                                       #f))
                                                   r$1234))
                                                 #f))
                                             (quotient__inline__ x$546 y$545)))
                                           #f)))))
                                   #f))
                               (Cyc-fast-lt y$545 0))))
                           #f))))
                     #t)))
                4
                0
                #f
                #f
                #f))))
      ()
      ()
      ()
      ()
      ()
      ((k$1211
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 717 #f #f #f 1 (701) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ((Cyc-fast-lt
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             14
             (49
              78
              190
              297
              305
              384
              375
              467
              442
              409
              419
              518
              737
              760)
             #f
             #f
             14
             0
             #t
             #f
             #f))))
      ((k$1218
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             706
             #f
             #f
             #f
             2
             (705 705)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(704
                 (r$1216)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(703
                       (val$543)
                       ((#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(702
                             ()
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(701 (r$1217) ((k$1211 val$543)) #f))
                               (set-car! state$534 val$543)))
                             #f))))
                       #f))
                   r$1216))
                 #f))
             2
             0
             #f
             #f
             #t))))
      ()
      ()
      ()
      ()
      ((walls$392
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             478
             #f
             #f
             #f
             3
             (476 475 394)
             #t
             r$969
             0
             2
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((n$518 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  657
                  #f
                  #f
                  #f
                  2
                  (653 651)
                  #f
                  r$1171
                  0
                  2
                  #t
                  #f
                  #f)))
       (k$724 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  169
                  #f
                  #f
                  #f
                  2
                  (168 164)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(163
                      (r$700)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(162
                             (r$701)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(161
                                   (c$313)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(160
                                         (lp$207$314)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(147
                                               (r$713)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(146
                                                     (r$712)
                                                     ((lp$207$314
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(145
                                                            (r$702)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(144
                                                                  (k$706)
                                                                  ((odd? #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(143
                                                                             (r$707)
                                                                             ((if r$707
                                                                                (#((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(140
                                                                                     ()
                                                                                     ((#((record-marker)
                                                                                         #((record-marker)
                                                                                           #f
                                                                                           (id args
                                                                                               body
                                                                                               has-cont))
                                                                                         #(139
                                                                                           (r$710)
                                                                                           ((href/rc
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(138
                                                                                                  (r$709)
                                                                                                  ((cell:walls
                                                                                                     #((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(137
                                                                                                         (r$708)
                                                                                                         ((display-hexbottom
                                                                                                            k$706
                                                                                                            r$708))
                                                                                                         #f))
                                                                                                     r$709))
                                                                                                  #f))
                                                                                              harr$305
                                                                                              r$311
                                                                                              r$710))
                                                                                           #f))
                                                                                       (Cyc-fast-sub
                                                                                         ncols$307
                                                                                         1)))
                                                                                     #f)))
                                                                                (#((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(142
                                                                                     (r$711)
                                                                                     ((if r$711
                                                                                        (k$706 #f)
                                                                                        (#((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(141
                                                                                             ()
                                                                                             ((write-ch
                                                                                                k$706
                                                                                                #\\))
                                                                                             #f)))))
                                                                                     #f))
                                                                                 (zero?__inline__
                                                                                   r$311))))
                                                                             #f))
                                                                         ncols$307))
                                                                  #t))
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(136
                                                                  (r$703)
                                                                  ((write-ch
                                                                     #((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(135
                                                                         (r$704)
                                                                         ((#((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(134
                                                                               (r$705)
                                                                               ((lp$196$310
                                                                                  k$696
                                                                                  r$705))
                                                                               #f))
                                                                           (Cyc-fast-sub
                                                                             r$311
                                                                             1)))
                                                                         #f))
                                                                     #\newline))
                                                                  #f))))
                                                            #f))
                                                        c$313))
                                                     #f))
                                                 (set! lp$207$314 r$713)))
                                               #f))
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(159
                                               (k$714 c$315)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(158
                                                     (r$715)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(157
                                                           (tmp$209$316)
                                                           ((if tmp$209$316
                                                              (k$714 tmp$209$316)
                                                              (#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(156
                                                                   ()
                                                                   ((href/rc
                                                                      #((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(155
                                                                          (r$723)
                                                                          ((cell:walls
                                                                             #((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(154
                                                                                 (r$722)
                                                                                 ((display-hexbottom
                                                                                    #((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(153
                                                                                        (r$716)
                                                                                        ((#((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(152
                                                                                              (r$720)
                                                                                              ((#((record-marker)
                                                                                                  #((record-marker)
                                                                                                    #f
                                                                                                    (id args
                                                                                                        body
                                                                                                        has-cont))
                                                                                                  #(151
                                                                                                    (r$721)
                                                                                                    ((dot/space
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(150
                                                                                                           (r$719)
                                                                                                           ((write-ch
                                                                                                              #((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(149
                                                                                                                  (r$717)
                                                                                                                  ((#((record-marker)
                                                                                                                      #((record-marker)
                                                                                                                        #f
                                                                                                                        (id args
                                                                                                                            body
                                                                                                                            has-cont))
                                                                                                                      #(148
                                                                                                                        (r$718)
                                                                                                                        ((lp$207$314
                                                                                                                           k$714
                                                                                                                           r$718))
                                                                                                                        #f))
                                                                                                                    (Cyc-fast-plus
                                                                                                                      c$315
                                                                                                                      2)))
                                                                                                                  #f))
                                                                                                              r$719))
                                                                                                           #f))
                                                                                                       harr$305
                                                                                                       r$720
                                                                                                       r$721))
                                                                                                    #f))
                                                                                                (Cyc-fast-plus
                                                                                                  c$315
                                                                                                  1)))
                                                                                              #f))
                                                                                          (Cyc-fast-sub
                                                                                            r$311
                                                                                            1)))
                                                                                        #f))
                                                                                    r$722))
                                                                                 #f))
                                                                             r$723))
                                                                          #f))
                                                                      harr$305
                                                                      r$311
                                                                      c$315))
                                                                   #f)))))
                                                           #f))
                                                       r$715))
                                                     #f))
                                                 (Cyc-fast-gte
                                                   c$315
                                                   ncols2$308)))
                                               #t))))
                                         #f))
                                     #f))
                                   #f))
                               0))
                             #f))
                         #\newline))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t))))
      ((dot/space
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             128
             #f
             #f
             5
             (-1 209 179 151 166)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(128
                  (k$671 harr$301 r$300 c$299)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(127
                        (k$673)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(126
                              (r$674)
                              ((if r$674
                                 (href/rc
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(125
                                       (r$675)
                                       ((cell:mark k$673 r$675))
                                       #f))
                                   harr$301
                                   r$300
                                   c$299)
                                 (k$673 #f)))
                              #f))
                          (Cyc-fast-gte r$300 0)))
                        #t))
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(124
                        (r$672)
                        ((if r$672 (k$671 #\.) (k$671 #\space)))
                        #f))))
                  #t)))
             4
             0
             #f
             #f
             #f))))
      ()
      ()
      ((tmp$119$429
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             509
             #f
             #f
             #f
             2
             (509 509)
             #f
             r$1001
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$1224
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 718 #f #f #f 1 (718) #f #f 1 0 #t #f #t))))
      ()
      ()
      ((k$1227
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             741
             #f
             #f
             #f
             5
             (728 728 720 720 719)
             #f
             #f
             4
             1
             #f
             #f
             #t))))
      ()
      ((id$349
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             352
             #f
             #f
             #f
             2
             (352 350)
             #f
             r$812
             0
             2
             #t
             #f
             #f))))
      ()
      ()
      ((Cyc-fast-plus
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             27
             (9
              228
              210
              206
              174
              152
              149
              292
              291
              304
              312
              324
              461
              441
              424
              401
              505
              502
              501
              527
              532
              557
              659
              705
              728
              743
              769)
             #f
             #f
             27
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$731 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 183 #f #f #f 2 (173 181) #f #f 1 1 #f #f #t))))
      ()
      ((make-wall-vec
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             487
             #f
             #f
             2
             (283 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(487
                  (k$899 harr$388)
                  ((harr:nrows
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(486
                         (r$900)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(485
                               (nrows$389)
                               ((harr:ncols
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(484
                                      (r$901)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(483
                                            (ncols$390)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(482
                                                  (r$971)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(481
                                                        (r$902)
                                                        ((#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(480
                                                              (xmax$391)
                                                              ((#((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(479
                                                                    (r$903)
                                                                    ((#((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(478
                                                                          (walls$392)
                                                                          ((#((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(474
                                                                                (r$904)
                                                                                ((#((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(473
                                                                                      (add-wall$396)
                                                                                      ((#((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(472
                                                                                            ()
                                                                                            ((#((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(471
                                                                                                  (r$967)
                                                                                                  ((#((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(470
                                                                                                        (r$935)
                                                                                                        ((#((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(469
                                                                                                              (x$403)
                                                                                                              ((#((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(468
                                                                                                                    (lp$132$404)
                                                                                                                    ((#((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(431
                                                                                                                          (r$937)
                                                                                                                          ((#((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(430
                                                                                                                                (r$936)
                                                                                                                                ((lp$132$404
                                                                                                                                   #((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(429
                                                                                                                                       (r$905)
                                                                                                                                       ((#((record-marker)
                                                                                                                                           #((record-marker)
                                                                                                                                             #f
                                                                                                                                             (id args
                                                                                                                                                 body
                                                                                                                                                 has-cont))
                                                                                                                                           #(428
                                                                                                                                             (k$907)
                                                                                                                                             ((#((record-marker)
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #f
                                                                                                                                                   (id args
                                                                                                                                                       body
                                                                                                                                                       has-cont))
                                                                                                                                                 #(427
                                                                                                                                                   (r$908)
                                                                                                                                                   ((if r$908
                                                                                                                                                      (#((record-marker)
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #f
                                                                                                                                                           (id args
                                                                                                                                                               body
                                                                                                                                                               has-cont))
                                                                                                                                                         #(426
                                                                                                                                                           (r$934)
                                                                                                                                                           ((div #((record-marker)
                                                                                                                                                                   #((record-marker)
                                                                                                                                                                     #f
                                                                                                                                                                     (id args
                                                                                                                                                                         body
                                                                                                                                                                         has-cont))
                                                                                                                                                                   #(425
                                                                                                                                                                     (r$933)
                                                                                                                                                                     ((#((record-marker)
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #f
                                                                                                                                                                           (id args
                                                                                                                                                                               body
                                                                                                                                                                               has-cont))
                                                                                                                                                                         #(424
                                                                                                                                                                           (r$932)
                                                                                                                                                                           ((#((record-marker)
                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                 #f
                                                                                                                                                                                 (id args
                                                                                                                                                                                     body
                                                                                                                                                                                     has-cont))
                                                                                                                                                                               #(423
                                                                                                                                                                                 (r$909)
                                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #f
                                                                                                                                                                                       (id args
                                                                                                                                                                                           body
                                                                                                                                                                                           has-cont))
                                                                                                                                                                                     #(422
                                                                                                                                                                                       (rmoc-x$397)
                                                                                                                                                                                       ((href #((record-marker)
                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                  #f
                                                                                                                                                                                                  (id args
                                                                                                                                                                                                      body
                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                #(421
                                                                                                                                                                                                  (r$925)
                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                        #f
                                                                                                                                                                                                        (id args
                                                                                                                                                                                                            body
                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                      #(420
                                                                                                                                                                                                        (rmoc-hex$402)
                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                              #f
                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                  body
                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                            #(419
                                                                                                                                                                                                              (k$929)
                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                        body
                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                  #(418
                                                                                                                                                                                                                    (r$930)
                                                                                                                                                                                                                    ((if r$930
                                                                                                                                                                                                                       (href #((record-marker)
                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                               #(417
                                                                                                                                                                                                                                 (r$931)
                                                                                                                                                                                                                                 ((add-wall$396
                                                                                                                                                                                                                                    k$929
                                                                                                                                                                                                                                    rmoc-hex$402
                                                                                                                                                                                                                                    r$931
                                                                                                                                                                                                                                    south-east))
                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                             harr$388
                                                                                                                                                                                                                             xmax$391
                                                                                                                                                                                                                             0)
                                                                                                                                                                                                                       (k$929 #f)))
                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                (Cyc-fast-lt
                                                                                                                                                                                                                  rmoc-x$397
                                                                                                                                                                                                                  xmax$391)))
                                                                                                                                                                                                              #t))
                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                              #f
                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                  body
                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                            #(416
                                                                                                                                                                                                              (r$926)
                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                        body
                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                  #(415
                                                                                                                                                                                                                    (r$928)
                                                                                                                                                                                                                    ((href #((record-marker)
                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                             #(414
                                                                                                                                                                                                                               (r$927)
                                                                                                                                                                                                                               ((add-wall$396
                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                    #(413
                                                                                                                                                                                                                                      (r$910)
                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                          #(412
                                                                                                                                                                                                                                            (r$911)
                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                #(411
                                                                                                                                                                                                                                                  (x$398)
                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                      #(410
                                                                                                                                                                                                                                                        (lp$140$399)
                                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                            #(396
                                                                                                                                                                                                                                                              (r$913)
                                                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                  #(395
                                                                                                                                                                                                                                                                    (r$912)
                                                                                                                                                                                                                                                                    ((lp$140$399
                                                                                                                                                                                                                                                                       k$907
                                                                                                                                                                                                                                                                       x$398))
                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                (set! lp$140$399
                                                                                                                                                                                                                                                                  r$913)))
                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                            #(409
                                                                                                                                                                                                                                                              (k$914 x$400)
                                                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                  #(408
                                                                                                                                                                                                                                                                    (r$915)
                                                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                        #(407
                                                                                                                                                                                                                                                                          (tmp$142$401)
                                                                                                                                                                                                                                                                          ((if tmp$142$401
                                                                                                                                                                                                                                                                             (k$914 tmp$142$401)
                                                                                                                                                                                                                                                                             (#((record-marker)
                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                #(406
                                                                                                                                                                                                                                                                                  ()
                                                                                                                                                                                                                                                                                  ((href #((record-marker)
                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                           #(405
                                                                                                                                                                                                                                                                                             (r$922)
                                                                                                                                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                                                 #(404
                                                                                                                                                                                                                                                                                                   (r$924)
                                                                                                                                                                                                                                                                                                   ((href #((record-marker)
                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                            #(403
                                                                                                                                                                                                                                                                                                              (r$923)
                                                                                                                                                                                                                                                                                                              ((add-wall$396
                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                                   #(402
                                                                                                                                                                                                                                                                                                                     (r$916)
                                                                                                                                                                                                                                                                                                                     ((href #((record-marker)
                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                              #(401
                                                                                                                                                                                                                                                                                                                                (r$919)
                                                                                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                                    #(400
                                                                                                                                                                                                                                                                                                                                      (r$921)
                                                                                                                                                                                                                                                                                                                                      ((href #((record-marker)
                                                                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                                                                                                                               #(399
                                                                                                                                                                                                                                                                                                                                                 (r$920)
                                                                                                                                                                                                                                                                                                                                                 ((add-wall$396
                                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                      #(398
                                                                                                                                                                                                                                                                                                                                                        (r$917)
                                                                                                                                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                                            #(397
                                                                                                                                                                                                                                                                                                                                                              (r$918)
                                                                                                                                                                                                                                                                                                                                                              ((lp$140$399
                                                                                                                                                                                                                                                                                                                                                                 k$914
                                                                                                                                                                                                                                                                                                                                                                 r$918))
                                                                                                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                                                                                                          (Cyc-fast-sub
                                                                                                                                                                                                                                                                                                                                                            x$400
                                                                                                                                                                                                                                                                                                                                                            6)))
                                                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                                                    r$919
                                                                                                                                                                                                                                                                                                                                                    r$920
                                                                                                                                                                                                                                                                                                                                                    south-east))
                                                                                                                                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                                                                                                                                             harr$388
                                                                                                                                                                                                                                                                                                                                             r$921
                                                                                                                                                                                                                                                                                                                                             0))
                                                                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                                                                  (Cyc-fast-plus
                                                                                                                                                                                                                                                                                                                                    x$400
                                                                                                                                                                                                                                                                                                                                    3)))
                                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                                            harr$388
                                                                                                                                                                                                                                                                                                                            x$400
                                                                                                                                                                                                                                                                                                                            1))
                                                                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                                                                 r$922
                                                                                                                                                                                                                                                                                                                 r$923
                                                                                                                                                                                                                                                                                                                 south-west))
                                                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                                                          harr$388
                                                                                                                                                                                                                                                                                                          r$924
                                                                                                                                                                                                                                                                                                          0))
                                                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                                                               (Cyc-fast-sub
                                                                                                                                                                                                                                                                                                 x$400
                                                                                                                                                                                                                                                                                                 3)))
                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                         harr$388
                                                                                                                                                                                                                                                                                         x$400
                                                                                                                                                                                                                                                                                         1))
                                                                                                                                                                                                                                                                                  #f)))))
                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                      r$915))
                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                (Cyc-fast-lt
                                                                                                                                                                                                                                                                  x$400
                                                                                                                                                                                                                                                                  3)))
                                                                                                                                                                                                                                                              #t))))
                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                              r$911))
                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                        (Cyc-fast-sub
                                                                                                                                                                                                                                          rmoc-x$397
                                                                                                                                                                                                                                          6)))
                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                  rmoc-hex$402
                                                                                                                                                                                                                                  r$927
                                                                                                                                                                                                                                  south-west))
                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                           harr$388
                                                                                                                                                                                                                           r$928
                                                                                                                                                                                                                           0))
                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                (Cyc-fast-sub
                                                                                                                                                                                                                  rmoc-x$397
                                                                                                                                                                                                                  3)))
                                                                                                                                                                                                              #f))))
                                                                                                                                                                                                        #f))
                                                                                                                                                                                                    r$925))
                                                                                                                                                                                                  #f))
                                                                                                                                                                                              harr$388
                                                                                                                                                                                              rmoc-x$397
                                                                                                                                                                                              1))
                                                                                                                                                                                       #f))
                                                                                                                                                                                   r$909))
                                                                                                                                                                                 #f))
                                                                                                                                                                             (Cyc-fast-plus
                                                                                                                                                                               3
                                                                                                                                                                               r$932)))
                                                                                                                                                                           #f))
                                                                                                                                                                       (Cyc-fast-mul
                                                                                                                                                                         6
                                                                                                                                                                         r$933)))
                                                                                                                                                                     #f))
                                                                                                                                                                 r$934
                                                                                                                                                                 2))
                                                                                                                                                           #f))
                                                                                                                                                       (Cyc-fast-sub
                                                                                                                                                         ncols$390
                                                                                                                                                         2))
                                                                                                                                                      (k$907 #f)))
                                                                                                                                                   #f))
                                                                                                                                               (Cyc-fast-gt
                                                                                                                                                 ncols$390
                                                                                                                                                 1)))
                                                                                                                                             #t))
                                                                                                                                         #((record-marker)
                                                                                                                                           #((record-marker)
                                                                                                                                             #f
                                                                                                                                             (id args
                                                                                                                                                 body
                                                                                                                                                 has-cont))
                                                                                                                                           #(394
                                                                                                                                             (r$906)
                                                                                                                                             ((k$899 (list->vector
                                                                                                                                                       walls$392)))
                                                                                                                                             #f))))
                                                                                                                                       #f))
                                                                                                                                   x$403))
                                                                                                                                #f))
                                                                                                                            (set! lp$132$404
                                                                                                                              r$937)))
                                                                                                                          #f))
                                                                                                                      #((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(467
                                                                                                                          (k$938 x$405)
                                                                                                                          ((#((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(466
                                                                                                                                (r$939)
                                                                                                                                ((#((record-marker)
                                                                                                                                    #((record-marker)
                                                                                                                                      #f
                                                                                                                                      (id args
                                                                                                                                          body
                                                                                                                                          has-cont))
                                                                                                                                    #(465
                                                                                                                                      (tmp$134$406)
                                                                                                                                      ((if tmp$134$406
                                                                                                                                         (k$938 tmp$134$406)
                                                                                                                                         (#((record-marker)
                                                                                                                                            #((record-marker)
                                                                                                                                              #f
                                                                                                                                              (id args
                                                                                                                                                  body
                                                                                                                                                  has-cont))
                                                                                                                                            #(464
                                                                                                                                              ()
                                                                                                                                              ((#((record-marker)
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #f
                                                                                                                                                    (id args
                                                                                                                                                        body
                                                                                                                                                        has-cont))
                                                                                                                                                  #(463
                                                                                                                                                    (r$966)
                                                                                                                                                    ((#((record-marker)
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #f
                                                                                                                                                          (id args
                                                                                                                                                              body
                                                                                                                                                              has-cont))
                                                                                                                                                        #(462
                                                                                                                                                          (r$964)
                                                                                                                                                          ((bitwise-and
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #((record-marker)
                                                                                                                                                                 #f
                                                                                                                                                                 (id args
                                                                                                                                                                     body
                                                                                                                                                                     has-cont))
                                                                                                                                                               #(461
                                                                                                                                                                 (r$965)
                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                     #((record-marker)
                                                                                                                                                                       #f
                                                                                                                                                                       (id args
                                                                                                                                                                           body
                                                                                                                                                                           has-cont))
                                                                                                                                                                     #(460
                                                                                                                                                                       (r$942)
                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                           #((record-marker)
                                                                                                                                                                             #f
                                                                                                                                                                             (id args
                                                                                                                                                                                 body
                                                                                                                                                                                 has-cont))
                                                                                                                                                                           #(459
                                                                                                                                                                             (y$407)
                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                   #f
                                                                                                                                                                                   (id args
                                                                                                                                                                                       body
                                                                                                                                                                                       has-cont))
                                                                                                                                                                                 #(458
                                                                                                                                                                                   (lp$136$408)
                                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(435
                                                                                                                                                                                         (r$944)
                                                                                                                                                                                         ((#((record-marker)
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #f
                                                                                                                                                                                               (id args
                                                                                                                                                                                                   body
                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                             #(434
                                                                                                                                                                                               (r$943)
                                                                                                                                                                                               ((lp$136$408
                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #f
                                                                                                                                                                                                      (id args
                                                                                                                                                                                                          body
                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                    #(433
                                                                                                                                                                                                      (r$940)
                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                            #f
                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                body
                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                          #(432
                                                                                                                                                                                                            (r$941)
                                                                                                                                                                                                            ((lp$132$404
                                                                                                                                                                                                               k$938
                                                                                                                                                                                                               r$941))
                                                                                                                                                                                                            #f))
                                                                                                                                                                                                        (Cyc-fast-sub
                                                                                                                                                                                                          x$405
                                                                                                                                                                                                          3)))
                                                                                                                                                                                                      #f))
                                                                                                                                                                                                  y$407))
                                                                                                                                                                                               #f))
                                                                                                                                                                                           (set! lp$136$408
                                                                                                                                                                                             r$944)))
                                                                                                                                                                                         #f))
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(457
                                                                                                                                                                                         (k$945 y$409)
                                                                                                                                                                                         ((#((record-marker)
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #f
                                                                                                                                                                                               (id args
                                                                                                                                                                                                   body
                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                             #(456
                                                                                                                                                                                               (r$946)
                                                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                     #f
                                                                                                                                                                                                     (id args
                                                                                                                                                                                                         body
                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                   #(455
                                                                                                                                                                                                     (tmp$138$410)
                                                                                                                                                                                                     ((if tmp$138$410
                                                                                                                                                                                                        (k$945 tmp$138$410)
                                                                                                                                                                                                        (#((record-marker)
                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                             #f
                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                 body
                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                           #(454
                                                                                                                                                                                                             ()
                                                                                                                                                                                                             ((href #((record-marker)
                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                            body
                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                      #(453
                                                                                                                                                                                                                        (r$949)
                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                            #(452
                                                                                                                                                                                                                              (hex$411)
                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                  #(451
                                                                                                                                                                                                                                    (k$959)
                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                        #(450
                                                                                                                                                                                                                                          (r$960)
                                                                                                                                                                                                                                          ((if r$960
                                                                                                                                                                                                                                             (k$959 #f)
                                                                                                                                                                                                                                             (#((record-marker)
                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                #(449
                                                                                                                                                                                                                                                  (r$962)
                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                      #(448
                                                                                                                                                                                                                                                        (r$963)
                                                                                                                                                                                                                                                        ((href #((record-marker)
                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                 #(447
                                                                                                                                                                                                                                                                   (r$961)
                                                                                                                                                                                                                                                                   ((add-wall$396
                                                                                                                                                                                                                                                                      k$959
                                                                                                                                                                                                                                                                      hex$411
                                                                                                                                                                                                                                                                      r$961
                                                                                                                                                                                                                                                                      south-west))
                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                               harr$388
                                                                                                                                                                                                                                                               r$962
                                                                                                                                                                                                                                                               r$963))
                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                    (Cyc-fast-sub
                                                                                                                                                                                                                                                      y$409
                                                                                                                                                                                                                                                      1)))
                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                              (Cyc-fast-sub
                                                                                                                                                                                                                                                x$405
                                                                                                                                                                                                                                                3))))
                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                      (zero?__inline__
                                                                                                                                                                                                                                        x$405)))
                                                                                                                                                                                                                                    #t))
                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                  #(446
                                                                                                                                                                                                                                    (r$950)
                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                        #(445
                                                                                                                                                                                                                                          (r$958)
                                                                                                                                                                                                                                          ((href #((record-marker)
                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                   #(444
                                                                                                                                                                                                                                                     (r$957)
                                                                                                                                                                                                                                                     ((add-wall$396
                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                          #(443
                                                                                                                                                                                                                                                            (r$951)
                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                #(442
                                                                                                                                                                                                                                                                  (k$952)
                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                      #(441
                                                                                                                                                                                                                                                                        (r$953)
                                                                                                                                                                                                                                                                        ((if r$953
                                                                                                                                                                                                                                                                           (#((record-marker)
                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                              #(440
                                                                                                                                                                                                                                                                                (r$955)
                                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                    #(439
                                                                                                                                                                                                                                                                                      (r$956)
                                                                                                                                                                                                                                                                                      ((href #((record-marker)
                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                                                                               #(438
                                                                                                                                                                                                                                                                                                 (r$954)
                                                                                                                                                                                                                                                                                                 ((add-wall$396
                                                                                                                                                                                                                                                                                                    k$952
                                                                                                                                                                                                                                                                                                    hex$411
                                                                                                                                                                                                                                                                                                    r$954
                                                                                                                                                                                                                                                                                                    south-east))
                                                                                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                                                                                             harr$388
                                                                                                                                                                                                                                                                                             r$955
                                                                                                                                                                                                                                                                                             r$956))
                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                  (Cyc-fast-sub
                                                                                                                                                                                                                                                                                    y$409
                                                                                                                                                                                                                                                                                    1)))
                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                            (Cyc-fast-plus
                                                                                                                                                                                                                                                                              x$405
                                                                                                                                                                                                                                                                              3))
                                                                                                                                                                                                                                                                           (k$952 #f)))
                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                    (Cyc-fast-lt
                                                                                                                                                                                                                                                                      x$405
                                                                                                                                                                                                                                                                      xmax$391)))
                                                                                                                                                                                                                                                                  #t))
                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                #(437
                                                                                                                                                                                                                                                                  (r$947)
                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                      #(436
                                                                                                                                                                                                                                                                        (r$948)
                                                                                                                                                                                                                                                                        ((lp$136$408
                                                                                                                                                                                                                                                                           k$945
                                                                                                                                                                                                                                                                           r$948))
                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                    (Cyc-fast-sub
                                                                                                                                                                                                                                                                      y$409
                                                                                                                                                                                                                                                                      2)))
                                                                                                                                                                                                                                                                  #f))))
                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                        hex$411
                                                                                                                                                                                                                                                        r$957
                                                                                                                                                                                                                                                        south))
                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                 harr$388
                                                                                                                                                                                                                                                 x$405
                                                                                                                                                                                                                                                 r$958))
                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                      (Cyc-fast-sub
                                                                                                                                                                                                                                        y$409
                                                                                                                                                                                                                                        2)))
                                                                                                                                                                                                                                    #f))))
                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                          r$949))
                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                    harr$388
                                                                                                                                                                                                                    x$405
                                                                                                                                                                                                                    y$409))
                                                                                                                                                                                                             #f)))))
                                                                                                                                                                                                     #f))
                                                                                                                                                                                                 r$946))
                                                                                                                                                                                               #f))
                                                                                                                                                                                           (Cyc-fast-lte
                                                                                                                                                                                             y$409
                                                                                                                                                                                             1)))
                                                                                                                                                                                         #t))))
                                                                                                                                                                                   #f))
                                                                                                                                                                               #f))
                                                                                                                                                                             #f))
                                                                                                                                                                         r$942))
                                                                                                                                                                       #f))
                                                                                                                                                                   (Cyc-fast-plus
                                                                                                                                                                     r$964
                                                                                                                                                                     r$965)))
                                                                                                                                                                 #f))
                                                                                                                                                             x$405
                                                                                                                                                             1))
                                                                                                                                                          #f))
                                                                                                                                                      (Cyc-fast-mul
                                                                                                                                                        r$966
                                                                                                                                                        2)))
                                                                                                                                                    #f))
                                                                                                                                                (Cyc-fast-sub
                                                                                                                                                  nrows$389
                                                                                                                                                  1)))
                                                                                                                                              #f)))))
                                                                                                                                      #f))
                                                                                                                                  r$939))
                                                                                                                                #f))
                                                                                                                            (Cyc-fast-lt
                                                                                                                              x$405
                                                                                                                              0)))
                                                                                                                          #t))))
                                                                                                                    #f))
                                                                                                                #f))
                                                                                                              #f))
                                                                                                          r$935))
                                                                                                        #f))
                                                                                                    (Cyc-fast-mul
                                                                                                      r$967
                                                                                                      3)))
                                                                                                  #f))
                                                                                              (Cyc-fast-sub
                                                                                                ncols$390
                                                                                                1)))
                                                                                            #f))))
                                                                                      #f))
                                                                                  r$904))
                                                                                #f))
                                                                            #((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(477
                                                                                (k$968 o$395
                                                                                       n$394
                                                                                       b$393)
                                                                                ((make-wall
                                                                                   #((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(476
                                                                                       (r$970)
                                                                                       ((#((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(475
                                                                                             (r$969)
                                                                                             ((k$968 (set! walls$392
                                                                                                       r$969)))
                                                                                             #f))
                                                                                         (cons r$970
                                                                                               walls$392)))
                                                                                       #f))
                                                                                   o$395
                                                                                   n$394
                                                                                   b$393))
                                                                                #t))))
                                                                          #f))
                                                                      r$903))
                                                                    #f))
                                                                '()))
                                                              #f))
                                                          r$902))
                                                        #f))
                                                    (Cyc-fast-mul 3 r$971)))
                                                  #f))
                                              (Cyc-fast-sub ncols$390 1)))
                                            #f))
                                        r$901))
                                      #f))
                                  harr$388))
                               #f))
                           r$900))
                         #f))
                     harr$388))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ((result$295
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 85 #f #f #f 1 (85) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((cell:reachable
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             643
             #f
             #f
             3
             (596 600 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(643
                  (k$1146 o$503)
                  ((k$1146 (vector-ref o$503 1)))
                  #t)))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((flush-output-port
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 3 (42 11 60) #f #f 3 0 #f #f #f)))
       (y$351 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  348
                  #f
                  #f
                  #f
                  9
                  (291 296 305 304 312 317 323 329 334)
                  #f
                  r$814
                  0
                  9
                  #t
                  #f
                  #f))))
      ((lp$105$452
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             558
             #f
             #f
             #f
             3
             (555 554 553)
             #f
             r$1053
             2
             0
             #f
             #f
             #f))))
      ()
      ((tmp$198$312
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             188
             #f
             #f
             #f
             2
             (188 188)
             #f
             r$697
             0
             1
             #t
             #f
             #f))))
      ((run-r7rs-benchmark
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             71
             #f
             #f
             2
             (-1 84)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(71
                  (k$568 name$264 count$263 thunk$262 ok?$261)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(70
                        (rounded$266)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(69
                              (rounded$267)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(65
                                    (r$614)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(64
                                          (r$569)
                                          ((display
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(63
                                                 (r$570)
                                                 ((display
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(62
                                                        (r$571)
                                                        ((newline
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(61
                                                               (r$572)
                                                               ((current-output-port
                                                                  #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(60
                                                                      (r$613)
                                                                      ((flush-output-port
                                                                         #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(59
                                                                             (r$573)
                                                                             ((jiffies-per-second
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(58
                                                                                    (r$574)
                                                                                    ((#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(57
                                                                                          (j/s$268)
                                                                                          ((current-second
                                                                                             #((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(56
                                                                                                 (r$575)
                                                                                                 ((#((record-marker)
                                                                                                     #((record-marker)
                                                                                                       #f
                                                                                                       (id args
                                                                                                           body
                                                                                                           has-cont))
                                                                                                     #(55
                                                                                                       (t0$269)
                                                                                                       ((current-jiffy
                                                                                                          #((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(54
                                                                                                              (r$576)
                                                                                                              ((#((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(53
                                                                                                                    (j0$270)
                                                                                                                    ((#((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(52
                                                                                                                          ()
                                                                                                                          ((#((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(51
                                                                                                                                (i$272 result$271)
                                                                                                                                ((#((record-marker)
                                                                                                                                    #((record-marker)
                                                                                                                                      #f
                                                                                                                                      (id args
                                                                                                                                          body
                                                                                                                                          has-cont))
                                                                                                                                    #(50
                                                                                                                                      (loop$273)
                                                                                                                                      ((#((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(6
                                                                                                                                            (r$578)
                                                                                                                                            ((#((record-marker)
                                                                                                                                                #((record-marker)
                                                                                                                                                  #f
                                                                                                                                                  (id args
                                                                                                                                                      body
                                                                                                                                                      has-cont))
                                                                                                                                                #(5
                                                                                                                                                  (r$577)
                                                                                                                                                  ((loop$273
                                                                                                                                                     k$568
                                                                                                                                                     i$272
                                                                                                                                                     result$271))
                                                                                                                                                  #f))
                                                                                                                                              (set! loop$273
                                                                                                                                                r$578)))
                                                                                                                                            #f))
                                                                                                                                        #((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(49
                                                                                                                                            (k$579 i$275
                                                                                                                                                   result$274)
                                                                                                                                            ((#((record-marker)
                                                                                                                                                #((record-marker)
                                                                                                                                                  #f
                                                                                                                                                  (id args
                                                                                                                                                      body
                                                                                                                                                      has-cont))
                                                                                                                                                #(48
                                                                                                                                                  (r$580)
                                                                                                                                                  ((if r$580
                                                                                                                                                     (#((record-marker)
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #f
                                                                                                                                                          (id args
                                                                                                                                                              body
                                                                                                                                                              has-cont))
                                                                                                                                                        #(9
                                                                                                                                                          ()
                                                                                                                                                          ((#((record-marker)
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #f
                                                                                                                                                                (id args
                                                                                                                                                                    body
                                                                                                                                                                    has-cont))
                                                                                                                                                              #(8
                                                                                                                                                                (r$581)
                                                                                                                                                                ((thunk$262
                                                                                                                                                                   #((record-marker)
                                                                                                                                                                     #((record-marker)
                                                                                                                                                                       #f
                                                                                                                                                                       (id args
                                                                                                                                                                           body
                                                                                                                                                                           has-cont))
                                                                                                                                                                     #(7
                                                                                                                                                                       (r$582)
                                                                                                                                                                       ((loop$273
                                                                                                                                                                          k$579
                                                                                                                                                                          r$581
                                                                                                                                                                          r$582))
                                                                                                                                                                       #f))))
                                                                                                                                                                #f))
                                                                                                                                                            (Cyc-fast-plus
                                                                                                                                                              i$275
                                                                                                                                                              1)))
                                                                                                                                                          #f)))
                                                                                                                                                     (ok?$261
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #f
                                                                                                                                                           (id args
                                                                                                                                                               body
                                                                                                                                                               has-cont))
                                                                                                                                                         #(47
                                                                                                                                                           (r$583)
                                                                                                                                                           ((if r$583
                                                                                                                                                              (#((record-marker)
                                                                                                                                                                 #((record-marker)
                                                                                                                                                                   #f
                                                                                                                                                                   (id args
                                                                                                                                                                       body
                                                                                                                                                                       has-cont))
                                                                                                                                                                 #(40
                                                                                                                                                                   ()
                                                                                                                                                                   ((current-jiffy
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(39
                                                                                                                                                                          (r$585)
                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #f
                                                                                                                                                                                (id args
                                                                                                                                                                                    body
                                                                                                                                                                                    has-cont))
                                                                                                                                                                              #(38
                                                                                                                                                                                (j1$276)
                                                                                                                                                                                ((current-second
                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #f
                                                                                                                                                                                       (id args
                                                                                                                                                                                           body
                                                                                                                                                                                           has-cont))
                                                                                                                                                                                     #(37
                                                                                                                                                                                       (r$586)
                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                             #f
                                                                                                                                                                                             (id args
                                                                                                                                                                                                 body
                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                           #(36
                                                                                                                                                                                             (t1$277)
                                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                   #f
                                                                                                                                                                                                   (id args
                                                                                                                                                                                                       body
                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                 #(35
                                                                                                                                                                                                   (r$587)
                                                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                         #f
                                                                                                                                                                                                         (id args
                                                                                                                                                                                                             body
                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                       #(34
                                                                                                                                                                                                         (jifs$278)
                                                                                                                                                                                                         ((#((record-marker)
                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                               #f
                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                   body
                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                             #(33
                                                                                                                                                                                                               (r$607)
                                                                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                         body
                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                   #(32
                                                                                                                                                                                                                     (r$588)
                                                                                                                                                                                                                     ((#((record-marker)
                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                               body
                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                         #(31
                                                                                                                                                                                                                           (secs$279)
                                                                                                                                                                                                                           ((#((record-marker)
                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                               #(30
                                                                                                                                                                                                                                 (r$606)
                                                                                                                                                                                                                                 ((rounded$266
                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                      #(29
                                                                                                                                                                                                                                        (r$589)
                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                            #(28
                                                                                                                                                                                                                                              (secs2$280)
                                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                  #(27
                                                                                                                                                                                                                                                    ()
                                                                                                                                                                                                                                                    ((display
                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                         #(26
                                                                                                                                                                                                                                                           (r$590)
                                                                                                                                                                                                                                                           ((write #((record-marker)
                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                     #(25
                                                                                                                                                                                                                                                                       (r$591)
                                                                                                                                                                                                                                                                       ((display
                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                            #(24
                                                                                                                                                                                                                                                                              (r$592)
                                                                                                                                                                                                                                                                              ((write #((record-marker)
                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                        #(23
                                                                                                                                                                                                                                                                                          (r$593)
                                                                                                                                                                                                                                                                                          ((display
                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                                                                               #(22
                                                                                                                                                                                                                                                                                                 (r$594)
                                                                                                                                                                                                                                                                                                 ((display
                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                      #(21
                                                                                                                                                                                                                                                                                                        (r$595)
                                                                                                                                                                                                                                                                                                        ((newline
                                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                                                                                             #(20
                                                                                                                                                                                                                                                                                                               (r$596)
                                                                                                                                                                                                                                                                                                               ((display
                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                    #(19
                                                                                                                                                                                                                                                                                                                      (r$597)
                                                                                                                                                                                                                                                                                                                      ((this-scheme-implementation-name
                                                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                                                           #(18
                                                                                                                                                                                                                                                                                                                             (r$605)
                                                                                                                                                                                                                                                                                                                             ((display
                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                  #(17
                                                                                                                                                                                                                                                                                                                                    (r$598)
                                                                                                                                                                                                                                                                                                                                    ((display
                                                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                                                                                                         #(16
                                                                                                                                                                                                                                                                                                                                           (r$599)
                                                                                                                                                                                                                                                                                                                                           ((display
                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                                                #(15
                                                                                                                                                                                                                                                                                                                                                  (r$600)
                                                                                                                                                                                                                                                                                                                                                  ((display
                                                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                                                                                                       #(14
                                                                                                                                                                                                                                                                                                                                                         (r$601)
                                                                                                                                                                                                                                                                                                                                                         ((display
                                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                              #(13
                                                                                                                                                                                                                                                                                                                                                                (r$602)
                                                                                                                                                                                                                                                                                                                                                                ((newline
                                                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                                                                                     #(12
                                                                                                                                                                                                                                                                                                                                                                       (r$603)
                                                                                                                                                                                                                                                                                                                                                                       ((current-output-port
                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                                                            #(11
                                                                                                                                                                                                                                                                                                                                                                              (r$604)
                                                                                                                                                                                                                                                                                                                                                                              ((flush-output-port
                                                                                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                                                                                                   #(10
                                                                                                                                                                                                                                                                                                                                                                                     (r$584)
                                                                                                                                                                                                                                                                                                                                                                                     ((k$579 result$274))
                                                                                                                                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                                                                                                                                 r$604))
                                                                                                                                                                                                                                                                                                                                                                              #f))))
                                                                                                                                                                                                                                                                                                                                                                       #f))))
                                                                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                                                                            secs$279))
                                                                                                                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                                                                                                                     ","))
                                                                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                                                                              name$264))
                                                                                                                                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                                                                                                                                       ","))
                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                r$605))
                                                                                                                                                                                                                                                                                                                             #f))))
                                                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                                                  "+!CSVLINE!+"))
                                                                                                                                                                                                                                                                                                               #f))))
                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                    name$264))
                                                                                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                                                                                             ") for "))
                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                      secs2$280))
                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                          " seconds ("))
                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                   secs$279))
                                                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                                                       "Elapsed time: "))
                                                                                                                                                                                                                                                    #f))))
                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                          r$589))
                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                    r$606))
                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                             (Cyc-fast-sub
                                                                                                                                                                                                                               t1$277
                                                                                                                                                                                                                               t0$269)))
                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                       r$588))
                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                 (inexact__inline__
                                                                                                                                                                                                                   r$607)))
                                                                                                                                                                                                               #f))
                                                                                                                                                                                                           (Cyc-fast-div
                                                                                                                                                                                                             jifs$278
                                                                                                                                                                                                             j/s$268)))
                                                                                                                                                                                                         #f))
                                                                                                                                                                                                     r$587))
                                                                                                                                                                                                   #f))
                                                                                                                                                                                               (Cyc-fast-sub
                                                                                                                                                                                                 j1$276
                                                                                                                                                                                                 j0$270)))
                                                                                                                                                                                             #f))
                                                                                                                                                                                         r$586))
                                                                                                                                                                                       #f))))
                                                                                                                                                                                #f))
                                                                                                                                                                            r$585))
                                                                                                                                                                          #f))))
                                                                                                                                                                   #f)))
                                                                                                                                                              (#((record-marker)
                                                                                                                                                                 #((record-marker)
                                                                                                                                                                   #f
                                                                                                                                                                   (id args
                                                                                                                                                                       body
                                                                                                                                                                       has-cont))
                                                                                                                                                                 #(46
                                                                                                                                                                   ()
                                                                                                                                                                   ((display
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(45
                                                                                                                                                                          (r$608)
                                                                                                                                                                          ((write #((record-marker)
                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                      #f
                                                                                                                                                                                      (id args
                                                                                                                                                                                          body
                                                                                                                                                                                          has-cont))
                                                                                                                                                                                    #(44
                                                                                                                                                                                      (r$609)
                                                                                                                                                                                      ((newline
                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                             #f
                                                                                                                                                                                             (id args
                                                                                                                                                                                                 body
                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                           #(43
                                                                                                                                                                                             (r$610)
                                                                                                                                                                                             ((current-output-port
                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                    #f
                                                                                                                                                                                                    (id args
                                                                                                                                                                                                        body
                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                  #(42
                                                                                                                                                                                                    (r$612)
                                                                                                                                                                                                    ((flush-output-port
                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                           #f
                                                                                                                                                                                                           (id args
                                                                                                                                                                                                               body
                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                         #(41
                                                                                                                                                                                                           (r$611)
                                                                                                                                                                                                           ((k$579 result$274))
                                                                                                                                                                                                           #f))
                                                                                                                                                                                                       r$612))
                                                                                                                                                                                                    #f))))
                                                                                                                                                                                             #f))))
                                                                                                                                                                                      #f))
                                                                                                                                                                                  result$274))
                                                                                                                                                                          #f))
                                                                                                                                                                      "ERROR: returned incorrect result: "))
                                                                                                                                                                   #f)))))
                                                                                                                                                           #f))
                                                                                                                                                       result$274)))
                                                                                                                                                  #f))
                                                                                                                                              (Cyc-fast-lt
                                                                                                                                                i$275
                                                                                                                                                count$263)))
                                                                                                                                            #t))))
                                                                                                                                      #f))
                                                                                                                                  #f))
                                                                                                                                #f))
                                                                                                                            0
                                                                                                                            #f))
                                                                                                                          #f))))
                                                                                                                    #f))
                                                                                                                r$576))
                                                                                                              #f))))
                                                                                                       #f))
                                                                                                   r$575))
                                                                                                 #f))))
                                                                                          #f))
                                                                                      r$574))
                                                                                    #f))))
                                                                             #f))
                                                                         r$613))
                                                                      #f))))
                                                               #f))))
                                                        #f))
                                                    name$264))
                                                 #f))
                                             "Running "))
                                          #f))
                                      (set! rounded$266 r$614)))
                                    #f))
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(68
                                    (k$615 x$281)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(67
                                          (r$617)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(66
                                                (r$616)
                                                ((k$615 (Cyc-fast-div
                                                          r$616
                                                          1000)))
                                                #f))
                                            (round__inline__ r$617)))
                                          #f))
                                      (Cyc-fast-mul 1000 x$281)))
                                    #t))))
                              #f))
                          #f))
                        #f))
                    #f))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((k$1238
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             740
             #f
             #f
             #f
             3
             (739 738 738)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(737
                 (r$1228)
                 ((if r$1228
                    (#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(719 () ((remainder k$1227 x$546 y$545)) #f)))
                    (#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(736
                         (r$1229)
                         ((if r$1229
                            (#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(727
                                 ()
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(726
                                       (r$1230)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(725
                                             (q$549)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(724
                                                   (r$1233)
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(723
                                                         (r$1231)
                                                         ((#((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(722
                                                               (r$550)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(721
                                                                     ()
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(720
                                                                           (r$1232)
                                                                           ((if r$1232
                                                                              (k$1227
                                                                                0)
                                                                              (k$1227
                                                                                (Cyc-fast-sub
                                                                                  r$550
                                                                                  y$545))))
                                                                           #f))
                                                                       (Cyc-fast-eq
                                                                         r$550
                                                                         0)))
                                                                     #f))))
                                                               #f))
                                                           r$1231))
                                                         #f))
                                                     (Cyc-fast-sub
                                                       x$546
                                                       r$1233)))
                                                   #f))
                                               (Cyc-fast-mul q$549 y$545)))
                                             #f))
                                         r$1230))
                                       #f))
                                   (quotient__inline__ x$546 y$545)))
                                 #f)))
                            (#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(735
                                 ()
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(734
                                       (r$1234)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(733
                                             (q$547)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(732
                                                   (r$1237)
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(731
                                                         (r$1235)
                                                         ((#((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(730
                                                               (r$548)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(729
                                                                     ()
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(728
                                                                           (r$1236)
                                                                           ((if r$1236
                                                                              (k$1227
                                                                                0)
                                                                              (k$1227
                                                                                (Cyc-fast-plus
                                                                                  r$548
                                                                                  y$545))))
                                                                           #f))
                                                                       (Cyc-fast-eq
                                                                         r$548
                                                                         0)))
                                                                     #f))))
                                                               #f))
                                                           r$1235))
                                                         #f))
                                                     (Cyc-fast-sub
                                                       x$546
                                                       r$1237)))
                                                   #f))
                                               (Cyc-fast-mul q$547 y$545)))
                                             #f))
                                         r$1234))
                                       #f))
                                   (quotient__inline__ x$546 y$545)))
                                 #f)))))
                         #f))
                     (Cyc-fast-lt y$545 0))))
                 #f))
             3
             0
             #t
             #f
             #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((harr-tabulate
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             525
             #f
             #f
             2
             (488 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(525
                  (k$987 nrows$418 ncols$417 proc$416)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(524
                        (r$1010)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(523
                              (r$988)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(522
                                    (v$419)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(521
                                          (r$990)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(520
                                                (r$420)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(519
                                                      (lp$113$421)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(495
                                                            (r$992)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(494
                                                                  (r$991)
                                                                  ((lp$113$421
                                                                     #((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(493
                                                                         (r$989)
                                                                         ((make-harr
                                                                            k$987
                                                                            nrows$418
                                                                            ncols$417
                                                                            v$419))
                                                                         #f))
                                                                     r$420))
                                                                  #f))
                                                              (set! lp$113$421
                                                                r$992)))
                                                            #f))
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(518
                                                            (k$993 r$422)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(517
                                                                  (r$994)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(516
                                                                        (tmp$115$423)
                                                                        ((if tmp$115$423
                                                                           (k$993 tmp$115$423)
                                                                           (#((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(515
                                                                                ()
                                                                                ((#((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(514
                                                                                      (r$997)
                                                                                      ((#((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(513
                                                                                            (c$425 i$424)
                                                                                            ((#((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(512
                                                                                                  (lp$117$426)
                                                                                                  ((#((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(499
                                                                                                        (r$999)
                                                                                                        ((#((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(498
                                                                                                              (r$998)
                                                                                                              ((lp$117$426
                                                                                                                 #((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(497
                                                                                                                     (r$995)
                                                                                                                     ((#((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(496
                                                                                                                           (r$996)
                                                                                                                           ((lp$113$421
                                                                                                                              k$993
                                                                                                                              r$996))
                                                                                                                           #f))
                                                                                                                       (Cyc-fast-sub
                                                                                                                         r$422
                                                                                                                         1)))
                                                                                                                     #f))
                                                                                                                 c$425
                                                                                                                 i$424))
                                                                                                              #f))
                                                                                                          (set! lp$117$426
                                                                                                            r$999)))
                                                                                                        #f))
                                                                                                    #((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(511
                                                                                                        (k$1000
                                                                                                          c$428
                                                                                                          i$427)
                                                                                                        ((#((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(510
                                                                                                              (r$1001)
                                                                                                              ((#((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(509
                                                                                                                    (tmp$119$429)
                                                                                                                    ((if tmp$119$429
                                                                                                                       (k$1000
                                                                                                                         tmp$119$429)
                                                                                                                       (#((record-marker)
                                                                                                                          #((record-marker)
                                                                                                                            #f
                                                                                                                            (id args
                                                                                                                                body
                                                                                                                                has-cont))
                                                                                                                          #(508
                                                                                                                            ()
                                                                                                                            ((#((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(507
                                                                                                                                  (r$1006)
                                                                                                                                  ((#((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(506
                                                                                                                                        (r$1008)
                                                                                                                                        ((bitwise-and
                                                                                                                                           #((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(505
                                                                                                                                               (r$1009)
                                                                                                                                               ((#((record-marker)
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #f
                                                                                                                                                     (id args
                                                                                                                                                         body
                                                                                                                                                         has-cont))
                                                                                                                                                   #(504
                                                                                                                                                     (r$1007)
                                                                                                                                                     ((proc$416
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(503
                                                                                                                                                            (r$1005)
                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(502
                                                                                                                                                                  (r$1002)
                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #f
                                                                                                                                                                        (id args
                                                                                                                                                                            body
                                                                                                                                                                            has-cont))
                                                                                                                                                                      #(501
                                                                                                                                                                        (r$1003)
                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(500
                                                                                                                                                                              (r$1004)
                                                                                                                                                                              ((lp$117$426
                                                                                                                                                                                 k$1000
                                                                                                                                                                                 r$1003
                                                                                                                                                                                 r$1004))
                                                                                                                                                                              #f))
                                                                                                                                                                          (Cyc-fast-plus
                                                                                                                                                                            i$427
                                                                                                                                                                            1)))
                                                                                                                                                                        #f))
                                                                                                                                                                    (Cyc-fast-plus
                                                                                                                                                                      c$428
                                                                                                                                                                      1)))
                                                                                                                                                                  #f))
                                                                                                                                                              (vector-set!
                                                                                                                                                                v$419
                                                                                                                                                                i$427
                                                                                                                                                                r$1005)))
                                                                                                                                                            #f))
                                                                                                                                                        r$1006
                                                                                                                                                        r$1007))
                                                                                                                                                     #f))
                                                                                                                                                 (Cyc-fast-plus
                                                                                                                                                   r$1008
                                                                                                                                                   r$1009)))
                                                                                                                                               #f))
                                                                                                                                           c$428
                                                                                                                                           1))
                                                                                                                                        #f))
                                                                                                                                    (Cyc-fast-mul
                                                                                                                                      2
                                                                                                                                      r$422)))
                                                                                                                                  #f))
                                                                                                                              (Cyc-fast-mul
                                                                                                                                3
                                                                                                                                c$428)))
                                                                                                                            #f)))))
                                                                                                                    #f))
                                                                                                                r$1001))
                                                                                                              #f))
                                                                                                          (Cyc-fast-eq
                                                                                                            c$428
                                                                                                            ncols$417)))
                                                                                                        #t))))
                                                                                                  #f))
                                                                                              #f))
                                                                                            #f))
                                                                                        0
                                                                                        r$997))
                                                                                      #f))
                                                                                  (Cyc-fast-mul
                                                                                    r$422
                                                                                    ncols$417)))
                                                                                #f)))))
                                                                        #f))
                                                                    r$994))
                                                                  #f))
                                                              (Cyc-fast-lt
                                                                r$422
                                                                0)))
                                                            #t))))
                                                      #f))
                                                  #f))
                                                #f))
                                            r$990))
                                          #f))
                                      (Cyc-fast-sub nrows$418 1)))
                                    #f))
                                r$988))
                              #f))
                          (make-vector r$1010)))
                        #f))
                    (Cyc-fast-mul nrows$418 ncols$417)))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ((n$533 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 700 #f #f #f 1 (699) #f #f 0 1 #t #f #f))))
      ((c$412 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 492 #f #f #f 1 (488) #f #f 0 1 #f #f #f)))
       (k$740 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  201
                  #f
                  #f
                  #f
                  2
                  (200 196)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(195
                      (r$691)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(194
                             (r$692)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(193
                                   (r$693)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(192
                                         (r$309)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(191
                                               (lp$196$310)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(133
                                                     (r$695)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(132
                                                           (r$694)
                                                           ((lp$196$310
                                                              k$683
                                                              r$309))
                                                           #f))
                                                       (set! lp$196$310 r$695)))
                                                     #f))
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(190
                                                     (k$696 r$311)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(189
                                                           (r$697)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(188
                                                                 (tmp$198$312)
                                                                 ((if tmp$198$312
                                                                    (k$696 tmp$198$312)
                                                                    (#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(187
                                                                         ()
                                                                         ((write-ch
                                                                            #((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(186
                                                                                (r$698)
                                                                                ((#((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(185
                                                                                      (c$317)
                                                                                      ((#((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(184
                                                                                            (lp$200$318)
                                                                                            ((#((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(172
                                                                                                  (r$730)
                                                                                                  ((#((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(171
                                                                                                        (r$729)
                                                                                                        ((lp$200$318
                                                                                                           #((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(170
                                                                                                               (r$699)
                                                                                                               ((#((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(169
                                                                                                                     (k$724)
                                                                                                                     ((odd? #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(168
                                                                                                                                (r$725)
                                                                                                                                ((if r$725
                                                                                                                                   (#((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(167
                                                                                                                                        ()
                                                                                                                                        ((#((record-marker)
                                                                                                                                            #((record-marker)
                                                                                                                                              #f
                                                                                                                                              (id args
                                                                                                                                                  body
                                                                                                                                                  has-cont))
                                                                                                                                            #(166
                                                                                                                                              (r$728)
                                                                                                                                              ((dot/space
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #f
                                                                                                                                                     (id args
                                                                                                                                                         body
                                                                                                                                                         has-cont))
                                                                                                                                                   #(165
                                                                                                                                                     (r$727)
                                                                                                                                                     ((write-ch
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(164
                                                                                                                                                            (r$726)
                                                                                                                                                            ((write-ch
                                                                                                                                                               k$724
                                                                                                                                                               #\\))
                                                                                                                                                            #f))
                                                                                                                                                        r$727))
                                                                                                                                                     #f))
                                                                                                                                                 harr$305
                                                                                                                                                 r$311
                                                                                                                                                 r$728))
                                                                                                                                              #f))
                                                                                                                                          (Cyc-fast-sub
                                                                                                                                            ncols$307
                                                                                                                                            1)))
                                                                                                                                        #f)))
                                                                                                                                   (k$724 #f)))
                                                                                                                                #f))
                                                                                                                            ncols$307))
                                                                                                                     #t))
                                                                                                                 #((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(163
                                                                                                                     (r$700)
                                                                                                                     ((write-ch
                                                                                                                        #((record-marker)
                                                                                                                          #((record-marker)
                                                                                                                            #f
                                                                                                                            (id args
                                                                                                                                body
                                                                                                                                has-cont))
                                                                                                                          #(162
                                                                                                                            (r$701)
                                                                                                                            ((#((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(161
                                                                                                                                  (c$313)
                                                                                                                                  ((#((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(160
                                                                                                                                        (lp$207$314)
                                                                                                                                        ((#((record-marker)
                                                                                                                                            #((record-marker)
                                                                                                                                              #f
                                                                                                                                              (id args
                                                                                                                                                  body
                                                                                                                                                  has-cont))
                                                                                                                                            #(147
                                                                                                                                              (r$713)
                                                                                                                                              ((#((record-marker)
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #f
                                                                                                                                                    (id args
                                                                                                                                                        body
                                                                                                                                                        has-cont))
                                                                                                                                                  #(146
                                                                                                                                                    (r$712)
                                                                                                                                                    ((lp$207$314
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #f
                                                                                                                                                           (id args
                                                                                                                                                               body
                                                                                                                                                               has-cont))
                                                                                                                                                         #(145
                                                                                                                                                           (r$702)
                                                                                                                                                           ((#((record-marker)
                                                                                                                                                               #((record-marker)
                                                                                                                                                                 #f
                                                                                                                                                                 (id args
                                                                                                                                                                     body
                                                                                                                                                                     has-cont))
                                                                                                                                                               #(144
                                                                                                                                                                 (k$706)
                                                                                                                                                                 ((odd? #((record-marker)
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #f
                                                                                                                                                                            (id args
                                                                                                                                                                                body
                                                                                                                                                                                has-cont))
                                                                                                                                                                          #(143
                                                                                                                                                                            (r$707)
                                                                                                                                                                            ((if r$707
                                                                                                                                                                               (#((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(140
                                                                                                                                                                                    ()
                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                          #f
                                                                                                                                                                                          (id args
                                                                                                                                                                                              body
                                                                                                                                                                                              has-cont))
                                                                                                                                                                                        #(139
                                                                                                                                                                                          (r$710)
                                                                                                                                                                                          ((href/rc
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                 #f
                                                                                                                                                                                                 (id args
                                                                                                                                                                                                     body
                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                               #(138
                                                                                                                                                                                                 (r$709)
                                                                                                                                                                                                 ((cell:walls
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                        #f
                                                                                                                                                                                                        (id args
                                                                                                                                                                                                            body
                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                      #(137
                                                                                                                                                                                                        (r$708)
                                                                                                                                                                                                        ((display-hexbottom
                                                                                                                                                                                                           k$706
                                                                                                                                                                                                           r$708))
                                                                                                                                                                                                        #f))
                                                                                                                                                                                                    r$709))
                                                                                                                                                                                                 #f))
                                                                                                                                                                                             harr$305
                                                                                                                                                                                             r$311
                                                                                                                                                                                             r$710))
                                                                                                                                                                                          #f))
                                                                                                                                                                                      (Cyc-fast-sub
                                                                                                                                                                                        ncols$307
                                                                                                                                                                                        1)))
                                                                                                                                                                                    #f)))
                                                                                                                                                                               (#((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(142
                                                                                                                                                                                    (r$711)
                                                                                                                                                                                    ((if r$711
                                                                                                                                                                                       (k$706 #f)
                                                                                                                                                                                       (#((record-marker)
                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                            #f
                                                                                                                                                                                            (id args
                                                                                                                                                                                                body
                                                                                                                                                                                                has-cont))
                                                                                                                                                                                          #(141
                                                                                                                                                                                            ()
                                                                                                                                                                                            ((write-ch
                                                                                                                                                                                               k$706
                                                                                                                                                                                               #\\))
                                                                                                                                                                                            #f)))))
                                                                                                                                                                                    #f))
                                                                                                                                                                                (zero?__inline__
                                                                                                                                                                                  r$311))))
                                                                                                                                                                            #f))
                                                                                                                                                                        ncols$307))
                                                                                                                                                                 #t))
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #((record-marker)
                                                                                                                                                                 #f
                                                                                                                                                                 (id args
                                                                                                                                                                     body
                                                                                                                                                                     has-cont))
                                                                                                                                                               #(136
                                                                                                                                                                 (r$703)
                                                                                                                                                                 ((write-ch
                                                                                                                                                                    #((record-marker)
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #f
                                                                                                                                                                        (id args
                                                                                                                                                                            body
                                                                                                                                                                            has-cont))
                                                                                                                                                                      #(135
                                                                                                                                                                        (r$704)
                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(134
                                                                                                                                                                              (r$705)
                                                                                                                                                                              ((lp$196$310
                                                                                                                                                                                 k$696
                                                                                                                                                                                 r$705))
                                                                                                                                                                              #f))
                                                                                                                                                                          (Cyc-fast-sub
                                                                                                                                                                            r$311
                                                                                                                                                                            1)))
                                                                                                                                                                        #f))
                                                                                                                                                                    #\newline))
                                                                                                                                                                 #f))))
                                                                                                                                                           #f))
                                                                                                                                                       c$313))
                                                                                                                                                    #f))
                                                                                                                                                (set! lp$207$314
                                                                                                                                                  r$713)))
                                                                                                                                              #f))
                                                                                                                                          #((record-marker)
                                                                                                                                            #((record-marker)
                                                                                                                                              #f
                                                                                                                                              (id args
                                                                                                                                                  body
                                                                                                                                                  has-cont))
                                                                                                                                            #(159
                                                                                                                                              (k$714 c$315)
                                                                                                                                              ((#((record-marker)
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #f
                                                                                                                                                    (id args
                                                                                                                                                        body
                                                                                                                                                        has-cont))
                                                                                                                                                  #(158
                                                                                                                                                    (r$715)
                                                                                                                                                    ((#((record-marker)
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #f
                                                                                                                                                          (id args
                                                                                                                                                              body
                                                                                                                                                              has-cont))
                                                                                                                                                        #(157
                                                                                                                                                          (tmp$209$316)
                                                                                                                                                          ((if tmp$209$316
                                                                                                                                                             (k$714 tmp$209$316)
                                                                                                                                                             (#((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(156
                                                                                                                                                                  ()
                                                                                                                                                                  ((href/rc
                                                                                                                                                                     #((record-marker)
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #f
                                                                                                                                                                         (id args
                                                                                                                                                                             body
                                                                                                                                                                             has-cont))
                                                                                                                                                                       #(155
                                                                                                                                                                         (r$723)
                                                                                                                                                                         ((cell:walls
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #f
                                                                                                                                                                                (id args
                                                                                                                                                                                    body
                                                                                                                                                                                    has-cont))
                                                                                                                                                                              #(154
                                                                                                                                                                                (r$722)
                                                                                                                                                                                ((display-hexbottom
                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #f
                                                                                                                                                                                       (id args
                                                                                                                                                                                           body
                                                                                                                                                                                           has-cont))
                                                                                                                                                                                     #(153
                                                                                                                                                                                       (r$716)
                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                             #f
                                                                                                                                                                                             (id args
                                                                                                                                                                                                 body
                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                           #(152
                                                                                                                                                                                             (r$720)
                                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                   #f
                                                                                                                                                                                                   (id args
                                                                                                                                                                                                       body
                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                 #(151
                                                                                                                                                                                                   (r$721)
                                                                                                                                                                                                   ((dot/space
                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                          #f
                                                                                                                                                                                                          (id args
                                                                                                                                                                                                              body
                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                        #(150
                                                                                                                                                                                                          (r$719)
                                                                                                                                                                                                          ((write-ch
                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                     body
                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                               #(149
                                                                                                                                                                                                                 (r$717)
                                                                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                           body
                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                     #(148
                                                                                                                                                                                                                       (r$718)
                                                                                                                                                                                                                       ((lp$207$314
                                                                                                                                                                                                                          k$714
                                                                                                                                                                                                                          r$718))
                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                   (Cyc-fast-plus
                                                                                                                                                                                                                     c$315
                                                                                                                                                                                                                     2)))
                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                             r$719))
                                                                                                                                                                                                          #f))
                                                                                                                                                                                                      harr$305
                                                                                                                                                                                                      r$720
                                                                                                                                                                                                      r$721))
                                                                                                                                                                                                   #f))
                                                                                                                                                                                               (Cyc-fast-plus
                                                                                                                                                                                                 c$315
                                                                                                                                                                                                 1)))
                                                                                                                                                                                             #f))
                                                                                                                                                                                         (Cyc-fast-sub
                                                                                                                                                                                           r$311
                                                                                                                                                                                           1)))
                                                                                                                                                                                       #f))
                                                                                                                                                                                   r$722))
                                                                                                                                                                                #f))
                                                                                                                                                                            r$723))
                                                                                                                                                                         #f))
                                                                                                                                                                     harr$305
                                                                                                                                                                     r$311
                                                                                                                                                                     c$315))
                                                                                                                                                                  #f)))))
                                                                                                                                                          #f))
                                                                                                                                                      r$715))
                                                                                                                                                    #f))
                                                                                                                                                (Cyc-fast-gte
                                                                                                                                                  c$315
                                                                                                                                                  ncols2$308)))
                                                                                                                                              #t))))
                                                                                                                                        #f))
                                                                                                                                    #f))
                                                                                                                                  #f))
                                                                                                                              0))
                                                                                                                            #f))
                                                                                                                        #\newline))
                                                                                                                     #f))))
                                                                                                               #f))
                                                                                                           c$317))
                                                                                                        #f))
                                                                                                    (set! lp$200$318
                                                                                                      r$730)))
                                                                                                  #f))
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(183
                                                                                                  (k$731 c$319)
                                                                                                  ((#((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(182
                                                                                                        (r$732)
                                                                                                        ((#((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(181
                                                                                                              (tmp$202$320)
                                                                                                              ((if tmp$202$320
                                                                                                                 (k$731 tmp$202$320)
                                                                                                                 (#((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(180
                                                                                                                      ()
                                                                                                                      ((#((record-marker)
                                                                                                                          #((record-marker)
                                                                                                                            #f
                                                                                                                            (id args
                                                                                                                                body
                                                                                                                                has-cont))
                                                                                                                          #(179
                                                                                                                            (r$739)
                                                                                                                            ((dot/space
                                                                                                                               #((record-marker)
                                                                                                                                 #((record-marker)
                                                                                                                                   #f
                                                                                                                                   (id args
                                                                                                                                       body
                                                                                                                                       has-cont))
                                                                                                                                 #(178
                                                                                                                                   (r$738)
                                                                                                                                   ((write-ch
                                                                                                                                      #((record-marker)
                                                                                                                                        #((record-marker)
                                                                                                                                          #f
                                                                                                                                          (id args
                                                                                                                                              body
                                                                                                                                              has-cont))
                                                                                                                                        #(177
                                                                                                                                          (r$733)
                                                                                                                                          ((href/rc
                                                                                                                                             #((record-marker)
                                                                                                                                               #((record-marker)
                                                                                                                                                 #f
                                                                                                                                                 (id args
                                                                                                                                                     body
                                                                                                                                                     has-cont))
                                                                                                                                               #(176
                                                                                                                                                 (r$737)
                                                                                                                                                 ((cell:walls
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #((record-marker)
                                                                                                                                                        #f
                                                                                                                                                        (id args
                                                                                                                                                            body
                                                                                                                                                            has-cont))
                                                                                                                                                      #(175
                                                                                                                                                        (r$736)
                                                                                                                                                        ((display-hexbottom
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #f
                                                                                                                                                               (id args
                                                                                                                                                                   body
                                                                                                                                                                   has-cont))
                                                                                                                                                             #(174
                                                                                                                                                               (r$734)
                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                   #((record-marker)
                                                                                                                                                                     #f
                                                                                                                                                                     (id args
                                                                                                                                                                         body
                                                                                                                                                                         has-cont))
                                                                                                                                                                   #(173
                                                                                                                                                                     (r$735)
                                                                                                                                                                     ((lp$200$318
                                                                                                                                                                        k$731
                                                                                                                                                                        r$735))
                                                                                                                                                                     #f))
                                                                                                                                                                 (Cyc-fast-plus
                                                                                                                                                                   c$319
                                                                                                                                                                   2)))
                                                                                                                                                               #f))
                                                                                                                                                           r$736))
                                                                                                                                                        #f))
                                                                                                                                                    r$737))
                                                                                                                                                 #f))
                                                                                                                                             harr$305
                                                                                                                                             r$311
                                                                                                                                             c$319))
                                                                                                                                          #f))
                                                                                                                                      r$738))
                                                                                                                                   #f))
                                                                                                                               harr$305
                                                                                                                               r$311
                                                                                                                               r$739))
                                                                                                                            #f))
                                                                                                                        (Cyc-fast-sub
                                                                                                                          c$319
                                                                                                                          1)))
                                                                                                                      #f)))))
                                                                                                              #f))
                                                                                                          r$732))
                                                                                                        #f))
                                                                                                    (Cyc-fast-gte
                                                                                                      c$319
                                                                                                      ncols2$308)))
                                                                                                  #t))))
                                                                                            #f))
                                                                                        #f))
                                                                                      #f))
                                                                                  1))
                                                                                #f))
                                                                            #\/))
                                                                         #f)))))
                                                                 #f))
                                                             r$697))
                                                           #f))
                                                       (Cyc-fast-lt r$311 0)))
                                                     #t))))
                                               #f))
                                           #f))
                                         #f))
                                     r$693))
                                   #f))
                               (Cyc-fast-sub nrows$306 1)))
                             #f))
                         #\newline))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t)))
       (odd? .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 5
                 (144 169 201 770 771)
                 #f
                 #f
                 5
                 0
                 #f
                 #f
                 #f))))
      ()
      ((nw$359
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             309
             #f
             #f
             #f
             2
             (309 307)
             #f
             r$842
             0
             2
             #f
             #f
             #f))))
      ((k$743 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  199
                  #f
                  #f
                  #f
                  2
                  (197 197)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(196 (r$742) ((write-ch k$740 r$742)) #f))
                  2
                  0
                  #f
                  #f
                  #t))))
      ()
      ()
      ()
      ((top-cell$373
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #f #f 1 (380) #f r$878 0 1 #t #f #f))))
      ((k$748 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 219 #f #f #f 2 (205 217) #f #f 1 1 #f #f #t))))
      ()
      ()
      ()
      ()
      ()
      ((secs$279
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 31 #f #f #f 2 (26 14) #f r$588 0 2 #f #f #f))))
      ()
      ()
      ((name$264
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 71 #f #f #f 3 (63 22 16) #f #f 0 3 #f #f #f)))
       (permute-vec!
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             622
             #f
             #f
             2
             (281 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(622
                  (k$1097 v$482 random-state$481)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(621
                        (r$1110)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(620
                              (r$1099)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(619
                                    (i$483)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(618
                                          (lp$484)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(607
                                                (r$1101)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(606
                                                      (r$1100)
                                                      ((lp$484
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(605
                                                             (r$1098)
                                                             ((k$1097 v$482))
                                                             #f))
                                                         i$483))
                                                      #f))
                                                  (set! lp$484 r$1101)))
                                                #f))
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(617
                                                (k$1102 i$485)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(616
                                                      (r$1103)
                                                      ((if r$1103
                                                         (#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(615
                                                              ()
                                                              ((#((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(614
                                                                    (r$1106)
                                                                    ((random-int
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(613
                                                                           (r$1107)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(612
                                                                                 (elt-i$487
                                                                                   j$486)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(611
                                                                                       (r$1109)
                                                                                       ((#((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(610
                                                                                             (r$1108)
                                                                                             ((#((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(609
                                                                                                   (r$1104)
                                                                                                   ((#((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(608
                                                                                                         (r$1105)
                                                                                                         ((lp$484
                                                                                                            k$1102
                                                                                                            r$1105))
                                                                                                         #f))
                                                                                                     (Cyc-fast-sub
                                                                                                       i$485
                                                                                                       1)))
                                                                                                   #f))
                                                                                               (vector-set!
                                                                                                 v$482
                                                                                                 j$486
                                                                                                 elt-i$487)))
                                                                                             #f))
                                                                                         (vector-set!
                                                                                           v$482
                                                                                           i$485
                                                                                           r$1109)))
                                                                                       #f))
                                                                                   (vector-ref
                                                                                     v$482
                                                                                     j$486)))
                                                                                 #f))
                                                                             r$1106
                                                                             r$1107))
                                                                           #f))
                                                                       i$485
                                                                       random-state$481))
                                                                    #f))
                                                                (vector-ref
                                                                  v$482
                                                                  i$485)))
                                                              #f)))
                                                         (k$1102 #f)))
                                                      #f))
                                                  (Cyc-fast-gt i$485 1)))
                                                #t))))
                                          #f))
                                      #f))
                                    #f))
                                r$1099))
                              #f))
                          (Cyc-fast-sub r$1110 1)))
                        #f))
                    (vector-length v$482)))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((k$1243
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             764
             #f
             #f
             #f
             5
             (751 751 743 743 742)
             #f
             #f
             5
             0
             #t
             #f
             #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((maxy$354
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             341
             #f
             #f
             #f
             3
             (296 305 317)
             #f
             r$817
             0
             3
             #t
             #f
             #f))))
      ()
      ((n$544 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 718 #f #f #f 1 (718) #f #f 0 1 #t #f #f))))
      ((set-cell:mark
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             636
             #f
             #f
             2
             (549 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(636
                  (k$1125 o$494 v$493)
                  ((k$1125 (vector-set! o$494 5 v$493)))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ((c$425 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 513 #f #t 0 1 (498) #f 0 0 1 #f #f #f))))
      ()
      ()
      ((c$428 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  511
                  #f
                  #f
                  #f
                  4
                  (511 508 506 502)
                  #f
                  #f
                  0
                  4
                  #t
                  #f
                  #f))))
      ((car .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                ?
                #f
                #f
                #f
                3
                (352 668 717)
                #f
                #f
                3
                0
                #t
                #f
                #f))))
      ()
      ((k$759 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  215
                  #f
                  #f
                  #f
                  2
                  (214 214)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(213
                      (r$758)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(212
                             (r$750)
                             ((write-ch
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(211
                                    (r$751)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(210
                                          (r$756)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(209
                                                (r$757)
                                                ((dot/space
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(208
                                                       (r$755)
                                                       ((write-ch
                                                          #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(207
                                                              (r$752)
                                                              ((write-ch
                                                                 #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(206
                                                                     (r$753)
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(205
                                                                           (r$754)
                                                                           ((lp$192$322
                                                                              k$748
                                                                              r$754))
                                                                           #f))
                                                                       (Cyc-fast-plus
                                                                         c$323
                                                                         2)))
                                                                     #f))
                                                                 #\\))
                                                              #f))
                                                          r$755))
                                                       #f))
                                                   harr$305
                                                   r$756
                                                   r$757))
                                                #f))
                                            (Cyc-fast-plus c$323 1)))
                                          #f))
                                      (Cyc-fast-sub nrows$306 1)))
                                    #f))
                                #\/))
                             #f))
                         r$758))
                      #f))
                  2
                  0
                  #f
                  #f
                  #t))))
      ()
      ((next$526
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             691
             #f
             #f
             #f
             2
             (691 675)
             #f
             r$1190
             0
             2
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((v$285 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #f)))
       (n1$516
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             661
             #f
             #f
             #f
             2
             (659 656)
             #f
             r$1169
             0
             2
             #t
             #f
             #f))))
      ()
      ((add-wall$396
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             473
             #f
             #f
             #f
             7
             (438 444 447 399 403 414 417)
             #f
             r$904
             7
             0
             #f
             #f
             #f))))
      ()
      ((values
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (80 76) #f #f 1 1 #f #f #f)))
       (k$1254
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             763
             #f
             #f
             #f
             3
             (762 761 761)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(760
                 (r$1244)
                 ((if r$1244
                    (#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(742
                         ()
                         ((k$1243 (quotient__inline__ x$552 y$551)))
                         #f)))
                    (#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(759
                         (r$1245)
                         ((if r$1245
                            (#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(750
                                 ()
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(749
                                       (r$1246)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(748
                                             (q$555)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(747
                                                   (r$1249)
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(746
                                                         (r$1247)
                                                         ((#((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(745
                                                               (r$556)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(744
                                                                     ()
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(743
                                                                           (r$1248)
                                                                           ((if r$1248
                                                                              (k$1243
                                                                                q$555)
                                                                              (k$1243
                                                                                (Cyc-fast-plus
                                                                                  q$555
                                                                                  1))))
                                                                           #f))
                                                                       (Cyc-fast-eq
                                                                         r$556
                                                                         0)))
                                                                     #f))))
                                                               #f))
                                                           r$1247))
                                                         #f))
                                                     (Cyc-fast-sub
                                                       x$552
                                                       r$1249)))
                                                   #f))
                                               (Cyc-fast-mul q$555 y$551)))
                                             #f))
                                         r$1246))
                                       #f))
                                   (quotient__inline__ x$552 y$551)))
                                 #f)))
                            (#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(758
                                 ()
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(757
                                       (r$1250)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(756
                                             (q$553)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(755
                                                   (r$1253)
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(754
                                                         (r$1251)
                                                         ((#((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(753
                                                               (r$554)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(752
                                                                     ()
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(751
                                                                           (r$1252)
                                                                           ((if r$1252
                                                                              (k$1243
                                                                                q$553)
                                                                              (k$1243
                                                                                (Cyc-fast-sub
                                                                                  q$553
                                                                                  1))))
                                                                           #f))
                                                                       (Cyc-fast-eq
                                                                         r$554
                                                                         0)))
                                                                     #f))))
                                                               #f))
                                                           r$1251))
                                                         #f))
                                                     (Cyc-fast-sub
                                                       x$552
                                                       r$1253)))
                                                   #f))
                                               (Cyc-fast-mul q$553 y$551)))
                                             #f))
                                         r$1250))
                                       #f))
                                   (quotient__inline__ x$552 y$551)))
                                 #f)))))
                         #f))
                     (Cyc-fast-lt y$551 0))))
                 #f))
             3
             0
             #t
             #f
             #t))))
      ()
      ()
      ()
      ()
      ((tmp$209$316
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             157
             #f
             #f
             #f
             2
             (157 157)
             #f
             r$715
             0
             1
             #t
             #f
             #f)))
       (k$1259
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             781
             #f
             #f
             #f
             6
             (769 769 768 767 766 765)
             #f
             #f
             6
             0
             #t
             #f
             #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((c$430 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 530 #f #f #f 1 (527) #f #f 0 1 #t #f #f))))
      ()
      ((rmoc-hex$402
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             420
             #f
             #f
             #f
             2
             (414 417)
             #f
             r$925
             0
             2
             #f
             #f
             #f))))
      ()
      ()
      ((k$763 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 238 #f #f #f 2 (227 236) #f #f 1 1 #f #f #t))))
      ((c$436 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 535 #f #f #f 1 (532) #f r$1022 0 1 #t #f #f))))
      ((next$530
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             682
             #f
             #f
             #f
             2
             (682 679)
             #f
             r$1198
             0
             2
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$1266
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             771
             #f
             #f
             #f
             2
             (770 770)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(769
                 (r$1265)
                 ((if r$1265
                    (k$1259 (+ z$559 z$559 1))
                    (k$1259 (Cyc-fast-plus z$559 z$559))))
                 #f))
             1
             1
             #f
             #f
             #t))))
      ()
      ()
      ()
      ((tmp$134$406
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             465
             #f
             #f
             #f
             2
             (465 465)
             #f
             r$939
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((bt-lp$378
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             376
             #f
             #f
             #f
             4
             (369 368 367 366)
             #f
             r$887
             3
             0
             #f
             #f
             #f))))
      ()
      ((j/s$268
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 57 #f #f #f 1 (34) #f r$574 0 1 #t #f #f))))
      ((s2$292
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 95 #f #f #f 1 (91) #f r$640 0 1 #t #f #f))))
      ()
      ()
      ((k$771 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  231
                  #f
                  #f
                  #f
                  2
                  (230 230)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(229
                      (r$770)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(228
                             (r$768)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(227 (r$769) ((lp$188$326 k$763 r$769)) #f))
                               (Cyc-fast-plus c$327 2)))
                             #f))
                         r$770))
                      #f))
                  2
                  0
                  #f
                  #f
                  #t))))
      ()
      ()
      ()
      ((lp$113$421
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             519
             #f
             #f
             #f
             3
             (496 495 494)
             #f
             r$992
             2
             0
             #f
             #f
             #f))))
      ((k$776 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 251 #f #f #f 1 (250) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ((maze$464
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 580 #f #f #f 1 (573) #f #f 0 1 #f #f #f))))
      ()
      ()
      ()
      ((o$500 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 640 #f #f #f 1 (640) #f #f 0 1 #t #t #f))))
      ((tmp$111$448
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             546
             #f
             #f
             #f
             2
             (546 546)
             #f
             r$1047
             0
             1
             #t
             #f
             #f)))
       (o$501 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 641 #f #f #f 1 (641) #f #f 0 1 #t #f #f))))
      ((name$294
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 92 #f #f #f 1 (91) #f "maze" 0 1 #t #f #f)))
       (o$502 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 642 #f #f #f 1 (642) #f #f 0 1 #t #f #f))))
      ((o$503 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 643 #f #f #f 1 (643) #f #f 0 1 #t #f #f))))
      ()
      ((k$1272
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 783 #f #f #f 1 (782) #f #f 1 0 #t #f #t))))
      ((o$506 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 646 #f #f #f 1 (646) #f #f 0 1 #t #f #f))))
      ((o$507 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 647 #f #f #f 1 (647) #f #f 0 1 #t #f #f)))
       (wall:owner
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             648
             #f
             #f
             2
             (602 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(648
                  (k$1159 o$508)
                  ((k$1159 (vector-ref o$508 1)))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((o$508 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 648 #f #f #f 1 (648) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((tmp$190$328
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             236
             #f
             #f
             #f
             2
             (236 236)
             #f
             r$764
             0
             1
             #t
             #f
             #f)))
       (k$782 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 258 #f #f #f 1 (252) #f #f 0 1 #f #f #t))))
      ()
      ()
      ()
      ()
      ((cdr .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                ?
                #f
                #f
                #f
                3
                (350 693 684)
                #f
                #f
                3
                0
                #t
                #f
                #f))))
      ()
      ((k$789 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 285 #f #f #f 1 (259) #f #f 0 1 #f #f #t))))
      ()
      ((r$300 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 128 #f #f #f 2 (127 126) #f #f 0 2 #t #f #f))))
      ()
      ()
      ()
      ((r$1001
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             510
             #f
             #f
             #f
             1
             (510)
             #f
             (Cyc-fast-eq c$428 ncols$417)
             0
             1
             #t
             #f
             #f))))
      ((r$1002
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             502
             #f
             #f
             #f
             0
             ()
             #f
             (vector-set! v$419 i$427 r$1005)
             0
             0
             #t
             #f
             #f))))
      ((r$1003
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             501
             #f
             #f
             #f
             1
             (500)
             #f
             (Cyc-fast-plus c$428 1)
             0
             1
             #f
             #f
             #f))))
      ((r$1004
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             500
             #f
             #f
             #f
             1
             (500)
             #f
             (Cyc-fast-plus i$427 1)
             0
             1
             #t
             #f
             #f))))
      ((r$1005
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 503 #f #f #f 1 (503) #f #f 0 1 #t #f #f))))
      ((r$309 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 192 #f #f #f 1 (132) #f r$693 0 1 #f #f #f)))
       (r$1006
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             507
             #f
             #f
             #f
             1
             (504)
             #f
             (Cyc-fast-mul 3 c$428)
             0
             1
             #f
             #f
             #f))))
      ((r$1007
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             504
             #f
             #f
             #f
             1
             (504)
             #f
             (Cyc-fast-plus r$1008 r$1009)
             0
             1
             #t
             #f
             #f))))
      ((r$600 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 15 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (r$1008
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             506
             #f
             #f
             #f
             1
             (505)
             #f
             (Cyc-fast-mul 2 r$422)
             0
             1
             #t
             #f
             #f))))
      ((r$601 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 14 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (r$1009
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 505 #f #f #f 1 (505) #f #f 0 1 #t #f #f))))
      ((r$602 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 13 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$603 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 12 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$604 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 11 #f #f #f 1 (11) #f #f 0 1 #t #f #f)))
       (lp$136$408
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             458
             #f
             #f
             #f
             3
             (436 435 434)
             #f
             r$944
             2
             0
             #f
             #f
             #f))))
      ((r$605 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 18 #f #f #f 1 (18) #f #f 0 1 #t #f #f))))
      ((r$606 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  30
                  #f
                  #f
                  #f
                  1
                  (30)
                  #f
                  (Cyc-fast-sub t1$277 t0$269)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$607 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  33
                  #f
                  #f
                  #f
                  1
                  (33)
                  #f
                  (Cyc-fast-div jifs$278 j/s$268)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$608 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 45 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$609 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 44 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((r$900 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 486 #f #f #f 1 (486) #f #f 0 1 #t #f #f))))
      ((r$901 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 484 #f #f #f 1 (484) #f #f 0 1 #t #f #f))))
      ((r$902 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  481
                  #f
                  #f
                  #f
                  1
                  (481)
                  #f
                  (Cyc-fast-mul 3 r$971)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$903 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 479 #f #f #f 1 (479) #f '() 0 1 #t #f #f)))
       (new-root$455
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 570 #f #f #f 1 (570) #f #f 0 1 #t #f #f))))
      ((r$904 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  474
                  #f
                  #f
                  #f
                  1
                  (474)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(477
                      (k$968 o$395 n$394 b$393)
                      ((make-wall
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(476
                             (r$970)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(475
                                   (r$969)
                                   ((k$968 (set! walls$392 r$969)))
                                   #f))
                               (cons r$970 walls$392)))
                             #f))
                         o$395
                         n$394
                         b$393))
                      #t))
                  0
                  1
                  #t
                  #f
                  #f)))
       (ncols$417
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             525
             #f
             #f
             #f
             4
             (525 515 511 493)
             #f
             #f
             0
             4
             #t
             #f
             #f)))
       (nelts$531
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 698 #f #f #f 1 (697) #f #f 0 1 #t #f #f))))
      ((r$905 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 429 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$906 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 394 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((r$908 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  427
                  #f
                  #f
                  #f
                  1
                  (427)
                  #f
                  (Cyc-fast-gt ncols$390 1)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$909 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  423
                  #f
                  #f
                  #f
                  1
                  (423)
                  #f
                  (Cyc-fast-plus 3 r$932)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$311 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  190
                  #f
                  #f
                  #f
                  9
                  (190 179 177 156 153 135 143 139 166)
                  #f
                  #f
                  0
                  9
                  #t
                  #f
                  #f)))
       (set-equal?
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             672
             #f
             #f
             2
             (593 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(672
                  (k$1181 s1$521 s2$520)
                  ((get-set-root
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(671
                         (r$1182)
                         ((get-set-root
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(670 (r$1183) ((k$1181 (eq? r$1182 r$1183))) #f))
                            s2$520))
                         #f))
                     s1$521))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((call-with-current-continuation
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (581) #f #f 1 0 #f #f #f))))
      ((r$1010
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             524
             #f
             #f
             #f
             1
             (524)
             #f
             (Cyc-fast-mul nrows$418 ncols$417)
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((r$1014
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 529 #f #f #f 1 (526) #f #f 0 1 #t #f #f))))
      ((r$1015
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             526
             #f
             #f
             #f
             1
             (526)
             #f
             (Cyc-fast-plus r$1016 c$430)
             0
             1
             #t
             #f
             #f))))
      ((r$1016
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             527
             #f
             #f
             #f
             1
             (527)
             #f
             (Cyc-fast-mul r$1017 r$431)
             0
             1
             #t
             #f
             #f))))
      ((r$1017
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 528 #f #f #f 1 (528) #f #f 0 1 #t #f #f))))
      ((r$610 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 43 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$611 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 41 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$612 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 42 #f #f #f 1 (42) #f #f 0 1 #t #f #f))))
      ((r$613 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 60 #f #f #f 1 (60) #f #f 0 1 #t #f #f))))
      ((r$614 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  65
                  #f
                  #f
                  #f
                  1
                  (65)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(68
                      (k$615 x$281)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(67
                            (r$617)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(66
                                  (r$616)
                                  ((k$615 (Cyc-fast-div r$616 1000)))
                                  #f))
                              (round__inline__ r$617)))
                            #f))
                        (Cyc-fast-mul 1000 x$281)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$616 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  66
                  #f
                  #f
                  #f
                  1
                  (66)
                  #f
                  (round__inline__ r$617)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$617 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  67
                  #f
                  #f
                  #f
                  1
                  (67)
                  #f
                  (Cyc-fast-mul 1000 x$281)
                  0
                  1
                  #t
                  #f
                  #f)))
       (lp$192$322
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             220
             #f
             #f
             #f
             3
             (205 204 203)
             #f
             r$747
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ((mark-path
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             552
             #f
             #f
             2
             (263 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(552
                  (k$1042 node$444)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(551
                        (node$445)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(550
                              (lp$446)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(545
                                    (r$1044)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(544
                                          (r$1043)
                                          ((lp$446 k$1042 node$445))
                                          #f))
                                      (set! lp$446 r$1044)))
                                    #f))
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(549
                                    (k$1045 node$447)
                                    ((set-cell:mark
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(548
                                           (r$1046)
                                           ((cell:parent
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(547
                                                  (r$1047)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(546
                                                        (tmp$111$448)
                                                        ((if tmp$111$448
                                                           (lp$446
                                                             k$1045
                                                             tmp$111$448)
                                                           (k$1045 #f)))
                                                        #f))
                                                    r$1047))
                                                  #f))
                                              node$447))
                                           #f))
                                       node$447
                                       #t))
                                    #t))))
                              #f))
                          #f))
                        #f))
                    node$444))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((r$910 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 413 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$911 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  412
                  #f
                  #f
                  #f
                  1
                  (412)
                  #f
                  (Cyc-fast-sub rmoc-x$397 6)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$912 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  395
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$140$399 r$913)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$913 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  396
                  #f
                  #f
                  #f
                  1
                  (396)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(409
                      (k$914 x$400)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(408
                            (r$915)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(407
                                  (tmp$142$401)
                                  ((if tmp$142$401
                                     (k$914 tmp$142$401)
                                     (#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(406
                                          ()
                                          ((href #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(405
                                                     (r$922)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(404
                                                           (r$924)
                                                           ((href #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(403
                                                                      (r$923)
                                                                      ((add-wall$396
                                                                         #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(402
                                                                             (r$916)
                                                                             ((href #((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(401
                                                                                        (r$919)
                                                                                        ((#((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(400
                                                                                              (r$921)
                                                                                              ((href #((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(399
                                                                                                         (r$920)
                                                                                                         ((add-wall$396
                                                                                                            #((record-marker)
                                                                                                              #((record-marker)
                                                                                                                #f
                                                                                                                (id args
                                                                                                                    body
                                                                                                                    has-cont))
                                                                                                              #(398
                                                                                                                (r$917)
                                                                                                                ((#((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(397
                                                                                                                      (r$918)
                                                                                                                      ((lp$140$399
                                                                                                                         k$914
                                                                                                                         r$918))
                                                                                                                      #f))
                                                                                                                  (Cyc-fast-sub
                                                                                                                    x$400
                                                                                                                    6)))
                                                                                                                #f))
                                                                                                            r$919
                                                                                                            r$920
                                                                                                            south-east))
                                                                                                         #f))
                                                                                                     harr$388
                                                                                                     r$921
                                                                                                     0))
                                                                                              #f))
                                                                                          (Cyc-fast-plus
                                                                                            x$400
                                                                                            3)))
                                                                                        #f))
                                                                                    harr$388
                                                                                    x$400
                                                                                    1))
                                                                             #f))
                                                                         r$922
                                                                         r$923
                                                                         south-west))
                                                                      #f))
                                                                  harr$388
                                                                  r$924
                                                                  0))
                                                           #f))
                                                       (Cyc-fast-sub x$400 3)))
                                                     #f))
                                                 harr$388
                                                 x$400
                                                 1))
                                          #f)))))
                                  #f))
                              r$915))
                            #f))
                        (Cyc-fast-lt x$400 3)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$915 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  408
                  #f
                  #f
                  #f
                  1
                  (408)
                  #f
                  (Cyc-fast-lt x$400 3)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$916 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 402 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$917 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 398 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$918 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  397
                  #f
                  #f
                  #f
                  1
                  (397)
                  #f
                  (Cyc-fast-sub x$400 6)
                  0
                  1
                  #t
                  #f
                  #f)))
       (display-hexbottom
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             123
             #f
             #f
             4
             (-1 175 154 137)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(123
                  (k$657 hexwalls$298)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(122
                        (k$667)
                        ((bit-test
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(121
                               (r$668)
                               ((if r$668 (k$667 #\\) (k$667 #\space)))
                               #f))
                           hexwalls$298
                           south-west))
                        #t))
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(120
                        (r$666)
                        ((write-ch
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(119
                               (r$658)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(118
                                     (k$664)
                                     ((bit-test
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(117
                                            (r$665)
                                            ((if r$665
                                               (k$664 #\_)
                                               (k$664 #\space)))
                                            #f))
                                        hexwalls$298
                                        south))
                                     #t))
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(116
                                     (r$663)
                                     ((write-ch
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(115
                                            (r$659)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(114
                                                  (k$661)
                                                  ((bit-test
                                                     #((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(113
                                                         (r$662)
                                                         ((if r$662
                                                            (k$661 #\/)
                                                            (k$661 #\space)))
                                                         #f))
                                                     hexwalls$298
                                                     south-east))
                                                  #t))
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(112
                                                  (r$660)
                                                  ((write-ch k$657 r$660))
                                                  #f))))
                                            #f))
                                        r$663))
                                     #f))))
                               #f))
                           r$666))
                        #f))))
                  #t)))
             3
             0
             #f
             #f
             #f))))
      ((r$919 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 401 #f #f #f 1 (399) #f #f 0 1 #f #f #f))))
      ()
      ((set-cell:parent
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             638
             #f
             #f
             3
             (565 577 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(638
                  (k$1131 o$497 v$496)
                  ((k$1131 (vector-set! o$497 4 v$496)))
                  #t)))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$1021
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 537 #f #f #f 1 (536) #f #f 0 1 #f #f #f))))
      ((r$1022
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 536 #f #f #f 1 (536) #f #f 0 1 #t #f #f))))
      ((r$1023
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 534 #f #f #f 1 (531) #f #f 0 1 #t #f #f))))
      ((r$1024
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             531
             #f
             #f
             #f
             1
             (531)
             #f
             (Cyc-fast-plus r$1025 c$436)
             0
             1
             #t
             #f
             #f)))
       (len$451
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 559 #f #t 0 1 (553) #f 0 0 1 #f #f #f))))
      ((r$1025
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             532
             #f
             #f
             #f
             1
             (532)
             #f
             (Cyc-fast-mul r$1026 r$437)
             0
             1
             #t
             #f
             #f)))
       (neighbor$510
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 650 #f #f #f 1 (649) #f #f 0 1 #f #f #f)))
       (union!
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             667
             #f
             #f
             2
             (588 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(667
                  (k$1166 s1$513 s2$512)
                  ((get-set-root
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(666
                         (r$1167)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(665
                               (r1$514)
                               ((get-set-root
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(664
                                      (r$1168)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(663
                                            (r2$515)
                                            ((set-size
                                               #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(662
                                                   (r$1169)
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(661
                                                         (n1$516)
                                                         ((set-size
                                                            #((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(660
                                                                (r$1170)
                                                                ((#((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(659
                                                                      (n2$517)
                                                                      ((#((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(658
                                                                            (r$1171)
                                                                            ((#((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(657
                                                                                  (n$518)
                                                                                  ((#((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(656
                                                                                        ()
                                                                                        ((#((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(655
                                                                                              (r$1172)
                                                                                              ((if r$1172
                                                                                                 (#((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(652
                                                                                                      ()
                                                                                                      ((#((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(651
                                                                                                            (r$1173)
                                                                                                            ((k$1166
                                                                                                               (set-car!
                                                                                                                 r1$514
                                                                                                                 n$518)))
                                                                                                            #f))
                                                                                                        (set-cdr!
                                                                                                          r2$515
                                                                                                          r1$514)))
                                                                                                      #f)))
                                                                                                 (#((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(654
                                                                                                      ()
                                                                                                      ((#((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(653
                                                                                                            (r$1174)
                                                                                                            ((k$1166
                                                                                                               (set-car!
                                                                                                                 r2$515
                                                                                                                 n$518)))
                                                                                                            #f))
                                                                                                        (set-cdr!
                                                                                                          r1$514
                                                                                                          r2$515)))
                                                                                                      #f)))))
                                                                                              #f))
                                                                                          (Cyc-fast-gt
                                                                                            n1$516
                                                                                            n2$517)))
                                                                                        #f))))
                                                                                  #f))
                                                                              r$1171))
                                                                            #f))
                                                                        (Cyc-fast-plus
                                                                          n1$516
                                                                          n2$517)))
                                                                      #f))
                                                                  r$1170))
                                                                #f))
                                                            r2$515))
                                                         #f))
                                                     r$1169))
                                                   #f))
                                               r1$514))
                                            #f))
                                        r$1168))
                                      #f))
                                  s2$512))
                               #f))
                           r$1167))
                         #f))
                     s1$513))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((r$1026
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 533 #f #f #f 1 (533) #f #f 0 1 #t #f #f)))
       (lp$446
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             550
             #f
             #f
             #f
             3
             (546 545 544)
             #f
             r$1044
             2
             0
             #f
             #f
             #f)))
       (M$537 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  715
                  #f
                  #t
                  8388607
                  1
                  (705)
                  #f
                  8388607
                  0
                  1
                  #t
                  #f
                  #f))))
      ((len$454
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 557 #f #f #f 2 (557 557) #f #f 0 2 #t #f #f)))
       (vector-for-each-rev
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             635
             #f
             #f
             2
             (582 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(635
                  (k$1113 proc$489 v$488)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(634
                        (r$1122)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(633
                              (r$1114)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(632
                                    (i$490)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(631
                                          (lp$491)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(624
                                                (r$1116)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(623
                                                      (r$1115)
                                                      ((lp$491 k$1113 i$490))
                                                      #f))
                                                  (set! lp$491 r$1116)))
                                                #f))
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(630
                                                (k$1117 i$492)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(629
                                                      (r$1118)
                                                      ((if r$1118
                                                         (#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(628
                                                              ()
                                                              ((#((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(627
                                                                    (r$1121)
                                                                    ((proc$489
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(626
                                                                           (r$1119)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(625
                                                                                 (r$1120)
                                                                                 ((lp$491
                                                                                    k$1117
                                                                                    r$1120))
                                                                                 #f))
                                                                             (Cyc-fast-sub
                                                                               i$492
                                                                               1)))
                                                                           #f))
                                                                       r$1121))
                                                                    #f))
                                                                (vector-ref
                                                                  v$488
                                                                  i$492)))
                                                              #f)))
                                                         (k$1117 #f)))
                                                      #f))
                                                  (Cyc-fast-gte i$492 0)))
                                                #t))))
                                          #f))
                                      #f))
                                    #f))
                                r$1114))
                              #f))
                          (Cyc-fast-sub r$1122 1)))
                        #f))
                    (vector-length v$488)))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ((r$621 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  75
                  #f
                  #f
                  #f
                  1
                  (72)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(82
                      (k$625)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(80
                            (r$630)
                            ((vector
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(79
                                   (r$626)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(78
                                         (k$628)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(77
                                               (r$629)
                                               ((if r$629 (k$628 0) (k$628 1)))
                                               #f))
                                           (Cyc-fast-lt r$283 100)))
                                         #t))
                                     #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(76
                                         (r$627)
                                         ((values k$625 r$626 r$627))
                                         #f))))
                                   #f))
                               values
                               r$630))
                            #f))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(81 (k$631 x$286) ((k$631 x$286)) #t))))
                      #t))
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$622 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  72
                  #f
                  #f
                  #f
                  1
                  (72)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(74
                      (k$623 v$285 i$284)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(73 (r$624) ((r$624 k$623 x$282)) #f))
                        (vector-ref v$285 i$284)))
                      #t))
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ((t0$269
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 55 #f #f #f 1 (31) #f r$575 0 1 #t #f #f)))
       (r$624 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  73
                  #f
                  #f
                  #f
                  1
                  (73)
                  #f
                  (vector-ref v$285 i$284)
                  1
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$626 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 79 #f #f #f 1 (76) #f #f 0 1 #f #f #f))))
      ((r$627 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 76 #f #f #f 1 (76) #f #f 0 1 #t #f #f))))
      ()
      ((r$629 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  77
                  #f
                  #f
                  #f
                  1
                  (77)
                  #f
                  (Cyc-fast-lt r$283 100)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((tmp$169$357
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             294
             #f
             #f
             #f
             2
             (294 294)
             #f
             r$832
             0
             1
             #t
             #f
             #f))))
      ((r$920 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 399 #f #f #f 1 (399) #f #f 0 1 #t #f #f))))
      ((r$921 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  400
                  #f
                  #f
                  #f
                  1
                  (400)
                  #f
                  (Cyc-fast-plus x$400 3)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$922 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 405 #f #f #f 1 (403) #f #f 0 1 #f #f #f))))
      ((r$923 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 403 #f #f #f 1 (403) #f #f 0 1 #t #f #f))))
      ((r$924 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  404
                  #f
                  #f
                  #f
                  1
                  (404)
                  #f
                  (Cyc-fast-sub x$400 3)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$925 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 421 #f #f #f 1 (421) #f #f 0 1 #t #f #f))))
      ((r$926 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 416 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$927 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 414 #f #f #f 1 (414) #f #f 0 1 #t #f #f))))
      ((r$928 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  415
                  #f
                  #f
                  #f
                  1
                  (415)
                  #f
                  (Cyc-fast-sub rmoc-x$397 3)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$630 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  80
                  #f
                  #f
                  #f
                  1
                  (80)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(81 (k$631 x$286) ((k$631 x$286)) #t))
                  0
                  1
                  #t
                  #f
                  #f)))
       (lp$458
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             568
             #f
             #f
             #f
             3
             (564 563 562)
             #f
             r$1061
             2
             0
             #f
             #f
             #f))))
      ((j$303 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 131 #f #f #f 1 (131) #f #f 0 1 #t #f #f)))
       (r$1039
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 542 #f #f #f 1 (542) #f 'harr 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r$635 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 106 #f #f #f 1 (106) #f #f 0 1 #t #f #f))))
      ((r$636 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 104 #f #f #f 1 (104) #f #f 0 1 #t #f #f))))
      ((r$637 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 102 #f #f #f 1 (102) #f #f 0 1 #t #f #f))))
      ((r$638 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 100 #f #f #f 1 (100) #f #f 0 1 #t #f #f))))
      ((r$639 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  98
                  #f
                  #f
                  #f
                  1
                  (98)
                  #f
                  (number->string count$287)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((ncols$442
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 543 #f #f #f 1 (542) #f #f 0 1 #f #f #f))))
      ((r$930 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  418
                  #f
                  #f
                  #f
                  1
                  (418)
                  #f
                  (Cyc-fast-lt rmoc-x$397 xmax$391)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$931 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 417 #f #f #f 1 (417) #f #f 0 1 #t #f #f))))
      ((r$932 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  424
                  #f
                  #f
                  #f
                  1
                  (424)
                  #f
                  (Cyc-fast-mul 6 r$933)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$933 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 425 #f #f #f 1 (425) #f #f 0 1 #t #f #f))))
      ((r$934 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  426
                  #f
                  #f
                  #f
                  1
                  (426)
                  #f
                  (Cyc-fast-sub ncols$390 2)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$935 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  470
                  #f
                  #f
                  #f
                  1
                  (470)
                  #f
                  (Cyc-fast-mul r$967 3)
                  0
                  1
                  #t
                  #f
                  #f)))
       (n2$517
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             659
             #f
             #f
             #f
             2
             (659 656)
             #f
             r$1170
             0
             2
             #t
             #f
             #f))))
      ((r$936 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  430
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$132$404 r$937)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((Cyc-fast-lte
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             3
             (296 317 457)
             #f
             #f
             3
             0
             #t
             #f
             #f)))
       (r$937 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  431
                  #f
                  #f
                  #f
                  1
                  (431)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(467
                      (k$938 x$405)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(466
                            (r$939)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(465
                                  (tmp$134$406)
                                  ((if tmp$134$406
                                     (k$938 tmp$134$406)
                                     (#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(464
                                          ()
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(463
                                                (r$966)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(462
                                                      (r$964)
                                                      ((bitwise-and
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(461
                                                             (r$965)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(460
                                                                   (r$942)
                                                                   ((#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(459
                                                                         (y$407)
                                                                         ((#((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(458
                                                                               (lp$136$408)
                                                                               ((#((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(435
                                                                                     (r$944)
                                                                                     ((#((record-marker)
                                                                                         #((record-marker)
                                                                                           #f
                                                                                           (id args
                                                                                               body
                                                                                               has-cont))
                                                                                         #(434
                                                                                           (r$943)
                                                                                           ((lp$136$408
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(433
                                                                                                  (r$940)
                                                                                                  ((#((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(432
                                                                                                        (r$941)
                                                                                                        ((lp$132$404
                                                                                                           k$938
                                                                                                           r$941))
                                                                                                        #f))
                                                                                                    (Cyc-fast-sub
                                                                                                      x$405
                                                                                                      3)))
                                                                                                  #f))
                                                                                              y$407))
                                                                                           #f))
                                                                                       (set! lp$136$408
                                                                                         r$944)))
                                                                                     #f))
                                                                                 #((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(457
                                                                                     (k$945 y$409)
                                                                                     ((#((record-marker)
                                                                                         #((record-marker)
                                                                                           #f
                                                                                           (id args
                                                                                               body
                                                                                               has-cont))
                                                                                         #(456
                                                                                           (r$946)
                                                                                           ((#((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(455
                                                                                                 (tmp$138$410)
                                                                                                 ((if tmp$138$410
                                                                                                    (k$945 tmp$138$410)
                                                                                                    (#((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(454
                                                                                                         ()
                                                                                                         ((href #((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(453
                                                                                                                    (r$949)
                                                                                                                    ((#((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(452
                                                                                                                          (hex$411)
                                                                                                                          ((#((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(451
                                                                                                                                (k$959)
                                                                                                                                ((#((record-marker)
                                                                                                                                    #((record-marker)
                                                                                                                                      #f
                                                                                                                                      (id args
                                                                                                                                          body
                                                                                                                                          has-cont))
                                                                                                                                    #(450
                                                                                                                                      (r$960)
                                                                                                                                      ((if r$960
                                                                                                                                         (k$959 #f)
                                                                                                                                         (#((record-marker)
                                                                                                                                            #((record-marker)
                                                                                                                                              #f
                                                                                                                                              (id args
                                                                                                                                                  body
                                                                                                                                                  has-cont))
                                                                                                                                            #(449
                                                                                                                                              (r$962)
                                                                                                                                              ((#((record-marker)
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #f
                                                                                                                                                    (id args
                                                                                                                                                        body
                                                                                                                                                        has-cont))
                                                                                                                                                  #(448
                                                                                                                                                    (r$963)
                                                                                                                                                    ((href #((record-marker)
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #f
                                                                                                                                                               (id args
                                                                                                                                                                   body
                                                                                                                                                                   has-cont))
                                                                                                                                                             #(447
                                                                                                                                                               (r$961)
                                                                                                                                                               ((add-wall$396
                                                                                                                                                                  k$959
                                                                                                                                                                  hex$411
                                                                                                                                                                  r$961
                                                                                                                                                                  south-west))
                                                                                                                                                               #f))
                                                                                                                                                           harr$388
                                                                                                                                                           r$962
                                                                                                                                                           r$963))
                                                                                                                                                    #f))
                                                                                                                                                (Cyc-fast-sub
                                                                                                                                                  y$409
                                                                                                                                                  1)))
                                                                                                                                              #f))
                                                                                                                                          (Cyc-fast-sub
                                                                                                                                            x$405
                                                                                                                                            3))))
                                                                                                                                      #f))
                                                                                                                                  (zero?__inline__
                                                                                                                                    x$405)))
                                                                                                                                #t))
                                                                                                                            #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(446
                                                                                                                                (r$950)
                                                                                                                                ((#((record-marker)
                                                                                                                                    #((record-marker)
                                                                                                                                      #f
                                                                                                                                      (id args
                                                                                                                                          body
                                                                                                                                          has-cont))
                                                                                                                                    #(445
                                                                                                                                      (r$958)
                                                                                                                                      ((href #((record-marker)
                                                                                                                                               #((record-marker)
                                                                                                                                                 #f
                                                                                                                                                 (id args
                                                                                                                                                     body
                                                                                                                                                     has-cont))
                                                                                                                                               #(444
                                                                                                                                                 (r$957)
                                                                                                                                                 ((add-wall$396
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #((record-marker)
                                                                                                                                                        #f
                                                                                                                                                        (id args
                                                                                                                                                            body
                                                                                                                                                            has-cont))
                                                                                                                                                      #(443
                                                                                                                                                        (r$951)
                                                                                                                                                        ((#((record-marker)
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #f
                                                                                                                                                              (id args
                                                                                                                                                                  body
                                                                                                                                                                  has-cont))
                                                                                                                                                            #(442
                                                                                                                                                              (k$952)
                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #f
                                                                                                                                                                    (id args
                                                                                                                                                                        body
                                                                                                                                                                        has-cont))
                                                                                                                                                                  #(441
                                                                                                                                                                    (r$953)
                                                                                                                                                                    ((if r$953
                                                                                                                                                                       (#((record-marker)
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #f
                                                                                                                                                                            (id args
                                                                                                                                                                                body
                                                                                                                                                                                has-cont))
                                                                                                                                                                          #(440
                                                                                                                                                                            (r$955)
                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(439
                                                                                                                                                                                  (r$956)
                                                                                                                                                                                  ((href #((record-marker)
                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                             #f
                                                                                                                                                                                             (id args
                                                                                                                                                                                                 body
                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                           #(438
                                                                                                                                                                                             (r$954)
                                                                                                                                                                                             ((add-wall$396
                                                                                                                                                                                                k$952
                                                                                                                                                                                                hex$411
                                                                                                                                                                                                r$954
                                                                                                                                                                                                south-east))
                                                                                                                                                                                             #f))
                                                                                                                                                                                         harr$388
                                                                                                                                                                                         r$955
                                                                                                                                                                                         r$956))
                                                                                                                                                                                  #f))
                                                                                                                                                                              (Cyc-fast-sub
                                                                                                                                                                                y$409
                                                                                                                                                                                1)))
                                                                                                                                                                            #f))
                                                                                                                                                                        (Cyc-fast-plus
                                                                                                                                                                          x$405
                                                                                                                                                                          3))
                                                                                                                                                                       (k$952 #f)))
                                                                                                                                                                    #f))
                                                                                                                                                                (Cyc-fast-lt
                                                                                                                                                                  x$405
                                                                                                                                                                  xmax$391)))
                                                                                                                                                              #t))
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #f
                                                                                                                                                              (id args
                                                                                                                                                                  body
                                                                                                                                                                  has-cont))
                                                                                                                                                            #(437
                                                                                                                                                              (r$947)
                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #f
                                                                                                                                                                    (id args
                                                                                                                                                                        body
                                                                                                                                                                        has-cont))
                                                                                                                                                                  #(436
                                                                                                                                                                    (r$948)
                                                                                                                                                                    ((lp$136$408
                                                                                                                                                                       k$945
                                                                                                                                                                       r$948))
                                                                                                                                                                    #f))
                                                                                                                                                                (Cyc-fast-sub
                                                                                                                                                                  y$409
                                                                                                                                                                  2)))
                                                                                                                                                              #f))))
                                                                                                                                                        #f))
                                                                                                                                                    hex$411
                                                                                                                                                    r$957
                                                                                                                                                    south))
                                                                                                                                                 #f))
                                                                                                                                             harr$388
                                                                                                                                             x$405
                                                                                                                                             r$958))
                                                                                                                                      #f))
                                                                                                                                  (Cyc-fast-sub
                                                                                                                                    y$409
                                                                                                                                    2)))
                                                                                                                                #f))))
                                                                                                                          #f))
                                                                                                                      r$949))
                                                                                                                    #f))
                                                                                                                harr$388
                                                                                                                x$405
                                                                                                                y$409))
                                                                                                         #f)))))
                                                                                                 #f))
                                                                                             r$946))
                                                                                           #f))
                                                                                       (Cyc-fast-lte
                                                                                         y$409
                                                                                         1)))
                                                                                     #t))))
                                                                               #f))
                                                                           #f))
                                                                         #f))
                                                                     r$942))
                                                                   #f))
                                                               (Cyc-fast-plus
                                                                 r$964
                                                                 r$965)))
                                                             #f))
                                                         x$405
                                                         1))
                                                      #f))
                                                  (Cyc-fast-mul r$966 2)))
                                                #f))
                                            (Cyc-fast-sub nrows$389 1)))
                                          #f)))))
                                  #f))
                              r$939))
                            #f))
                        (Cyc-fast-lt x$405 0)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$939 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  466
                  #f
                  #f
                  #f
                  1
                  (466)
                  #f
                  (Cyc-fast-lt x$405 0)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ((nrows$297
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 111 #f #f #f 1 (109) #f #f 0 1 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((r$1043
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             544
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$446 r$1044)
             0
             0
             #t
             #f
             #f))))
      ((r$1044
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             545
             #f
             #f
             #f
             1
             (545)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(549
                 (k$1045 node$447)
                 ((set-cell:mark
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(548
                        (r$1046)
                        ((cell:parent
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(547
                               (r$1047)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(546
                                     (tmp$111$448)
                                     ((if tmp$111$448
                                        (lp$446 k$1045 tmp$111$448)
                                        (k$1045 #f)))
                                     #f))
                                 r$1047))
                               #f))
                           node$447))
                        #f))
                    node$447
                    #t))
                 #t))
             0
             0
             #t
             #f
             #f)))
       (make-maze
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             285
             #f
             #f
             2
             (258 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(285
                  (k$789 nrows$337 ncols$336)
                  ((gen-maze-array
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(284
                         (r$790)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(283
                               (cells$338)
                               ((make-wall-vec
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(282
                                      (r$806)
                                      ((random-state
                                         #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(281
                                             (r$807)
                                             ((permute-vec!
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(280
                                                    (r$791)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(279
                                                          (walls$339)
                                                          ((#((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(278
                                                                ()
                                                                ((#((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(277
                                                                      (r$805)
                                                                      ((dig-maze
                                                                         #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(276
                                                                             (r$792)
                                                                             ((pick-entrances
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(275
                                                                                    (r$793)
                                                                                    ((#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(274
                                                                                          (result$340)
                                                                                          ((#((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(273
                                                                                                (r$794)
                                                                                                ((#((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(272
                                                                                                      (r$795)
                                                                                                      ((#((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(271
                                                                                                            (entrance$342
                                                                                                              exit$341)
                                                                                                            ((href/rc
                                                                                                               #((record-marker)
                                                                                                                 #((record-marker)
                                                                                                                   #f
                                                                                                                   (id args
                                                                                                                       body
                                                                                                                       has-cont))
                                                                                                                 #(270
                                                                                                                   (r$796)
                                                                                                                   ((#((record-marker)
                                                                                                                       #((record-marker)
                                                                                                                         #f
                                                                                                                         (id args
                                                                                                                             body
                                                                                                                             has-cont))
                                                                                                                       #(269
                                                                                                                         (exit-cell$343)
                                                                                                                         ((cell:walls
                                                                                                                            #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(268
                                                                                                                                (r$797)
                                                                                                                                ((#((record-marker)
                                                                                                                                    #((record-marker)
                                                                                                                                      #f
                                                                                                                                      (id args
                                                                                                                                          body
                                                                                                                                          has-cont))
                                                                                                                                    #(267
                                                                                                                                      (walls$344)
                                                                                                                                      ((#((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(266
                                                                                                                                            ()
                                                                                                                                            ((#((record-marker)
                                                                                                                                                #((record-marker)
                                                                                                                                                  #f
                                                                                                                                                  (id args
                                                                                                                                                      body
                                                                                                                                                      has-cont))
                                                                                                                                                #(265
                                                                                                                                                  (r$804)
                                                                                                                                                  ((href/rc
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #f
                                                                                                                                                         (id args
                                                                                                                                                             body
                                                                                                                                                             has-cont))
                                                                                                                                                       #(264
                                                                                                                                                         (r$803)
                                                                                                                                                         ((reroot-maze
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #f
                                                                                                                                                                (id args
                                                                                                                                                                    body
                                                                                                                                                                    has-cont))
                                                                                                                                                              #(263
                                                                                                                                                                (r$798)
                                                                                                                                                                ((mark-path
                                                                                                                                                                   #((record-marker)
                                                                                                                                                                     #((record-marker)
                                                                                                                                                                       #f
                                                                                                                                                                       (id args
                                                                                                                                                                           body
                                                                                                                                                                           has-cont))
                                                                                                                                                                     #(262
                                                                                                                                                                       (r$799)
                                                                                                                                                                       ((bitwise-not
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(261
                                                                                                                                                                              (r$802)
                                                                                                                                                                              ((bitwise-and
                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                     #f
                                                                                                                                                                                     (id args
                                                                                                                                                                                         body
                                                                                                                                                                                         has-cont))
                                                                                                                                                                                   #(260
                                                                                                                                                                                     (r$801)
                                                                                                                                                                                     ((set-cell:walls
                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                            #f
                                                                                                                                                                                            (id args
                                                                                                                                                                                                body
                                                                                                                                                                                                has-cont))
                                                                                                                                                                                          #(259
                                                                                                                                                                                            (r$800)
                                                                                                                                                                                            ((vector
                                                                                                                                                                                               k$789
                                                                                                                                                                                               cells$338
                                                                                                                                                                                               entrance$342
                                                                                                                                                                                               exit$341))
                                                                                                                                                                                            #f))
                                                                                                                                                                                        exit-cell$343
                                                                                                                                                                                        r$801))
                                                                                                                                                                                     #f))
                                                                                                                                                                                 walls$344
                                                                                                                                                                                 r$802))
                                                                                                                                                                              #f))
                                                                                                                                                                          south))
                                                                                                                                                                       #f))
                                                                                                                                                                   exit-cell$343))
                                                                                                                                                                #f))
                                                                                                                                                            r$803))
                                                                                                                                                         #f))
                                                                                                                                                     cells$338
                                                                                                                                                     r$804
                                                                                                                                                     entrance$342))
                                                                                                                                                  #f))
                                                                                                                                              (Cyc-fast-sub
                                                                                                                                                nrows$337
                                                                                                                                                1)))
                                                                                                                                            #f))))
                                                                                                                                      #f))
                                                                                                                                  r$797))
                                                                                                                                #f))
                                                                                                                            exit-cell$343))
                                                                                                                         #f))
                                                                                                                     r$796))
                                                                                                                   #f))
                                                                                                               cells$338
                                                                                                               0
                                                                                                               exit$341))
                                                                                                            #f))
                                                                                                        r$794
                                                                                                        r$795))
                                                                                                      #f))
                                                                                                  (vector-ref
                                                                                                    result$340
                                                                                                    1)))
                                                                                                #f))
                                                                                            (vector-ref
                                                                                              result$340
                                                                                              0)))
                                                                                          #f))
                                                                                      r$793))
                                                                                    #f))
                                                                                cells$338))
                                                                             #f))
                                                                         walls$339
                                                                         r$805))
                                                                      #f))
                                                                  (Cyc-fast-mul
                                                                    nrows$337
                                                                    ncols$336)))
                                                                #f))))
                                                          #f))
                                                      r$791))
                                                    #f))
                                                r$806
                                                r$807))
                                             #f))
                                         20))
                                      #f))
                                  cells$338))
                               #f))
                           r$790))
                         #f))
                     nrows$337
                     ncols$336))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ((r$1046
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 548 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$1047
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 547 #f #f #f 1 (547) #f #f 0 1 #t #f #f))))
      ((r$640 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  96
                  #f
                  #f
                  #f
                  1
                  (96)
                  #f
                  (number->string input2$289)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$641 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  94
                  #f
                  #f
                  #f
                  1
                  (94)
                  #f
                  (number->string input1$288)
                  0
                  1
                  #t
                  #f
                  #f)))
       (ncols2$308
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             242
             #f
             #f
             #f
             3
             (219 183 159)
             #f
             r$686
             0
             3
             #t
             #f
             #f))))
      ((r$642 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  90
                  #f
                  #f
                  #f
                  1
                  (84)
                  #f
                  (string-append
                    name$294
                    ":"
                    s1$293
                    ":"
                    s2$292
                    ":"
                    s3$291)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$643 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  86
                  #f
                  #f
                  #f
                  1
                  (84)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(89
                      (k$646)
                      ((hide #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(88
                                 (r$647)
                                 ((hide #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(87
                                            (r$648)
                                            ((run k$646 r$647 r$648))
                                            #f))
                                        count$287
                                        input2$289))
                                 #f))
                             count$287
                             input1$288))
                      #t))
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$644 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  84
                  #f
                  #f
                  #f
                  1
                  (84)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(85
                      (k$645 result$295)
                      ((k$645 (equal? result$295 output$290)))
                      #t))
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ((r$647 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 88 #f #f #f 1 (87) #f #f 0 1 #f #f #f))))
      ((r$648 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 87 #f #f #f 1 (87) #f #f 0 1 #t #f #f))))
      ()
      ((x$527 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 686 #f #f #f 1 (677) #f s$522 0 1 #f #f #f))))
      ((r$940 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 433 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$941 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  432
                  #f
                  #f
                  #f
                  1
                  (432)
                  #f
                  (Cyc-fast-sub x$405 3)
                  0
                  1
                  #t
                  #f
                  #f)))
       (x$529 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 684 #f #f #f 2 (684 680) #f #f 0 2 #f #t #f))))
      ((r$942 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  460
                  #f
                  #f
                  #f
                  1
                  (460)
                  #f
                  (Cyc-fast-plus r$964 r$965)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$943 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  434
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$136$408 r$944)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$944 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  435
                  #f
                  #f
                  #f
                  1
                  (435)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(457
                      (k$945 y$409)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(456
                            (r$946)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(455
                                  (tmp$138$410)
                                  ((if tmp$138$410
                                     (k$945 tmp$138$410)
                                     (#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(454
                                          ()
                                          ((href #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(453
                                                     (r$949)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(452
                                                           (hex$411)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(451
                                                                 (k$959)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(450
                                                                       (r$960)
                                                                       ((if r$960
                                                                          (k$959 #f)
                                                                          (#((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(449
                                                                               (r$962)
                                                                               ((#((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(448
                                                                                     (r$963)
                                                                                     ((href #((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(447
                                                                                                (r$961)
                                                                                                ((add-wall$396
                                                                                                   k$959
                                                                                                   hex$411
                                                                                                   r$961
                                                                                                   south-west))
                                                                                                #f))
                                                                                            harr$388
                                                                                            r$962
                                                                                            r$963))
                                                                                     #f))
                                                                                 (Cyc-fast-sub
                                                                                   y$409
                                                                                   1)))
                                                                               #f))
                                                                           (Cyc-fast-sub
                                                                             x$405
                                                                             3))))
                                                                       #f))
                                                                   (zero?__inline__
                                                                     x$405)))
                                                                 #t))
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(446
                                                                 (r$950)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(445
                                                                       (r$958)
                                                                       ((href #((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(444
                                                                                  (r$957)
                                                                                  ((add-wall$396
                                                                                     #((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(443
                                                                                         (r$951)
                                                                                         ((#((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(442
                                                                                               (k$952)
                                                                                               ((#((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(441
                                                                                                     (r$953)
                                                                                                     ((if r$953
                                                                                                        (#((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(440
                                                                                                             (r$955)
                                                                                                             ((#((record-marker)
                                                                                                                 #((record-marker)
                                                                                                                   #f
                                                                                                                   (id args
                                                                                                                       body
                                                                                                                       has-cont))
                                                                                                                 #(439
                                                                                                                   (r$956)
                                                                                                                   ((href #((record-marker)
                                                                                                                            #((record-marker)
                                                                                                                              #f
                                                                                                                              (id args
                                                                                                                                  body
                                                                                                                                  has-cont))
                                                                                                                            #(438
                                                                                                                              (r$954)
                                                                                                                              ((add-wall$396
                                                                                                                                 k$952
                                                                                                                                 hex$411
                                                                                                                                 r$954
                                                                                                                                 south-east))
                                                                                                                              #f))
                                                                                                                          harr$388
                                                                                                                          r$955
                                                                                                                          r$956))
                                                                                                                   #f))
                                                                                                               (Cyc-fast-sub
                                                                                                                 y$409
                                                                                                                 1)))
                                                                                                             #f))
                                                                                                         (Cyc-fast-plus
                                                                                                           x$405
                                                                                                           3))
                                                                                                        (k$952 #f)))
                                                                                                     #f))
                                                                                                 (Cyc-fast-lt
                                                                                                   x$405
                                                                                                   xmax$391)))
                                                                                               #t))
                                                                                           #((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(437
                                                                                               (r$947)
                                                                                               ((#((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(436
                                                                                                     (r$948)
                                                                                                     ((lp$136$408
                                                                                                        k$945
                                                                                                        r$948))
                                                                                                     #f))
                                                                                                 (Cyc-fast-sub
                                                                                                   y$409
                                                                                                   2)))
                                                                                               #f))))
                                                                                         #f))
                                                                                     hex$411
                                                                                     r$957
                                                                                     south))
                                                                                  #f))
                                                                              harr$388
                                                                              x$405
                                                                              r$958))
                                                                       #f))
                                                                   (Cyc-fast-sub
                                                                     y$409
                                                                     2)))
                                                                 #f))))
                                                           #f))
                                                       r$949))
                                                     #f))
                                                 harr$388
                                                 x$405
                                                 y$409))
                                          #f)))))
                                  #f))
                              r$946))
                            #f))
                        (Cyc-fast-lte y$409 1)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$946 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  456
                  #f
                  #f
                  #f
                  1
                  (456)
                  #f
                  (Cyc-fast-lte y$409 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$947 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 437 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$948 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  436
                  #f
                  #f
                  #f
                  1
                  (436)
                  #f
                  (Cyc-fast-sub y$409 2)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$949 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 453 #f #f #f 1 (453) #f #f 0 1 #t #f #f))))
      ()
      ((tmp$142$401
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             407
             #f
             #f
             #f
             2
             (407 407)
             #f
             r$915
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ((val$543
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             703
             #f
             #f
             #f
             2
             (702 701)
             #f
             r$1216
             0
             2
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ((r$1051
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 560 #f #f #f 1 (560) #f #f 0 1 #t #f #f))))
      ((s3$291
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 97 #f #f #f 1 (91) #f r$639 0 1 #t #f #f)))
       (r$1052
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             553
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$105$452 r$1053)
             0
             0
             #t
             #f
             #f)))
       (pick-entrances
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             393
             #f
             #f
             2
             (276 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(393
                  (k$869 harr$361)
                  ((href/rc
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(392
                         (r$896)
                         ((dfs-maze
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(391
                                (r$870)
                                ((harr:nrows
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(390
                                       (r$871)
                                       ((harr:ncols
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(389
                                              (r$872)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(388
                                                    (nrows$363 ncols$362)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(387
                                                          (r$873)
                                                          ((#((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(386
                                                                (max-len$367
                                                                  entrance$366
                                                                  exit$365
                                                                  tcol$364)
                                                                ((#((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(385
                                                                      (tp-lp$368)
                                                                      ((#((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(358
                                                                            (r$875)
                                                                            ((#((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(357
                                                                                  (r$874)
                                                                                  ((tp-lp$368
                                                                                     k$869
                                                                                     max-len$367
                                                                                     entrance$366
                                                                                     exit$365
                                                                                     tcol$364))
                                                                                  #f))
                                                                              (set! tp-lp$368
                                                                                r$875)))
                                                                            #f))
                                                                        #((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(384
                                                                            (k$876 max-len$372
                                                                                   entrance$371
                                                                                   exit$370
                                                                                   tcol$369)
                                                                            ((#((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(383
                                                                                  (r$877)
                                                                                  ((if r$877
                                                                                     (vector
                                                                                       k$876
                                                                                       entrance$371
                                                                                       exit$370)
                                                                                     (#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(382
                                                                                          (r$895)
                                                                                          ((href/rc
                                                                                             #((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(381
                                                                                                 (r$878)
                                                                                                 ((#((record-marker)
                                                                                                     #((record-marker)
                                                                                                       #f
                                                                                                       (id args
                                                                                                           body
                                                                                                           has-cont))
                                                                                                     #(380
                                                                                                       (top-cell$373)
                                                                                                       ((reroot-maze
                                                                                                          #((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(379
                                                                                                              (r$879)
                                                                                                              ((#((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(378
                                                                                                                    (r$885)
                                                                                                                    ((#((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(377
                                                                                                                          (max-len$377
                                                                                                                            entrance$376
                                                                                                                            exit$375
                                                                                                                            bcol$374)
                                                                                                                          ((#((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(376
                                                                                                                                (bt-lp$378)
                                                                                                                                ((#((record-marker)
                                                                                                                                    #((record-marker)
                                                                                                                                      #f
                                                                                                                                      (id args
                                                                                                                                          body
                                                                                                                                          has-cont))
                                                                                                                                    #(367
                                                                                                                                      (r$887)
                                                                                                                                      ((#((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(366
                                                                                                                                            (r$886)
                                                                                                                                            ((bt-lp$378
                                                                                                                                               #((record-marker)
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #f
                                                                                                                                                   (id args
                                                                                                                                                       body
                                                                                                                                                       has-cont))
                                                                                                                                                 #(365
                                                                                                                                                   (r$880)
                                                                                                                                                   ((#((record-marker)
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #f
                                                                                                                                                         (id args
                                                                                                                                                             body
                                                                                                                                                             has-cont))
                                                                                                                                                       #(364
                                                                                                                                                         (result$384)
                                                                                                                                                         ((#((record-marker)
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #f
                                                                                                                                                               (id args
                                                                                                                                                                   body
                                                                                                                                                                   has-cont))
                                                                                                                                                             #(363
                                                                                                                                                               (r$881)
                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                   #((record-marker)
                                                                                                                                                                     #f
                                                                                                                                                                     (id args
                                                                                                                                                                         body
                                                                                                                                                                         has-cont))
                                                                                                                                                                   #(362
                                                                                                                                                                     (r$882)
                                                                                                                                                                     ((#((record-marker)
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #f
                                                                                                                                                                           (id args
                                                                                                                                                                               body
                                                                                                                                                                               has-cont))
                                                                                                                                                                         #(361
                                                                                                                                                                           (r$883)
                                                                                                                                                                           ((#((record-marker)
                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                 #f
                                                                                                                                                                                 (id args
                                                                                                                                                                                     body
                                                                                                                                                                                     has-cont))
                                                                                                                                                                               #(360
                                                                                                                                                                                 (max-len$387
                                                                                                                                                                                   entrance$386
                                                                                                                                                                                   exit$385)
                                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #f
                                                                                                                                                                                       (id args
                                                                                                                                                                                           body
                                                                                                                                                                                           has-cont))
                                                                                                                                                                                     #(359
                                                                                                                                                                                       (r$884)
                                                                                                                                                                                       ((tp-lp$368
                                                                                                                                                                                          k$876
                                                                                                                                                                                          max-len$387
                                                                                                                                                                                          entrance$386
                                                                                                                                                                                          exit$385
                                                                                                                                                                                          r$884))
                                                                                                                                                                                       #f))
                                                                                                                                                                                   (Cyc-fast-sub
                                                                                                                                                                                     tcol$369
                                                                                                                                                                                     1)))
                                                                                                                                                                                 #f))
                                                                                                                                                                             r$881
                                                                                                                                                                             r$882
                                                                                                                                                                             r$883))
                                                                                                                                                                           #f))
                                                                                                                                                                       (vector-ref
                                                                                                                                                                         result$384
                                                                                                                                                                         2)))
                                                                                                                                                                     #f))
                                                                                                                                                                 (vector-ref
                                                                                                                                                                   result$384
                                                                                                                                                                   1)))
                                                                                                                                                               #f))
                                                                                                                                                           (vector-ref
                                                                                                                                                             result$384
                                                                                                                                                             0)))
                                                                                                                                                         #f))
                                                                                                                                                     r$880))
                                                                                                                                                   #f))
                                                                                                                                               max-len$377
                                                                                                                                               entrance$376
                                                                                                                                               exit$375
                                                                                                                                               bcol$374))
                                                                                                                                            #f))
                                                                                                                                        (set! bt-lp$378
                                                                                                                                          r$887)))
                                                                                                                                      #f))
                                                                                                                                  #((record-marker)
                                                                                                                                    #((record-marker)
                                                                                                                                      #f
                                                                                                                                      (id args
                                                                                                                                          body
                                                                                                                                          has-cont))
                                                                                                                                    #(375
                                                                                                                                      (k$888 max-len$382
                                                                                                                                             entrance$381
                                                                                                                                             exit$380
                                                                                                                                             bcol$379)
                                                                                                                                      ((#((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(374
                                                                                                                                            (r$889)
                                                                                                                                            ((if r$889
                                                                                                                                               (vector
                                                                                                                                                 k$888
                                                                                                                                                 max-len$382
                                                                                                                                                 entrance$381
                                                                                                                                                 exit$380)
                                                                                                                                               (href/rc
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #f
                                                                                                                                                     (id args
                                                                                                                                                         body
                                                                                                                                                         has-cont))
                                                                                                                                                   #(373
                                                                                                                                                     (r$894)
                                                                                                                                                     ((path-length
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(372
                                                                                                                                                            (r$890)
                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(371
                                                                                                                                                                  (this-len$383)
                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #f
                                                                                                                                                                        (id args
                                                                                                                                                                            body
                                                                                                                                                                            has-cont))
                                                                                                                                                                      #(370
                                                                                                                                                                        (r$891)
                                                                                                                                                                        ((if r$891
                                                                                                                                                                           (#((record-marker)
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #f
                                                                                                                                                                                (id args
                                                                                                                                                                                    body
                                                                                                                                                                                    has-cont))
                                                                                                                                                                              #(368
                                                                                                                                                                                (r$892)
                                                                                                                                                                                ((bt-lp$378
                                                                                                                                                                                   k$888
                                                                                                                                                                                   this-len$383
                                                                                                                                                                                   tcol$369
                                                                                                                                                                                   bcol$379
                                                                                                                                                                                   r$892))
                                                                                                                                                                                #f))
                                                                                                                                                                            (Cyc-fast-sub
                                                                                                                                                                              bcol$379
                                                                                                                                                                              1))
                                                                                                                                                                           (#((record-marker)
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #f
                                                                                                                                                                                (id args
                                                                                                                                                                                    body
                                                                                                                                                                                    has-cont))
                                                                                                                                                                              #(369
                                                                                                                                                                                (r$893)
                                                                                                                                                                                ((bt-lp$378
                                                                                                                                                                                   k$888
                                                                                                                                                                                   max-len$382
                                                                                                                                                                                   entrance$381
                                                                                                                                                                                   exit$380
                                                                                                                                                                                   r$893))
                                                                                                                                                                                #f))
                                                                                                                                                                            (Cyc-fast-sub
                                                                                                                                                                              bcol$379
                                                                                                                                                                              1))))
                                                                                                                                                                        #f))
                                                                                                                                                                    (Cyc-fast-gt
                                                                                                                                                                      this-len$383
                                                                                                                                                                      max-len$382)))
                                                                                                                                                                  #f))
                                                                                                                                                              r$890))
                                                                                                                                                            #f))
                                                                                                                                                        r$894))
                                                                                                                                                     #f))
                                                                                                                                                 harr$361
                                                                                                                                                 0
                                                                                                                                                 bcol$379)))
                                                                                                                                            #f))
                                                                                                                                        (Cyc-fast-lt
                                                                                                                                          bcol$379
                                                                                                                                          0)))
                                                                                                                                      #t))))
                                                                                                                                #f))
                                                                                                                            #f))
                                                                                                                          #f))
                                                                                                                      max-len$372
                                                                                                                      entrance$371
                                                                                                                      exit$370
                                                                                                                      r$885))
                                                                                                                    #f))
                                                                                                                (Cyc-fast-sub
                                                                                                                  ncols$362
                                                                                                                  1)))
                                                                                                              #f))
                                                                                                          top-cell$373))
                                                                                                       #f))
                                                                                                   r$878))
                                                                                                 #f))
                                                                                             harr$361
                                                                                             r$895
                                                                                             tcol$369))
                                                                                          #f))
                                                                                      (Cyc-fast-sub
                                                                                        nrows$363
                                                                                        1))))
                                                                                  #f))
                                                                              (Cyc-fast-lt
                                                                                tcol$369
                                                                                0)))
                                                                            #t))))
                                                                      #f))
                                                                  #f))
                                                                #f))
                                                            -1
                                                            #f
                                                            #f
                                                            r$873))
                                                          #f))
                                                      (Cyc-fast-sub
                                                        ncols$362
                                                        1)))
                                                    #f))
                                                r$871
                                                r$872))
                                              #f))
                                          harr$361))
                                       #f))
                                   harr$361))
                                #f))
                            harr$361
                            r$896
                            for-each-hex-child))
                         #f))
                     harr$361
                     0
                     0))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((r$1053
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             554
             #f
             #f
             #f
             1
             (554)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(557
                 (k$1054 len$454 node$453)
                 ((if node$453
                    (#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(556
                         (r$1055)
                         ((cell:parent
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(555
                                (r$1056)
                                ((lp$105$452 k$1054 r$1055 r$1056))
                                #f))
                            node$453))
                         #f))
                     (Cyc-fast-plus len$454 1))
                    (k$1054 len$454)))
                 #t))
             0
             0
             #t
             #f
             #f))))
      ()
      ((r$1055
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             556
             #f
             #f
             #f
             1
             (555)
             #f
             (Cyc-fast-plus len$454 1)
             0
             1
             #f
             #f
             #f))))
      ((r$1056
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 555 #f #f #f 1 (555) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r$652 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  109
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! output r$654)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$653 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 108 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$654 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 110 #f #f #f 1 (110) #f '() 0 0 #t #f #f))))
      ()
      ()
      ((number->string
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 3 (99 97 95) #f #f 3 0 #t #f #f)))
       (not__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (129) #f #f 1 0 #t #f #f))))
      ((r$658 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 119 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (cell:walls
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             641
             #f
             #f
             10
             (176 155 138 269 288 301 309 356 592 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(641
                  (k$1140 o$501)
                  ((k$1140 (vector-ref o$501 3)))
                  #t)))
             9
             0
             #f
             #f
             #f))))
      ((r$659 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 115 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((r$950 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 446 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$951 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 443 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((r$953 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  441
                  #f
                  #f
                  #f
                  1
                  (441)
                  #f
                  (Cyc-fast-lt x$405 xmax$391)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$954 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 438 #f #f #f 1 (438) #f #f 0 1 #t #f #f))))
      ((r$955 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  440
                  #f
                  #f
                  #f
                  1
                  (439)
                  #f
                  (Cyc-fast-plus x$405 3)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$956 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  439
                  #f
                  #f
                  #f
                  1
                  (439)
                  #f
                  (Cyc-fast-sub y$409 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$957 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 444 #f #f #f 1 (444) #f #f 0 1 #t #f #f))))
      ((r$958 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  445
                  #f
                  #f
                  #f
                  1
                  (445)
                  #f
                  (Cyc-fast-sub y$409 2)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ((write .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(? ? #f #f #f 3 (45 24 26) #f #f 3 0 #f #f #f))))
      ((vector-set!
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             6
             (503 611 610 636 638 640)
             #f
             #f
             6
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((gen-maze-array
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             492
             #f
             #f
             2
             (285 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(492
                  (k$974 r$413 c$412)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(488
                        (r$975)
                        ((harr-tabulate k$974 r$413 c$412 r$975))
                        #f))
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(491
                        (k$976 x$415 y$414)
                        ((base-set
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(490
                               (r$977)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(489
                                     (r$978)
                                     ((make-cell k$976 r$977 r$978))
                                     #f))
                                 (cons x$415 y$414)))
                               #f))
                           1))
                        #t))))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ((r$1060
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             562
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$458 r$1061)
             0
             0
             #t
             #f
             #f))))
      ((r$1061
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             563
             #f
             #f
             #f
             1
             (563)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(567
                 (k$1062 node$460 new-parent$459)
                 ((cell:parent
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(566
                        (r$1063)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(565
                              (old-parent$461)
                              ((set-cell:parent
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(564
                                     (r$1064)
                                     ((if old-parent$461
                                        (lp$458 k$1062 old-parent$461 node$460)
                                        (k$1062 #f)))
                                     #f))
                                 node$460
                                 new-parent$459))
                              #f))
                          r$1063))
                        #f))
                    node$460))
                 #t))
             0
             0
             #t
             #f
             #f))))
      ()
      ((r$1063
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 566 #f #f #f 1 (566) #f #f 0 1 #t #f #f))))
      ((r$1064
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 564 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (lp$484
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             618
             #f
             #f
             #f
             3
             (608 607 606)
             #f
             r$1101
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((r$660 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 112 #f #f #f 1 (112) #f #f 0 1 #t #f #f)))
       (r$1068
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             571
             #f
             #f
             #f
             0
             ()
             #f
             (set! search$467 r$1069)
             0
             0
             #t
             #f
             #f))))
      ((r$1069
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             572
             #f
             #f
             #f
             1
             (572)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(577
                 (k$1070 node$469 parent$468)
                 ((set-cell:parent
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(576
                        (r$1071)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(573
                              (r$1072)
                              ((do-children$462
                                 k$1070
                                 r$1072
                                 maze$464
                                 node$469))
                              #f))
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(575
                              (k$1073 child$470)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(574
                                    (r$1074)
                                    ((if r$1074
                                       (k$1073 #f)
                                       (search$467 k$1073 child$470 node$469)))
                                    #f))
                                (eq? child$470 parent$468)))
                              #t))))
                        #f))
                    node$469
                    parent$468))
                 #t))
             0
             0
             #t
             #f
             #f))))
      ((r$662 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 113 #f #f #f 1 (113) #f #f 0 0 #t #f #f))))
      ((r$663 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 116 #f #f #f 1 (116) #f #f 0 1 #t #f #f))))
      ()
      ((r$665 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 117 #f #f #f 1 (117) #f #f 0 0 #t #f #f))))
      ((r$666 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 120 #f #f #f 1 (120) #f #f 0 1 #t #f #f))))
      ()
      ((r$668 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 121 #f #f #f 1 (121) #f #f 0 0 #t #f #f))))
      ((x$546 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  741
                  #f
                  #f
                  #f
                  7
                  (735 732 727 724 719 740 738)
                  #f
                  #f
                  0
                  7
                  #f
                  #f
                  #f))))
      ()
      ((r$960 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  450
                  #f
                  #f
                  #f
                  1
                  (450)
                  #f
                  (zero?__inline__ x$405)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$961 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 447 #f #f #f 1 (447) #f #f 0 1 #t #f #f))))
      ((r$962 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  449
                  #f
                  #f
                  #f
                  1
                  (448)
                  #f
                  (Cyc-fast-sub x$405 3)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$963 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  448
                  #f
                  #f
                  #f
                  1
                  (448)
                  #f
                  (Cyc-fast-sub y$409 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$964 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  462
                  #f
                  #f
                  #f
                  1
                  (461)
                  #f
                  (Cyc-fast-mul r$966 2)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$965 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 461 #f #f #f 1 (461) #f #f 0 1 #t #f #f))))
      ((r$966 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  463
                  #f
                  #f
                  #f
                  1
                  (463)
                  #f
                  (Cyc-fast-sub nrows$389 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$967 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  471
                  #f
                  #f
                  #f
                  1
                  (471)
                  #f
                  (Cyc-fast-sub ncols$390 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ((r$969 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  475
                  #f
                  #f
                  #f
                  1
                  (475)
                  #f
                  (cons r$970 walls$392)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$1071
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 576 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (lp$491
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             631
             #f
             #f
             #f
             3
             (625 624 623)
             #f
             r$1116
             2
             0
             #f
             #f
             #f))))
      ((r$1072
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             573
             #f
             #f
             #f
             1
             (573)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(575
                 (k$1073 child$470)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(574
                       (r$1074)
                       ((if r$1074
                          (k$1073 #f)
                          (search$467 k$1073 child$470 node$469)))
                       #f))
                   (eq? child$470 parent$468)))
                 #t))
             0
             1
             #t
             #f
             #f))))
      ()
      ((r$1074
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             574
             #f
             #f
             #f
             1
             (574)
             #f
             (eq? child$470 parent$468)
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((r$1078
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             581
             #f
             #f
             #f
             1
             (581)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(603
                 (k$1079 quit$473)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(582
                       (r$1080)
                       ((vector-for-each-rev k$1079 r$1080 walls$472))
                       #f))
                   #((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(602
                       (k$1081 wall$474)
                       ((wall:owner
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(601
                              (r$1082)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(600
                                    (c1$475)
                                    ((cell:reachable
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(599
                                           (r$1083)
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(598
                                                 (set1$476)
                                                 ((wall:neighbor
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(597
                                                        (r$1084)
                                                        ((#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(596
                                                              (c2$477)
                                                              ((cell:reachable
                                                                 #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(595
                                                                     (r$1085)
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(594
                                                                           (set2$478)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(593
                                                                                 ()
                                                                                 ((set-equal?
                                                                                    #((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(592
                                                                                        (r$1086)
                                                                                        ((if r$1086
                                                                                           (k$1081
                                                                                             #f)
                                                                                           (cell:walls
                                                                                             #((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(591
                                                                                                 (r$1087)
                                                                                                 ((wall:bit
                                                                                                    #((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(590
                                                                                                        (r$1094)
                                                                                                        ((bitwise-not
                                                                                                           #((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(589
                                                                                                               (r$1088)
                                                                                                               ((#((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(588
                                                                                                                     (walls$480
                                                                                                                       wall-mask$479)
                                                                                                                     ((union!
                                                                                                                        #((record-marker)
                                                                                                                          #((record-marker)
                                                                                                                            #f
                                                                                                                            (id args
                                                                                                                                body
                                                                                                                                has-cont))
                                                                                                                          #(587
                                                                                                                            (r$1089)
                                                                                                                            ((bitwise-and
                                                                                                                               #((record-marker)
                                                                                                                                 #((record-marker)
                                                                                                                                   #f
                                                                                                                                   (id args
                                                                                                                                       body
                                                                                                                                       has-cont))
                                                                                                                                 #(586
                                                                                                                                   (r$1093)
                                                                                                                                   ((set-cell:walls
                                                                                                                                      #((record-marker)
                                                                                                                                        #((record-marker)
                                                                                                                                          #f
                                                                                                                                          (id args
                                                                                                                                              body
                                                                                                                                              has-cont))
                                                                                                                                        #(585
                                                                                                                                          (r$1090)
                                                                                                                                          ((set-size
                                                                                                                                             #((record-marker)
                                                                                                                                               #((record-marker)
                                                                                                                                                 #f
                                                                                                                                                 (id args
                                                                                                                                                     body
                                                                                                                                                     has-cont))
                                                                                                                                               #(584
                                                                                                                                                 (r$1092)
                                                                                                                                                 ((#((record-marker)
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #f
                                                                                                                                                       (id args
                                                                                                                                                           body
                                                                                                                                                           has-cont))
                                                                                                                                                     #(583
                                                                                                                                                       (r$1091)
                                                                                                                                                       ((if r$1091
                                                                                                                                                          (quit$473
                                                                                                                                                            k$1081
                                                                                                                                                            #f)
                                                                                                                                                          (k$1081
                                                                                                                                                            #f)))
                                                                                                                                                       #f))
                                                                                                                                                   (Cyc-fast-eq
                                                                                                                                                     r$1092
                                                                                                                                                     ncells$471)))
                                                                                                                                                 #f))
                                                                                                                                             set1$476))
                                                                                                                                          #f))
                                                                                                                                      c1$475
                                                                                                                                      r$1093))
                                                                                                                                   #f))
                                                                                                                               walls$480
                                                                                                                               wall-mask$479))
                                                                                                                            #f))
                                                                                                                        set1$476
                                                                                                                        set2$478))
                                                                                                                     #f))
                                                                                                                 r$1087
                                                                                                                 r$1088))
                                                                                                               #f))
                                                                                                           r$1094))
                                                                                                        #f))
                                                                                                    wall$474))
                                                                                                 #f))
                                                                                             c1$475)))
                                                                                        #f))
                                                                                    set1$476
                                                                                    set2$478))
                                                                                 #f))))
                                                                           #f))
                                                                       r$1085))
                                                                     #f))
                                                                 c2$477))
                                                              #f))
                                                          r$1084))
                                                        #f))
                                                    wall$474))
                                                 #f))
                                             r$1083))
                                           #f))
                                       c1$475))
                                    #f))
                                r$1082))
                              #f))
                          wall$474))
                       #t))))
                 #t))
             0
             1
             #t
             #f
             #f))))
      ()
      ((r$672 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 124 #f #f #f 1 (124) #f #f 0 0 #t #f #f))))
      ()
      ((r$674 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  126
                  #f
                  #f
                  #f
                  1
                  (126)
                  #f
                  (Cyc-fast-gte r$300 0)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$675 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 125 #f #f #f 1 (125) #f #f 0 1 #t #f #f)))
       (x$552 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  764
                  #f
                  #f
                  #f
                  7
                  (758 755 750 747 742 763 761)
                  #f
                  #f
                  0
                  7
                  #t
                  #f
                  #f))))
      ()
      ()
      ((ncells$471
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 604 #f #f #f 1 (584) #f #f 0 1 #t #f #f))))
      ((r$679 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  129
                  #f
                  #f
                  #f
                  1
                  (129)
                  #f
                  (zero?__inline__ r$680)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ((r$970 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 476 #f #f #f 1 (476) #f #f 0 1 #t #f #f)))
       (x$558 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  781
                  #f
                  #f
                  #f
                  5
                  (781 779 776 771 768)
                  #f
                  #f
                  0
                  5
                  #f
                  #f
                  #f))))
      ((r$971 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  482
                  #f
                  #f
                  #f
                  1
                  (482)
                  #f
                  (Cyc-fast-sub ncols$390 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ((r$975 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  488
                  #f
                  #f
                  #f
                  1
                  (488)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(491
                      (k$976 x$415 y$414)
                      ((base-set
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(490
                             (r$977)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(489
                                   (r$978)
                                   ((make-cell k$976 r$977 r$978))
                                   #f))
                               (cons x$415 y$414)))
                             #f))
                         1))
                      #t))
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ((r$977 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 490 #f #f #f 1 (489) #f #f 0 1 #t #f #f))))
      ((equal?
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (85) #f #f 1 0 #t #f #f)))
       (r$978 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  489
                  #f
                  #f
                  #f
                  1
                  (489)
                  #f
                  (cons x$415 y$414)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((tmp$202$320
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             181
             #f
             #f
             #f
             2
             (181 181)
             #f
             r$732
             0
             1
             #t
             #f
             #f))))
      ()
      ((r$1080
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             582
             #f
             #f
             #f
             1
             (582)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(602
                 (k$1081 wall$474)
                 ((wall:owner
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(601
                        (r$1082)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(600
                              (c1$475)
                              ((cell:reachable
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(599
                                     (r$1083)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(598
                                           (set1$476)
                                           ((wall:neighbor
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(597
                                                  (r$1084)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(596
                                                        (c2$477)
                                                        ((cell:reachable
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(595
                                                               (r$1085)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(594
                                                                     (set2$478)
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(593
                                                                           ()
                                                                           ((set-equal?
                                                                              #((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(592
                                                                                  (r$1086)
                                                                                  ((if r$1086
                                                                                     (k$1081
                                                                                       #f)
                                                                                     (cell:walls
                                                                                       #((record-marker)
                                                                                         #((record-marker)
                                                                                           #f
                                                                                           (id args
                                                                                               body
                                                                                               has-cont))
                                                                                         #(591
                                                                                           (r$1087)
                                                                                           ((wall:bit
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(590
                                                                                                  (r$1094)
                                                                                                  ((bitwise-not
                                                                                                     #((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(589
                                                                                                         (r$1088)
                                                                                                         ((#((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(588
                                                                                                               (walls$480
                                                                                                                 wall-mask$479)
                                                                                                               ((union!
                                                                                                                  #((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(587
                                                                                                                      (r$1089)
                                                                                                                      ((bitwise-and
                                                                                                                         #((record-marker)
                                                                                                                           #((record-marker)
                                                                                                                             #f
                                                                                                                             (id args
                                                                                                                                 body
                                                                                                                                 has-cont))
                                                                                                                           #(586
                                                                                                                             (r$1093)
                                                                                                                             ((set-cell:walls
                                                                                                                                #((record-marker)
                                                                                                                                  #((record-marker)
                                                                                                                                    #f
                                                                                                                                    (id args
                                                                                                                                        body
                                                                                                                                        has-cont))
                                                                                                                                  #(585
                                                                                                                                    (r$1090)
                                                                                                                                    ((set-size
                                                                                                                                       #((record-marker)
                                                                                                                                         #((record-marker)
                                                                                                                                           #f
                                                                                                                                           (id args
                                                                                                                                               body
                                                                                                                                               has-cont))
                                                                                                                                         #(584
                                                                                                                                           (r$1092)
                                                                                                                                           ((#((record-marker)
                                                                                                                                               #((record-marker)
                                                                                                                                                 #f
                                                                                                                                                 (id args
                                                                                                                                                     body
                                                                                                                                                     has-cont))
                                                                                                                                               #(583
                                                                                                                                                 (r$1091)
                                                                                                                                                 ((if r$1091
                                                                                                                                                    (quit$473
                                                                                                                                                      k$1081
                                                                                                                                                      #f)
                                                                                                                                                    (k$1081
                                                                                                                                                      #f)))
                                                                                                                                                 #f))
                                                                                                                                             (Cyc-fast-eq
                                                                                                                                               r$1092
                                                                                                                                               ncells$471)))
                                                                                                                                           #f))
                                                                                                                                       set1$476))
                                                                                                                                    #f))
                                                                                                                                c1$475
                                                                                                                                r$1093))
                                                                                                                             #f))
                                                                                                                         walls$480
                                                                                                                         wall-mask$479))
                                                                                                                      #f))
                                                                                                                  set1$476
                                                                                                                  set2$478))
                                                                                                               #f))
                                                                                                           r$1087
                                                                                                           r$1088))
                                                                                                         #f))
                                                                                                     r$1094))
                                                                                                  #f))
                                                                                              wall$474))
                                                                                           #f))
                                                                                       c1$475)))
                                                                                  #f))
                                                                              set1$476
                                                                              set2$478))
                                                                           #f))))
                                                                     #f))
                                                                 r$1085))
                                                               #f))
                                                           c2$477))
                                                        #f))
                                                    r$1084))
                                                  #f))
                                              wall$474))
                                           #f))
                                       r$1083))
                                     #f))
                                 c1$475))
                              #f))
                          r$1082))
                        #f))
                    wall$474))
                 #t))
             0
             1
             #t
             #f
             #f))))
      ()
      ((r$1082
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 601 #f #f #f 1 (601) #f #f 0 1 #t #f #f))))
      ((r$1083
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 599 #f #f #f 1 (599) #f #f 0 1 #t #f #f))))
      ((r$1084
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 597 #f #f #f 1 (597) #f #f 0 1 #t #f #f))))
      ((r$1085
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 595 #f #f #f 1 (595) #f #f 0 1 #t #f #f))))
      ((r$1086
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 592 #f #f #f 1 (592) #f #f 0 0 #t #f #f)))
       (for-each-hex-child
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             356
             #f
             #f
             2
             (-1 392)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(356
                  (k$810 proc$347 harr$346 cell$345)
                  ((cell:walls
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(355
                         (r$811)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(354
                               (walls$348)
                               ((cell:id
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(353
                                      (r$812)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(352
                                            (id$349)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(351
                                                  (r$813)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(350
                                                        (x$350)
                                                        ((#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(349
                                                              (r$814)
                                                              ((#((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(348
                                                                    (y$351)
                                                                    ((harr:nrows
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(347
                                                                           (r$815)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(346
                                                                                 (nr$352)
                                                                                 ((harr:ncols
                                                                                    #((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(345
                                                                                        (r$816)
                                                                                        ((#((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(344
                                                                                              (nc$353)
                                                                                              ((#((record-marker)
                                                                                                  #((record-marker)
                                                                                                    #f
                                                                                                    (id args
                                                                                                        body
                                                                                                        has-cont))
                                                                                                  #(343
                                                                                                    (r$866)
                                                                                                    ((#((record-marker)
                                                                                                        #((record-marker)
                                                                                                          #f
                                                                                                          (id args
                                                                                                              body
                                                                                                              has-cont))
                                                                                                        #(342
                                                                                                          (r$817)
                                                                                                          ((#((record-marker)
                                                                                                              #((record-marker)
                                                                                                                #f
                                                                                                                (id args
                                                                                                                    body
                                                                                                                    has-cont))
                                                                                                              #(341
                                                                                                                (maxy$354)
                                                                                                                ((#((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(340
                                                                                                                      (r$865)
                                                                                                                      ((#((record-marker)
                                                                                                                          #((record-marker)
                                                                                                                            #f
                                                                                                                            (id args
                                                                                                                                body
                                                                                                                                has-cont))
                                                                                                                          #(339
                                                                                                                            (r$818)
                                                                                                                            ((#((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(338
                                                                                                                                  (maxx$355)
                                                                                                                                  ((#((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(337
                                                                                                                                        ()
                                                                                                                                        ((#((record-marker)
                                                                                                                                            #((record-marker)
                                                                                                                                              #f
                                                                                                                                              (id args
                                                                                                                                                  body
                                                                                                                                                  has-cont))
                                                                                                                                            #(336
                                                                                                                                              (k$860)
                                                                                                                                              ((bit-test
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #f
                                                                                                                                                     (id args
                                                                                                                                                         body
                                                                                                                                                         has-cont))
                                                                                                                                                   #(335
                                                                                                                                                     (r$861)
                                                                                                                                                     ((if r$861
                                                                                                                                                        (k$860 #f)
                                                                                                                                                        (#((record-marker)
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #f
                                                                                                                                                             (id args
                                                                                                                                                                 body
                                                                                                                                                                 has-cont))
                                                                                                                                                           #(334
                                                                                                                                                             (r$863)
                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                 #((record-marker)
                                                                                                                                                                   #f
                                                                                                                                                                   (id args
                                                                                                                                                                       body
                                                                                                                                                                       has-cont))
                                                                                                                                                                 #(333
                                                                                                                                                                   (r$864)
                                                                                                                                                                   ((href #((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(332
                                                                                                                                                                              (r$862)
                                                                                                                                                                              ((proc$347
                                                                                                                                                                                 k$860
                                                                                                                                                                                 r$862))
                                                                                                                                                                              #f))
                                                                                                                                                                          harr$346
                                                                                                                                                                          r$863
                                                                                                                                                                          r$864))
                                                                                                                                                                   #f))
                                                                                                                                                               (Cyc-fast-sub
                                                                                                                                                                 y$351
                                                                                                                                                                 1)))
                                                                                                                                                             #f))
                                                                                                                                                         (Cyc-fast-sub
                                                                                                                                                           x$350
                                                                                                                                                           3))))
                                                                                                                                                     #f))
                                                                                                                                                 walls$348
                                                                                                                                                 south-west))
                                                                                                                                              #t))
                                                                                                                                          #((record-marker)
                                                                                                                                            #((record-marker)
                                                                                                                                              #f
                                                                                                                                              (id args
                                                                                                                                                  body
                                                                                                                                                  has-cont))
                                                                                                                                            #(331
                                                                                                                                              (r$819)
                                                                                                                                              ((#((record-marker)
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #f
                                                                                                                                                    (id args
                                                                                                                                                        body
                                                                                                                                                        has-cont))
                                                                                                                                                  #(330
                                                                                                                                                    (k$856)
                                                                                                                                                    ((bit-test
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #f
                                                                                                                                                           (id args
                                                                                                                                                               body
                                                                                                                                                               has-cont))
                                                                                                                                                         #(329
                                                                                                                                                           (r$857)
                                                                                                                                                           ((if r$857
                                                                                                                                                              (k$856 #f)
                                                                                                                                                              (#((record-marker)
                                                                                                                                                                 #((record-marker)
                                                                                                                                                                   #f
                                                                                                                                                                   (id args
                                                                                                                                                                       body
                                                                                                                                                                       has-cont))
                                                                                                                                                                 #(328
                                                                                                                                                                   (r$859)
                                                                                                                                                                   ((href #((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(327
                                                                                                                                                                              (r$858)
                                                                                                                                                                              ((proc$347
                                                                                                                                                                                 k$856
                                                                                                                                                                                 r$858))
                                                                                                                                                                              #f))
                                                                                                                                                                          harr$346
                                                                                                                                                                          x$350
                                                                                                                                                                          r$859))
                                                                                                                                                                   #f))
                                                                                                                                                               (Cyc-fast-sub
                                                                                                                                                                 y$351
                                                                                                                                                                 2))))
                                                                                                                                                           #f))
                                                                                                                                                       walls$348
                                                                                                                                                       south))
                                                                                                                                                    #t))
                                                                                                                                                #((record-marker)
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #f
                                                                                                                                                    (id args
                                                                                                                                                        body
                                                                                                                                                        has-cont))
                                                                                                                                                  #(326
                                                                                                                                                    (r$820)
                                                                                                                                                    ((#((record-marker)
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #f
                                                                                                                                                          (id args
                                                                                                                                                              body
                                                                                                                                                              has-cont))
                                                                                                                                                        #(325
                                                                                                                                                          (k$851)
                                                                                                                                                          ((bit-test
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #((record-marker)
                                                                                                                                                                 #f
                                                                                                                                                                 (id args
                                                                                                                                                                     body
                                                                                                                                                                     has-cont))
                                                                                                                                                               #(324
                                                                                                                                                                 (r$852)
                                                                                                                                                                 ((if r$852
                                                                                                                                                                    (k$851 #f)
                                                                                                                                                                    (#((record-marker)
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #f
                                                                                                                                                                         (id args
                                                                                                                                                                             body
                                                                                                                                                                             has-cont))
                                                                                                                                                                       #(323
                                                                                                                                                                         (r$854)
                                                                                                                                                                         ((#((record-marker)
                                                                                                                                                                             #((record-marker)
                                                                                                                                                                               #f
                                                                                                                                                                               (id args
                                                                                                                                                                                   body
                                                                                                                                                                                   has-cont))
                                                                                                                                                                             #(322
                                                                                                                                                                               (r$855)
                                                                                                                                                                               ((href #((record-marker)
                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                          #f
                                                                                                                                                                                          (id args
                                                                                                                                                                                              body
                                                                                                                                                                                              has-cont))
                                                                                                                                                                                        #(321
                                                                                                                                                                                          (r$853)
                                                                                                                                                                                          ((proc$347
                                                                                                                                                                                             k$851
                                                                                                                                                                                             r$853))
                                                                                                                                                                                          #f))
                                                                                                                                                                                      harr$346
                                                                                                                                                                                      r$854
                                                                                                                                                                                      r$855))
                                                                                                                                                                               #f))
                                                                                                                                                                           (Cyc-fast-sub
                                                                                                                                                                             y$351
                                                                                                                                                                             1)))
                                                                                                                                                                         #f))
                                                                                                                                                                     (Cyc-fast-plus
                                                                                                                                                                       x$350
                                                                                                                                                                       3))))
                                                                                                                                                                 #f))
                                                                                                                                                             walls$348
                                                                                                                                                             south-east))
                                                                                                                                                          #t))
                                                                                                                                                      #((record-marker)
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #f
                                                                                                                                                          (id args
                                                                                                                                                              body
                                                                                                                                                              has-cont))
                                                                                                                                                        #(320
                                                                                                                                                          (r$821)
                                                                                                                                                          ((#((record-marker)
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #f
                                                                                                                                                                (id args
                                                                                                                                                                    body
                                                                                                                                                                    has-cont))
                                                                                                                                                              #(319
                                                                                                                                                                (k$840)
                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                    #((record-marker)
                                                                                                                                                                      #f
                                                                                                                                                                      (id args
                                                                                                                                                                          body
                                                                                                                                                                          has-cont))
                                                                                                                                                                    #(318
                                                                                                                                                                      (k$847)
                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #f
                                                                                                                                                                            (id args
                                                                                                                                                                                body
                                                                                                                                                                                has-cont))
                                                                                                                                                                          #(317
                                                                                                                                                                            (r$848)
                                                                                                                                                                            ((if r$848
                                                                                                                                                                               (#((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(316
                                                                                                                                                                                    (r$849)
                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                          #f
                                                                                                                                                                                          (id args
                                                                                                                                                                                              body
                                                                                                                                                                                              has-cont))
                                                                                                                                                                                        #(315
                                                                                                                                                                                          (tmp$165$360)
                                                                                                                                                                                          ((if tmp$165$360
                                                                                                                                                                                             (k$847 tmp$165$360)
                                                                                                                                                                                             (mod #((record-marker)
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #f
                                                                                                                                                                                                      (id args
                                                                                                                                                                                                          body
                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                    #(314
                                                                                                                                                                                                      (r$850)
                                                                                                                                                                                                      ((k$847 (zero?__inline__
                                                                                                                                                                                                                r$850)))
                                                                                                                                                                                                      #f))
                                                                                                                                                                                                  x$350
                                                                                                                                                                                                  6)))
                                                                                                                                                                                          #f))
                                                                                                                                                                                      r$849))
                                                                                                                                                                                    #f))
                                                                                                                                                                                (Cyc-fast-lte
                                                                                                                                                                                  y$351
                                                                                                                                                                                  maxy$354))
                                                                                                                                                                               (k$847 #f)))
                                                                                                                                                                            #f))
                                                                                                                                                                        (Cyc-fast-gt
                                                                                                                                                                          x$350
                                                                                                                                                                          0)))
                                                                                                                                                                      #t))
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #((record-marker)
                                                                                                                                                                      #f
                                                                                                                                                                      (id args
                                                                                                                                                                          body
                                                                                                                                                                          has-cont))
                                                                                                                                                                    #(313
                                                                                                                                                                      (r$841)
                                                                                                                                                                      ((if r$841
                                                                                                                                                                         (#((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(312
                                                                                                                                                                              (r$845)
                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(311
                                                                                                                                                                                    (r$846)
                                                                                                                                                                                    ((href #((record-marker)
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #f
                                                                                                                                                                                               (id args
                                                                                                                                                                                                   body
                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                             #(310
                                                                                                                                                                                               (r$842)
                                                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                     #f
                                                                                                                                                                                                     (id args
                                                                                                                                                                                                         body
                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                   #(309
                                                                                                                                                                                                     (nw$359)
                                                                                                                                                                                                     ((cell:walls
                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                            #f
                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                body
                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                          #(308
                                                                                                                                                                                                            (r$844)
                                                                                                                                                                                                            ((bit-test
                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                       body
                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                 #(307
                                                                                                                                                                                                                   (r$843)
                                                                                                                                                                                                                   ((if r$843
                                                                                                                                                                                                                      (k$840 #f)
                                                                                                                                                                                                                      (proc$347
                                                                                                                                                                                                                        k$840
                                                                                                                                                                                                                        nw$359)))
                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                               r$844
                                                                                                                                                                                                               south-east))
                                                                                                                                                                                                            #f))
                                                                                                                                                                                                        nw$359))
                                                                                                                                                                                                     #f))
                                                                                                                                                                                                 r$842))
                                                                                                                                                                                               #f))
                                                                                                                                                                                           harr$346
                                                                                                                                                                                           r$845
                                                                                                                                                                                           r$846))
                                                                                                                                                                                    #f))
                                                                                                                                                                                (Cyc-fast-plus
                                                                                                                                                                                  y$351
                                                                                                                                                                                  1)))
                                                                                                                                                                              #f))
                                                                                                                                                                          (Cyc-fast-sub
                                                                                                                                                                            x$350
                                                                                                                                                                            3))
                                                                                                                                                                         (k$840 #f)))
                                                                                                                                                                      #f))))
                                                                                                                                                                #t))
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #f
                                                                                                                                                                (id args
                                                                                                                                                                    body
                                                                                                                                                                    has-cont))
                                                                                                                                                              #(306
                                                                                                                                                                (r$822)
                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                    #((record-marker)
                                                                                                                                                                      #f
                                                                                                                                                                      (id args
                                                                                                                                                                          body
                                                                                                                                                                          has-cont))
                                                                                                                                                                    #(305
                                                                                                                                                                      (k$834)
                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #f
                                                                                                                                                                            (id args
                                                                                                                                                                                body
                                                                                                                                                                                has-cont))
                                                                                                                                                                          #(304
                                                                                                                                                                            (r$835)
                                                                                                                                                                            ((if r$835
                                                                                                                                                                               (#((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(303
                                                                                                                                                                                    (r$839)
                                                                                                                                                                                    ((href #((record-marker)
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #f
                                                                                                                                                                                               (id args
                                                                                                                                                                                                   body
                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                             #(302
                                                                                                                                                                                               (r$836)
                                                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                     #f
                                                                                                                                                                                                     (id args
                                                                                                                                                                                                         body
                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                   #(301
                                                                                                                                                                                                     (n$358)
                                                                                                                                                                                                     ((cell:walls
                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                            #f
                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                body
                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                          #(300
                                                                                                                                                                                                            (r$838)
                                                                                                                                                                                                            ((bit-test
                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                       body
                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                 #(299
                                                                                                                                                                                                                   (r$837)
                                                                                                                                                                                                                   ((if r$837
                                                                                                                                                                                                                      (k$834 #f)
                                                                                                                                                                                                                      (proc$347
                                                                                                                                                                                                                        k$834
                                                                                                                                                                                                                        n$358)))
                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                               r$838
                                                                                                                                                                                                               south))
                                                                                                                                                                                                            #f))
                                                                                                                                                                                                        n$358))
                                                                                                                                                                                                     #f))
                                                                                                                                                                                                 r$836))
                                                                                                                                                                                               #f))
                                                                                                                                                                                           harr$346
                                                                                                                                                                                           x$350
                                                                                                                                                                                           r$839))
                                                                                                                                                                                    #f))
                                                                                                                                                                                (Cyc-fast-plus
                                                                                                                                                                                  y$351
                                                                                                                                                                                  2))
                                                                                                                                                                               (k$834 #f)))
                                                                                                                                                                            #f))
                                                                                                                                                                        (Cyc-fast-lt
                                                                                                                                                                          y$351
                                                                                                                                                                          maxy$354)))
                                                                                                                                                                      #t))
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #((record-marker)
                                                                                                                                                                      #f
                                                                                                                                                                      (id args
                                                                                                                                                                          body
                                                                                                                                                                          has-cont))
                                                                                                                                                                    #(298
                                                                                                                                                                      (r$823)
                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #f
                                                                                                                                                                            (id args
                                                                                                                                                                                body
                                                                                                                                                                                has-cont))
                                                                                                                                                                          #(297
                                                                                                                                                                            (k$830)
                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(296
                                                                                                                                                                                  (r$831)
                                                                                                                                                                                  ((if r$831
                                                                                                                                                                                     (#((record-marker)
                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                          #f
                                                                                                                                                                                          (id args
                                                                                                                                                                                              body
                                                                                                                                                                                              has-cont))
                                                                                                                                                                                        #(295
                                                                                                                                                                                          (r$832)
                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #f
                                                                                                                                                                                                (id args
                                                                                                                                                                                                    body
                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                              #(294
                                                                                                                                                                                                (tmp$169$357)
                                                                                                                                                                                                ((if tmp$169$357
                                                                                                                                                                                                   (k$830 tmp$169$357)
                                                                                                                                                                                                   (mod #((record-marker)
                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                            #f
                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                body
                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                          #(293
                                                                                                                                                                                                            (r$833)
                                                                                                                                                                                                            ((k$830 (zero?__inline__
                                                                                                                                                                                                                      r$833)))
                                                                                                                                                                                                            #f))
                                                                                                                                                                                                        x$350
                                                                                                                                                                                                        6)))
                                                                                                                                                                                                #f))
                                                                                                                                                                                            r$832))
                                                                                                                                                                                          #f))
                                                                                                                                                                                      (Cyc-fast-lte
                                                                                                                                                                                        y$351
                                                                                                                                                                                        maxy$354))
                                                                                                                                                                                     (k$830 #f)))
                                                                                                                                                                                  #f))
                                                                                                                                                                              (Cyc-fast-lt
                                                                                                                                                                                x$350
                                                                                                                                                                                maxx$355)))
                                                                                                                                                                            #t))
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #f
                                                                                                                                                                            (id args
                                                                                                                                                                                body
                                                                                                                                                                                has-cont))
                                                                                                                                                                          #(292
                                                                                                                                                                            (r$824)
                                                                                                                                                                            ((if r$824
                                                                                                                                                                               (#((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(291
                                                                                                                                                                                    (r$828)
                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                          #f
                                                                                                                                                                                          (id args
                                                                                                                                                                                              body
                                                                                                                                                                                              has-cont))
                                                                                                                                                                                        #(290
                                                                                                                                                                                          (r$829)
                                                                                                                                                                                          ((href #((record-marker)
                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                     #f
                                                                                                                                                                                                     (id args
                                                                                                                                                                                                         body
                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                   #(289
                                                                                                                                                                                                     (r$825)
                                                                                                                                                                                                     ((#((record-marker)
                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                           #f
                                                                                                                                                                                                           (id args
                                                                                                                                                                                                               body
                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                         #(288
                                                                                                                                                                                                           (ne$356)
                                                                                                                                                                                                           ((cell:walls
                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                      body
                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                #(287
                                                                                                                                                                                                                  (r$827)
                                                                                                                                                                                                                  ((bit-test
                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                             body
                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                       #(286
                                                                                                                                                                                                                         (r$826)
                                                                                                                                                                                                                         ((if r$826
                                                                                                                                                                                                                            (k$810 #f)
                                                                                                                                                                                                                            (proc$347
                                                                                                                                                                                                                              k$810
                                                                                                                                                                                                                              ne$356)))
                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                     r$827
                                                                                                                                                                                                                     south-west))
                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                              ne$356))
                                                                                                                                                                                                           #f))
                                                                                                                                                                                                       r$825))
                                                                                                                                                                                                     #f))
                                                                                                                                                                                                 harr$346
                                                                                                                                                                                                 r$828
                                                                                                                                                                                                 r$829))
                                                                                                                                                                                          #f))
                                                                                                                                                                                      (Cyc-fast-plus
                                                                                                                                                                                        y$351
                                                                                                                                                                                        1)))
                                                                                                                                                                                    #f))
                                                                                                                                                                                (Cyc-fast-plus
                                                                                                                                                                                  x$350
                                                                                                                                                                                  3))
                                                                                                                                                                               (k$810 #f)))
                                                                                                                                                                            #f))))
                                                                                                                                                                      #f))))
                                                                                                                                                                #f))))
                                                                                                                                                          #f))))
                                                                                                                                                    #f))))
                                                                                                                                              #f))))
                                                                                                                                        #f))))
                                                                                                                                  #f))
                                                                                                                              r$818))
                                                                                                                            #f))
                                                                                                                        (Cyc-fast-mul
                                                                                                                          3
                                                                                                                          r$865)))
                                                                                                                      #f))
                                                                                                                  (Cyc-fast-sub
                                                                                                                    nc$353
                                                                                                                    1)))
                                                                                                                #f))
                                                                                                            r$817))
                                                                                                          #f))
                                                                                                      (Cyc-fast-mul
                                                                                                        2
                                                                                                        r$866)))
                                                                                                    #f))
                                                                                                (Cyc-fast-sub
                                                                                                  nr$352
                                                                                                  1)))
                                                                                              #f))
                                                                                          r$816))
                                                                                        #f))
                                                                                    harr$346))
                                                                                 #f))
                                                                             r$815))
                                                                           #f))
                                                                       harr$346))
                                                                    #f))
                                                                r$814))
                                                              #f))
                                                          (cdr id$349)))
                                                        #f))
                                                    r$813))
                                                  #f))
                                              (car id$349)))
                                            #f))
                                        r$812))
                                      #f))
                                  cell$345))
                               #f))
                           r$811))
                         #f))
                     cell$345))
                  #t)))
             0
             1
             #f
             #f
             #f))))
      ((r$1087
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 591 #f #f #f 1 (589) #f #f 0 1 #f #f #f))))
      ((r$680 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 130 #f #f #f 1 (130) #f #f 0 1 #t #f #f)))
       (r$1088
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 589 #f #f #f 1 (589) #f #f 0 1 #t #f #f))))
      ((r$1089
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 587 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((lp$140$399
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             410
             #f
             #f
             #f
             3
             (397 396 395)
             #f
             r$913
             2
             0
             #f
             #f
             #f)))
       (x$560 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 783 #f #f #f 1 (783) #f #f 0 1 #t #f #f))))
      ((r$684 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 248 #f #f #f 1 (248) #f #f 0 1 #t #f #f))))
      ((r$685 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 246 #f #f #f 1 (246) #f #f 0 1 #t #f #f))))
      ((r$686 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  243
                  #f
                  #f
                  #f
                  1
                  (243)
                  #f
                  (Cyc-fast-mul 2 r$773)
                  0
                  1
                  #t
                  #f
                  #f)))
       (hide .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 83
                 #f
                 #f
                 3
                 (-1 88 89)
                 #f
                 (#((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(83
                      (k$620 r$283 x$282)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(75
                            (r$621)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(72
                                  (r$622)
                                  ((call-with-values k$620 r$621 r$622))
                                  #f))
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(74
                                  (k$623 v$285 i$284)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(73 (r$624) ((r$624 k$623 x$282)) #f))
                                    (vector-ref v$285 i$284)))
                                  #t))))
                            #f))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(82
                            (k$625)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(80
                                  (r$630)
                                  ((vector
                                     #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(79
                                         (r$626)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(78
                                               (k$628)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(77
                                                     (r$629)
                                                     ((if r$629
                                                        (k$628 0)
                                                        (k$628 1)))
                                                     #f))
                                                 (Cyc-fast-lt r$283 100)))
                                               #t))
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(76
                                               (r$627)
                                               ((values k$625 r$626 r$627))
                                               #f))))
                                         #f))
                                     values
                                     r$630))
                                  #f))
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(81 (k$631 x$286) ((k$631 x$286)) #t))))
                            #t))))
                      #t)))
                 2
                 0
                 #f
                 #f
                 #f))))
      ((r$687 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 224 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$688 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 223 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$689 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 222 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((make-wall
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             650
             #f
             #f
             2
             (477 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(650
                  (k$1162 owner$511 neighbor$510 bit$509)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(649
                        (r$1163)
                        ((vector
                           k$1162
                           r$1163
                           owner$511
                           neighbor$510
                           bit$509))
                        #f))
                    'wall))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((max-len$367
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 386 #f #t -1 1 (357) #f -1 0 1 #f #f #f)))
       (r$988 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  523
                  #f
                  #f
                  #f
                  1
                  (523)
                  #f
                  (make-vector r$1010)
                  0
                  1
                  #t
                  #t
                  #f))))
      ((r$989 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 493 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ((v$419 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  522
                  #f
                  #f
                  #f
                  2
                  (503 493)
                  #f
                  r$988
                  0
                  2
                  #f
                  #f
                  #f)))
       (id$504
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 645 #f #f #f 1 (644) #f #f 0 1 #f #f #f))))
      ((south-west
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             #f
             #f
             #f
             7
             (122 287 336 447 414 403 -1)
             #f
             (1)
             0
             6
             #f
             #f
             #f)))
       (search$467
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             578
             #f
             #f
             #f
             3
             (574 572 571)
             #f
             r$1069
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((r$1090
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 585 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$1091
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             583
             #f
             #f
             #f
             1
             (583)
             #f
             (Cyc-fast-eq r$1092 ncells$471)
             0
             0
             #t
             #f
             #f))))
      ((r$1092
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 584 #f #f #f 1 (584) #f #f 0 1 #t #f #f))))
      ((r$1093
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 586 #f #f #f 1 (586) #f #f 0 1 #t #f #f))))
      ((r$1094
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 590 #f #f #f 1 (590) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((display
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             13
             (46 14 15 16 17 18 20 22 23 25 27 63 64)
             #f
             #f
             13
             0
             #f
             #f
             #f)))
       (r$690 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 202 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (r$1098
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 605 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$691 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 195 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (r$1099
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             620
             #f
             #f
             #f
             1
             (620)
             #f
             (Cyc-fast-sub r$1110 1)
             0
             1
             #t
             #f
             #f))))
      ((r$692 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 194 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$693 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  193
                  #f
                  #f
                  #f
                  1
                  (193)
                  #f
                  (Cyc-fast-sub nrows$306 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$694 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  132
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$196$310 r$695)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$695 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  133
                  #f
                  #f
                  #f
                  1
                  (133)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(190
                      (k$696 r$311)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(189
                            (r$697)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(188
                                  (tmp$198$312)
                                  ((if tmp$198$312
                                     (k$696 tmp$198$312)
                                     (#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(187
                                          ()
                                          ((write-ch
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(186
                                                 (r$698)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(185
                                                       (c$317)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(184
                                                             (lp$200$318)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(172
                                                                   (r$730)
                                                                   ((#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(171
                                                                         (r$729)
                                                                         ((lp$200$318
                                                                            #((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(170
                                                                                (r$699)
                                                                                ((#((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(169
                                                                                      (k$724)
                                                                                      ((odd? #((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(168
                                                                                                 (r$725)
                                                                                                 ((if r$725
                                                                                                    (#((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(167
                                                                                                         ()
                                                                                                         ((#((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(166
                                                                                                               (r$728)
                                                                                                               ((dot/space
                                                                                                                  #((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(165
                                                                                                                      (r$727)
                                                                                                                      ((write-ch
                                                                                                                         #((record-marker)
                                                                                                                           #((record-marker)
                                                                                                                             #f
                                                                                                                             (id args
                                                                                                                                 body
                                                                                                                                 has-cont))
                                                                                                                           #(164
                                                                                                                             (r$726)
                                                                                                                             ((write-ch
                                                                                                                                k$724
                                                                                                                                #\\))
                                                                                                                             #f))
                                                                                                                         r$727))
                                                                                                                      #f))
                                                                                                                  harr$305
                                                                                                                  r$311
                                                                                                                  r$728))
                                                                                                               #f))
                                                                                                           (Cyc-fast-sub
                                                                                                             ncols$307
                                                                                                             1)))
                                                                                                         #f)))
                                                                                                    (k$724 #f)))
                                                                                                 #f))
                                                                                             ncols$307))
                                                                                      #t))
                                                                                  #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(163
                                                                                      (r$700)
                                                                                      ((write-ch
                                                                                         #((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(162
                                                                                             (r$701)
                                                                                             ((#((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(161
                                                                                                   (c$313)
                                                                                                   ((#((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(160
                                                                                                         (lp$207$314)
                                                                                                         ((#((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(147
                                                                                                               (r$713)
                                                                                                               ((#((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(146
                                                                                                                     (r$712)
                                                                                                                     ((lp$207$314
                                                                                                                        #((record-marker)
                                                                                                                          #((record-marker)
                                                                                                                            #f
                                                                                                                            (id args
                                                                                                                                body
                                                                                                                                has-cont))
                                                                                                                          #(145
                                                                                                                            (r$702)
                                                                                                                            ((#((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(144
                                                                                                                                  (k$706)
                                                                                                                                  ((odd? #((record-marker)
                                                                                                                                           #((record-marker)
                                                                                                                                             #f
                                                                                                                                             (id args
                                                                                                                                                 body
                                                                                                                                                 has-cont))
                                                                                                                                           #(143
                                                                                                                                             (r$707)
                                                                                                                                             ((if r$707
                                                                                                                                                (#((record-marker)
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #f
                                                                                                                                                     (id args
                                                                                                                                                         body
                                                                                                                                                         has-cont))
                                                                                                                                                   #(140
                                                                                                                                                     ()
                                                                                                                                                     ((#((record-marker)
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #f
                                                                                                                                                           (id args
                                                                                                                                                               body
                                                                                                                                                               has-cont))
                                                                                                                                                         #(139
                                                                                                                                                           (r$710)
                                                                                                                                                           ((href/rc
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(138
                                                                                                                                                                  (r$709)
                                                                                                                                                                  ((cell:walls
                                                                                                                                                                     #((record-marker)
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #f
                                                                                                                                                                         (id args
                                                                                                                                                                             body
                                                                                                                                                                             has-cont))
                                                                                                                                                                       #(137
                                                                                                                                                                         (r$708)
                                                                                                                                                                         ((display-hexbottom
                                                                                                                                                                            k$706
                                                                                                                                                                            r$708))
                                                                                                                                                                         #f))
                                                                                                                                                                     r$709))
                                                                                                                                                                  #f))
                                                                                                                                                              harr$305
                                                                                                                                                              r$311
                                                                                                                                                              r$710))
                                                                                                                                                           #f))
                                                                                                                                                       (Cyc-fast-sub
                                                                                                                                                         ncols$307
                                                                                                                                                         1)))
                                                                                                                                                     #f)))
                                                                                                                                                (#((record-marker)
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #f
                                                                                                                                                     (id args
                                                                                                                                                         body
                                                                                                                                                         has-cont))
                                                                                                                                                   #(142
                                                                                                                                                     (r$711)
                                                                                                                                                     ((if r$711
                                                                                                                                                        (k$706 #f)
                                                                                                                                                        (#((record-marker)
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #f
                                                                                                                                                             (id args
                                                                                                                                                                 body
                                                                                                                                                                 has-cont))
                                                                                                                                                           #(141
                                                                                                                                                             ()
                                                                                                                                                             ((write-ch
                                                                                                                                                                k$706
                                                                                                                                                                #\\))
                                                                                                                                                             #f)))))
                                                                                                                                                     #f))
                                                                                                                                                 (zero?__inline__
                                                                                                                                                   r$311))))
                                                                                                                                             #f))
                                                                                                                                         ncols$307))
                                                                                                                                  #t))
                                                                                                                              #((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(136
                                                                                                                                  (r$703)
                                                                                                                                  ((write-ch
                                                                                                                                     #((record-marker)
                                                                                                                                       #((record-marker)
                                                                                                                                         #f
                                                                                                                                         (id args
                                                                                                                                             body
                                                                                                                                             has-cont))
                                                                                                                                       #(135
                                                                                                                                         (r$704)
                                                                                                                                         ((#((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(134
                                                                                                                                               (r$705)
                                                                                                                                               ((lp$196$310
                                                                                                                                                  k$696
                                                                                                                                                  r$705))
                                                                                                                                               #f))
                                                                                                                                           (Cyc-fast-sub
                                                                                                                                             r$311
                                                                                                                                             1)))
                                                                                                                                         #f))
                                                                                                                                     #\newline))
                                                                                                                                  #f))))
                                                                                                                            #f))
                                                                                                                        c$313))
                                                                                                                     #f))
                                                                                                                 (set! lp$207$314
                                                                                                                   r$713)))
                                                                                                               #f))
                                                                                                           #((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(159
                                                                                                               (k$714 c$315)
                                                                                                               ((#((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(158
                                                                                                                     (r$715)
                                                                                                                     ((#((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(157
                                                                                                                           (tmp$209$316)
                                                                                                                           ((if tmp$209$316
                                                                                                                              (k$714 tmp$209$316)
                                                                                                                              (#((record-marker)
                                                                                                                                 #((record-marker)
                                                                                                                                   #f
                                                                                                                                   (id args
                                                                                                                                       body
                                                                                                                                       has-cont))
                                                                                                                                 #(156
                                                                                                                                   ()
                                                                                                                                   ((href/rc
                                                                                                                                      #((record-marker)
                                                                                                                                        #((record-marker)
                                                                                                                                          #f
                                                                                                                                          (id args
                                                                                                                                              body
                                                                                                                                              has-cont))
                                                                                                                                        #(155
                                                                                                                                          (r$723)
                                                                                                                                          ((cell:walls
                                                                                                                                             #((record-marker)
                                                                                                                                               #((record-marker)
                                                                                                                                                 #f
                                                                                                                                                 (id args
                                                                                                                                                     body
                                                                                                                                                     has-cont))
                                                                                                                                               #(154
                                                                                                                                                 (r$722)
                                                                                                                                                 ((display-hexbottom
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #((record-marker)
                                                                                                                                                        #f
                                                                                                                                                        (id args
                                                                                                                                                            body
                                                                                                                                                            has-cont))
                                                                                                                                                      #(153
                                                                                                                                                        (r$716)
                                                                                                                                                        ((#((record-marker)
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #f
                                                                                                                                                              (id args
                                                                                                                                                                  body
                                                                                                                                                                  has-cont))
                                                                                                                                                            #(152
                                                                                                                                                              (r$720)
                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #f
                                                                                                                                                                    (id args
                                                                                                                                                                        body
                                                                                                                                                                        has-cont))
                                                                                                                                                                  #(151
                                                                                                                                                                    (r$721)
                                                                                                                                                                    ((dot/space
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #f
                                                                                                                                                                           (id args
                                                                                                                                                                               body
                                                                                                                                                                               has-cont))
                                                                                                                                                                         #(150
                                                                                                                                                                           (r$719)
                                                                                                                                                                           ((write-ch
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(149
                                                                                                                                                                                  (r$717)
                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                        #f
                                                                                                                                                                                        (id args
                                                                                                                                                                                            body
                                                                                                                                                                                            has-cont))
                                                                                                                                                                                      #(148
                                                                                                                                                                                        (r$718)
                                                                                                                                                                                        ((lp$207$314
                                                                                                                                                                                           k$714
                                                                                                                                                                                           r$718))
                                                                                                                                                                                        #f))
                                                                                                                                                                                    (Cyc-fast-plus
                                                                                                                                                                                      c$315
                                                                                                                                                                                      2)))
                                                                                                                                                                                  #f))
                                                                                                                                                                              r$719))
                                                                                                                                                                           #f))
                                                                                                                                                                       harr$305
                                                                                                                                                                       r$720
                                                                                                                                                                       r$721))
                                                                                                                                                                    #f))
                                                                                                                                                                (Cyc-fast-plus
                                                                                                                                                                  c$315
                                                                                                                                                                  1)))
                                                                                                                                                              #f))
                                                                                                                                                          (Cyc-fast-sub
                                                                                                                                                            r$311
                                                                                                                                                            1)))
                                                                                                                                                        #f))
                                                                                                                                                    r$722))
                                                                                                                                                 #f))
                                                                                                                                             r$723))
                                                                                                                                          #f))
                                                                                                                                      harr$305
                                                                                                                                      r$311
                                                                                                                                      c$315))
                                                                                                                                   #f)))))
                                                                                                                           #f))
                                                                                                                       r$715))
                                                                                                                     #f))
                                                                                                                 (Cyc-fast-gte
                                                                                                                   c$315
                                                                                                                   ncols2$308)))
                                                                                                               #t))))
                                                                                                         #f))
                                                                                                     #f))
                                                                                                   #f))
                                                                                               0))
                                                                                             #f))
                                                                                         #\newline))
                                                                                      #f))))
                                                                                #f))
                                                                            c$317))
                                                                         #f))
                                                                     (set! lp$200$318
                                                                       r$730)))
                                                                   #f))
                                                               #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(183
                                                                   (k$731 c$319)
                                                                   ((#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(182
                                                                         (r$732)
                                                                         ((#((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(181
                                                                               (tmp$202$320)
                                                                               ((if tmp$202$320
                                                                                  (k$731 tmp$202$320)
                                                                                  (#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(180
                                                                                       ()
                                                                                       ((#((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(179
                                                                                             (r$739)
                                                                                             ((dot/space
                                                                                                #((record-marker)
                                                                                                  #((record-marker)
                                                                                                    #f
                                                                                                    (id args
                                                                                                        body
                                                                                                        has-cont))
                                                                                                  #(178
                                                                                                    (r$738)
                                                                                                    ((write-ch
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(177
                                                                                                           (r$733)
                                                                                                           ((href/rc
                                                                                                              #((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(176
                                                                                                                  (r$737)
                                                                                                                  ((cell:walls
                                                                                                                     #((record-marker)
                                                                                                                       #((record-marker)
                                                                                                                         #f
                                                                                                                         (id args
                                                                                                                             body
                                                                                                                             has-cont))
                                                                                                                       #(175
                                                                                                                         (r$736)
                                                                                                                         ((display-hexbottom
                                                                                                                            #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(174
                                                                                                                                (r$734)
                                                                                                                                ((#((record-marker)
                                                                                                                                    #((record-marker)
                                                                                                                                      #f
                                                                                                                                      (id args
                                                                                                                                          body
                                                                                                                                          has-cont))
                                                                                                                                    #(173
                                                                                                                                      (r$735)
                                                                                                                                      ((lp$200$318
                                                                                                                                         k$731
                                                                                                                                         r$735))
                                                                                                                                      #f))
                                                                                                                                  (Cyc-fast-plus
                                                                                                                                    c$319
                                                                                                                                    2)))
                                                                                                                                #f))
                                                                                                                            r$736))
                                                                                                                         #f))
                                                                                                                     r$737))
                                                                                                                  #f))
                                                                                                              harr$305
                                                                                                              r$311
                                                                                                              c$319))
                                                                                                           #f))
                                                                                                       r$738))
                                                                                                    #f))
                                                                                                harr$305
                                                                                                r$311
                                                                                                r$739))
                                                                                             #f))
                                                                                         (Cyc-fast-sub
                                                                                           c$319
                                                                                           1)))
                                                                                       #f)))))
                                                                               #f))
                                                                           r$732))
                                                                         #f))
                                                                     (Cyc-fast-gte
                                                                       c$319
                                                                       ncols2$308)))
                                                                   #t))))
                                                             #f))
                                                         #f))
                                                       #f))
                                                   1))
                                                 #f))
                                             #\/))
                                          #f)))))
                                  #f))
                              r$697))
                            #f))
                        (Cyc-fast-lt r$311 0)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((make-cell
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             645
             #f
             #f
             2
             (489 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(645
                  (k$1149 reachable$505 id$504)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(644
                        (r$1150)
                        ((vector
                           k$1149
                           r$1150
                           reachable$505
                           id$504
                           -1
                           #f
                           #f))
                        #f))
                    'cell))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((r$697 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  189
                  #f
                  #f
                  #f
                  1
                  (189)
                  #f
                  (Cyc-fast-lt r$311 0)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$698 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 186 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$699 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 170 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((r$990 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  521
                  #f
                  #f
                  #f
                  1
                  (521)
                  #f
                  (Cyc-fast-sub nrows$418 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$991 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  494
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$113$421 r$992)
                  0
                  0
                  #t
                  #f
                  #f)))
       (cell:mark
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             637
             #f
             #f
             2
             (125 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(637
                  (k$1128 o$495)
                  ((k$1128 (vector-ref o$495 5)))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((r$992 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  495
                  #f
                  #f
                  #f
                  1
                  (495)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(518
                      (k$993 r$422)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(517
                            (r$994)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(516
                                  (tmp$115$423)
                                  ((if tmp$115$423
                                     (k$993 tmp$115$423)
                                     (#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(515
                                          ()
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(514
                                                (r$997)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(513
                                                      (c$425 i$424)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(512
                                                            (lp$117$426)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(499
                                                                  (r$999)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(498
                                                                        (r$998)
                                                                        ((lp$117$426
                                                                           #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(497
                                                                               (r$995)
                                                                               ((#((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(496
                                                                                     (r$996)
                                                                                     ((lp$113$421
                                                                                        k$993
                                                                                        r$996))
                                                                                     #f))
                                                                                 (Cyc-fast-sub
                                                                                   r$422
                                                                                   1)))
                                                                               #f))
                                                                           c$425
                                                                           i$424))
                                                                        #f))
                                                                    (set! lp$117$426
                                                                      r$999)))
                                                                  #f))
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(511
                                                                  (k$1000
                                                                    c$428
                                                                    i$427)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(510
                                                                        (r$1001)
                                                                        ((#((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(509
                                                                              (tmp$119$429)
                                                                              ((if tmp$119$429
                                                                                 (k$1000
                                                                                   tmp$119$429)
                                                                                 (#((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(508
                                                                                      ()
                                                                                      ((#((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(507
                                                                                            (r$1006)
                                                                                            ((#((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(506
                                                                                                  (r$1008)
                                                                                                  ((bitwise-and
                                                                                                     #((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(505
                                                                                                         (r$1009)
                                                                                                         ((#((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(504
                                                                                                               (r$1007)
                                                                                                               ((proc$416
                                                                                                                  #((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(503
                                                                                                                      (r$1005)
                                                                                                                      ((#((record-marker)
                                                                                                                          #((record-marker)
                                                                                                                            #f
                                                                                                                            (id args
                                                                                                                                body
                                                                                                                                has-cont))
                                                                                                                          #(502
                                                                                                                            (r$1002)
                                                                                                                            ((#((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(501
                                                                                                                                  (r$1003)
                                                                                                                                  ((#((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(500
                                                                                                                                        (r$1004)
                                                                                                                                        ((lp$117$426
                                                                                                                                           k$1000
                                                                                                                                           r$1003
                                                                                                                                           r$1004))
                                                                                                                                        #f))
                                                                                                                                    (Cyc-fast-plus
                                                                                                                                      i$427
                                                                                                                                      1)))
                                                                                                                                  #f))
                                                                                                                              (Cyc-fast-plus
                                                                                                                                c$428
                                                                                                                                1)))
                                                                                                                            #f))
                                                                                                                        (vector-set!
                                                                                                                          v$419
                                                                                                                          i$427
                                                                                                                          r$1005)))
                                                                                                                      #f))
                                                                                                                  r$1006
                                                                                                                  r$1007))
                                                                                                               #f))
                                                                                                           (Cyc-fast-plus
                                                                                                             r$1008
                                                                                                             r$1009)))
                                                                                                         #f))
                                                                                                     c$428
                                                                                                     1))
                                                                                                  #f))
                                                                                              (Cyc-fast-mul
                                                                                                2
                                                                                                r$422)))
                                                                                            #f))
                                                                                        (Cyc-fast-mul
                                                                                          3
                                                                                          c$428)))
                                                                                      #f)))))
                                                                              #f))
                                                                          r$1001))
                                                                        #f))
                                                                    (Cyc-fast-eq
                                                                      c$428
                                                                      ncols$417)))
                                                                  #t))))
                                                            #f))
                                                        #f))
                                                      #f))
                                                  0
                                                  r$997))
                                                #f))
                                            (Cyc-fast-mul r$422 ncols$417)))
                                          #f)))))
                                  #f))
                              r$994))
                            #f))
                        (Cyc-fast-lt r$422 0)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((max-len$372
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 384 #f #f #f 1 (378) #f #f 0 1 #f #f #f))))
      ((r$994 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  517
                  #f
                  #f
                  #f
                  1
                  (517)
                  #f
                  (Cyc-fast-lt r$422 0)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$995 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 497 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$996 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  496
                  #f
                  #f
                  #f
                  1
                  (496)
                  #f
                  (Cyc-fast-sub r$422 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$997 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  514
                  #f
                  #f
                  #f
                  1
                  (514)
                  #f
                  (Cyc-fast-mul r$422 ncols$417)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((max-len$377
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             377
             #f
             #f
             #f
             1
             (366)
             #f
             max-len$372
             0
             1
             #f
             #f
             #f)))
       (r$998 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  498
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$117$426 r$999)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$999 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  499
                  #f
                  #f
                  #f
                  1
                  (499)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(511
                      (k$1000 c$428 i$427)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(510
                            (r$1001)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(509
                                  (tmp$119$429)
                                  ((if tmp$119$429
                                     (k$1000 tmp$119$429)
                                     (#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(508
                                          ()
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(507
                                                (r$1006)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(506
                                                      (r$1008)
                                                      ((bitwise-and
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(505
                                                             (r$1009)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(504
                                                                   (r$1007)
                                                                   ((proc$416
                                                                      #((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(503
                                                                          (r$1005)
                                                                          ((#((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(502
                                                                                (r$1002)
                                                                                ((#((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(501
                                                                                      (r$1003)
                                                                                      ((#((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(500
                                                                                            (r$1004)
                                                                                            ((lp$117$426
                                                                                               k$1000
                                                                                               r$1003
                                                                                               r$1004))
                                                                                            #f))
                                                                                        (Cyc-fast-plus
                                                                                          i$427
                                                                                          1)))
                                                                                      #f))
                                                                                  (Cyc-fast-plus
                                                                                    c$428
                                                                                    1)))
                                                                                #f))
                                                                            (vector-set!
                                                                              v$419
                                                                              i$427
                                                                              r$1005)))
                                                                          #f))
                                                                      r$1006
                                                                      r$1007))
                                                                   #f))
                                                               (Cyc-fast-plus
                                                                 r$1008
                                                                 r$1009)))
                                                             #f))
                                                         c$428
                                                         1))
                                                      #f))
                                                  (Cyc-fast-mul 2 r$422)))
                                                #f))
                                            (Cyc-fast-mul 3 c$428)))
                                          #f)))))
                                  #f))
                              r$1001))
                            #f))
                        (Cyc-fast-eq c$428 ncols$417)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((t1$277
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 36 #f #f #f 1 (31) #f r$586 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((random-state$481
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 622 #f #f #f 1 (614) #f #f 0 1 #f #f #f))))
      ((x$281 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 68 #f #f #f 1 (68) #f #f 0 1 #t #f #f))))
      ((x$282 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 83 #f #f #f 1 (73) #f #f 0 1 #f #f #f))))
      ()
      ()
      ()
      ((x$286 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 81 #f #f #f 1 (81) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ((href .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 538
                 #f
                 #f
                 18
                 (290
                  303
                  311
                  322
                  328
                  333
                  439
                  445
                  448
                  454
                  400
                  402
                  404
                  406
                  415
                  418
                  422
                  -1)
                 #f
                 (#((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(538
                      (k$1020 ha$435 x$434 y$433)
                      ((div #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(537
                                (r$1021)
                                ((div #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(536
                                          (r$1022)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(535
                                                (r$437 c$436)
                                                ((harr:elts
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(534
                                                       (r$1023)
                                                       ((harr:ncols
                                                          #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(533
                                                              (r$1026)
                                                              ((#((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(532
                                                                    (r$1025)
                                                                    ((#((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(531
                                                                          (r$1024)
                                                                          ((k$1020
                                                                             (vector-ref
                                                                               r$1023
                                                                               r$1024)))
                                                                          #f))
                                                                      (Cyc-fast-plus
                                                                        r$1025
                                                                        c$436)))
                                                                    #f))
                                                                (Cyc-fast-mul
                                                                  r$1026
                                                                  r$437)))
                                                              #f))
                                                          ha$435))
                                                       #f))
                                                   ha$435))
                                                #f))
                                            r$1021
                                            r$1022))
                                          #f))
                                      x$434
                                      3))
                                #f))
                            y$433
                            2))
                      #t)))
                 17
                 0
                 #f
                 #f
                 #f))))
      ()
      ()
      ()
      ()
      ()
      ((k$907 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  428
                  #f
                  #f
                  #f
                  2
                  (427 395)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(394
                      (r$906)
                      ((k$899 (list->vector walls$392)))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t))))
      ()
      ((k$1102
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 617 #f #f #f 2 (616 608) #f #f 1 1 #f #f #t))))
      ()
      ()
      ((max-len$382
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             375
             #f
             #f
             #f
             3
             (371 369 374)
             #f
             #f
             0
             3
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ((max-len$387
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 360 #f #f #f 1 (359) #f r$881 0 1 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$615 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 68 #f #f #f 1 (66) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$914 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 409 #f #f #f 2 (397 407) #f #f 1 1 #f #f #t))))
      ()
      ()
      ()
      ()
      ()
      ((k$1113
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 635 #f #f #f 1 (623) #f #f 0 1 #f #f #t))))
      ()
      ()
      ()
      ((k$1117
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 630 #f #f #f 2 (629 625) #f #f 1 1 #f #f #t))))
      ()
      ()
      ()
      ()
      ()
      ((write-ch
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             251
             #f
             #f
             24
             (112
              116
              120
              229
              233
              234
              235
              207
              208
              212
              213
              178
              150
              136
              141
              163
              164
              165
              187
              195
              196
              223
              224
              -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(251
                  (k$776 c$329)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(250 (r$777) ((k$776 (set! output r$777))) #f))
                    (cons c$329 output)))
                  #t)))
             23
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ((k$620 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 83 #f #f #f 1 (72) #f #f 0 1 #f #f #t))))
      ()
      ()
      ((proc$416
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 525 #f #f #f 1 (504) #f #f 1 0 #f #f #f)))
       (k$623 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 74 #f #f #f 1 (73) #f #f 0 1 #f #f #t))))
      ()
      ((k$625 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 82 #f #f #f 1 (76) #f #f 0 1 #f #f #t))))
      ()
      ()
      ((k$628 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  78
                  #f
                  #f
                  #f
                  2
                  (77 77)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(76 (r$627) ((values k$625 r$626 r$627)) #f))
                  2
                  0
                  #t
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$929 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  419
                  #f
                  #f
                  #f
                  2
                  (418 417)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(416
                      (r$926)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(415
                            (r$928)
                            ((href #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(414
                                       (r$927)
                                       ((add-wall$396
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(413
                                              (r$910)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(412
                                                    (r$911)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(411
                                                          (x$398)
                                                          ((#((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(410
                                                                (lp$140$399)
                                                                ((#((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(396
                                                                      (r$913)
                                                                      ((#((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(395
                                                                            (r$912)
                                                                            ((lp$140$399
                                                                               k$907
                                                                               x$398))
                                                                            #f))
                                                                        (set! lp$140$399
                                                                          r$913)))
                                                                      #f))
                                                                  #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(409
                                                                      (k$914 x$400)
                                                                      ((#((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(408
                                                                            (r$915)
                                                                            ((#((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(407
                                                                                  (tmp$142$401)
                                                                                  ((if tmp$142$401
                                                                                     (k$914 tmp$142$401)
                                                                                     (#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(406
                                                                                          ()
                                                                                          ((href #((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(405
                                                                                                     (r$922)
                                                                                                     ((#((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(404
                                                                                                           (r$924)
                                                                                                           ((href #((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(403
                                                                                                                      (r$923)
                                                                                                                      ((add-wall$396
                                                                                                                         #((record-marker)
                                                                                                                           #((record-marker)
                                                                                                                             #f
                                                                                                                             (id args
                                                                                                                                 body
                                                                                                                                 has-cont))
                                                                                                                           #(402
                                                                                                                             (r$916)
                                                                                                                             ((href #((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(401
                                                                                                                                        (r$919)
                                                                                                                                        ((#((record-marker)
                                                                                                                                            #((record-marker)
                                                                                                                                              #f
                                                                                                                                              (id args
                                                                                                                                                  body
                                                                                                                                                  has-cont))
                                                                                                                                            #(400
                                                                                                                                              (r$921)
                                                                                                                                              ((href #((record-marker)
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #f
                                                                                                                                                         (id args
                                                                                                                                                             body
                                                                                                                                                             has-cont))
                                                                                                                                                       #(399
                                                                                                                                                         (r$920)
                                                                                                                                                         ((add-wall$396
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #f
                                                                                                                                                                (id args
                                                                                                                                                                    body
                                                                                                                                                                    has-cont))
                                                                                                                                                              #(398
                                                                                                                                                                (r$917)
                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                    #((record-marker)
                                                                                                                                                                      #f
                                                                                                                                                                      (id args
                                                                                                                                                                          body
                                                                                                                                                                          has-cont))
                                                                                                                                                                    #(397
                                                                                                                                                                      (r$918)
                                                                                                                                                                      ((lp$140$399
                                                                                                                                                                         k$914
                                                                                                                                                                         r$918))
                                                                                                                                                                      #f))
                                                                                                                                                                  (Cyc-fast-sub
                                                                                                                                                                    x$400
                                                                                                                                                                    6)))
                                                                                                                                                                #f))
                                                                                                                                                            r$919
                                                                                                                                                            r$920
                                                                                                                                                            south-east))
                                                                                                                                                         #f))
                                                                                                                                                     harr$388
                                                                                                                                                     r$921
                                                                                                                                                     0))
                                                                                                                                              #f))
                                                                                                                                          (Cyc-fast-plus
                                                                                                                                            x$400
                                                                                                                                            3)))
                                                                                                                                        #f))
                                                                                                                                    harr$388
                                                                                                                                    x$400
                                                                                                                                    1))
                                                                                                                             #f))
                                                                                                                         r$922
                                                                                                                         r$923
                                                                                                                         south-west))
                                                                                                                      #f))
                                                                                                                  harr$388
                                                                                                                  r$924
                                                                                                                  0))
                                                                                                           #f))
                                                                                                       (Cyc-fast-sub
                                                                                                         x$400
                                                                                                         3)))
                                                                                                     #f))
                                                                                                 harr$388
                                                                                                 x$400
                                                                                                 1))
                                                                                          #f)))))
                                                                                  #f))
                                                                              r$915))
                                                                            #f))
                                                                        (Cyc-fast-lt
                                                                          x$400
                                                                          3)))
                                                                      #t))))
                                                                #f))
                                                            #f))
                                                          #f))
                                                      r$911))
                                                    #f))
                                                (Cyc-fast-sub rmoc-x$397 6)))
                                              #f))
                                          rmoc-hex$402
                                          r$927
                                          south-west))
                                       #f))
                                   harr$388
                                   r$928
                                   0))
                            #f))
                        (Cyc-fast-sub rmoc-x$397 3)))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t))))
      ()
      ()
      ((k$1125
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 636 #f #f #f 1 (636) #f #f 1 0 #t #f #t))))
      ()
      ()
      ((k$1128
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 637 #f #f #f 1 (637) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((vector-ref
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             25
             (74
              256
              255
              254
              274
              273
              364
              363
              362
              526
              531
              539
              540
              541
              615
              612
              628
              637
              639
              641
              642
              643
              646
              647
              648)
             #f
             #f
             25
             0
             #t
             #f
             #f))))
      ()
      ((random-state
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             718
             #f
             #f
             2
             (282 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(718
                  (k$1224 n$544)
                  ((k$1224 (cons n$544 #f)))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((y$545 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  741
                  #f
                  #f
                  #f
                  9
                  (737 735 733 728 727 725 720 719 739)
                  #f
                  #f
                  0
                  9
                  #f
                  #f
                  #f))))
      ()
      ((k$631 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 81 #f #f #f 1 (81) #f #f 1 0 #t #f #t))))
      ()
      ()
      ((k$634 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 107 #f #f #f 1 (84) #f #f 0 1 #f #f #t)))))))
 */
/* 
"---------------- after cps optimizations (1):"
 */
/* 
((define bitwise-not
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(783
       (k$1272 x$560)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(782
             (r$1273)
             ((k$1272 (Cyc-fast-sub r$1273 1)))
             #f))
         (- x$560)))
       #t)))
 (define bitwise-and
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(781
       (k$1259 x$558 y$557)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(780
             (r$1260)
             ((if r$1260
                (k$1259 0)
                (#((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(779
                     (r$1261)
                     ((if r$1261
                        (k$1259 0)
                        (#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(778
                             (r$1262)
                             ((if r$1262
                                (k$1259 y$557)
                                (#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(777
                                     (r$1263)
                                     ((if r$1263
                                        (k$1259 x$558)
                                        (div #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(775
                                                 (r$1268)
                                                 ((div #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(774
                                                           (r$1269)
                                                           ((bitwise-and
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(772
                                                                  (z$559)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(771
                                                                        (k$1266)
                                                                        ((odd? #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(770
                                                                                   (r$1267)
                                                                                   ((if r$1267
                                                                                      (odd? k$1266
                                                                                            y$557)
                                                                                      (k$1266
                                                                                        #f)))
                                                                                   #f))
                                                                               x$558))
                                                                        #t))
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(769
                                                                        (r$1265)
                                                                        ((if r$1265
                                                                           (k$1259
                                                                             (+ z$559
                                                                                z$559
                                                                                1))
                                                                           (k$1259
                                                                             (Cyc-fast-plus
                                                                               z$559
                                                                               z$559))))
                                                                        #f))))
                                                                  #f))
                                                              r$1268
                                                              r$1269))
                                                           #f))
                                                       y$557
                                                       2))
                                                 #f))
                                             x$558
                                             2)))
                                     #f))
                                 (Cyc-fast-eq y$557 -1))))
                             #f))
                         (Cyc-fast-eq x$558 -1))))
                     #f))
                 (Cyc-fast-eq y$557 0))))
             #f))
         (Cyc-fast-eq x$558 0)))
       #t)))
 (define div
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(764
       (k$1243 x$552 y$551)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(763
             (k$1254)
             ((if (exact-integer?__inline__ x$552)
                (if (exact-integer?__inline__ y$551)
                  (k$1254 (Cyc-fast-gte x$552 0))
                  (k$1254 #f))
                (k$1254 #f)))
             #t))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(760
             (r$1244)
             ((if r$1244
                (k$1243 (quotient__inline__ x$552 y$551))
                (if (Cyc-fast-lt y$551 0)
                  (if (Cyc-fast-eq
                        (Cyc-fast-sub
                          x$552
                          (Cyc-fast-mul
                            (quotient__inline__ x$552 y$551)
                            y$551))
                        0)
                    (k$1243 (quotient__inline__ x$552 y$551))
                    (k$1243
                      (Cyc-fast-plus
                        (quotient__inline__ x$552 y$551)
                        1)))
                  (if (Cyc-fast-eq
                        (Cyc-fast-sub
                          x$552
                          (Cyc-fast-mul
                            (quotient__inline__ x$552 y$551)
                            y$551))
                        0)
                    (k$1243 (quotient__inline__ x$552 y$551))
                    (k$1243
                      (Cyc-fast-sub (quotient__inline__ x$552 y$551) 1))))))
             #f))))
       #t)))
 (define mod
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(741
       (k$1227 x$546 y$545)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(740
             (k$1238)
             ((if (exact-integer?__inline__ x$546)
                (if (exact-integer?__inline__ y$545)
                  (k$1238 (Cyc-fast-gte x$546 0))
                  (k$1238 #f))
                (k$1238 #f)))
             #t))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(737
             (r$1228)
             ((if r$1228
                (remainder k$1227 x$546 y$545)
                (if (Cyc-fast-lt y$545 0)
                  (if (Cyc-fast-eq
                        (Cyc-fast-sub
                          x$546
                          (Cyc-fast-mul
                            (quotient__inline__ x$546 y$545)
                            y$545))
                        0)
                    (k$1227 0)
                    (k$1227
                      (Cyc-fast-sub
                        (Cyc-fast-sub
                          x$546
                          (Cyc-fast-mul
                            (quotient__inline__ x$546 y$545)
                            y$545))
                        y$545)))
                  (if (Cyc-fast-eq
                        (Cyc-fast-sub
                          x$546
                          (Cyc-fast-mul
                            (quotient__inline__ x$546 y$545)
                            y$545))
                        0)
                    (k$1227 0)
                    (k$1227
                      (Cyc-fast-plus
                        (Cyc-fast-sub
                          x$546
                          (Cyc-fast-mul
                            (quotient__inline__ x$546 y$545)
                            y$545))
                        y$545))))))
             #f))))
       #t)))
 (define random-state
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(718
       (k$1224 n$544)
       ((k$1224 (cons n$544 #f)))
       #t)))
 (define rand
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(717
       (k$1211 state$534)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(716
             (r$1212)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(715
                   (seed$539)
                   ((div #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(713
                             (hi$540)
                             ((mod #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(711
                                       (lo$541)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(706
                                             (k$1218)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(705
                                                   (r$1219)
                                                   ((if r$1219
                                                      (k$1218
                                                        (Cyc-fast-sub
                                                          (Cyc-fast-mul
                                                            2813
                                                            lo$541)
                                                          (Cyc-fast-mul
                                                            2699
                                                            hi$540)))
                                                      (k$1218
                                                        (Cyc-fast-plus
                                                          (Cyc-fast-sub
                                                            (Cyc-fast-mul
                                                              2813
                                                              lo$541)
                                                            (Cyc-fast-mul
                                                              2699
                                                              hi$540))
                                                          8388607))))
                                                   #f))
                                               (Cyc-fast-gt
                                                 (Cyc-fast-sub
                                                   (Cyc-fast-mul 2813 lo$541)
                                                   (Cyc-fast-mul 2699 hi$540))
                                                 0)))
                                             #t))
                                         #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(703
                                             (val$543)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(701
                                                   (r$1217)
                                                   ((k$1211 val$543))
                                                   #f))
                                               (set-car! state$534 val$543)))
                                             #f))))
                                       #f))
                                   seed$539
                                   2787))
                             #f))
                         seed$539
                         2787))
                   #f))
               r$1212))
             #f))
         (car state$534)))
       #t)))
 (define random-int
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(700
       (k$1207 n$533 state$532)
       ((rand #((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(699 (r$1208) ((mod k$1207 r$1208 n$533)) #f))
              state$532))
       #t)))
 (define base-set
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(698
       (k$1203 nelts$531)
       ((k$1203 (cons nelts$531 '())))
       #t)))
 (define get-set-root
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(696
       (k$1186 s$522)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(695
             (r$523)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(694
                   (lp$524)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(673 (r$1187) ((lp$524 k$1186 r$523)) #f))
                     (set! lp$524
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(693
                           (k$1189 r$525)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(690
                                 (r$1191)
                                 ((if r$1191
                                    (lp$524 k$1189 (cdr r$525))
                                    (#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(688
                                         (k$1193)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(687
                                               (r$1194)
                                               ((if r$1194
                                                  (k$1193 #f)
                                                  (#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(686
                                                       (x$527)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(685
                                                             (lp$528)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(677
                                                                   (r$1195)
                                                                   ((lp$528
                                                                      k$1193
                                                                      x$527))
                                                                   #f))
                                                               (set! lp$528
                                                                 #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(684
                                                                     (k$1197
                                                                       x$529)
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(682
                                                                           (next$530)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(681
                                                                                 (r$1199)
                                                                                 ((if r$1199
                                                                                    (k$1197
                                                                                      #f)
                                                                                    (#((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(679
                                                                                         (r$1200)
                                                                                         ((lp$528
                                                                                            k$1197
                                                                                            next$530))
                                                                                         #f))
                                                                                     (set-cdr!
                                                                                       x$529
                                                                                       r$525))))
                                                                                 #f))
                                                                             (eq? r$525
                                                                                  next$530)))
                                                                           #f))
                                                                       (cdr x$529)))
                                                                     #t)))))
                                                             #f))
                                                         #f))
                                                       #f))
                                                   s$522)))
                                               #f))
                                           (eq? r$525 s$522)))
                                         #t))
                                     #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(676 (r$1192) ((k$1189 r$525)) #f)))))
                                 #f))
                             (pair? (cdr r$525))))
                           #t)))))
                   #f))
               #f))
             #f))
         s$522))
       #t)))
 (define set-equal?
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(672
       (k$1181 s1$521 s2$520)
       ((get-set-root
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(671
              (r$1182)
              ((get-set-root
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(670 (r$1183) ((k$1181 (eq? r$1182 r$1183))) #f))
                 s2$520))
              #f))
          s1$521))
       #t)))
 (define set-size
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(669
       (k$1177 s$519)
       ((get-set-root
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(668 (r$1178) ((k$1177 (car r$1178))) #f))
          s$519))
       #t)))
 (define union!
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(667
       (k$1166 s1$513 s2$512)
       ((get-set-root
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(665
              (r1$514)
              ((get-set-root
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(663
                     (r2$515)
                     ((set-size
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(661
                            (n1$516)
                            ((set-size
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(659
                                   (n2$517)
                                   ((if (Cyc-fast-gt n1$516 n2$517)
                                      (#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(651
                                           (r$1173)
                                           ((k$1166
                                              (set-car!
                                                r1$514
                                                (Cyc-fast-plus n1$516 n2$517))))
                                           #f))
                                       (set-cdr! r2$515 r1$514))
                                      (#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(653
                                           (r$1174)
                                           ((k$1166
                                              (set-car!
                                                r2$515
                                                (Cyc-fast-plus n1$516 n2$517))))
                                           #f))
                                       (set-cdr! r1$514 r2$515))))
                                   #f))
                               r2$515))
                            #f))
                        r1$514))
                     #f))
                 s2$512))
              #f))
          s1$513))
       #t)))
 (define make-wall
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(650
       (k$1162 owner$511 neighbor$510 bit$509)
       ((vector
          k$1162
          'wall
          owner$511
          neighbor$510
          bit$509))
       #t)))
 (define wall:owner
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(648
       (k$1159 o$508)
       ((k$1159 (vector-ref o$508 1)))
       #t)))
 (define wall:neighbor
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(647
       (k$1156 o$507)
       ((k$1156 (vector-ref o$507 2)))
       #t)))
 (define wall:bit
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(646
       (k$1153 o$506)
       ((k$1153 (vector-ref o$506 3)))
       #t)))
 (define make-cell
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(645
       (k$1149 reachable$505 id$504)
       ((vector
          k$1149
          'cell
          reachable$505
          id$504
          -1
          #f
          #f))
       #t)))
 (define cell:reachable
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(643
       (k$1146 o$503)
       ((k$1146 (vector-ref o$503 1)))
       #t)))
 (define cell:id
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(642
       (k$1143 o$502)
       ((k$1143 (vector-ref o$502 2)))
       #t)))
 (define cell:walls
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(641
       (k$1140 o$501)
       ((k$1140 (vector-ref o$501 3)))
       #t)))
 (define set-cell:walls
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(640
       (k$1137 o$500 v$499)
       ((k$1137 (vector-set! o$500 3 v$499)))
       #t)))
 (define cell:parent
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(639
       (k$1134 o$498)
       ((k$1134 (vector-ref o$498 4)))
       #t)))
 (define set-cell:parent
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(638
       (k$1131 o$497 v$496)
       ((k$1131 (vector-set! o$497 4 v$496)))
       #t)))
 (define cell:mark
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(637
       (k$1128 o$495)
       ((k$1128 (vector-ref o$495 5)))
       #t)))
 (define set-cell:mark
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(636
       (k$1125 o$494 v$493)
       ((k$1125 (vector-set! o$494 5 v$493)))
       #t)))
 (define vector-for-each-rev
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(635
       (k$1113 proc$489 v$488)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(631
             (lp$491)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(623
                   (r$1115)
                   ((lp$491
                      k$1113
                      (Cyc-fast-sub (vector-length v$488) 1)))
                   #f))
               (set! lp$491
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(630
                     (k$1117 i$492)
                     ((if (Cyc-fast-gte i$492 0)
                        (proc$489
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(626
                              (r$1119)
                              ((lp$491 k$1117 (Cyc-fast-sub i$492 1)))
                              #f))
                          (vector-ref v$488 i$492))
                        (k$1117 #f)))
                     #t)))))
             #f))
         #f))
       #t)))
 (define permute-vec!
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(622
       (k$1097 v$482 random-state$481)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(621
             (r$1110)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(618
                   (lp$484)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(606
                         (r$1100)
                         ((lp$484
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(605 (r$1098) ((k$1097 v$482)) #f))
                            (Cyc-fast-sub r$1110 1)))
                         #f))
                     (set! lp$484
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(617
                           (k$1102 i$485)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(616
                                 (r$1103)
                                 ((if r$1103
                                    (#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(614
                                         (r$1106)
                                         ((random-int
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(613
                                                (r$1107)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(612
                                                      (elt-i$487 j$486)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(611
                                                            (r$1109)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(610
                                                                  (r$1108)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(609
                                                                        (r$1104)
                                                                        ((lp$484
                                                                           k$1102
                                                                           (Cyc-fast-sub
                                                                             i$485
                                                                             1)))
                                                                        #f))
                                                                    (vector-set!
                                                                      v$482
                                                                      j$486
                                                                      elt-i$487)))
                                                                  #f))
                                                              (vector-set!
                                                                v$482
                                                                i$485
                                                                r$1109)))
                                                            #f))
                                                        (vector-ref
                                                          v$482
                                                          j$486)))
                                                      #f))
                                                  r$1106
                                                  r$1107))
                                                #f))
                                            i$485
                                            random-state$481))
                                         #f))
                                     (vector-ref v$482 i$485))
                                    (k$1102 #f)))
                                 #f))
                             (Cyc-fast-gt i$485 1)))
                           #t)))))
                   #f))
               #f))
             #f))
         (vector-length v$482)))
       #t)))
 (define dig-maze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(604
       (k$1077 walls$472 ncells$471)
       ((call-with-current-continuation
          k$1077
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(603
              (k$1079 quit$473)
              ((vector-for-each-rev
                 k$1079
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(602
                     (k$1081 wall$474)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(598
                           (set1$476)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(594
                                 (set2$478)
                                 ((set-equal?
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(592
                                        (r$1086)
                                        ((if r$1086
                                           (k$1081 #f)
                                           (#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(591
                                                (r$1087)
                                                ((bitwise-not
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(589
                                                       (r$1088)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(588
                                                             (walls$480
                                                               wall-mask$479)
                                                             ((union!
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(587
                                                                    (r$1089)
                                                                    ((bitwise-and
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(586
                                                                           (r$1093)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(585
                                                                                 (r$1090)
                                                                                 ((set-size
                                                                                    #((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(584
                                                                                        (r$1092)
                                                                                        ((if (Cyc-fast-eq
                                                                                               r$1092
                                                                                               ncells$471)
                                                                                           (quit$473
                                                                                             k$1081
                                                                                             #f)
                                                                                           (k$1081
                                                                                             #f)))
                                                                                        #f))
                                                                                    set1$476))
                                                                                 #f))
                                                                             (vector-set!
                                                                               (vector-ref
                                                                                 wall$474
                                                                                 1)
                                                                               3
                                                                               r$1093)))
                                                                           #f))
                                                                       walls$480
                                                                       wall-mask$479))
                                                                    #f))
                                                                set1$476
                                                                set2$478))
                                                             #f))
                                                         r$1087
                                                         r$1088))
                                                       #f))
                                                   (vector-ref wall$474 3)))
                                                #f))
                                            (vector-ref
                                              (vector-ref wall$474 1)
                                              3))))
                                        #f))
                                    set1$476
                                    set2$478))
                                 #f))
                             (vector-ref (vector-ref wall$474 2) 1)))
                           #f))
                       (vector-ref (vector-ref wall$474 1) 1)))
                     #t))
                 walls$472))
              #t))))
       #t)))
 (define dfs-maze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(580
       (k$1067 maze$464 root$463 do-children$462)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(579
             (node$466)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(578
                   (search$467)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(571
                         (r$1068)
                         ((search$467 k$1067 node$466 #f))
                         #f))
                     (set! search$467
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(577
                           (k$1070 node$469 parent$468)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(576
                                 (r$1071)
                                 ((do-children$462
                                    k$1070
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(575
                                        (k$1073 child$470)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(574
                                              (r$1074)
                                              ((if r$1074
                                                 (k$1073 #f)
                                                 (search$467
                                                   k$1073
                                                   child$470
                                                   node$469)))
                                              #f))
                                          (eq? child$470 parent$468)))
                                        #t))
                                    maze$464
                                    node$469))
                                 #f))
                             (vector-set! node$469 4 parent$468)))
                           #t)))))
                   #f))
               #f))
             #f))
         root$463))
       #t)))
 (define reroot-maze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(570
       (k$1059 new-root$455)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(569
             (node$457)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(568
                   (lp$458)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(562 (r$1060) ((lp$458 k$1059 node$457 #f)) #f))
                     (set! lp$458
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(567
                           (k$1062 node$460 new-parent$459)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(565
                                 (old-parent$461)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(564
                                       (r$1064)
                                       ((if old-parent$461
                                          (lp$458
                                            k$1062
                                            old-parent$461
                                            node$460)
                                          (k$1062 #f)))
                                       #f))
                                   (vector-set! node$460 4 new-parent$459)))
                                 #f))
                             (vector-ref node$460 4)))
                           #t)))))
                   #f))
               #f))
             #f))
         new-root$455))
       #t)))
 (define path-length
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(561
       (k$1050 cell$449)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(560
             (r$1051)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(559
                   (node$450)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(558
                         (lp$105$452)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(553
                               (r$1052)
                               ((lp$105$452 k$1050 0 node$450))
                               #f))
                           (set! lp$105$452
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(557
                                 (k$1054 len$454 node$453)
                                 ((if node$453
                                    (#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(555
                                         (r$1056)
                                         ((lp$105$452
                                            k$1054
                                            (Cyc-fast-plus len$454 1)
                                            r$1056))
                                         #f))
                                     (vector-ref node$453 4))
                                    (k$1054 len$454)))
                                 #t)))))
                         #f))
                     #f))
                   #f))
               r$1051))
             #f))
         (vector-ref cell$449 4)))
       #t)))
 (define mark-path
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(552
       (k$1042 node$444)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(551
             (node$445)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(550
                   (lp$446)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(544 (r$1043) ((lp$446 k$1042 node$445)) #f))
                     (set! lp$446
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(549
                           (k$1045 node$447)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(548
                                 (r$1046)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(546
                                       (tmp$111$448)
                                       ((if tmp$111$448
                                          (lp$446 k$1045 tmp$111$448)
                                          (k$1045 #f)))
                                       #f))
                                   (vector-ref node$447 4)))
                                 #f))
                             (vector-set! node$447 5 #t)))
                           #t)))))
                   #f))
               #f))
             #f))
         node$444))
       #t)))
 (define make-harr
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(543
       (k$1038 nrows$443 ncols$442 elts$441)
       ((vector
          k$1038
          'harr
          nrows$443
          ncols$442
          elts$441))
       #t)))
 (define harr:nrows
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(541
       (k$1035 o$440)
       ((k$1035 (vector-ref o$440 1)))
       #t)))
 (define harr:ncols
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(540
       (k$1032 o$439)
       ((k$1032 (vector-ref o$439 2)))
       #t)))
 (define harr:elts
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(539
       (k$1029 o$438)
       ((k$1029 (vector-ref o$438 3)))
       #t)))
 (define href
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(538
       (k$1020 ha$435 x$434 y$433)
       ((div #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(537
                 (r$1021)
                 ((div #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(536
                           (r$1022)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(535
                                 (r$437 c$436)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(534
                                       (r$1023)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(533
                                             (r$1026)
                                             ((k$1020
                                                (vector-ref
                                                  r$1023
                                                  (Cyc-fast-plus
                                                    (Cyc-fast-mul r$1026 r$437)
                                                    c$436))))
                                             #f))
                                         (vector-ref ha$435 2)))
                                       #f))
                                   (vector-ref ha$435 3)))
                                 #f))
                             r$1021
                             r$1022))
                           #f))
                       x$434
                       3))
                 #f))
             y$433
             2))
       #t)))
 (define href/rc
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(530
       (k$1013 ha$432 r$431 c$430)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(529
             (r$1014)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(528
                   (r$1017)
                   ((k$1013
                      (vector-ref
                        r$1014
                        (Cyc-fast-plus (Cyc-fast-mul r$1017 r$431) c$430))))
                   #f))
               (vector-ref ha$432 2)))
             #f))
         (vector-ref ha$432 3)))
       #t)))
 (define harr-tabulate
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(525
       (k$987 nrows$418 ncols$417 proc$416)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(522
             (v$419)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(519
                   (lp$113$421)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(494
                         (r$991)
                         ((lp$113$421
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(493
                                (r$989)
                                ((make-harr k$987 nrows$418 ncols$417 v$419))
                                #f))
                            (Cyc-fast-sub nrows$418 1)))
                         #f))
                     (set! lp$113$421
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(518
                           (k$993 r$422)
                           ((if (Cyc-fast-lt r$422 0)
                              (k$993 (Cyc-fast-lt r$422 0))
                              (#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(513
                                   (i$424)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(512
                                         (lp$117$426)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(498
                                               (r$998)
                                               ((lp$117$426
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(497
                                                      (r$995)
                                                      ((lp$113$421
                                                         k$993
                                                         (Cyc-fast-sub
                                                           r$422
                                                           1)))
                                                      #f))
                                                  0
                                                  i$424))
                                               #f))
                                           (set! lp$117$426
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(511
                                                 (k$1000 c$428 i$427)
                                                 ((if (Cyc-fast-eq
                                                        c$428
                                                        ncols$417)
                                                    (k$1000
                                                      (Cyc-fast-eq
                                                        c$428
                                                        ncols$417))
                                                    (bitwise-and
                                                      #((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(505
                                                          (r$1009)
                                                          ((proc$416
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(503
                                                                 (r$1005)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(502
                                                                       (r$1002)
                                                                       ((lp$117$426
                                                                          k$1000
                                                                          (Cyc-fast-plus
                                                                            c$428
                                                                            1)
                                                                          (Cyc-fast-plus
                                                                            i$427
                                                                            1)))
                                                                       #f))
                                                                   (vector-set!
                                                                     v$419
                                                                     i$427
                                                                     r$1005)))
                                                                 #f))
                                                             (Cyc-fast-mul
                                                               3
                                                               c$428)
                                                             (Cyc-fast-plus
                                                               (Cyc-fast-mul
                                                                 2
                                                                 r$422)
                                                               r$1009)))
                                                          #f))
                                                      c$428
                                                      1)))
                                                 #t)))))
                                         #f))
                                     #f))
                                   #f))
                               (Cyc-fast-mul r$422 ncols$417))))
                           #t)))))
                   #f))
               #f))
             #f))
         (make-vector (Cyc-fast-mul nrows$418 ncols$417))))
       #t)))
 (define south-west 1)
 (define south 2)
 (define south-east 4)
 (define gen-maze-array
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(492
       (k$974 r$413 c$412)
       ((harr-tabulate
          k$974
          r$413
          c$412
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(491
              (k$976 x$415 y$414)
              ((base-set
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(490
                     (r$977)
                     ((make-cell k$976 r$977 (cons x$415 y$414)))
                     #f))
                 1))
              #t))))
       #t)))
 (define make-wall-vec
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(487
       (k$899 harr$388)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(485
             (nrows$389)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(483
                   (ncols$390)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(478
                         (walls$392)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(473
                               (add-wall$396)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(468
                                     (lp$132$404)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(430
                                           (r$936)
                                           ((lp$132$404
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(429
                                                  (r$905)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(428
                                                        (k$907)
                                                        ((if (Cyc-fast-gt
                                                               ncols$390
                                                               1)
                                                           (div #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(425
                                                                    (r$933)
                                                                    ((href #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(420
                                                                               (rmoc-hex$402)
                                                                               ((#((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(419
                                                                                     (k$929)
                                                                                     ((if (Cyc-fast-lt
                                                                                            (Cyc-fast-plus
                                                                                              3
                                                                                              (Cyc-fast-mul
                                                                                                6
                                                                                                r$933))
                                                                                            (Cyc-fast-mul
                                                                                              3
                                                                                              (Cyc-fast-sub
                                                                                                ncols$390
                                                                                                1)))
                                                                                        (href #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(417
                                                                                                  (r$931)
                                                                                                  ((add-wall$396
                                                                                                     k$929
                                                                                                     rmoc-hex$402
                                                                                                     r$931
                                                                                                     south-east))
                                                                                                  #f))
                                                                                              harr$388
                                                                                              (Cyc-fast-mul
                                                                                                3
                                                                                                (Cyc-fast-sub
                                                                                                  ncols$390
                                                                                                  1))
                                                                                              0)
                                                                                        (k$929 #f)))
                                                                                     #t))
                                                                                 #((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(416
                                                                                     (r$926)
                                                                                     ((href #((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(414
                                                                                                (r$927)
                                                                                                ((add-wall$396
                                                                                                   #((record-marker)
                                                                                                     #((record-marker)
                                                                                                       #f
                                                                                                       (id args
                                                                                                           body
                                                                                                           has-cont))
                                                                                                     #(413
                                                                                                       (r$910)
                                                                                                       ((#((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(410
                                                                                                             (lp$140$399)
                                                                                                             ((#((record-marker)
                                                                                                                 #((record-marker)
                                                                                                                   #f
                                                                                                                   (id args
                                                                                                                       body
                                                                                                                       has-cont))
                                                                                                                 #(395
                                                                                                                   (r$912)
                                                                                                                   ((lp$140$399
                                                                                                                      k$907
                                                                                                                      (Cyc-fast-sub
                                                                                                                        (Cyc-fast-plus
                                                                                                                          3
                                                                                                                          (Cyc-fast-mul
                                                                                                                            6
                                                                                                                            r$933))
                                                                                                                        6)))
                                                                                                                   #f))
                                                                                                               (set! lp$140$399
                                                                                                                 #((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(409
                                                                                                                     (k$914 x$400)
                                                                                                                     ((if (Cyc-fast-lt
                                                                                                                            x$400
                                                                                                                            3)
                                                                                                                        (k$914 (Cyc-fast-lt
                                                                                                                                 x$400
                                                                                                                                 3))
                                                                                                                        (href #((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(405
                                                                                                                                  (r$922)
                                                                                                                                  ((href #((record-marker)
                                                                                                                                           #((record-marker)
                                                                                                                                             #f
                                                                                                                                             (id args
                                                                                                                                                 body
                                                                                                                                                 has-cont))
                                                                                                                                           #(403
                                                                                                                                             (r$923)
                                                                                                                                             ((add-wall$396
                                                                                                                                                #((record-marker)
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #f
                                                                                                                                                    (id args
                                                                                                                                                        body
                                                                                                                                                        has-cont))
                                                                                                                                                  #(402
                                                                                                                                                    (r$916)
                                                                                                                                                    ((href #((record-marker)
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #f
                                                                                                                                                               (id args
                                                                                                                                                                   body
                                                                                                                                                                   has-cont))
                                                                                                                                                             #(401
                                                                                                                                                               (r$919)
                                                                                                                                                               ((href #((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(399
                                                                                                                                                                          (r$920)
                                                                                                                                                                          ((add-wall$396
                                                                                                                                                                             #((record-marker)
                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                 #f
                                                                                                                                                                                 (id args
                                                                                                                                                                                     body
                                                                                                                                                                                     has-cont))
                                                                                                                                                                               #(398
                                                                                                                                                                                 (r$917)
                                                                                                                                                                                 ((lp$140$399
                                                                                                                                                                                    k$914
                                                                                                                                                                                    (Cyc-fast-sub
                                                                                                                                                                                      x$400
                                                                                                                                                                                      6)))
                                                                                                                                                                                 #f))
                                                                                                                                                                             r$919
                                                                                                                                                                             r$920
                                                                                                                                                                             south-east))
                                                                                                                                                                          #f))
                                                                                                                                                                      harr$388
                                                                                                                                                                      (Cyc-fast-plus
                                                                                                                                                                        x$400
                                                                                                                                                                        3)
                                                                                                                                                                      0))
                                                                                                                                                               #f))
                                                                                                                                                           harr$388
                                                                                                                                                           x$400
                                                                                                                                                           1))
                                                                                                                                                    #f))
                                                                                                                                                r$922
                                                                                                                                                r$923
                                                                                                                                                south-west))
                                                                                                                                             #f))
                                                                                                                                         harr$388
                                                                                                                                         (Cyc-fast-sub
                                                                                                                                           x$400
                                                                                                                                           3)
                                                                                                                                         0))
                                                                                                                                  #f))
                                                                                                                              harr$388
                                                                                                                              x$400
                                                                                                                              1)))
                                                                                                                     #t)))))
                                                                                                             #f))
                                                                                                         #f))
                                                                                                       #f))
                                                                                                   rmoc-hex$402
                                                                                                   r$927
                                                                                                   south-west))
                                                                                                #f))
                                                                                            harr$388
                                                                                            (Cyc-fast-sub
                                                                                              (Cyc-fast-plus
                                                                                                3
                                                                                                (Cyc-fast-mul
                                                                                                  6
                                                                                                  r$933))
                                                                                              3)
                                                                                            0))
                                                                                     #f))))
                                                                               #f))
                                                                           harr$388
                                                                           (Cyc-fast-plus
                                                                             3
                                                                             (Cyc-fast-mul
                                                                               6
                                                                               r$933))
                                                                           1))
                                                                    #f))
                                                                (Cyc-fast-sub
                                                                  ncols$390
                                                                  2)
                                                                2)
                                                           (k$907 #f)))
                                                        #t))
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(394
                                                        (r$906)
                                                        ((k$899 (list->vector
                                                                  walls$392)))
                                                        #f))))
                                                  #f))
                                              (Cyc-fast-mul
                                                (Cyc-fast-sub ncols$390 1)
                                                3)))
                                           #f))
                                       (set! lp$132$404
                                         #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(467
                                             (k$938 x$405)
                                             ((if (Cyc-fast-lt x$405 0)
                                                (k$938 (Cyc-fast-lt x$405 0))
                                                (bitwise-and
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(461
                                                      (r$965)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(458
                                                            (lp$136$408)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(434
                                                                  (r$943)
                                                                  ((lp$136$408
                                                                     #((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(433
                                                                         (r$940)
                                                                         ((lp$132$404
                                                                            k$938
                                                                            (Cyc-fast-sub
                                                                              x$405
                                                                              3)))
                                                                         #f))
                                                                     (Cyc-fast-plus
                                                                       (Cyc-fast-mul
                                                                         (Cyc-fast-sub
                                                                           nrows$389
                                                                           1)
                                                                         2)
                                                                       r$965)))
                                                                  #f))
                                                              (set! lp$136$408
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(457
                                                                    (k$945 y$409)
                                                                    ((if (Cyc-fast-lte
                                                                           y$409
                                                                           1)
                                                                       (k$945 (Cyc-fast-lte
                                                                                y$409
                                                                                1))
                                                                       (href #((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(452
                                                                                 (hex$411)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(451
                                                                                       (k$959)
                                                                                       ((if (zero?__inline__
                                                                                              x$405)
                                                                                          (k$959 #f)
                                                                                          (href #((record-marker)
                                                                                                  #((record-marker)
                                                                                                    #f
                                                                                                    (id args
                                                                                                        body
                                                                                                        has-cont))
                                                                                                  #(447
                                                                                                    (r$961)
                                                                                                    ((add-wall$396
                                                                                                       k$959
                                                                                                       hex$411
                                                                                                       r$961
                                                                                                       south-west))
                                                                                                    #f))
                                                                                                harr$388
                                                                                                (Cyc-fast-sub
                                                                                                  x$405
                                                                                                  3)
                                                                                                (Cyc-fast-sub
                                                                                                  y$409
                                                                                                  1))))
                                                                                       #t))
                                                                                   #((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(446
                                                                                       (r$950)
                                                                                       ((href #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(444
                                                                                                  (r$957)
                                                                                                  ((add-wall$396
                                                                                                     #((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(443
                                                                                                         (r$951)
                                                                                                         ((#((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(442
                                                                                                               (k$952)
                                                                                                               ((if (Cyc-fast-lt
                                                                                                                      x$405
                                                                                                                      (Cyc-fast-mul
                                                                                                                        3
                                                                                                                        (Cyc-fast-sub
                                                                                                                          ncols$390
                                                                                                                          1)))
                                                                                                                  (href #((record-marker)
                                                                                                                          #((record-marker)
                                                                                                                            #f
                                                                                                                            (id args
                                                                                                                                body
                                                                                                                                has-cont))
                                                                                                                          #(438
                                                                                                                            (r$954)
                                                                                                                            ((add-wall$396
                                                                                                                               k$952
                                                                                                                               hex$411
                                                                                                                               r$954
                                                                                                                               south-east))
                                                                                                                            #f))
                                                                                                                        harr$388
                                                                                                                        (Cyc-fast-plus
                                                                                                                          x$405
                                                                                                                          3)
                                                                                                                        (Cyc-fast-sub
                                                                                                                          y$409
                                                                                                                          1))
                                                                                                                  (k$952 #f)))
                                                                                                               #t))
                                                                                                           #((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(437
                                                                                                               (r$947)
                                                                                                               ((lp$136$408
                                                                                                                  k$945
                                                                                                                  (Cyc-fast-sub
                                                                                                                    y$409
                                                                                                                    2)))
                                                                                                               #f))))
                                                                                                         #f))
                                                                                                     hex$411
                                                                                                     r$957
                                                                                                     south))
                                                                                                  #f))
                                                                                              harr$388
                                                                                              x$405
                                                                                              (Cyc-fast-sub
                                                                                                y$409
                                                                                                2)))
                                                                                       #f))))
                                                                                 #f))
                                                                             harr$388
                                                                             x$405
                                                                             y$409)))
                                                                    #t)))))
                                                            #f))
                                                        #f))
                                                      #f))
                                                  x$405
                                                  1)))
                                             #t)))))
                                     #f))
                                 #f))
                               #f))
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(477
                               (k$968 o$395 n$394 b$393)
                               ((make-wall
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(476
                                      (r$970)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(475
                                            (r$969)
                                            ((k$968 (set! walls$392 r$969)))
                                            #f))
                                        (cons r$970 walls$392)))
                                      #f))
                                  o$395
                                  n$394
                                  b$393))
                               #t))))
                         #f))
                     '()))
                   #f))
               (vector-ref harr$388 2)))
             #f))
         (vector-ref harr$388 1)))
       #t)))
 (define pick-entrances
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(393
       (k$869 harr$361)
       ((href/rc
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(392
              (r$896)
              ((dfs-maze
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(391
                     (r$870)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(390
                           (r$871)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(389
                                 (r$872)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(388
                                       (nrows$363 ncols$362)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(386
                                             (tcol$364)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(385
                                                   (tp-lp$368)
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(357
                                                         (r$874)
                                                         ((tp-lp$368
                                                            k$869
                                                            -1
                                                            #f
                                                            #f
                                                            tcol$364))
                                                         #f))
                                                     (set! tp-lp$368
                                                       #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(384
                                                           (k$876 max-len$372
                                                                  entrance$371
                                                                  exit$370
                                                                  tcol$369)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(383
                                                                 (r$877)
                                                                 ((if r$877
                                                                    (vector
                                                                      k$876
                                                                      entrance$371
                                                                      exit$370)
                                                                    (href/rc
                                                                      #((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(380
                                                                          (top-cell$373)
                                                                          ((reroot-maze
                                                                             #((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(379
                                                                                 (r$879)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(377
                                                                                       (max-len$377
                                                                                         entrance$376
                                                                                         exit$375
                                                                                         bcol$374)
                                                                                       ((#((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(376
                                                                                             (bt-lp$378)
                                                                                             ((#((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(366
                                                                                                   (r$886)
                                                                                                   ((bt-lp$378
                                                                                                      #((record-marker)
                                                                                                        #((record-marker)
                                                                                                          #f
                                                                                                          (id args
                                                                                                              body
                                                                                                              has-cont))
                                                                                                        #(364
                                                                                                          (result$384)
                                                                                                          ((#((record-marker)
                                                                                                              #((record-marker)
                                                                                                                #f
                                                                                                                (id args
                                                                                                                    body
                                                                                                                    has-cont))
                                                                                                              #(360
                                                                                                                (max-len$387
                                                                                                                  entrance$386
                                                                                                                  exit$385)
                                                                                                                ((tp-lp$368
                                                                                                                   k$876
                                                                                                                   max-len$387
                                                                                                                   entrance$386
                                                                                                                   exit$385
                                                                                                                   (Cyc-fast-sub
                                                                                                                     tcol$369
                                                                                                                     1)))
                                                                                                                #f))
                                                                                                            (vector-ref
                                                                                                              result$384
                                                                                                              0)
                                                                                                            (vector-ref
                                                                                                              result$384
                                                                                                              1)
                                                                                                            (vector-ref
                                                                                                              result$384
                                                                                                              2)))
                                                                                                          #f))
                                                                                                      max-len$377
                                                                                                      entrance$376
                                                                                                      exit$375
                                                                                                      bcol$374))
                                                                                                   #f))
                                                                                               (set! bt-lp$378
                                                                                                 #((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(375
                                                                                                     (k$888 max-len$382
                                                                                                            entrance$381
                                                                                                            exit$380
                                                                                                            bcol$379)
                                                                                                     ((#((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(374
                                                                                                           (r$889)
                                                                                                           ((if r$889
                                                                                                              (vector
                                                                                                                k$888
                                                                                                                max-len$382
                                                                                                                entrance$381
                                                                                                                exit$380)
                                                                                                              (href/rc
                                                                                                                #((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(373
                                                                                                                    (r$894)
                                                                                                                    ((path-length
                                                                                                                       #((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(371
                                                                                                                           (this-len$383)
                                                                                                                           ((#((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(370
                                                                                                                                 (r$891)
                                                                                                                                 ((if r$891
                                                                                                                                    (#((record-marker)
                                                                                                                                       #((record-marker)
                                                                                                                                         #f
                                                                                                                                         (id args
                                                                                                                                             body
                                                                                                                                             has-cont))
                                                                                                                                       #(368
                                                                                                                                         (r$892)
                                                                                                                                         ((bt-lp$378
                                                                                                                                            k$888
                                                                                                                                            this-len$383
                                                                                                                                            tcol$369
                                                                                                                                            bcol$379
                                                                                                                                            r$892))
                                                                                                                                         #f))
                                                                                                                                     (Cyc-fast-sub
                                                                                                                                       bcol$379
                                                                                                                                       1))
                                                                                                                                    (bt-lp$378
                                                                                                                                      k$888
                                                                                                                                      max-len$382
                                                                                                                                      entrance$381
                                                                                                                                      exit$380
                                                                                                                                      (Cyc-fast-sub
                                                                                                                                        bcol$379
                                                                                                                                        1))))
                                                                                                                                 #f))
                                                                                                                             (Cyc-fast-gt
                                                                                                                               this-len$383
                                                                                                                               max-len$382)))
                                                                                                                           #f))
                                                                                                                       r$894))
                                                                                                                    #f))
                                                                                                                harr$361
                                                                                                                0
                                                                                                                bcol$379)))
                                                                                                           #f))
                                                                                                       (Cyc-fast-lt
                                                                                                         bcol$379
                                                                                                         0)))
                                                                                                     #t)))))
                                                                                             #f))
                                                                                         #f))
                                                                                       #f))
                                                                                   max-len$372
                                                                                   entrance$371
                                                                                   exit$370
                                                                                   (Cyc-fast-sub
                                                                                     ncols$362
                                                                                     1)))
                                                                                 #f))
                                                                             top-cell$373))
                                                                          #f))
                                                                      harr$361
                                                                      (Cyc-fast-sub
                                                                        nrows$363
                                                                        1)
                                                                      tcol$369)))
                                                                 #f))
                                                             (Cyc-fast-lt
                                                               tcol$369
                                                               0)))
                                                           #t)))))
                                                   #f))
                                               #f))
                                             #f))
                                         (Cyc-fast-sub ncols$362 1)))
                                       #f))
                                   r$871
                                   r$872))
                                 #f))
                             (vector-ref harr$361 2)))
                           #f))
                       (vector-ref harr$361 1)))
                     #f))
                 harr$361
                 r$896
                 for-each-hex-child))
              #f))
          harr$361
          0
          0))
       #t)))
 (define for-each-hex-child
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(356
       (k$810 proc$347 harr$346 cell$345)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(354
             (walls$348)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(346
                   (nr$352)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(344
                         (nc$353)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(336
                               (k$860)
                               ((bit-test
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(335
                                      (r$861)
                                      ((if r$861
                                         (k$860 #f)
                                         (href #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(332
                                                   (r$862)
                                                   ((proc$347 k$860 r$862))
                                                   #f))
                                               harr$346
                                               (Cyc-fast-sub
                                                 (car (vector-ref cell$345 2))
                                                 3)
                                               (Cyc-fast-sub
                                                 (cdr (vector-ref cell$345 2))
                                                 1))))
                                      #f))
                                  walls$348
                                  south-west))
                               #t))
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(331
                               (r$819)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(330
                                     (k$856)
                                     ((bit-test
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(329
                                            (r$857)
                                            ((if r$857
                                               (k$856 #f)
                                               (href #((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(327
                                                         (r$858)
                                                         ((proc$347
                                                            k$856
                                                            r$858))
                                                         #f))
                                                     harr$346
                                                     (car (vector-ref
                                                            cell$345
                                                            2))
                                                     (Cyc-fast-sub
                                                       (cdr (vector-ref
                                                              cell$345
                                                              2))
                                                       2))))
                                            #f))
                                        walls$348
                                        south))
                                     #t))
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(326
                                     (r$820)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(325
                                           (k$851)
                                           ((bit-test
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(324
                                                  (r$852)
                                                  ((if r$852
                                                     (k$851 #f)
                                                     (href #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(321
                                                               (r$853)
                                                               ((proc$347
                                                                  k$851
                                                                  r$853))
                                                               #f))
                                                           harr$346
                                                           (Cyc-fast-plus
                                                             (car (vector-ref
                                                                    cell$345
                                                                    2))
                                                             3)
                                                           (Cyc-fast-sub
                                                             (cdr (vector-ref
                                                                    cell$345
                                                                    2))
                                                             1))))
                                                  #f))
                                              walls$348
                                              south-east))
                                           #t))
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(320
                                           (r$821)
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(319
                                                 (k$840)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(318
                                                       (k$847)
                                                       ((if (Cyc-fast-gt
                                                              (car (vector-ref
                                                                     cell$345
                                                                     2))
                                                              0)
                                                          (if (Cyc-fast-lte
                                                                (cdr (vector-ref
                                                                       cell$345
                                                                       2))
                                                                (Cyc-fast-mul
                                                                  2
                                                                  (Cyc-fast-sub
                                                                    nr$352
                                                                    1)))
                                                            (k$847 (Cyc-fast-lte
                                                                     (cdr (vector-ref
                                                                            cell$345
                                                                            2))
                                                                     (Cyc-fast-mul
                                                                       2
                                                                       (Cyc-fast-sub
                                                                         nr$352
                                                                         1))))
                                                            (mod #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(314
                                                                     (r$850)
                                                                     ((k$847 (zero?__inline__
                                                                               r$850)))
                                                                     #f))
                                                                 (car (vector-ref
                                                                        cell$345
                                                                        2))
                                                                 6))
                                                          (k$847 #f)))
                                                       #t))
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(313
                                                       (r$841)
                                                       ((if r$841
                                                          (href #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(309
                                                                    (nw$359)
                                                                    ((#((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(308
                                                                          (r$844)
                                                                          ((bit-test
                                                                             #((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(307
                                                                                 (r$843)
                                                                                 ((if r$843
                                                                                    (k$840 #f)
                                                                                    (proc$347
                                                                                      k$840
                                                                                      nw$359)))
                                                                                 #f))
                                                                             r$844
                                                                             south-east))
                                                                          #f))
                                                                      (vector-ref
                                                                        nw$359
                                                                        3)))
                                                                    #f))
                                                                harr$346
                                                                (Cyc-fast-sub
                                                                  (car (vector-ref
                                                                         cell$345
                                                                         2))
                                                                  3)
                                                                (Cyc-fast-plus
                                                                  (cdr (vector-ref
                                                                         cell$345
                                                                         2))
                                                                  1))
                                                          (k$840 #f)))
                                                       #f))))
                                                 #t))
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(306
                                                 (r$822)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(305
                                                       (k$834)
                                                       ((if (Cyc-fast-lt
                                                              (cdr (vector-ref
                                                                     cell$345
                                                                     2))
                                                              (Cyc-fast-mul
                                                                2
                                                                (Cyc-fast-sub
                                                                  nr$352
                                                                  1)))
                                                          (href #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(301
                                                                    (n$358)
                                                                    ((#((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(300
                                                                          (r$838)
                                                                          ((bit-test
                                                                             #((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(299
                                                                                 (r$837)
                                                                                 ((if r$837
                                                                                    (k$834 #f)
                                                                                    (proc$347
                                                                                      k$834
                                                                                      n$358)))
                                                                                 #f))
                                                                             r$838
                                                                             south))
                                                                          #f))
                                                                      (vector-ref
                                                                        n$358
                                                                        3)))
                                                                    #f))
                                                                harr$346
                                                                (car (vector-ref
                                                                       cell$345
                                                                       2))
                                                                (Cyc-fast-plus
                                                                  (cdr (vector-ref
                                                                         cell$345
                                                                         2))
                                                                  2))
                                                          (k$834 #f)))
                                                       #t))
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(298
                                                       (r$823)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(297
                                                             (k$830)
                                                             ((if (Cyc-fast-lt
                                                                    (car (vector-ref
                                                                           cell$345
                                                                           2))
                                                                    (Cyc-fast-mul
                                                                      3
                                                                      (Cyc-fast-sub
                                                                        nc$353
                                                                        1)))
                                                                (if (Cyc-fast-lte
                                                                      (cdr (vector-ref
                                                                             cell$345
                                                                             2))
                                                                      (Cyc-fast-mul
                                                                        2
                                                                        (Cyc-fast-sub
                                                                          nr$352
                                                                          1)))
                                                                  (k$830 (Cyc-fast-lte
                                                                           (cdr (vector-ref
                                                                                  cell$345
                                                                                  2))
                                                                           (Cyc-fast-mul
                                                                             2
                                                                             (Cyc-fast-sub
                                                                               nr$352
                                                                               1))))
                                                                  (mod #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(293
                                                                           (r$833)
                                                                           ((k$830 (zero?__inline__
                                                                                     r$833)))
                                                                           #f))
                                                                       (car (vector-ref
                                                                              cell$345
                                                                              2))
                                                                       6))
                                                                (k$830 #f)))
                                                             #t))
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(292
                                                             (r$824)
                                                             ((if r$824
                                                                (href #((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(288
                                                                          (ne$356)
                                                                          ((#((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(287
                                                                                (r$827)
                                                                                ((bit-test
                                                                                   #((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(286
                                                                                       (r$826)
                                                                                       ((if r$826
                                                                                          (k$810 #f)
                                                                                          (proc$347
                                                                                            k$810
                                                                                            ne$356)))
                                                                                       #f))
                                                                                   r$827
                                                                                   south-west))
                                                                                #f))
                                                                            (vector-ref
                                                                              ne$356
                                                                              3)))
                                                                          #f))
                                                                      harr$346
                                                                      (Cyc-fast-plus
                                                                        (car (vector-ref
                                                                               cell$345
                                                                               2))
                                                                        3)
                                                                      (Cyc-fast-plus
                                                                        (cdr (vector-ref
                                                                               cell$345
                                                                               2))
                                                                        1))
                                                                (k$810 #f)))
                                                             #f))))
                                                       #f))))
                                                 #f))))
                                           #f))))
                                     #f))))
                               #f))))
                         #f))
                     (vector-ref harr$346 2)))
                   #f))
               (vector-ref harr$346 1)))
             #f))
         (vector-ref cell$345 3)))
       #t)))
 (define make-maze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(285
       (k$789 nrows$337 ncols$336)
       ((gen-maze-array
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(283
              (cells$338)
              ((make-wall-vec
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(282
                     (r$806)
                     ((permute-vec!
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(279
                            (walls$339)
                            ((dig-maze
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(276
                                   (r$792)
                                   ((pick-entrances
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(274
                                          (result$340)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(271
                                                (entrance$342 exit$341)
                                                ((href/rc
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(269
                                                       (exit-cell$343)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(267
                                                             (walls$344)
                                                             ((href/rc
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(264
                                                                    (r$803)
                                                                    ((reroot-maze
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(263
                                                                           (r$798)
                                                                           ((mark-path
                                                                              #((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(262
                                                                                  (r$799)
                                                                                  ((bitwise-not
                                                                                     #((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(261
                                                                                         (r$802)
                                                                                         ((bitwise-and
                                                                                            #((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(260
                                                                                                (r$801)
                                                                                                ((#((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(259
                                                                                                      (r$800)
                                                                                                      ((vector
                                                                                                         k$789
                                                                                                         cells$338
                                                                                                         entrance$342
                                                                                                         exit$341))
                                                                                                      #f))
                                                                                                  (vector-set!
                                                                                                    exit-cell$343
                                                                                                    3
                                                                                                    r$801)))
                                                                                                #f))
                                                                                            walls$344
                                                                                            r$802))
                                                                                         #f))
                                                                                     south))
                                                                                  #f))
                                                                              exit-cell$343))
                                                                           #f))
                                                                       r$803))
                                                                    #f))
                                                                cells$338
                                                                (Cyc-fast-sub
                                                                  nrows$337
                                                                  1)
                                                                entrance$342))
                                                             #f))
                                                         (vector-ref
                                                           exit-cell$343
                                                           3)))
                                                       #f))
                                                   cells$338
                                                   0
                                                   exit$341))
                                                #f))
                                            (vector-ref result$340 0)
                                            (vector-ref result$340 1)))
                                          #f))
                                      cells$338))
                                   #f))
                               walls$339
                               (Cyc-fast-mul nrows$337 ncols$336)))
                            #f))
                        r$806
                        (cons 20 #f)))
                     #f))
                 cells$338))
              #f))
          nrows$337
          ncols$336))
       #t)))
 (define pmaze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(258
       (k$782 nrows$331 ncols$330)
       ((make-maze
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(256
              (result$332)
              ((#((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(252
                    (cells$335 entrance$334 exit$333)
                    ((print-hexmaze k$782 cells$335 entrance$334))
                    #f))
                (vector-ref result$332 0)
                (vector-ref result$332 1)
                (vector-ref result$332 2)))
              #f))
          nrows$331
          ncols$330))
       #t)))
 (define output #f)
 (define write-ch
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(251
       (k$776 c$329)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(250 (r$777) ((k$776 (set! output r$777))) #f))
         (cons c$329 output)))
       #t)))
 (define print-hexmaze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(249
       (k$683 harr$305 entrance$304)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(247
             (nrows$306)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(245
                   (ncols$307)
                   ((div #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(244
                             (r$773)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(239
                                   (lp$188$326)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(225
                                         (r$761)
                                         ((lp$188$326
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(224
                                                (r$687)
                                                ((write-ch
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(223
                                                       (r$688)
                                                       ((write-ch
                                                          #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(222
                                                              (r$689)
                                                              ((#((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(220
                                                                    (lp$192$322)
                                                                    ((#((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(203
                                                                          (r$746)
                                                                          ((lp$192$322
                                                                             #((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(202
                                                                                 (r$690)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(201
                                                                                       (k$740)
                                                                                       ((odd? #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(200
                                                                                                  (r$741)
                                                                                                  ((if r$741
                                                                                                     (#((record-marker)
                                                                                                        #((record-marker)
                                                                                                          #f
                                                                                                          (id args
                                                                                                              body
                                                                                                              has-cont))
                                                                                                        #(199
                                                                                                          (k$743)
                                                                                                          ((if (Cyc-fast-eq
                                                                                                                 entrance$304
                                                                                                                 (Cyc-fast-sub
                                                                                                                   ncols$307
                                                                                                                   1))
                                                                                                             (k$743 #\space)
                                                                                                             (k$743 #\_)))
                                                                                                          #t))
                                                                                                      #((record-marker)
                                                                                                        #((record-marker)
                                                                                                          #f
                                                                                                          (id args
                                                                                                              body
                                                                                                              has-cont))
                                                                                                        #(196
                                                                                                          (r$742)
                                                                                                          ((write-ch
                                                                                                             k$740
                                                                                                             r$742))
                                                                                                          #f)))
                                                                                                     (k$740 #f)))
                                                                                                  #f))
                                                                                              ncols$307))
                                                                                       #t))
                                                                                   #((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(195
                                                                                       (r$691)
                                                                                       ((write-ch
                                                                                          #((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(194
                                                                                              (r$692)
                                                                                              ((#((record-marker)
                                                                                                  #((record-marker)
                                                                                                    #f
                                                                                                    (id args
                                                                                                        body
                                                                                                        has-cont))
                                                                                                  #(191
                                                                                                    (lp$196$310)
                                                                                                    ((#((record-marker)
                                                                                                        #((record-marker)
                                                                                                          #f
                                                                                                          (id args
                                                                                                              body
                                                                                                              has-cont))
                                                                                                        #(132
                                                                                                          (r$694)
                                                                                                          ((lp$196$310
                                                                                                             k$683
                                                                                                             (Cyc-fast-sub
                                                                                                               nrows$306
                                                                                                               1)))
                                                                                                          #f))
                                                                                                      (set! lp$196$310
                                                                                                        #((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(190
                                                                                                            (k$696 r$311)
                                                                                                            ((if (Cyc-fast-lt
                                                                                                                   r$311
                                                                                                                   0)
                                                                                                               (k$696 (Cyc-fast-lt
                                                                                                                        r$311
                                                                                                                        0))
                                                                                                               (write-ch
                                                                                                                 #((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(186
                                                                                                                     (r$698)
                                                                                                                     ((#((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(184
                                                                                                                           (lp$200$318)
                                                                                                                           ((#((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(171
                                                                                                                                 (r$729)
                                                                                                                                 ((lp$200$318
                                                                                                                                    #((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(170
                                                                                                                                        (r$699)
                                                                                                                                        ((#((record-marker)
                                                                                                                                            #((record-marker)
                                                                                                                                              #f
                                                                                                                                              (id args
                                                                                                                                                  body
                                                                                                                                                  has-cont))
                                                                                                                                            #(169
                                                                                                                                              (k$724)
                                                                                                                                              ((odd? #((record-marker)
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #f
                                                                                                                                                         (id args
                                                                                                                                                             body
                                                                                                                                                             has-cont))
                                                                                                                                                       #(168
                                                                                                                                                         (r$725)
                                                                                                                                                         ((if r$725
                                                                                                                                                            (dot/space
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(165
                                                                                                                                                                  (r$727)
                                                                                                                                                                  ((write-ch
                                                                                                                                                                     #((record-marker)
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #f
                                                                                                                                                                         (id args
                                                                                                                                                                             body
                                                                                                                                                                             has-cont))
                                                                                                                                                                       #(164
                                                                                                                                                                         (r$726)
                                                                                                                                                                         ((write-ch
                                                                                                                                                                            k$724
                                                                                                                                                                            #\\))
                                                                                                                                                                         #f))
                                                                                                                                                                     r$727))
                                                                                                                                                                  #f))
                                                                                                                                                              harr$305
                                                                                                                                                              r$311
                                                                                                                                                              (Cyc-fast-sub
                                                                                                                                                                ncols$307
                                                                                                                                                                1))
                                                                                                                                                            (k$724 #f)))
                                                                                                                                                         #f))
                                                                                                                                                     ncols$307))
                                                                                                                                              #t))
                                                                                                                                          #((record-marker)
                                                                                                                                            #((record-marker)
                                                                                                                                              #f
                                                                                                                                              (id args
                                                                                                                                                  body
                                                                                                                                                  has-cont))
                                                                                                                                            #(163
                                                                                                                                              (r$700)
                                                                                                                                              ((write-ch
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #f
                                                                                                                                                     (id args
                                                                                                                                                         body
                                                                                                                                                         has-cont))
                                                                                                                                                   #(162
                                                                                                                                                     (r$701)
                                                                                                                                                     ((#((record-marker)
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #f
                                                                                                                                                           (id args
                                                                                                                                                               body
                                                                                                                                                               has-cont))
                                                                                                                                                         #(160
                                                                                                                                                           (lp$207$314)
                                                                                                                                                           ((#((record-marker)
                                                                                                                                                               #((record-marker)
                                                                                                                                                                 #f
                                                                                                                                                                 (id args
                                                                                                                                                                     body
                                                                                                                                                                     has-cont))
                                                                                                                                                               #(146
                                                                                                                                                                 (r$712)
                                                                                                                                                                 ((lp$207$314
                                                                                                                                                                    #((record-marker)
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #f
                                                                                                                                                                        (id args
                                                                                                                                                                            body
                                                                                                                                                                            has-cont))
                                                                                                                                                                      #(145
                                                                                                                                                                        (r$702)
                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(144
                                                                                                                                                                              (k$706)
                                                                                                                                                                              ((odd? #((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(143
                                                                                                                                                                                         (r$707)
                                                                                                                                                                                         ((if r$707
                                                                                                                                                                                            (href/rc
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                  #f
                                                                                                                                                                                                  (id args
                                                                                                                                                                                                      body
                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                #(138
                                                                                                                                                                                                  (r$709)
                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                        #f
                                                                                                                                                                                                        (id args
                                                                                                                                                                                                            body
                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                      #(137
                                                                                                                                                                                                        (r$708)
                                                                                                                                                                                                        ((display-hexbottom
                                                                                                                                                                                                           k$706
                                                                                                                                                                                                           r$708))
                                                                                                                                                                                                        #f))
                                                                                                                                                                                                    (vector-ref
                                                                                                                                                                                                      r$709
                                                                                                                                                                                                      3)))
                                                                                                                                                                                                  #f))
                                                                                                                                                                                              harr$305
                                                                                                                                                                                              r$311
                                                                                                                                                                                              (Cyc-fast-sub
                                                                                                                                                                                                ncols$307
                                                                                                                                                                                                1))
                                                                                                                                                                                            (if (zero?__inline__
                                                                                                                                                                                                  r$311)
                                                                                                                                                                                              (k$706 #f)
                                                                                                                                                                                              (write-ch
                                                                                                                                                                                                k$706
                                                                                                                                                                                                #\\))))
                                                                                                                                                                                         #f))
                                                                                                                                                                                     ncols$307))
                                                                                                                                                                              #t))
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(136
                                                                                                                                                                              (r$703)
                                                                                                                                                                              ((write-ch
                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                     #f
                                                                                                                                                                                     (id args
                                                                                                                                                                                         body
                                                                                                                                                                                         has-cont))
                                                                                                                                                                                   #(135
                                                                                                                                                                                     (r$704)
                                                                                                                                                                                     ((lp$196$310
                                                                                                                                                                                        k$696
                                                                                                                                                                                        (Cyc-fast-sub
                                                                                                                                                                                          r$311
                                                                                                                                                                                          1)))
                                                                                                                                                                                     #f))
                                                                                                                                                                                 #\newline))
                                                                                                                                                                              #f))))
                                                                                                                                                                        #f))
                                                                                                                                                                    0))
                                                                                                                                                                 #f))
                                                                                                                                                             (set! lp$207$314
                                                                                                                                                               #((record-marker)
                                                                                                                                                                 #((record-marker)
                                                                                                                                                                   #f
                                                                                                                                                                   (id args
                                                                                                                                                                       body
                                                                                                                                                                       has-cont))
                                                                                                                                                                 #(159
                                                                                                                                                                   (k$714 c$315)
                                                                                                                                                                   ((if (Cyc-fast-gte
                                                                                                                                                                          c$315
                                                                                                                                                                          (Cyc-fast-mul
                                                                                                                                                                            2
                                                                                                                                                                            r$773))
                                                                                                                                                                      (k$714 (Cyc-fast-gte
                                                                                                                                                                               c$315
                                                                                                                                                                               (Cyc-fast-mul
                                                                                                                                                                                 2
                                                                                                                                                                                 r$773)))
                                                                                                                                                                      (href/rc
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #f
                                                                                                                                                                            (id args
                                                                                                                                                                                body
                                                                                                                                                                                has-cont))
                                                                                                                                                                          #(155
                                                                                                                                                                            (r$723)
                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(154
                                                                                                                                                                                  (r$722)
                                                                                                                                                                                  ((display-hexbottom
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(153
                                                                                                                                                                                         (r$716)
                                                                                                                                                                                         ((dot/space
                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #f
                                                                                                                                                                                                (id args
                                                                                                                                                                                                    body
                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                              #(150
                                                                                                                                                                                                (r$719)
                                                                                                                                                                                                ((write-ch
                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                       #f
                                                                                                                                                                                                       (id args
                                                                                                                                                                                                           body
                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                     #(149
                                                                                                                                                                                                       (r$717)
                                                                                                                                                                                                       ((lp$207$314
                                                                                                                                                                                                          k$714
                                                                                                                                                                                                          (Cyc-fast-plus
                                                                                                                                                                                                            c$315
                                                                                                                                                                                                            2)))
                                                                                                                                                                                                       #f))
                                                                                                                                                                                                   r$719))
                                                                                                                                                                                                #f))
                                                                                                                                                                                            harr$305
                                                                                                                                                                                            (Cyc-fast-sub
                                                                                                                                                                                              r$311
                                                                                                                                                                                              1)
                                                                                                                                                                                            (Cyc-fast-plus
                                                                                                                                                                                              c$315
                                                                                                                                                                                              1)))
                                                                                                                                                                                         #f))
                                                                                                                                                                                     r$722))
                                                                                                                                                                                  #f))
                                                                                                                                                                              (vector-ref
                                                                                                                                                                                r$723
                                                                                                                                                                                3)))
                                                                                                                                                                            #f))
                                                                                                                                                                        harr$305
                                                                                                                                                                        r$311
                                                                                                                                                                        c$315)))
                                                                                                                                                                   #t)))))
                                                                                                                                                           #f))
                                                                                                                                                       #f))
                                                                                                                                                     #f))
                                                                                                                                                 #\newline))
                                                                                                                                              #f))))
                                                                                                                                        #f))
                                                                                                                                    1))
                                                                                                                                 #f))
                                                                                                                             (set! lp$200$318
                                                                                                                               #((record-marker)
                                                                                                                                 #((record-marker)
                                                                                                                                   #f
                                                                                                                                   (id args
                                                                                                                                       body
                                                                                                                                       has-cont))
                                                                                                                                 #(183
                                                                                                                                   (k$731 c$319)
                                                                                                                                   ((if (Cyc-fast-gte
                                                                                                                                          c$319
                                                                                                                                          (Cyc-fast-mul
                                                                                                                                            2
                                                                                                                                            r$773))
                                                                                                                                      (k$731 (Cyc-fast-gte
                                                                                                                                               c$319
                                                                                                                                               (Cyc-fast-mul
                                                                                                                                                 2
                                                                                                                                                 r$773)))
                                                                                                                                      (dot/space
                                                                                                                                        #((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(178
                                                                                                                                            (r$738)
                                                                                                                                            ((write-ch
                                                                                                                                               #((record-marker)
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #f
                                                                                                                                                   (id args
                                                                                                                                                       body
                                                                                                                                                       has-cont))
                                                                                                                                                 #(177
                                                                                                                                                   (r$733)
                                                                                                                                                   ((href/rc
                                                                                                                                                      #((record-marker)
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #f
                                                                                                                                                          (id args
                                                                                                                                                              body
                                                                                                                                                              has-cont))
                                                                                                                                                        #(176
                                                                                                                                                          (r$737)
                                                                                                                                                          ((#((record-marker)
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #f
                                                                                                                                                                (id args
                                                                                                                                                                    body
                                                                                                                                                                    has-cont))
                                                                                                                                                              #(175
                                                                                                                                                                (r$736)
                                                                                                                                                                ((display-hexbottom
                                                                                                                                                                   #((record-marker)
                                                                                                                                                                     #((record-marker)
                                                                                                                                                                       #f
                                                                                                                                                                       (id args
                                                                                                                                                                           body
                                                                                                                                                                           has-cont))
                                                                                                                                                                     #(174
                                                                                                                                                                       (r$734)
                                                                                                                                                                       ((lp$200$318
                                                                                                                                                                          k$731
                                                                                                                                                                          (Cyc-fast-plus
                                                                                                                                                                            c$319
                                                                                                                                                                            2)))
                                                                                                                                                                       #f))
                                                                                                                                                                   r$736))
                                                                                                                                                                #f))
                                                                                                                                                            (vector-ref
                                                                                                                                                              r$737
                                                                                                                                                              3)))
                                                                                                                                                          #f))
                                                                                                                                                      harr$305
                                                                                                                                                      r$311
                                                                                                                                                      c$319))
                                                                                                                                                   #f))
                                                                                                                                               r$738))
                                                                                                                                            #f))
                                                                                                                                        harr$305
                                                                                                                                        r$311
                                                                                                                                        (Cyc-fast-sub
                                                                                                                                          c$319
                                                                                                                                          1))))
                                                                                                                                   #t)))))
                                                                                                                           #f))
                                                                                                                       #f))
                                                                                                                     #f))
                                                                                                                 #\/)))
                                                                                                            #t)))))
                                                                                                    #f))
                                                                                                #f))
                                                                                              #f))
                                                                                          #\newline))
                                                                                       #f))))
                                                                                 #f))
                                                                             0))
                                                                          #f))
                                                                      (set! lp$192$322
                                                                        #((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(219
                                                                            (k$748 c$323)
                                                                            ((if (Cyc-fast-gte
                                                                                   c$323
                                                                                   (Cyc-fast-mul
                                                                                     2
                                                                                     r$773))
                                                                               (k$748 (Cyc-fast-gte
                                                                                        c$323
                                                                                        (Cyc-fast-mul
                                                                                          2
                                                                                          r$773)))
                                                                               (#((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(215
                                                                                    (k$759)
                                                                                    ((if (Cyc-fast-eq
                                                                                           c$323
                                                                                           entrance$304)
                                                                                       (k$759 #\space)
                                                                                       (k$759 #\_)))
                                                                                    #t))
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(213
                                                                                    (r$758)
                                                                                    ((write-ch
                                                                                       #((record-marker)
                                                                                         #((record-marker)
                                                                                           #f
                                                                                           (id args
                                                                                               body
                                                                                               has-cont))
                                                                                         #(212
                                                                                           (r$750)
                                                                                           ((write-ch
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(211
                                                                                                  (r$751)
                                                                                                  ((dot/space
                                                                                                     #((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(208
                                                                                                         (r$755)
                                                                                                         ((write-ch
                                                                                                            #((record-marker)
                                                                                                              #((record-marker)
                                                                                                                #f
                                                                                                                (id args
                                                                                                                    body
                                                                                                                    has-cont))
                                                                                                              #(207
                                                                                                                (r$752)
                                                                                                                ((write-ch
                                                                                                                   #((record-marker)
                                                                                                                     #((record-marker)
                                                                                                                       #f
                                                                                                                       (id args
                                                                                                                           body
                                                                                                                           has-cont))
                                                                                                                     #(206
                                                                                                                       (r$753)
                                                                                                                       ((lp$192$322
                                                                                                                          k$748
                                                                                                                          (Cyc-fast-plus
                                                                                                                            c$323
                                                                                                                            2)))
                                                                                                                       #f))
                                                                                                                   #\\))
                                                                                                                #f))
                                                                                                            r$755))
                                                                                                         #f))
                                                                                                     harr$305
                                                                                                     (Cyc-fast-sub
                                                                                                       nrows$306
                                                                                                       1)
                                                                                                     (Cyc-fast-plus
                                                                                                       c$323
                                                                                                       1)))
                                                                                                  #f))
                                                                                              #\/))
                                                                                           #f))
                                                                                       r$758))
                                                                                    #f)))))
                                                                            #t)))))
                                                                    #f))
                                                                #f))
                                                              #f))
                                                          #\space))
                                                       #f))
                                                   #\newline))
                                                #f))
                                            1))
                                         #f))
                                     (set! lp$188$326
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(238
                                           (k$763 c$327)
                                           ((if (Cyc-fast-gte c$327 ncols$307)
                                              (k$763 (Cyc-fast-gte
                                                       c$327
                                                       ncols$307))
                                              (write-ch
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(234
                                                    (r$765)
                                                    ((write-ch
                                                       #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(233
                                                           (r$766)
                                                           ((write-ch
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(232
                                                                  (r$767)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(231
                                                                        (k$771)
                                                                        ((if (Cyc-fast-eq
                                                                               c$327
                                                                               entrance$304)
                                                                           (k$771 #\space)
                                                                           (k$771 #\_)))
                                                                        #t))
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(229
                                                                        (r$770)
                                                                        ((write-ch
                                                                           #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(228
                                                                               (r$768)
                                                                               ((lp$188$326
                                                                                  k$763
                                                                                  (Cyc-fast-plus
                                                                                    c$327
                                                                                    2)))
                                                                               #f))
                                                                           r$770))
                                                                        #f))))
                                                                  #f))
                                                              #\space))
                                                           #f))
                                                       #\space))
                                                    #f))
                                                #\space)))
                                           #t)))))
                                   #f))
                               #f))
                             #f))
                         ncols$307
                         2))
                   #f))
               (vector-ref harr$305 2)))
             #f))
         (vector-ref harr$305 1)))
       #t)))
 (define bit-test
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(131
       (k$678 j$303 bit$302)
       ((bitwise-and
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(130
              (r$680)
              ((k$678 (not__inline__ (zero?__inline__ r$680))))
              #f))
          j$303
          bit$302))
       #t)))
 (define dot/space
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(128
       (k$671 harr$301 r$300 c$299)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(127
             (k$673)
             ((if (Cyc-fast-gte r$300 0)
                (href/rc
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(125 (r$675) ((k$673 (vector-ref r$675 5))) #f))
                  harr$301
                  r$300
                  c$299)
                (k$673 #f)))
             #t))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(124
             (r$672)
             ((if r$672 (k$671 #\.) (k$671 #\space)))
             #f))))
       #t)))
 (define display-hexbottom
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(123
       (k$657 hexwalls$298)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(122
             (k$667)
             ((bit-test
                #((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(121
                    (r$668)
                    ((if r$668 (k$667 #\\) (k$667 #\space)))
                    #f))
                hexwalls$298
                south-west))
             #t))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(120
             (r$666)
             ((write-ch
                #((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(119
                    (r$658)
                    ((#((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(118
                          (k$664)
                          ((bit-test
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(117
                                 (r$665)
                                 ((if r$665 (k$664 #\_) (k$664 #\space)))
                                 #f))
                             hexwalls$298
                             south))
                          #t))
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(116
                          (r$663)
                          ((write-ch
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(115
                                 (r$659)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(114
                                       (k$661)
                                       ((bit-test
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(113
                                              (r$662)
                                              ((if r$662
                                                 (k$661 #\/)
                                                 (k$661 #\space)))
                                              #f))
                                          hexwalls$298
                                          south-east))
                                       #t))
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(112
                                       (r$660)
                                       ((write-ch k$657 r$660))
                                       #f))))
                                 #f))
                             r$663))
                          #f))))
                    #f))
                r$666))
             #f))))
       #t)))
 (define run
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(111
       (k$651 nrows$297 ncols$296)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(109
             (r$652)
             ((pmaze #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(108 (r$653) ((reverse k$651 output)) #f))
                     nrows$297
                     ncols$296))
             #f))
         (set! output '())))
       #t)))
 (define main
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(107
       (k$634)
       ((read #((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(105
                  (count$287)
                  ((read #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(103
                             (input1$288)
                             ((read #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(101
                                        (input2$289)
                                        ((read #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(99
                                                   (output$290)
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(97
                                                         (s3$291)
                                                         ((#((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(95
                                                               (s2$292)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(93
                                                                     (s1$293)
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(90
                                                                           (r$642)
                                                                           ((run-r7rs-benchmark
                                                                              k$634
                                                                              r$642
                                                                              count$287
                                                                              #((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(89
                                                                                  (k$646)
                                                                                  ((hide #((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(88
                                                                                             (r$647)
                                                                                             ((hide #((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(87
                                                                                                        (r$648)
                                                                                                        ((run k$646
                                                                                                              r$647
                                                                                                              r$648))
                                                                                                        #f))
                                                                                                    count$287
                                                                                                    input2$289))
                                                                                             #f))
                                                                                         count$287
                                                                                         input1$288))
                                                                                  #t))
                                                                              #((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(85
                                                                                  (k$645 result$295)
                                                                                  ((k$645 (equal?
                                                                                            result$295
                                                                                            output$290)))
                                                                                  #t))))
                                                                           #f))
                                                                       (string-append
                                                                         "maze"
                                                                         ":"
                                                                         s1$293
                                                                         ":"
                                                                         s2$292
                                                                         ":"
                                                                         s3$291)))
                                                                     #f))
                                                                 (number->string
                                                                   input1$288)))
                                                               #f))
                                                           (number->string
                                                             input2$289)))
                                                         #f))
                                                     (number->string
                                                       count$287)))
                                                   #f))))
                                        #f))))
                             #f))))
                  #f))))
       #t)))
 (define hide
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(83
       (k$620 r$283 x$282)
       ((call-with-values
          k$620
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(82
              (k$625)
              ((vector
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(79
                     (r$626)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(78
                           (k$628)
                           ((if (Cyc-fast-lt r$283 100) (k$628 0) (k$628 1)))
                           #t))
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(76 (r$627) ((values k$625 r$626 r$627)) #f))))
                     #f))
                 values
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(81 (k$631 x$286) ((k$631 x$286)) #t))))
              #t))
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(74
              (k$623 v$285 i$284)
              (((vector-ref v$285 i$284) k$623 x$282))
              #t))))
       #t)))
 (define run-r7rs-benchmark
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(71
       (k$568 name$264 count$263 thunk$262 ok?$261)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(70
             (rounded$266)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(64
                   (r$569)
                   ((display
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(63
                          (r$570)
                          ((display
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(62
                                 (r$571)
                                 ((newline
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(61
                                        (r$572)
                                        ((current-output-port
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(60
                                               (r$613)
                                               ((flush-output-port
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(59
                                                      (r$573)
                                                      ((jiffies-per-second
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(57
                                                             (j/s$268)
                                                             ((current-second
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(55
                                                                    (t0$269)
                                                                    ((current-jiffy
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(53
                                                                           (j0$270)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(50
                                                                                 (loop$273)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(5
                                                                                       (r$577)
                                                                                       ((loop$273
                                                                                          k$568
                                                                                          0
                                                                                          #f))
                                                                                       #f))
                                                                                   (set! loop$273
                                                                                     #((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(49
                                                                                         (k$579 i$275
                                                                                                result$274)
                                                                                         ((if (Cyc-fast-lt
                                                                                                i$275
                                                                                                count$263)
                                                                                            (thunk$262
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(7
                                                                                                  (r$582)
                                                                                                  ((loop$273
                                                                                                     k$579
                                                                                                     (Cyc-fast-plus
                                                                                                       i$275
                                                                                                       1)
                                                                                                     r$582))
                                                                                                  #f)))
                                                                                            (ok?$261
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(47
                                                                                                  (r$583)
                                                                                                  ((if r$583
                                                                                                     (current-jiffy
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(38
                                                                                                           (j1$276)
                                                                                                           ((current-second
                                                                                                              #((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(36
                                                                                                                  (t1$277)
                                                                                                                  ((rounded$266
                                                                                                                     #((record-marker)
                                                                                                                       #((record-marker)
                                                                                                                         #f
                                                                                                                         (id args
                                                                                                                             body
                                                                                                                             has-cont))
                                                                                                                       #(28
                                                                                                                         (secs2$280)
                                                                                                                         ((display
                                                                                                                            #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(26
                                                                                                                                (r$590)
                                                                                                                                ((write #((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(25
                                                                                                                                            (r$591)
                                                                                                                                            ((display
                                                                                                                                               #((record-marker)
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #f
                                                                                                                                                   (id args
                                                                                                                                                       body
                                                                                                                                                       has-cont))
                                                                                                                                                 #(24
                                                                                                                                                   (r$592)
                                                                                                                                                   ((write #((record-marker)
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #f
                                                                                                                                                               (id args
                                                                                                                                                                   body
                                                                                                                                                                   has-cont))
                                                                                                                                                             #(23
                                                                                                                                                               (r$593)
                                                                                                                                                               ((display
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #((record-marker)
                                                                                                                                                                      #f
                                                                                                                                                                      (id args
                                                                                                                                                                          body
                                                                                                                                                                          has-cont))
                                                                                                                                                                    #(22
                                                                                                                                                                      (r$594)
                                                                                                                                                                      ((display
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #((record-marker)
                                                                                                                                                                             #f
                                                                                                                                                                             (id args
                                                                                                                                                                                 body
                                                                                                                                                                                 has-cont))
                                                                                                                                                                           #(21
                                                                                                                                                                             (r$595)
                                                                                                                                                                             ((newline
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(20
                                                                                                                                                                                    (r$596)
                                                                                                                                                                                    ((display
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                           #f
                                                                                                                                                                                           (id args
                                                                                                                                                                                               body
                                                                                                                                                                                               has-cont))
                                                                                                                                                                                         #(19
                                                                                                                                                                                           (r$597)
                                                                                                                                                                                           ((this-scheme-implementation-name
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                  #f
                                                                                                                                                                                                  (id args
                                                                                                                                                                                                      body
                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                #(18
                                                                                                                                                                                                  (r$605)
                                                                                                                                                                                                  ((display
                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                         #f
                                                                                                                                                                                                         (id args
                                                                                                                                                                                                             body
                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                       #(17
                                                                                                                                                                                                         (r$598)
                                                                                                                                                                                                         ((display
                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                #f
                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                    body
                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                              #(16
                                                                                                                                                                                                                (r$599)
                                                                                                                                                                                                                ((display
                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                           body
                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                     #(15
                                                                                                                                                                                                                       (r$600)
                                                                                                                                                                                                                       ((display
                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                            #(14
                                                                                                                                                                                                                              (r$601)
                                                                                                                                                                                                                              ((display
                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                   #(13
                                                                                                                                                                                                                                     (r$602)
                                                                                                                                                                                                                                     ((newline
                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                          #(12
                                                                                                                                                                                                                                            (r$603)
                                                                                                                                                                                                                                            ((current-output-port
                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                 #(11
                                                                                                                                                                                                                                                   (r$604)
                                                                                                                                                                                                                                                   ((flush-output-port
                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                        #(10
                                                                                                                                                                                                                                                          (r$584)
                                                                                                                                                                                                                                                          ((k$579 result$274))
                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                      r$604))
                                                                                                                                                                                                                                                   #f))))
                                                                                                                                                                                                                                            #f))))
                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                 (inexact__inline__
                                                                                                                                                                                                                                   (Cyc-fast-div
                                                                                                                                                                                                                                     (Cyc-fast-sub
                                                                                                                                                                                                                                       j1$276
                                                                                                                                                                                                                                       j0$270)
                                                                                                                                                                                                                                     j/s$268))))
                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                          ","))
                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                   name$264))
                                                                                                                                                                                                                #f))
                                                                                                                                                                                                            ","))
                                                                                                                                                                                                         #f))
                                                                                                                                                                                                     r$605))
                                                                                                                                                                                                  #f))))
                                                                                                                                                                                           #f))
                                                                                                                                                                                       "+!CSVLINE!+"))
                                                                                                                                                                                    #f))))
                                                                                                                                                                             #f))
                                                                                                                                                                         name$264))
                                                                                                                                                                      #f))
                                                                                                                                                                  ") for "))
                                                                                                                                                               #f))
                                                                                                                                                           secs2$280))
                                                                                                                                                   #f))
                                                                                                                                               " seconds ("))
                                                                                                                                            #f))
                                                                                                                                        (inexact__inline__
                                                                                                                                          (Cyc-fast-div
                                                                                                                                            (Cyc-fast-sub
                                                                                                                                              j1$276
                                                                                                                                              j0$270)
                                                                                                                                            j/s$268))))
                                                                                                                                #f))
                                                                                                                            "Elapsed time: "))
                                                                                                                         #f))
                                                                                                                     (Cyc-fast-sub
                                                                                                                       t1$277
                                                                                                                       t0$269)))
                                                                                                                  #f))))
                                                                                                           #f)))
                                                                                                     (display
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(45
                                                                                                           (r$608)
                                                                                                           ((write #((record-marker)
                                                                                                                     #((record-marker)
                                                                                                                       #f
                                                                                                                       (id args
                                                                                                                           body
                                                                                                                           has-cont))
                                                                                                                     #(44
                                                                                                                       (r$609)
                                                                                                                       ((newline
                                                                                                                          #((record-marker)
                                                                                                                            #((record-marker)
                                                                                                                              #f
                                                                                                                              (id args
                                                                                                                                  body
                                                                                                                                  has-cont))
                                                                                                                            #(43
                                                                                                                              (r$610)
                                                                                                                              ((current-output-port
                                                                                                                                 #((record-marker)
                                                                                                                                   #((record-marker)
                                                                                                                                     #f
                                                                                                                                     (id args
                                                                                                                                         body
                                                                                                                                         has-cont))
                                                                                                                                   #(42
                                                                                                                                     (r$612)
                                                                                                                                     ((flush-output-port
                                                                                                                                        #((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(41
                                                                                                                                            (r$611)
                                                                                                                                            ((k$579 result$274))
                                                                                                                                            #f))
                                                                                                                                        r$612))
                                                                                                                                     #f))))
                                                                                                                              #f))))
                                                                                                                       #f))
                                                                                                                   result$274))
                                                                                                           #f))
                                                                                                       "ERROR: returned incorrect result: ")))
                                                                                                  #f))
                                                                                              result$274)))
                                                                                         #t)))))
                                                                                 #f))
                                                                             #f))
                                                                           #f))))
                                                                    #f))))
                                                             #f))))
                                                      #f))
                                                  r$613))
                                               #f))))
                                        #f))))
                                 #f))
                             name$264))
                          #f))
                      "Running "))
                   #f))
               (set! rounded$266
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(68
                     (k$615 x$281)
                     ((k$615 (Cyc-fast-div
                               (round__inline__ (Cyc-fast-mul 1000 x$281))
                               1000)))
                     #t)))))
             #f))
         #f))
       #t)))
 (define this-scheme-implementation-name
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(4
       (k$564)
       ((Cyc-version
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(3
              (r$565)
              ((k$564 (string-append "cyclone-" r$565)))
              #f))))
       #t)))
 (main %halt))
 */
/* 
"---------------- cps analysis db:"
 */
/* 
#((record-marker)
  #((record-marker)
    #f
    (size hash compare associate entries))
  #(1135
    #[procedure]
    #[procedure]
    #[procedure]
    #(()
      ()
      ()
      ((3
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((4
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((5
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((7
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((10
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((11
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((12
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((13
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$938 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 467 #f #f #f 2 (433 467) #f #f 1 1 #t #f #t)))
       (k$1131
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 638 #f #f #f 1 (638) #f #f 1 0 #t #f #t)))
       (14
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((15
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((16
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$1134
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 639 #f #f #f 1 (639) #f #f 1 0 #t #f #t)))
       (17
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((18
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((19
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$1137
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 640 #f #f #f 1 (640) #f #f 1 0 #t #f #t)))
       (20
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((21
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((path-length
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             561
             #f
             #f
             2
             (373 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(561
                  (k$1050 cell$449)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(560
                        (r$1051)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(559
                              (node$450)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(558
                                    (lp$105$452)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(553
                                          (r$1052)
                                          ((lp$105$452 k$1050 0 node$450))
                                          #f))
                                      (set! lp$105$452
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(557
                                            (k$1054 len$454 node$453)
                                            ((if node$453
                                               (#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(555
                                                    (r$1056)
                                                    ((lp$105$452
                                                       k$1054
                                                       (Cyc-fast-plus len$454 1)
                                                       r$1056))
                                                    #f))
                                                (vector-ref node$453 4))
                                               (k$1054 len$454)))
                                            #t)))))
                                    #f))
                                #f))
                              #f))
                          r$1051))
                        #f))
                    (vector-ref cell$449 4)))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (22
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((23
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((24
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((25
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((26
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((y$551 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  764
                  #f
                  #f
                  #f
                  11
                  (760 760 760 760 760 760 760 760 760 760 763)
                  #f
                  #f
                  0
                  11
                  #t
                  #f
                  #f))))
      ((28
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ()
      ((y$557 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  781
                  #f
                  #f
                  #f
                  5
                  (780 778 775 770 778)
                  #f
                  #f
                  0
                  5
                  #f
                  #f
                  #f))))
      ()
      ((c$315 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  159
                  #f
                  #f
                  #f
                  5
                  (159 153 149 159 159)
                  #f
                  #f
                  0
                  5
                  #t
                  #f
                  #f))))
      ((36
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$645 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 85 #f #f #f 1 (85) #f #f 1 0 #t #f #t))))
      ((k$646 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 89 #f #f #f 1 (87) #f #f 0 1 #f #f #t)))
       (38
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((c$319 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  183
                  #f
                  #f
                  #f
                  5
                  (183 177 174 183 183)
                  #f
                  #f
                  0
                  5
                  #t
                  #f
                  #f))))
      ()
      ((41
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((42
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((43
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((dfs-maze
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             580
             #f
             #f
             2
             (392 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(580
                  (k$1067 maze$464 root$463 do-children$462)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(579
                        (node$466)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(578
                              (search$467)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(571
                                    (r$1068)
                                    ((search$467 k$1067 node$466 #f))
                                    #f))
                                (set! search$467
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(577
                                      (k$1070 node$469 parent$468)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(576
                                            (r$1071)
                                            ((do-children$462
                                               k$1070
                                               #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(575
                                                   (k$1073 child$470)
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(574
                                                         (r$1074)
                                                         ((if r$1074
                                                            (k$1073 #f)
                                                            (search$467
                                                              k$1073
                                                              child$470
                                                              node$469)))
                                                         #f))
                                                     (eq? child$470
                                                          parent$468)))
                                                   #t))
                                               maze$464
                                               node$469))
                                            #f))
                                        (vector-set! node$469 4 parent$468)))
                                      #t)))))
                              #f))
                          #f))
                        #f))
                    root$463))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (44
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((45
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((47
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$945 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 457 #f #f #f 2 (437 457) #f #f 1 1 #t #f #t))))
      ((49
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (loop$273) #f))))
      ((k$1140
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 641 #f #f #f 1 (641) #f #f 1 0 #t #f #t)))
       (50
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((k$1143
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 642 #f #f #f 1 (642) #f #f 1 0 #t #f #t)))
       (53
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((55
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (nrows$418
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             525
             #f
             #f
             #f
             3
             (525 494 493)
             #f
             #f
             0
             3
             #t
             #t
             #f))))
      ((k$1146
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 643 #f #f #f 1 (643) #f #f 1 0 #t #f #t)))
       (zero?__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             5
             (130 143 293 314 451)
             #f
             #f
             5
             0
             #t
             #f
             #f))))
      ((57
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((k$1149
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 645 #f #f #f 1 (645) #f #f 0 1 #t #f #t)))
       (59
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((60
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((61
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((62
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((63
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((64
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((68
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (rounded$266) #f))))
      ()
      ((k$651 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 111 #f #f #f 1 (108) #f #f 0 1 #f #f #t)))
       (70
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (c$323 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  219
                  #f
                  #f
                  #f
                  5
                  (211 206 215 219 219)
                  #f
                  #f
                  0
                  5
                  #t
                  #f
                  #f))))
      ((make-harr
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             543
             #f
             #f
             2
             (493 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(543
                  (k$1038 nrows$443 ncols$442 elts$441)
                  ((vector
                     k$1038
                     'harr
                     nrows$443
                     ncols$442
                     elts$441))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (71
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((74
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (c$327 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  238
                  #f
                  #f
                  #f
                  4
                  (228 231 238 238)
                  #f
                  #f
                  0
                  4
                  #t
                  #f
                  #f))))
      ((thunk$262
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 71 #f #f #f 1 (49) #f #f 1 0 #f #f #f))))
      ((k$657 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 123 #f #f #f 1 (112) #f #f 0 1 #f #f #t)))
       (76
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$628) #f)))
       (c$329 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 251 #f #f #f 1 (251) #f #f 0 1 #t #f #f))))
      ()
      ((78
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((79
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((81
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$952 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  442
                  #f
                  #f
                  #f
                  2
                  (442 438)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(437
                      (r$947)
                      ((lp$136$408 k$945 (Cyc-fast-sub y$409 2)))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t)))
       (harr:ncols
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             540
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(540
                  (k$1032 o$439)
                  ((k$1032 (vector-ref o$439 2)))
                  #t)))
             0
             0
             #f
             #f
             #f)))
       (82
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((83
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((85
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((87
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((88
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (b$393 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 477 #f #f #f 1 (477) #f #f 0 1 #t #f #f))))
      ((k$959 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  451
                  #f
                  #f
                  #f
                  2
                  (447 451)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(446
                      (r$950)
                      ((href #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(444
                                 (r$957)
                                 ((add-wall$396
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(443
                                        (r$951)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(442
                                              (k$952)
                                              ((if (Cyc-fast-lt
                                                     x$405
                                                     (Cyc-fast-mul
                                                       3
                                                       (Cyc-fast-sub
                                                         ncols$390
                                                         1)))
                                                 (href #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(438
                                                           (r$954)
                                                           ((add-wall$396
                                                              k$952
                                                              hex$411
                                                              r$954
                                                              south-east))
                                                           #f))
                                                       harr$388
                                                       (Cyc-fast-plus x$405 3)
                                                       (Cyc-fast-sub y$409 1))
                                                 (k$952 #f)))
                                              #t))
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(437
                                              (r$947)
                                              ((lp$136$408
                                                 k$945
                                                 (Cyc-fast-sub y$409 2)))
                                              #f))))
                                        #f))
                                    hex$411
                                    r$957
                                    south))
                                 #f))
                             harr$388
                             x$405
                             (Cyc-fast-sub y$409 2)))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t)))
       (89
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$1153
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 646 #f #f #f 1 (646) #f #f 1 0 #t #f #t)))
       (90
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((k$1156
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 647 #f #f #f 1 (647) #f #f 1 0 #t #f #t)))
       (93
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (state$532
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 700 #f #f #f 1 (700) #f #f 0 1 #t #f #f))))
      ()
      ((95
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (state$534
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 717 #f #f #f 2 (717 703) #f #f 0 2 #f #t #f)))
       (v$482 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  622
                  #f
                  #f
                  #f
                  6
                  (622 616 612 611 610 605)
                  #f
                  #f
                  0
                  6
                  #f
                  #t
                  #f))))
      ((k$1159
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 648 #f #f #f 1 (648) #f #f 1 0 #t #f #t))))
      ((97
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((99
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((Cyc-version
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (4) #f #f 1 0 #f #f #f)))
       (get-set-root
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             696
             #f
             #f
             6
             (665 667 669 671 672 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(696
                  (k$1186 s$522)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(695
                        (r$523)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(694
                              (lp$524)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(673 (r$1187) ((lp$524 k$1186 r$523)) #f))
                                (set! lp$524
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(693
                                      (k$1189 r$525)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(690
                                            (r$1191)
                                            ((if r$1191
                                               (lp$524 k$1189 (cdr r$525))
                                               (#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(688
                                                    (k$1193)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(687
                                                          (r$1194)
                                                          ((if r$1194
                                                             (k$1193 #f)
                                                             (#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(686
                                                                  (x$527)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(685
                                                                        (lp$528)
                                                                        ((#((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(677
                                                                              (r$1195)
                                                                              ((lp$528
                                                                                 k$1193
                                                                                 x$527))
                                                                              #f))
                                                                          (set! lp$528
                                                                            #((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(684
                                                                                (k$1197
                                                                                  x$529)
                                                                                ((#((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(682
                                                                                      (next$530)
                                                                                      ((#((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(681
                                                                                            (r$1199)
                                                                                            ((if r$1199
                                                                                               (k$1197
                                                                                                 #f)
                                                                                               (#((record-marker)
                                                                                                  #((record-marker)
                                                                                                    #f
                                                                                                    (id args
                                                                                                        body
                                                                                                        has-cont))
                                                                                                  #(679
                                                                                                    (r$1200)
                                                                                                    ((lp$528
                                                                                                       k$1197
                                                                                                       next$530))
                                                                                                    #f))
                                                                                                (set-cdr!
                                                                                                  x$529
                                                                                                  r$525))))
                                                                                            #f))
                                                                                        (eq? r$525
                                                                                             next$530)))
                                                                                      #f))
                                                                                  (cdr x$529)))
                                                                                #t)))))
                                                                        #f))
                                                                    #f))
                                                                  #f))
                                                              s$522)))
                                                          #f))
                                                      (eq? r$525 s$522)))
                                                    #t))
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(676
                                                    (r$1192)
                                                    ((k$1189 r$525))
                                                    #f)))))
                                            #f))
                                        (pair? (cdr r$525))))
                                      #t)))))
                              #f))
                          #f))
                        #f))
                    s$522))
                  #t)))
             5
             0
             #f
             #f
             #f)))
       (101
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (v$488 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 635 #f #f #f 2 (630 623) #f #f 0 2 #t #f #f))))
      ()
      ((103
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((105
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((k$661 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  114
                  #f
                  #f
                  #f
                  2
                  (113 113)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(112 (r$660) ((write-ch k$657 r$660)) #f))
                  2
                  0
                  #f
                  #f
                  #t)))
       (107
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((108
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((109
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$664 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  118
                  #f
                  #f
                  #f
                  2
                  (117 117)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(116
                      (r$663)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(115
                             (r$659)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(114
                                   (k$661)
                                   ((bit-test
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(113
                                          (r$662)
                                          ((if r$662
                                             (k$661 #\/)
                                             (k$661 #\space)))
                                          #f))
                                      hexwalls$298
                                      south-east))
                                   #t))
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(112 (r$660) ((write-ch k$657 r$660)) #f))))
                             #f))
                         r$663))
                      #f))
                  2
                  0
                  #f
                  #f
                  #t))))
      ((111
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((112
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$661) #t))))
      ((k$667 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  122
                  #f
                  #f
                  #f
                  2
                  (121 121)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(120
                      (r$666)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(119
                             (r$658)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(118
                                   (k$664)
                                   ((bit-test
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(117
                                          (r$665)
                                          ((if r$665
                                             (k$664 #\_)
                                             (k$664 #\space)))
                                          #f))
                                      hexwalls$298
                                      south))
                                   #t))
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(116
                                   (r$663)
                                   ((write-ch
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(115
                                          (r$659)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(114
                                                (k$661)
                                                ((bit-test
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(113
                                                       (r$662)
                                                       ((if r$662
                                                          (k$661 #\/)
                                                          (k$661 #\space)))
                                                       #f))
                                                   hexwalls$298
                                                   south-east))
                                                #t))
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(112
                                                (r$660)
                                                ((write-ch k$657 r$660))
                                                #f))))
                                          #f))
                                      r$663))
                                   #f))))
                             #f))
                         r$666))
                      #f))
                  2
                  0
                  #f
                  #f
                  #t)))
       (113
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((114
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (exit-cell$343
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             269
             #f
             #f
             #f
             3
             (269 263 260)
             #f
             #f
             0
             3
             #f
             #t
             #f))))
      ((115
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((116
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$664) #t))))
      ((117
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((118
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (south-east
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             #f
             #f
             #f
             7
             (114 308 325 438 399 417 -1)
             #f
             (4)
             0
             6
             #f
             #f
             #f))))
      ((119
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((120
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$667) #t))))
      ((121
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((122
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (base-set
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             698
             #f
             #f
             2
             (491 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(698
                  (k$1203 nelts$531)
                  ((k$1203 (cons nelts$531 '())))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (exit$333
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             252
             #f
             #f
             #f
             0
             ()
             #f
             (vector-ref result$332 2)
             0
             0
             #t
             #f
             #f))))
      ((123
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((124
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$673) #f))))
      ((125
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$968 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 477 #f #f #f 1 (475) #f #f 1 0 #t #f #t))))
      ((rounded$266
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             70
             #f
             #f
             #f
             2
             (70 36)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(68
                 (k$615 x$281)
                 ((k$615 (Cyc-fast-div
                           (round__inline__ (Cyc-fast-mul 1000 x$281))
                           1000)))
                 #t))
             1
             0
             #t
             #f
             #f)))
       (k$1162
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 650 #f #f #f 1 (650) #f #f 0 1 #t #f #t))))
      ((127
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((128
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((130
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$1166
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 667 #f #f #f 2 (653 651) #f #f 2 0 #t #f #t))))
      ((131
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((132
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((v$493 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 636 #f #f #f 1 (636) #f #f 0 1 #t #f #f))))
      ()
      ((135
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((136
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$706) #t)))
       (v$496 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 638 #f #f #f 1 (638) #f #f 0 1 #t #f #f))))
      ((137
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((138
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((v$499 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 640 #f #f #f 1 (640) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((143
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$671 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 128 #f #f #f 2 (124 124) #f #f 2 0 #t #f #t)))
       (144
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((145
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$673 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  127
                  #f
                  #f
                  #f
                  2
                  (127 125)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(124
                      (r$672)
                      ((if r$672 (k$671 #\.) (k$671 #\space)))
                      #f))
                  2
                  0
                  #t
                  #f
                  #t)))
       (146
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((print-hexmaze
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             249
             #f
             #f
             2
             (-1 252)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(249
                  (k$683 harr$305 entrance$304)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(247
                        (nrows$306)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(245
                              (ncols$307)
                              ((div #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(244
                                        (r$773)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(239
                                              (lp$188$326)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(225
                                                    (r$761)
                                                    ((lp$188$326
                                                       #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(224
                                                           (r$687)
                                                           ((write-ch
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(223
                                                                  (r$688)
                                                                  ((write-ch
                                                                     #((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(222
                                                                         (r$689)
                                                                         ((#((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(220
                                                                               (lp$192$322)
                                                                               ((#((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(203
                                                                                     (r$746)
                                                                                     ((lp$192$322
                                                                                        #((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(202
                                                                                            (r$690)
                                                                                            ((#((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(201
                                                                                                  (k$740)
                                                                                                  ((odd? #((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(200
                                                                                                             (r$741)
                                                                                                             ((if r$741
                                                                                                                (#((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(199
                                                                                                                     (k$743)
                                                                                                                     ((if (Cyc-fast-eq
                                                                                                                            entrance$304
                                                                                                                            (Cyc-fast-sub
                                                                                                                              ncols$307
                                                                                                                              1))
                                                                                                                        (k$743 #\space)
                                                                                                                        (k$743 #\_)))
                                                                                                                     #t))
                                                                                                                 #((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(196
                                                                                                                     (r$742)
                                                                                                                     ((write-ch
                                                                                                                        k$740
                                                                                                                        r$742))
                                                                                                                     #f)))
                                                                                                                (k$740 #f)))
                                                                                                             #f))
                                                                                                         ncols$307))
                                                                                                  #t))
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(195
                                                                                                  (r$691)
                                                                                                  ((write-ch
                                                                                                     #((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(194
                                                                                                         (r$692)
                                                                                                         ((#((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(191
                                                                                                               (lp$196$310)
                                                                                                               ((#((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(132
                                                                                                                     (r$694)
                                                                                                                     ((lp$196$310
                                                                                                                        k$683
                                                                                                                        (Cyc-fast-sub
                                                                                                                          nrows$306
                                                                                                                          1)))
                                                                                                                     #f))
                                                                                                                 (set! lp$196$310
                                                                                                                   #((record-marker)
                                                                                                                     #((record-marker)
                                                                                                                       #f
                                                                                                                       (id args
                                                                                                                           body
                                                                                                                           has-cont))
                                                                                                                     #(190
                                                                                                                       (k$696 r$311)
                                                                                                                       ((if (Cyc-fast-lt
                                                                                                                              r$311
                                                                                                                              0)
                                                                                                                          (k$696 (Cyc-fast-lt
                                                                                                                                   r$311
                                                                                                                                   0))
                                                                                                                          (write-ch
                                                                                                                            #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(186
                                                                                                                                (r$698)
                                                                                                                                ((#((record-marker)
                                                                                                                                    #((record-marker)
                                                                                                                                      #f
                                                                                                                                      (id args
                                                                                                                                          body
                                                                                                                                          has-cont))
                                                                                                                                    #(184
                                                                                                                                      (lp$200$318)
                                                                                                                                      ((#((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(171
                                                                                                                                            (r$729)
                                                                                                                                            ((lp$200$318
                                                                                                                                               #((record-marker)
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #f
                                                                                                                                                   (id args
                                                                                                                                                       body
                                                                                                                                                       has-cont))
                                                                                                                                                 #(170
                                                                                                                                                   (r$699)
                                                                                                                                                   ((#((record-marker)
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #f
                                                                                                                                                         (id args
                                                                                                                                                             body
                                                                                                                                                             has-cont))
                                                                                                                                                       #(169
                                                                                                                                                         (k$724)
                                                                                                                                                         ((odd? #((record-marker)
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #f
                                                                                                                                                                    (id args
                                                                                                                                                                        body
                                                                                                                                                                        has-cont))
                                                                                                                                                                  #(168
                                                                                                                                                                    (r$725)
                                                                                                                                                                    ((if r$725
                                                                                                                                                                       (dot/space
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #((record-marker)
                                                                                                                                                                             #f
                                                                                                                                                                             (id args
                                                                                                                                                                                 body
                                                                                                                                                                                 has-cont))
                                                                                                                                                                           #(165
                                                                                                                                                                             (r$727)
                                                                                                                                                                             ((write-ch
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(164
                                                                                                                                                                                    (r$726)
                                                                                                                                                                                    ((write-ch
                                                                                                                                                                                       k$724
                                                                                                                                                                                       #\\))
                                                                                                                                                                                    #f))
                                                                                                                                                                                r$727))
                                                                                                                                                                             #f))
                                                                                                                                                                         harr$305
                                                                                                                                                                         r$311
                                                                                                                                                                         (Cyc-fast-sub
                                                                                                                                                                           ncols$307
                                                                                                                                                                           1))
                                                                                                                                                                       (k$724 #f)))
                                                                                                                                                                    #f))
                                                                                                                                                                ncols$307))
                                                                                                                                                         #t))
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #f
                                                                                                                                                         (id args
                                                                                                                                                             body
                                                                                                                                                             has-cont))
                                                                                                                                                       #(163
                                                                                                                                                         (r$700)
                                                                                                                                                         ((write-ch
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #f
                                                                                                                                                                (id args
                                                                                                                                                                    body
                                                                                                                                                                    has-cont))
                                                                                                                                                              #(162
                                                                                                                                                                (r$701)
                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                    #((record-marker)
                                                                                                                                                                      #f
                                                                                                                                                                      (id args
                                                                                                                                                                          body
                                                                                                                                                                          has-cont))
                                                                                                                                                                    #(160
                                                                                                                                                                      (lp$207$314)
                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #f
                                                                                                                                                                            (id args
                                                                                                                                                                                body
                                                                                                                                                                                has-cont))
                                                                                                                                                                          #(146
                                                                                                                                                                            (r$712)
                                                                                                                                                                            ((lp$207$314
                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                   #f
                                                                                                                                                                                   (id args
                                                                                                                                                                                       body
                                                                                                                                                                                       has-cont))
                                                                                                                                                                                 #(145
                                                                                                                                                                                   (r$702)
                                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(144
                                                                                                                                                                                         (k$706)
                                                                                                                                                                                         ((odd? #((record-marker)
                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                    #f
                                                                                                                                                                                                    (id args
                                                                                                                                                                                                        body
                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                  #(143
                                                                                                                                                                                                    (r$707)
                                                                                                                                                                                                    ((if r$707
                                                                                                                                                                                                       (href/rc
                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                             #f
                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                 body
                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                           #(138
                                                                                                                                                                                                             (r$709)
                                                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                       body
                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                 #(137
                                                                                                                                                                                                                   (r$708)
                                                                                                                                                                                                                   ((display-hexbottom
                                                                                                                                                                                                                      k$706
                                                                                                                                                                                                                      r$708))
                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                               (vector-ref
                                                                                                                                                                                                                 r$709
                                                                                                                                                                                                                 3)))
                                                                                                                                                                                                             #f))
                                                                                                                                                                                                         harr$305
                                                                                                                                                                                                         r$311
                                                                                                                                                                                                         (Cyc-fast-sub
                                                                                                                                                                                                           ncols$307
                                                                                                                                                                                                           1))
                                                                                                                                                                                                       (if (zero?__inline__
                                                                                                                                                                                                             r$311)
                                                                                                                                                                                                         (k$706 #f)
                                                                                                                                                                                                         (write-ch
                                                                                                                                                                                                           k$706
                                                                                                                                                                                                           #\\))))
                                                                                                                                                                                                    #f))
                                                                                                                                                                                                ncols$307))
                                                                                                                                                                                         #t))
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(136
                                                                                                                                                                                         (r$703)
                                                                                                                                                                                         ((write-ch
                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #f
                                                                                                                                                                                                (id args
                                                                                                                                                                                                    body
                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                              #(135
                                                                                                                                                                                                (r$704)
                                                                                                                                                                                                ((lp$196$310
                                                                                                                                                                                                   k$696
                                                                                                                                                                                                   (Cyc-fast-sub
                                                                                                                                                                                                     r$311
                                                                                                                                                                                                     1)))
                                                                                                                                                                                                #f))
                                                                                                                                                                                            #\newline))
                                                                                                                                                                                         #f))))
                                                                                                                                                                                   #f))
                                                                                                                                                                               0))
                                                                                                                                                                            #f))
                                                                                                                                                                        (set! lp$207$314
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(159
                                                                                                                                                                              (k$714 c$315)
                                                                                                                                                                              ((if (Cyc-fast-gte
                                                                                                                                                                                     c$315
                                                                                                                                                                                     (Cyc-fast-mul
                                                                                                                                                                                       2
                                                                                                                                                                                       r$773))
                                                                                                                                                                                 (k$714 (Cyc-fast-gte
                                                                                                                                                                                          c$315
                                                                                                                                                                                          (Cyc-fast-mul
                                                                                                                                                                                            2
                                                                                                                                                                                            r$773)))
                                                                                                                                                                                 (href/rc
                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #f
                                                                                                                                                                                       (id args
                                                                                                                                                                                           body
                                                                                                                                                                                           has-cont))
                                                                                                                                                                                     #(155
                                                                                                                                                                                       (r$723)
                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                             #f
                                                                                                                                                                                             (id args
                                                                                                                                                                                                 body
                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                           #(154
                                                                                                                                                                                             (r$722)
                                                                                                                                                                                             ((display-hexbottom
                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                    #f
                                                                                                                                                                                                    (id args
                                                                                                                                                                                                        body
                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                  #(153
                                                                                                                                                                                                    (r$716)
                                                                                                                                                                                                    ((dot/space
                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                           #f
                                                                                                                                                                                                           (id args
                                                                                                                                                                                                               body
                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                         #(150
                                                                                                                                                                                                           (r$719)
                                                                                                                                                                                                           ((write-ch
                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                      body
                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                #(149
                                                                                                                                                                                                                  (r$717)
                                                                                                                                                                                                                  ((lp$207$314
                                                                                                                                                                                                                     k$714
                                                                                                                                                                                                                     (Cyc-fast-plus
                                                                                                                                                                                                                       c$315
                                                                                                                                                                                                                       2)))
                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                              r$719))
                                                                                                                                                                                                           #f))
                                                                                                                                                                                                       harr$305
                                                                                                                                                                                                       (Cyc-fast-sub
                                                                                                                                                                                                         r$311
                                                                                                                                                                                                         1)
                                                                                                                                                                                                       (Cyc-fast-plus
                                                                                                                                                                                                         c$315
                                                                                                                                                                                                         1)))
                                                                                                                                                                                                    #f))
                                                                                                                                                                                                r$722))
                                                                                                                                                                                             #f))
                                                                                                                                                                                         (vector-ref
                                                                                                                                                                                           r$723
                                                                                                                                                                                           3)))
                                                                                                                                                                                       #f))
                                                                                                                                                                                   harr$305
                                                                                                                                                                                   r$311
                                                                                                                                                                                   c$315)))
                                                                                                                                                                              #t)))))
                                                                                                                                                                      #f))
                                                                                                                                                                  #f))
                                                                                                                                                                #f))
                                                                                                                                                            #\newline))
                                                                                                                                                         #f))))
                                                                                                                                                   #f))
                                                                                                                                               1))
                                                                                                                                            #f))
                                                                                                                                        (set! lp$200$318
                                                                                                                                          #((record-marker)
                                                                                                                                            #((record-marker)
                                                                                                                                              #f
                                                                                                                                              (id args
                                                                                                                                                  body
                                                                                                                                                  has-cont))
                                                                                                                                            #(183
                                                                                                                                              (k$731 c$319)
                                                                                                                                              ((if (Cyc-fast-gte
                                                                                                                                                     c$319
                                                                                                                                                     (Cyc-fast-mul
                                                                                                                                                       2
                                                                                                                                                       r$773))
                                                                                                                                                 (k$731 (Cyc-fast-gte
                                                                                                                                                          c$319
                                                                                                                                                          (Cyc-fast-mul
                                                                                                                                                            2
                                                                                                                                                            r$773)))
                                                                                                                                                 (dot/space
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #f
                                                                                                                                                       (id args
                                                                                                                                                           body
                                                                                                                                                           has-cont))
                                                                                                                                                     #(178
                                                                                                                                                       (r$738)
                                                                                                                                                       ((write-ch
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #f
                                                                                                                                                              (id args
                                                                                                                                                                  body
                                                                                                                                                                  has-cont))
                                                                                                                                                            #(177
                                                                                                                                                              (r$733)
                                                                                                                                                              ((href/rc
                                                                                                                                                                 #((record-marker)
                                                                                                                                                                   #((record-marker)
                                                                                                                                                                     #f
                                                                                                                                                                     (id args
                                                                                                                                                                         body
                                                                                                                                                                         has-cont))
                                                                                                                                                                   #(176
                                                                                                                                                                     (r$737)
                                                                                                                                                                     ((#((record-marker)
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #f
                                                                                                                                                                           (id args
                                                                                                                                                                               body
                                                                                                                                                                               has-cont))
                                                                                                                                                                         #(175
                                                                                                                                                                           (r$736)
                                                                                                                                                                           ((display-hexbottom
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(174
                                                                                                                                                                                  (r$734)
                                                                                                                                                                                  ((lp$200$318
                                                                                                                                                                                     k$731
                                                                                                                                                                                     (Cyc-fast-plus
                                                                                                                                                                                       c$319
                                                                                                                                                                                       2)))
                                                                                                                                                                                  #f))
                                                                                                                                                                              r$736))
                                                                                                                                                                           #f))
                                                                                                                                                                       (vector-ref
                                                                                                                                                                         r$737
                                                                                                                                                                         3)))
                                                                                                                                                                     #f))
                                                                                                                                                                 harr$305
                                                                                                                                                                 r$311
                                                                                                                                                                 c$319))
                                                                                                                                                              #f))
                                                                                                                                                          r$738))
                                                                                                                                                       #f))
                                                                                                                                                   harr$305
                                                                                                                                                   r$311
                                                                                                                                                   (Cyc-fast-sub
                                                                                                                                                     c$319
                                                                                                                                                     1))))
                                                                                                                                              #t)))))
                                                                                                                                      #f))
                                                                                                                                  #f))
                                                                                                                                #f))
                                                                                                                            #\/)))
                                                                                                                       #t)))))
                                                                                                               #f))
                                                                                                           #f))
                                                                                                         #f))
                                                                                                     #\newline))
                                                                                                  #f))))
                                                                                            #f))
                                                                                        0))
                                                                                     #f))
                                                                                 (set! lp$192$322
                                                                                   #((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(219
                                                                                       (k$748 c$323)
                                                                                       ((if (Cyc-fast-gte
                                                                                              c$323
                                                                                              (Cyc-fast-mul
                                                                                                2
                                                                                                r$773))
                                                                                          (k$748 (Cyc-fast-gte
                                                                                                   c$323
                                                                                                   (Cyc-fast-mul
                                                                                                     2
                                                                                                     r$773)))
                                                                                          (#((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(215
                                                                                               (k$759)
                                                                                               ((if (Cyc-fast-eq
                                                                                                      c$323
                                                                                                      entrance$304)
                                                                                                  (k$759 #\space)
                                                                                                  (k$759 #\_)))
                                                                                               #t))
                                                                                           #((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(213
                                                                                               (r$758)
                                                                                               ((write-ch
                                                                                                  #((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(212
                                                                                                      (r$750)
                                                                                                      ((write-ch
                                                                                                         #((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(211
                                                                                                             (r$751)
                                                                                                             ((dot/space
                                                                                                                #((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(208
                                                                                                                    (r$755)
                                                                                                                    ((write-ch
                                                                                                                       #((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(207
                                                                                                                           (r$752)
                                                                                                                           ((write-ch
                                                                                                                              #((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(206
                                                                                                                                  (r$753)
                                                                                                                                  ((lp$192$322
                                                                                                                                     k$748
                                                                                                                                     (Cyc-fast-plus
                                                                                                                                       c$323
                                                                                                                                       2)))
                                                                                                                                  #f))
                                                                                                                              #\\))
                                                                                                                           #f))
                                                                                                                       r$755))
                                                                                                                    #f))
                                                                                                                harr$305
                                                                                                                (Cyc-fast-sub
                                                                                                                  nrows$306
                                                                                                                  1)
                                                                                                                (Cyc-fast-plus
                                                                                                                  c$323
                                                                                                                  1)))
                                                                                                             #f))
                                                                                                         #\/))
                                                                                                      #f))
                                                                                                  r$758))
                                                                                               #f)))))
                                                                                       #t)))))
                                                                               #f))
                                                                           #f))
                                                                         #f))
                                                                     #\space))
                                                                  #f))
                                                              #\newline))
                                                           #f))
                                                       1))
                                                    #f))
                                                (set! lp$188$326
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(238
                                                      (k$763 c$327)
                                                      ((if (Cyc-fast-gte
                                                             c$327
                                                             ncols$307)
                                                         (k$763 (Cyc-fast-gte
                                                                  c$327
                                                                  ncols$307))
                                                         (write-ch
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(234
                                                               (r$765)
                                                               ((write-ch
                                                                  #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(233
                                                                      (r$766)
                                                                      ((write-ch
                                                                         #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(232
                                                                             (r$767)
                                                                             ((#((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(231
                                                                                   (k$771)
                                                                                   ((if (Cyc-fast-eq
                                                                                          c$327
                                                                                          entrance$304)
                                                                                      (k$771 #\space)
                                                                                      (k$771 #\_)))
                                                                                   #t))
                                                                               #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(229
                                                                                   (r$770)
                                                                                   ((write-ch
                                                                                      #((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(228
                                                                                          (r$768)
                                                                                          ((lp$188$326
                                                                                             k$763
                                                                                             (Cyc-fast-plus
                                                                                               c$327
                                                                                               2)))
                                                                                          #f))
                                                                                      r$770))
                                                                                   #f))))
                                                                             #f))
                                                                         #\space))
                                                                      #f))
                                                                  #\space))
                                                               #f))
                                                           #\space)))
                                                      #t)))))
                                              #f))
                                          #f))
                                        #f))
                                    ncols$307
                                    2))
                              #f))
                          (vector-ref harr$305 2)))
                        #f))
                    (vector-ref harr$305 1)))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((149
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((150
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$678 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 131 #f #f #f 1 (130) #f #f 1 0 #t #f #t))))
      ()
      ((153
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((154
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((155
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((rand .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 717
                 #f
                 #f
                 2
                 (700 -1)
                 #f
                 (#((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(717
                      (k$1211 state$534)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(716
                            (r$1212)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(715
                                  (seed$539)
                                  ((div #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(713
                                            (hi$540)
                                            ((mod #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(711
                                                      (lo$541)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(706
                                                            (k$1218)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(705
                                                                  (r$1219)
                                                                  ((if r$1219
                                                                     (k$1218
                                                                       (Cyc-fast-sub
                                                                         (Cyc-fast-mul
                                                                           2813
                                                                           lo$541)
                                                                         (Cyc-fast-mul
                                                                           2699
                                                                           hi$540)))
                                                                     (k$1218
                                                                       (Cyc-fast-plus
                                                                         (Cyc-fast-sub
                                                                           (Cyc-fast-mul
                                                                             2813
                                                                             lo$541)
                                                                           (Cyc-fast-mul
                                                                             2699
                                                                             hi$540))
                                                                         8388607))))
                                                                  #f))
                                                              (Cyc-fast-gt
                                                                (Cyc-fast-sub
                                                                  (Cyc-fast-mul
                                                                    2813
                                                                    lo$541)
                                                                  (Cyc-fast-mul
                                                                    2699
                                                                    hi$540))
                                                                0)))
                                                            #t))
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(703
                                                            (val$543)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(701
                                                                  (r$1217)
                                                                  ((k$1211
                                                                     val$543))
                                                                  #f))
                                                              (set-car!
                                                                state$534
                                                                val$543)))
                                                            #f))))
                                                      #f))
                                                  seed$539
                                                  2787))
                                            #f))
                                        seed$539
                                        2787))
                                  #f))
                              r$1212))
                            #f))
                        (car state$534)))
                      #t)))
                 1
                 0
                 #f
                 #f
                 #f))))
      ((exit$341
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             271
             #f
             #f
             #f
             2
             (271 259)
             #f
             (vector-ref result$340 1)
             0
             2
             #f
             #f
             #f))))
      ((k$974 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 492 #f #f #f 1 (492) #f #f 0 1 #t #f #t))))
      ((159
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$207$314) #t))))
      ((160
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$976 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 491 #f #f #f 1 (490) #f #f 0 1 #t #f #t))))
      ((nrows$443
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 543 #f #f #f 1 (543) #f #f 0 1 #t #f #f))))
      ((162
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((163
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$724) #t))))
      ((164
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((165
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((href/rc
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             530
             #f
             #f
             10
             (127 177 159 143 267 271 374 383 393 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(530
                  (k$1013 ha$432 r$431 c$430)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(529
                        (r$1014)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(528
                              (r$1017)
                              ((k$1013
                                 (vector-ref
                                   r$1014
                                   (Cyc-fast-plus
                                     (Cyc-fast-mul r$1017 r$431)
                                     c$430))))
                              #f))
                          (vector-ref ha$432 2)))
                        #f))
                    (vector-ref ha$432 3)))
                  #t)))
             9
             0
             #f
             #f
             #f))))
      ((168
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$1177
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 669 #f #f #f 1 (668) #f #f 1 0 #t #f #t))))
      ((169
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((170
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((171
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((174
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((175
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((176
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((177
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((178
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (dig-maze
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             604
             #f
             #f
             2
             (279 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(604
                  (k$1077 walls$472 ncells$471)
                  ((call-with-current-continuation
                     k$1077
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(603
                         (k$1079 quit$473)
                         ((vector-for-each-rev
                            k$1079
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(602
                                (k$1081 wall$474)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(598
                                      (set1$476)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(594
                                            (set2$478)
                                            ((set-equal?
                                               #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(592
                                                   (r$1086)
                                                   ((if r$1086
                                                      (k$1081 #f)
                                                      (#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(591
                                                           (r$1087)
                                                           ((bitwise-not
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(589
                                                                  (r$1088)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(588
                                                                        (walls$480
                                                                          wall-mask$479)
                                                                        ((union!
                                                                           #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(587
                                                                               (r$1089)
                                                                               ((bitwise-and
                                                                                  #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(586
                                                                                      (r$1093)
                                                                                      ((#((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(585
                                                                                            (r$1090)
                                                                                            ((set-size
                                                                                               #((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(584
                                                                                                   (r$1092)
                                                                                                   ((if (Cyc-fast-eq
                                                                                                          r$1092
                                                                                                          ncells$471)
                                                                                                      (quit$473
                                                                                                        k$1081
                                                                                                        #f)
                                                                                                      (k$1081
                                                                                                        #f)))
                                                                                                   #f))
                                                                                               set1$476))
                                                                                            #f))
                                                                                        (vector-set!
                                                                                          (vector-ref
                                                                                            wall$474
                                                                                            1)
                                                                                          3
                                                                                          r$1093)))
                                                                                      #f))
                                                                                  walls$480
                                                                                  wall-mask$479))
                                                                               #f))
                                                                           set1$476
                                                                           set2$478))
                                                                        #f))
                                                                    r$1087
                                                                    r$1088))
                                                                  #f))
                                                              (vector-ref
                                                                wall$474
                                                                3)))
                                                           #f))
                                                       (vector-ref
                                                         (vector-ref wall$474 1)
                                                         3))))
                                                   #f))
                                               set1$476
                                               set2$478))
                                            #f))
                                        (vector-ref (vector-ref wall$474 2) 1)))
                                      #f))
                                  (vector-ref (vector-ref wall$474 1) 1)))
                                #t))
                            walls$472))
                         #t))))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ((ncols$307
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             245
             #f
             #f
             #f
             9
             (245 238 238 144 143 169 168 201 199)
             #f
             (vector-ref harr$305 2)
             0
             9
             #f
             #f
             #f))))
      ()
      ()
      ((183
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$200$318) #t)))
       (k$683 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 249 #f #f #f 1 (132) #f #f 0 1 #f #f #t))))
      ((184
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((186
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((run .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                -1
                111
                #f
                #f
                2
                (87 -1)
                #f
                (#((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(111
                     (k$651 nrows$297 ncols$296)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(109
                           (r$652)
                           ((pmaze #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(108 (r$653) ((reverse k$651 output)) #f))
                                   nrows$297
                                   ncols$296))
                           #f))
                       (set! output '())))
                     #t)))
                1
                0
                #f
                #f
                #f)))
       (cell$449
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 561 #f #f #f 1 (561) #f #f 0 1 #t #f #f))))
      ()
      ((190
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$196$310) #t))))
      ((191
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (nr$352
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             346
             #f
             #f
             #f
             5
             (297 297 305 318 318)
             #f
             (vector-ref harr$346 1)
             0
             5
             #t
             #f
             #f))))
      ()
      ()
      ((194
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((195
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$740) #t))))
      ((196
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$743) #t))))
      ((cell:parent
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             639
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(639
                  (k$1134 o$498)
                  ((k$1134 (vector-ref o$498 4)))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ((k$987 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 525 #f #f #f 1 (493) #f #f 0 1 #t #f #t))))
      ((199
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$1181
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 672 #f #f #f 1 (670) #f #f 1 0 #t #f #t))))
      ((200
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((201
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((202
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((203
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (vector
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             7
             (82 259 374 383 543 645 650)
             #f
             #f
             7
             0
             #f
             #f
             #f))))
      ((k$1186
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 696 #f #f #f 1 (673) #f #f 0 1 #f #f #t))))
      ((r$1200
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             679
             #f
             #f
             #f
             0
             ()
             #f
             (set-cdr! x$529 r$525)
             0
             0
             #t
             #f
             #f))))
      ((206
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((207
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$1189
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 693 #f #f #f 2 (676 690) #f #f 1 1 #t #f #t))))
      ((208
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((211
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((212
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((213
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$759) #t)))
       (r$1208
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 699 #f #f #f 1 (699) #f #f 0 1 #t #f #f)))
       (r$800 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  259
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (vector-set! exit-cell$343 3 r$801)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$801 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 260 #f #f #f 1 (260) #f #f 0 1 #t #f #f))))
      ((215
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$802 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 261 #f #f #f 1 (261) #f #f 0 1 #t #f #f))))
      ((r$803 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 264 #f #f #f 1 (264) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((219
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$192$322) #t)))
       (r$806 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 282 #f #f #f 1 (282) #f #f 0 1 #t #f #f))))
      ((220
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((222
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$696 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 190 #f #f #f 2 (135 190) #f #f 1 1 #t #f #t)))
       (223
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (proc$489
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 635 #f #f #f 1 (630) #f #f 1 0 #f #f #f))))
      ((224
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((225
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((228
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((229
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$771) #t))))
      ()
      ((231
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$993 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 518 #f #f #f 2 (497 518) #f #f 1 1 #t #f #t))))
      ((bit$302
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 131 #f #f #f 1 (131) #f #f 0 1 #t #f #f)))
       (232
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((233
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((234
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((string-append
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (3 93) #f #f 2 0 #t #f #f))))
      ()
      ()
      ((238
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$188$326) #t)))
       (k$1193
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             688
             #f
             #f
             #f
             2
             (677 687)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(676 (r$1192) ((k$1189 r$525)) #f))
             1
             1
             #f
             #f
             #t))))
      ((239
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((k$1197
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 684 #f #f #f 2 (679 681) #f #f 1 1 #t #f #t))))
      ()
      ((244
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1212
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             716
             #f
             #f
             #f
             1
             (716)
             #f
             (car state$534)
             0
             1
             #t
             #f
             #f))))
      ((245
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (set-car!
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             3
             (653 651 703)
             #f
             #f
             3
             0
             #t
             #f
             #f))))
      ()
      ((247
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((249
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1217
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             701
             #f
             #f
             #f
             0
             ()
             #f
             (set-car! state$534 val$543)
             0
             0
             #t
             #f
             #f))))
      ((250
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((251
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1219
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             705
             #f
             #f
             #f
             1
             (705)
             #f
             (Cyc-fast-gt
               (Cyc-fast-sub
                 (Cyc-fast-mul 2813 lo$541)
                 (Cyc-fast-mul 2699 hi$540))
               0)
             0
             0
             #t
             #f
             #f))))
      ((252
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((256
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (set-cdr!
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             3
             (659 659 681)
             #f
             #f
             3
             0
             #t
             #f
             #f))))
      ()
      ((258
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((259
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$819 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 331 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((260
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((261
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r1$514
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             665
             #f
             #f
             #f
             4
             (663 659 659 651)
             #f
             #f
             0
             4
             #f
             #t
             #f))))
      ((262
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((263
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((264
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((267
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (exit$370
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 384 #f #f #f 2 (379 383) #f #f 0 2 #f #f #f))))
      ()
      ((269
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((271
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((exit$375
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             377
             #f
             #f
             #f
             1
             (366)
             #f
             exit$370
             0
             1
             #f
             #f
             #f))))
      ()
      ((274
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((276
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (z$559 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  772
                  #f
                  #f
                  #f
                  4
                  (769 769 769 769)
                  #f
                  #f
                  0
                  4
                  #t
                  #f
                  #f)))
       (quotient__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             11
             (737 737 737 737 760 760 760 760 760 760 760)
             #f
             #f
             11
             0
             #t
             #f
             #f))))
      ((o$438 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 539 #f #f #f 1 (539) #f #f 0 1 #t #f #f))))
      ((o$439 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 540 #f #f #f 1 (540) #f #f 0 1 #t #f #f))))
      ((279
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$523 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 695 #f #f #f 1 (673) #f s$522 0 1 #f #f #f)))
       (x$400 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  409
                  #f
                  #f
                  #f
                  7
                  (409 405 402 401 398 409 409)
                  #f
                  #f
                  0
                  7
                  #t
                  #f
                  #f))))
      ()
      ((r$525 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  693
                  #f
                  #f
                  #f
                  6
                  (693 676 688 682 681 690)
                  #f
                  #f
                  0
                  6
                  #t
                  #f
                  #f))))
      ((282
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((283
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((x$405 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  467
                  #f
                  #f
                  #f
                  10
                  (467 457 446 442 442 451 451 433 467 467)
                  #f
                  #f
                  0
                  10
                  #t
                  #f
                  #f)))
       (ncols$330
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 258 #f #f #f 1 (258) #f #f 0 1 #t #f #f))))
      ((285
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((286
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((287
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1228
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 737 #f #f #f 1 (737) #f #f 0 0 #t #f #f)))
       (tp-lp$368
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             385
             #f
             #f
             #f
             3
             (360 385 357)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(384
                 (k$876 max-len$372
                        entrance$371
                        exit$370
                        tcol$369)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(383
                       (r$877)
                       ((if r$877
                          (vector k$876 entrance$371 exit$370)
                          (href/rc
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(380
                                (top-cell$373)
                                ((reroot-maze
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(379
                                       (r$879)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(377
                                             (max-len$377
                                               entrance$376
                                               exit$375
                                               bcol$374)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(376
                                                   (bt-lp$378)
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(366
                                                         (r$886)
                                                         ((bt-lp$378
                                                            #((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(364
                                                                (result$384)
                                                                ((#((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(360
                                                                      (max-len$387
                                                                        entrance$386
                                                                        exit$385)
                                                                      ((tp-lp$368
                                                                         k$876
                                                                         max-len$387
                                                                         entrance$386
                                                                         exit$385
                                                                         (Cyc-fast-sub
                                                                           tcol$369
                                                                           1)))
                                                                      #f))
                                                                  (vector-ref
                                                                    result$384
                                                                    0)
                                                                  (vector-ref
                                                                    result$384
                                                                    1)
                                                                  (vector-ref
                                                                    result$384
                                                                    2)))
                                                                #f))
                                                            max-len$377
                                                            entrance$376
                                                            exit$375
                                                            bcol$374))
                                                         #f))
                                                     (set! bt-lp$378
                                                       #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(375
                                                           (k$888 max-len$382
                                                                  entrance$381
                                                                  exit$380
                                                                  bcol$379)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(374
                                                                 (r$889)
                                                                 ((if r$889
                                                                    (vector
                                                                      k$888
                                                                      max-len$382
                                                                      entrance$381
                                                                      exit$380)
                                                                    (href/rc
                                                                      #((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(373
                                                                          (r$894)
                                                                          ((path-length
                                                                             #((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(371
                                                                                 (this-len$383)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(370
                                                                                       (r$891)
                                                                                       ((if r$891
                                                                                          (#((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(368
                                                                                               (r$892)
                                                                                               ((bt-lp$378
                                                                                                  k$888
                                                                                                  this-len$383
                                                                                                  tcol$369
                                                                                                  bcol$379
                                                                                                  r$892))
                                                                                               #f))
                                                                                           (Cyc-fast-sub
                                                                                             bcol$379
                                                                                             1))
                                                                                          (bt-lp$378
                                                                                            k$888
                                                                                            max-len$382
                                                                                            entrance$381
                                                                                            exit$380
                                                                                            (Cyc-fast-sub
                                                                                              bcol$379
                                                                                              1))))
                                                                                       #f))
                                                                                   (Cyc-fast-gt
                                                                                     this-len$383
                                                                                     max-len$382)))
                                                                                 #f))
                                                                             r$894))
                                                                          #f))
                                                                      harr$361
                                                                      0
                                                                      bcol$379)))
                                                                 #f))
                                                             (Cyc-fast-lt
                                                               bcol$379
                                                               0)))
                                                           #t)))))
                                                   #f))
                                               #f))
                                             #f))
                                         max-len$372
                                         entrance$371
                                         exit$370
                                         (Cyc-fast-sub ncols$362 1)))
                                       #f))
                                   top-cell$373))
                                #f))
                            harr$361
                            (Cyc-fast-sub nrows$363 1)
                            tcol$369)))
                       #f))
                   (Cyc-fast-lt tcol$369 0)))
                 #t))
             2
             0
             #f
             #f
             #f)))
       (r$820 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 326 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((pmaze .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  -1
                  258
                  #f
                  #f
                  2
                  (109 -1)
                  #f
                  (#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(258
                       (k$782 nrows$331 ncols$330)
                       ((make-maze
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(256
                              (result$332)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(252
                                    (cells$335 entrance$334 exit$333)
                                    ((print-hexmaze
                                       k$782
                                       cells$335
                                       entrance$334))
                                    #f))
                                (vector-ref result$332 0)
                                (vector-ref result$332 1)
                                (vector-ref result$332 2)))
                              #f))
                          nrows$331
                          ncols$330))
                       #t)))
                  1
                  0
                  #f
                  #f
                  #f)))
       (288
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$821 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 320 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$822 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 306 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$823 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 298 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (ncols$336
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 285 #f #f #f 2 (285 279) #f #f 0 2 #t #f #f))))
      ((reachable$505
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 645 #f #f #f 1 (645) #f #f 0 1 #t #f #f)))
       (r$824 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 292 #f #f #f 1 (292) #f #f 0 0 #t #f #f))))
      ((292
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$830) #f)))
       (lp$188$326
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             239
             #f
             #f
             #f
             3
             (228 239 225)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(238
                 (k$763 c$327)
                 ((if (Cyc-fast-gte c$327 ncols$307)
                    (k$763 (Cyc-fast-gte c$327 ncols$307))
                    (write-ch
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(234
                          (r$765)
                          ((write-ch
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(233
                                 (r$766)
                                 ((write-ch
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(232
                                        (r$767)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(231
                                              (k$771)
                                              ((if (Cyc-fast-eq
                                                     c$327
                                                     entrance$304)
                                                 (k$771 #\space)
                                                 (k$771 #\_)))
                                              #t))
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(229
                                              (r$770)
                                              ((write-ch
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(228
                                                     (r$768)
                                                     ((lp$188$326
                                                        k$763
                                                        (Cyc-fast-plus
                                                          c$327
                                                          2)))
                                                     #f))
                                                 r$770))
                                              #f))))
                                        #f))
                                    #\space))
                                 #f))
                             #\space))
                          #f))
                      #\space)))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((293
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$826 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 286 #f #f #f 1 (286) #f #f 0 0 #t #f #f))))
      ((r$827 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  287
                  #f
                  #f
                  #f
                  1
                  (287)
                  #f
                  (vector-ref ne$356 3)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ((297
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((298
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$834) #f))))
      ((299
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((300
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((301
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((exit$380
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 375 #f #f #f 2 (370 374) #f #f 0 2 #f #f #f))))
      ((305
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((306
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$840) #f)))
       (o$440 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 541 #f #f #f 1 (541) #f #f 0 1 #t #f #f))))
      ((307
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((308
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((309
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (exit$385
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             360
             #f
             #f
             #f
             1
             (360)
             #f
             (vector-ref result$384 2)
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((313
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$847) #f))))
      ((314
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((reroot-maze
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             570
             #f
             #f
             3
             (264 380 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(570
                  (k$1059 new-root$455)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(569
                        (node$457)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(568
                              (lp$458)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(562
                                    (r$1060)
                                    ((lp$458 k$1059 node$457 #f))
                                    #f))
                                (set! lp$458
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(567
                                      (k$1062 node$460 new-parent$459)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(565
                                            (old-parent$461)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(564
                                                  (r$1064)
                                                  ((if old-parent$461
                                                     (lp$458
                                                       k$1062
                                                       old-parent$461
                                                       node$460)
                                                     (k$1062 #f)))
                                                  #f))
                                              (vector-set!
                                                node$460
                                                4
                                                new-parent$459)))
                                            #f))
                                        (vector-ref node$460 4)))
                                      #t)))))
                              #f))
                          #f))
                        #f))
                    new-root$455))
                  #t)))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ((318
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((319
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((320
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$851) #f))))
      ((321
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (x$415 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 491 #f #f #f 1 (490) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((324
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((325
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((326
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$856) #f))))
      ((327
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$833 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 293 #f #f #f 1 (293) #f #f 0 1 #t #f #f))))
      ()
      ((329
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((330
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((331
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$860) #f)))
       (r$837 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 299 #f #f #f 1 (299) #f #f 0 0 #t #f #f))))
      ((332
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$838 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  300
                  #f
                  #f
                  #f
                  1
                  (300)
                  #f
                  (vector-ref n$358 3)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ((i$275 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 49 #f #f #f 2 (7 49) #f #f 0 2 #t #f #f))))
      ((335
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((336
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((344
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (wall-mask$479
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 588 #f #f #f 1 (587) #f r$1088 0 1 #t #f #f))))
      ((quit$473
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 603 #f #f #f 1 (584) #f #f 1 0 #f #f #f))))
      ((346
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((354
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((356
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((357
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1244
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 760 #f #f #f 1 (760) #f #f 0 0 #t #f #f))))
      ()
      ()
      ((360
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((r$841 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 313 #f #f #f 1 (313) #f #f 0 0 #t #f #f))))
      ()
      ((364
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$843 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 307 #f #f #f 1 (307) #f #f 0 0 #t #f #f))))
      ((r$844 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  308
                  #f
                  #f
                  #f
                  1
                  (308)
                  #f
                  (vector-ref nw$359 3)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((366
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((368
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((i$284 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #f)))
       (370
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((371
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((373
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((374
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((375
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (bt-lp$378) #t))))
      ((376
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((377
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((this-len$383
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 371 #f #f #f 2 (371 368) #f #f 0 2 #f #f #f))))
      ((379
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((380
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((383
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((384
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (tp-lp$368) #t))))
      ((385
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((386
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((388
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((389
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((390
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((391
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((392
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((393
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((394
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$907) #f)))
       (x$434 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 538 #f #f #f 1 (537) #f #f 0 1 #t #f #f))))
      ((395
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((ncols$362
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             388
             #f
             #f
             #f
             2
             (388 379)
             #f
             r$872
             0
             2
             #t
             #f
             #f))))
      ((398
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$850 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 314 #f #f #f 1 (314) #f #f 0 1 #t #f #f))))
      ((399
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$852 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 324 #f #f #f 1 (324) #f #f 0 0 #t #f #f))))
      ((401
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$853 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 321 #f #f #f 1 (321) #f #f 0 1 #t #f #f))))
      ((402
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((403
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((405
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$857 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 329 #f #f #f 1 (329) #f #f 0 0 #t #f #f))))
      ((r$858 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 327 #f #f #f 1 (327) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((409
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$140$399) #f))))
      ((410
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((413
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((input1$288
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 103 #f #f #f 2 (95 89) #f #f 0 2 #t #f #f)))
       (414
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((416
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$929) #t))))
      ((417
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((419
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((420
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ()
      ((425
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((r$1260
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             780
             #f
             #f
             #f
             1
             (780)
             #f
             (Cyc-fast-eq x$558 0)
             0
             0
             #t
             #f
             #f))))
      ((428
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1261
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             779
             #f
             #f
             #f
             1
             (779)
             #f
             (Cyc-fast-eq y$557 0)
             0
             0
             #t
             #f
             #f))))
      ((r$565 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 3 #f #f #f 1 (3) #f #f 0 1 #t #f #f)))
       (429
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1262
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             778
             #f
             #f
             #f
             1
             (778)
             #f
             (Cyc-fast-eq x$558 -1)
             0
             0
             #t
             #f
             #f))))
      ((harr$301
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 128 #f #f #f 1 (127) #f #f 0 1 #t #f #f)))
       (430
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1263
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             777
             #f
             #f
             #f
             1
             (777)
             #f
             (Cyc-fast-eq y$557 -1)
             0
             0
             #t
             #f
             #f))))
      ()
      ((r$1265
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 769 #f #f #f 1 (769) #f #f 0 0 #t #f #f))))
      ((r$569 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  64
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rounded$266
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(68
                        (k$615 x$281)
                        ((k$615 (Cyc-fast-div
                                  (round__inline__ (Cyc-fast-mul 1000 x$281))
                                  1000)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f)))
       (433
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((434
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1267
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 770 #f #f #f 1 (770) #f #f 0 0 #t #f #f)))
       (harr$305
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             249
             #f
             #f
             #f
             9
             (249 247 211 183 177 159 153 143 168)
             #f
             #f
             0
             9
             #t
             #f
             #f))))
      ((r$1268
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 775 #f #f #f 1 (774) #f #f 0 1 #t #f #f))))
      ((r$1269
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 774 #f #f #f 1 (774) #f #f 0 1 #t #f #f)))
       (r$861 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 335 #f #f #f 1 (335) #f #f 0 0 #t #f #f))))
      ((437
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$952) #f)))
       (r$862 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 332 #f #f #f 1 (332) #f #f 0 1 #t #f #f))))
      ((438
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (lp$117$426
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             512
             #f
             #f
             #f
             3
             (502 512 498)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(511
                 (k$1000 c$428 i$427)
                 ((if (Cyc-fast-eq c$428 ncols$417)
                    (k$1000 (Cyc-fast-eq c$428 ncols$417))
                    (bitwise-and
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(505
                          (r$1009)
                          ((proc$416
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(503
                                 (r$1005)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(502
                                       (r$1002)
                                       ((lp$117$426
                                          k$1000
                                          (Cyc-fast-plus c$428 1)
                                          (Cyc-fast-plus i$427 1)))
                                       #f))
                                   (vector-set! v$419 i$427 r$1005)))
                                 #f))
                             (Cyc-fast-mul 3 c$428)
                             (Cyc-fast-plus (Cyc-fast-mul 2 r$422) r$1009)))
                          #f))
                      c$428
                      1)))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((442
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((443
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((444
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((446
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$959) #f))))
      ((447
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ((451
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((452
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((south .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  -1
                  #f
                  #f
                  #f
                  6
                  (118 262 300 330 444 -1)
                  #f
                  (2)
                  0
                  5
                  #f
                  #f
                  #f))))
      ()
      ()
      ((457
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$136$408) #f))))
      ((458
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((r$570 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 63 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (461
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$571 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 62 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$572 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 61 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$573 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 59 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (hi$540
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             713
             #f
             #f
             #f
             3
             (706 705 705)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((cells$335
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             252
             #f
             #f
             #f
             1
             (252)
             #f
             (vector-ref result$332 0)
             0
             1
             #t
             #f
             #f))))
      ((result$332
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             256
             #f
             #f
             #f
             3
             (256 256 256)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((467
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$132$404) #t)))
       (r$1273
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             782
             #f
             #f
             #f
             1
             (782)
             #f
             (- x$560)
             0
             1
             #t
             #f
             #f))))
      ((r$577 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  5
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! loop$273
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(49
                        (k$579 i$275 result$274)
                        ((if (Cyc-fast-lt i$275 count$263)
                           (thunk$262
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(7
                                 (r$582)
                                 ((loop$273
                                    k$579
                                    (Cyc-fast-plus i$275 1)
                                    r$582))
                                 #f)))
                           (ok?$261
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(47
                                 (r$583)
                                 ((if r$583
                                    (current-jiffy
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(38
                                          (j1$276)
                                          ((current-second
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(36
                                                 (t1$277)
                                                 ((rounded$266
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(28
                                                        (secs2$280)
                                                        ((display
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(26
                                                               (r$590)
                                                               ((write #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(25
                                                                           (r$591)
                                                                           ((display
                                                                              #((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(24
                                                                                  (r$592)
                                                                                  ((write #((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(23
                                                                                              (r$593)
                                                                                              ((display
                                                                                                 #((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(22
                                                                                                     (r$594)
                                                                                                     ((display
                                                                                                        #((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(21
                                                                                                            (r$595)
                                                                                                            ((newline
                                                                                                               #((record-marker)
                                                                                                                 #((record-marker)
                                                                                                                   #f
                                                                                                                   (id args
                                                                                                                       body
                                                                                                                       has-cont))
                                                                                                                 #(20
                                                                                                                   (r$596)
                                                                                                                   ((display
                                                                                                                      #((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(19
                                                                                                                          (r$597)
                                                                                                                          ((this-scheme-implementation-name
                                                                                                                             #((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(18
                                                                                                                                 (r$605)
                                                                                                                                 ((display
                                                                                                                                    #((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(17
                                                                                                                                        (r$598)
                                                                                                                                        ((display
                                                                                                                                           #((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(16
                                                                                                                                               (r$599)
                                                                                                                                               ((display
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(15
                                                                                                                                                      (r$600)
                                                                                                                                                      ((display
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #f
                                                                                                                                                             (id args
                                                                                                                                                                 body
                                                                                                                                                                 has-cont))
                                                                                                                                                           #(14
                                                                                                                                                             (r$601)
                                                                                                                                                             ((display
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #f
                                                                                                                                                                    (id args
                                                                                                                                                                        body
                                                                                                                                                                        has-cont))
                                                                                                                                                                  #(13
                                                                                                                                                                    (r$602)
                                                                                                                                                                    ((newline
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #f
                                                                                                                                                                           (id args
                                                                                                                                                                               body
                                                                                                                                                                               has-cont))
                                                                                                                                                                         #(12
                                                                                                                                                                           (r$603)
                                                                                                                                                                           ((current-output-port
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(11
                                                                                                                                                                                  (r$604)
                                                                                                                                                                                  ((flush-output-port
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(10
                                                                                                                                                                                         (r$584)
                                                                                                                                                                                         ((k$579 result$274))
                                                                                                                                                                                         #f))
                                                                                                                                                                                     r$604))
                                                                                                                                                                                  #f))))
                                                                                                                                                                           #f))))
                                                                                                                                                                    #f))
                                                                                                                                                                (inexact__inline__
                                                                                                                                                                  (Cyc-fast-div
                                                                                                                                                                    (Cyc-fast-sub
                                                                                                                                                                      j1$276
                                                                                                                                                                      j0$270)
                                                                                                                                                                    j/s$268))))
                                                                                                                                                             #f))
                                                                                                                                                         ","))
                                                                                                                                                      #f))
                                                                                                                                                  name$264))
                                                                                                                                               #f))
                                                                                                                                           ","))
                                                                                                                                        #f))
                                                                                                                                    r$605))
                                                                                                                                 #f))))
                                                                                                                          #f))
                                                                                                                      "+!CSVLINE!+"))
                                                                                                                   #f))))
                                                                                                            #f))
                                                                                                        name$264))
                                                                                                     #f))
                                                                                                 ") for "))
                                                                                              #f))
                                                                                          secs2$280))
                                                                                  #f))
                                                                              " seconds ("))
                                                                           #f))
                                                                       (inexact__inline__
                                                                         (Cyc-fast-div
                                                                           (Cyc-fast-sub
                                                                             j1$276
                                                                             j0$270)
                                                                           j/s$268))))
                                                               #f))
                                                           "Elapsed time: "))
                                                        #f))
                                                    (Cyc-fast-sub
                                                      t1$277
                                                      t0$269)))
                                                 #f))))
                                          #f)))
                                    (display
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(45
                                          (r$608)
                                          ((write #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(44
                                                      (r$609)
                                                      ((newline
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(43
                                                             (r$610)
                                                             ((current-output-port
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(42
                                                                    (r$612)
                                                                    ((flush-output-port
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(41
                                                                           (r$611)
                                                                           ((k$579 result$274))
                                                                           #f))
                                                                       r$612))
                                                                    #f))))
                                                             #f))))
                                                      #f))
                                                  result$274))
                                          #f))
                                      "ERROR: returned incorrect result: ")))
                                 #f))
                             result$274)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f)))
       (468
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (cells$338
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             283
             #f
             #f
             #f
             5
             (283 276 271 267 259)
             #f
             #f
             0
             5
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((r$870 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 391 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((473
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$871 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  390
                  #f
                  #f
                  #f
                  1
                  (389)
                  #f
                  (vector-ref harr$361 1)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$872 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  389
                  #f
                  #f
                  #f
                  1
                  (389)
                  #f
                  (vector-ref harr$361 2)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((475
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((476
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (bitwise-not
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             783
             #f
             #f
             3
             (262 591 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(783
                  (k$1272 x$560)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(782
                        (r$1273)
                        ((k$1272 (Cyc-fast-sub r$1273 1)))
                        #f))
                    (- x$560)))
                  #t)))
             2
             0
             #f
             #f
             #f)))
       (harr:nrows
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             541
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(541
                  (k$1035 o$440)
                  ((k$1035 (vector-ref o$440 1)))
                  #t)))
             0
             0
             #f
             #f
             #f)))
       (r$874 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  357
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! tp-lp$368
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(384
                        (k$876 max-len$372
                               entrance$371
                               exit$370
                               tcol$369)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(383
                              (r$877)
                              ((if r$877
                                 (vector k$876 entrance$371 exit$370)
                                 (href/rc
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(380
                                       (top-cell$373)
                                       ((reroot-maze
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(379
                                              (r$879)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(377
                                                    (max-len$377
                                                      entrance$376
                                                      exit$375
                                                      bcol$374)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(376
                                                          (bt-lp$378)
                                                          ((#((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(366
                                                                (r$886)
                                                                ((bt-lp$378
                                                                   #((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(364
                                                                       (result$384)
                                                                       ((#((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(360
                                                                             (max-len$387
                                                                               entrance$386
                                                                               exit$385)
                                                                             ((tp-lp$368
                                                                                k$876
                                                                                max-len$387
                                                                                entrance$386
                                                                                exit$385
                                                                                (Cyc-fast-sub
                                                                                  tcol$369
                                                                                  1)))
                                                                             #f))
                                                                         (vector-ref
                                                                           result$384
                                                                           0)
                                                                         (vector-ref
                                                                           result$384
                                                                           1)
                                                                         (vector-ref
                                                                           result$384
                                                                           2)))
                                                                       #f))
                                                                   max-len$377
                                                                   entrance$376
                                                                   exit$375
                                                                   bcol$374))
                                                                #f))
                                                            (set! bt-lp$378
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(375
                                                                  (k$888 max-len$382
                                                                         entrance$381
                                                                         exit$380
                                                                         bcol$379)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(374
                                                                        (r$889)
                                                                        ((if r$889
                                                                           (vector
                                                                             k$888
                                                                             max-len$382
                                                                             entrance$381
                                                                             exit$380)
                                                                           (href/rc
                                                                             #((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(373
                                                                                 (r$894)
                                                                                 ((path-length
                                                                                    #((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(371
                                                                                        (this-len$383)
                                                                                        ((#((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(370
                                                                                              (r$891)
                                                                                              ((if r$891
                                                                                                 (#((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(368
                                                                                                      (r$892)
                                                                                                      ((bt-lp$378
                                                                                                         k$888
                                                                                                         this-len$383
                                                                                                         tcol$369
                                                                                                         bcol$379
                                                                                                         r$892))
                                                                                                      #f))
                                                                                                  (Cyc-fast-sub
                                                                                                    bcol$379
                                                                                                    1))
                                                                                                 (bt-lp$378
                                                                                                   k$888
                                                                                                   max-len$382
                                                                                                   entrance$381
                                                                                                   exit$380
                                                                                                   (Cyc-fast-sub
                                                                                                     bcol$379
                                                                                                     1))))
                                                                                              #f))
                                                                                          (Cyc-fast-gt
                                                                                            this-len$383
                                                                                            max-len$382)))
                                                                                        #f))
                                                                                    r$894))
                                                                                 #f))
                                                                             harr$361
                                                                             0
                                                                             bcol$379)))
                                                                        #f))
                                                                    (Cyc-fast-lt
                                                                      bcol$379
                                                                      0)))
                                                                  #t)))))
                                                          #f))
                                                      #f))
                                                    #f))
                                                max-len$372
                                                entrance$371
                                                exit$370
                                                (Cyc-fast-sub ncols$362 1)))
                                              #f))
                                          top-cell$373))
                                       #f))
                                   harr$361
                                   (Cyc-fast-sub nrows$363 1)
                                   tcol$369)))
                              #f))
                          (Cyc-fast-lt tcol$369 0)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((477
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (add-wall$396) #t))))
      ((478
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$877 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  383
                  #f
                  #f
                  #f
                  1
                  (383)
                  #f
                  (Cyc-fast-lt tcol$369 0)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$879 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 379 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((483
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((485
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((487
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((s$519 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 669 #f #f #f 1 (669) #f #f 0 1 #t #f #f))))
      ((r$283 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 83 #f #f #f 1 (78) #f #f 0 1 #t #f #f)))
       (490
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((491
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((492
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (lp$196$310
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             191
             #f
             #f
             #f
             3
             (135 191 132)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(190
                 (k$696 r$311)
                 ((if (Cyc-fast-lt r$311 0)
                    (k$696 (Cyc-fast-lt r$311 0))
                    (write-ch
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(186
                          (r$698)
                          ((#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(184
                                (lp$200$318)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(171
                                      (r$729)
                                      ((lp$200$318
                                         #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(170
                                             (r$699)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(169
                                                   (k$724)
                                                   ((odd? #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(168
                                                              (r$725)
                                                              ((if r$725
                                                                 (dot/space
                                                                   #((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(165
                                                                       (r$727)
                                                                       ((write-ch
                                                                          #((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(164
                                                                              (r$726)
                                                                              ((write-ch
                                                                                 k$724
                                                                                 #\\))
                                                                              #f))
                                                                          r$727))
                                                                       #f))
                                                                   harr$305
                                                                   r$311
                                                                   (Cyc-fast-sub
                                                                     ncols$307
                                                                     1))
                                                                 (k$724 #f)))
                                                              #f))
                                                          ncols$307))
                                                   #t))
                                               #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(163
                                                   (r$700)
                                                   ((write-ch
                                                      #((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(162
                                                          (r$701)
                                                          ((#((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(160
                                                                (lp$207$314)
                                                                ((#((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(146
                                                                      (r$712)
                                                                      ((lp$207$314
                                                                         #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(145
                                                                             (r$702)
                                                                             ((#((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(144
                                                                                   (k$706)
                                                                                   ((odd? #((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(143
                                                                                              (r$707)
                                                                                              ((if r$707
                                                                                                 (href/rc
                                                                                                   #((record-marker)
                                                                                                     #((record-marker)
                                                                                                       #f
                                                                                                       (id args
                                                                                                           body
                                                                                                           has-cont))
                                                                                                     #(138
                                                                                                       (r$709)
                                                                                                       ((#((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(137
                                                                                                             (r$708)
                                                                                                             ((display-hexbottom
                                                                                                                k$706
                                                                                                                r$708))
                                                                                                             #f))
                                                                                                         (vector-ref
                                                                                                           r$709
                                                                                                           3)))
                                                                                                       #f))
                                                                                                   harr$305
                                                                                                   r$311
                                                                                                   (Cyc-fast-sub
                                                                                                     ncols$307
                                                                                                     1))
                                                                                                 (if (zero?__inline__
                                                                                                       r$311)
                                                                                                   (k$706 #f)
                                                                                                   (write-ch
                                                                                                     k$706
                                                                                                     #\\))))
                                                                                              #f))
                                                                                          ncols$307))
                                                                                   #t))
                                                                               #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(136
                                                                                   (r$703)
                                                                                   ((write-ch
                                                                                      #((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(135
                                                                                          (r$704)
                                                                                          ((lp$196$310
                                                                                             k$696
                                                                                             (Cyc-fast-sub
                                                                                               r$311
                                                                                               1)))
                                                                                          #f))
                                                                                      #\newline))
                                                                                   #f))))
                                                                             #f))
                                                                         0))
                                                                      #f))
                                                                  (set! lp$207$314
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(159
                                                                        (k$714 c$315)
                                                                        ((if (Cyc-fast-gte
                                                                               c$315
                                                                               (Cyc-fast-mul
                                                                                 2
                                                                                 r$773))
                                                                           (k$714 (Cyc-fast-gte
                                                                                    c$315
                                                                                    (Cyc-fast-mul
                                                                                      2
                                                                                      r$773)))
                                                                           (href/rc
                                                                             #((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(155
                                                                                 (r$723)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(154
                                                                                       (r$722)
                                                                                       ((display-hexbottom
                                                                                          #((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(153
                                                                                              (r$716)
                                                                                              ((dot/space
                                                                                                 #((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(150
                                                                                                     (r$719)
                                                                                                     ((write-ch
                                                                                                        #((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(149
                                                                                                            (r$717)
                                                                                                            ((lp$207$314
                                                                                                               k$714
                                                                                                               (Cyc-fast-plus
                                                                                                                 c$315
                                                                                                                 2)))
                                                                                                            #f))
                                                                                                        r$719))
                                                                                                     #f))
                                                                                                 harr$305
                                                                                                 (Cyc-fast-sub
                                                                                                   r$311
                                                                                                   1)
                                                                                                 (Cyc-fast-plus
                                                                                                   c$315
                                                                                                   1)))
                                                                                              #f))
                                                                                          r$722))
                                                                                       #f))
                                                                                   (vector-ref
                                                                                     r$723
                                                                                     3)))
                                                                                 #f))
                                                                             harr$305
                                                                             r$311
                                                                             c$315)))
                                                                        #t)))))
                                                                #f))
                                                            #f))
                                                          #f))
                                                      #\newline))
                                                   #f))))
                                             #f))
                                         1))
                                      #f))
                                  (set! lp$200$318
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(183
                                        (k$731 c$319)
                                        ((if (Cyc-fast-gte
                                               c$319
                                               (Cyc-fast-mul 2 r$773))
                                           (k$731 (Cyc-fast-gte
                                                    c$319
                                                    (Cyc-fast-mul 2 r$773)))
                                           (dot/space
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(178
                                                 (r$738)
                                                 ((write-ch
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(177
                                                        (r$733)
                                                        ((href/rc
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(176
                                                               (r$737)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(175
                                                                     (r$736)
                                                                     ((display-hexbottom
                                                                        #((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(174
                                                                            (r$734)
                                                                            ((lp$200$318
                                                                               k$731
                                                                               (Cyc-fast-plus
                                                                                 c$319
                                                                                 2)))
                                                                            #f))
                                                                        r$736))
                                                                     #f))
                                                                 (vector-ref
                                                                   r$737
                                                                   3)))
                                                               #f))
                                                           harr$305
                                                           r$311
                                                           c$319))
                                                        #f))
                                                    r$738))
                                                 #f))
                                             harr$305
                                             r$311
                                             (Cyc-fast-sub c$319 1))))
                                        #t)))))
                                #f))
                            #f))
                          #f))
                      #\/)))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((493
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((494
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((o$494 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 636 #f #f #f 1 (636) #f #f 0 1 #t #t #f))))
      ((o$495 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 637 #f #f #f 1 (637) #f #f 0 1 #t #f #f))))
      ((497
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((498
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (o$497 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 638 #f #f #f 1 (638) #f #f 0 1 #t #t #f))))
      ((random-int
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             700
             #f
             #f
             2
             (614 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(700
                  (k$1207 n$533 state$532)
                  ((rand #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(699 (r$1208) ((mod k$1207 r$1208 n$533)) #f))
                         state$532))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (o$498 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 639 #f #f #f 1 (639) #f #f 0 1 #t #f #f))))
      ((r$582 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 7 #f #f #f 1 (7) #f #f 0 1 #t #f #f))))
      ((r$583 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 47 #f #f #f 1 (47) #f #f 0 0 #t #f #f)))
       (result$340
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 274 #f #f #f 2 (274 274) #f #f 0 2 #t #f #f))))
      ((r$584 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 10 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (502
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((503
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r2$515
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             663
             #f
             #f
             #f
             4
             (661 659 653 659)
             #f
             #f
             0
             4
             #f
             #t
             #f))))
      ()
      ((505
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((ncols$390
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             483
             #f
             #f
             #f
             6
             (442 430 428 419 419 428)
             #f
             (vector-ref harr$388 2)
             0
             6
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ((511
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$117$426) #t))))
      ((512
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((513
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((r$886 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  366
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! bt-lp$378
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(375
                        (k$888 max-len$382
                               entrance$381
                               exit$380
                               bcol$379)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(374
                              (r$889)
                              ((if r$889
                                 (vector
                                   k$888
                                   max-len$382
                                   entrance$381
                                   exit$380)
                                 (href/rc
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(373
                                       (r$894)
                                       ((path-length
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(371
                                              (this-len$383)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(370
                                                    (r$891)
                                                    ((if r$891
                                                       (#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(368
                                                            (r$892)
                                                            ((bt-lp$378
                                                               k$888
                                                               this-len$383
                                                               tcol$369
                                                               bcol$379
                                                               r$892))
                                                            #f))
                                                        (Cyc-fast-sub
                                                          bcol$379
                                                          1))
                                                       (bt-lp$378
                                                         k$888
                                                         max-len$382
                                                         entrance$381
                                                         exit$380
                                                         (Cyc-fast-sub
                                                           bcol$379
                                                           1))))
                                                    #f))
                                                (Cyc-fast-gt
                                                  this-len$383
                                                  max-len$382)))
                                              #f))
                                          r$894))
                                       #f))
                                   harr$361
                                   0
                                   bcol$379)))
                              #f))
                          (Cyc-fast-lt bcol$379 0)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ((518
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$113$421) #t)))
       (r$889 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  374
                  #f
                  #f
                  #f
                  1
                  (374)
                  #f
                  (Cyc-fast-lt bcol$379 0)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((519
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (s$522 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  696
                  #f
                  #f
                  #f
                  3
                  (696 688 687)
                  #f
                  #f
                  0
                  3
                  #f
                  #f
                  #f))))
      ()
      ()
      ((522
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((hexwalls$298
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             123
             #f
             #f
             #f
             3
             (114 118 122)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((525
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((528
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((set-cell:walls
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             640
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(640
                  (k$1137 o$500 v$499)
                  ((k$1137 (vector-set! o$500 3 v$499)))
                  #t)))
             0
             0
             #f
             #f
             #f)))
       (529
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (y$409 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  457
                  #f
                  #f
                  #f
                  7
                  (457 446 437 442 451 457 457)
                  #f
                  #f
                  0
                  7
                  #t
                  #f
                  #f))))
      ((530
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((533
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((534
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$590 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 26 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (535
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$591 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 25 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (536
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (elts$441
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 543 #f #f #f 1 (543) #f #f 0 1 #t #f #f))))
      ((r$592 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 24 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (537
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$593 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 23 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (538
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$594 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 22 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (539
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$595 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 21 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (540
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$596 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 20 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (541
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$597 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 19 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$598 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 17 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (543
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$599 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 16 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (544
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((546
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$891 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  370
                  #f
                  #f
                  #f
                  1
                  (370)
                  #f
                  (Cyc-fast-gt this-len$383 max-len$382)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((548
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$892 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  368
                  #f
                  #f
                  #f
                  1
                  (368)
                  #f
                  (Cyc-fast-sub bcol$379 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((549
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$446) #t))))
      ((550
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$894 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 373 #f #f #f 1 (373) #f #f 0 1 #t #f #f))))
      ((551
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((552
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$896 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 392 #f #f #f 1 (392) #f #f 0 1 #t #f #f))))
      ((553
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((555
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((entrance$304
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             249
             #f
             #f
             #f
             3
             (231 215 199)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((557
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$105$452) #f))))
      ((558
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((559
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((560
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((561
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (y$414 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 491 #f #f #f 1 (490) #f #f 0 1 #t #f #f))))
      ((562
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((564
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((565
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((567
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$458) #t))))
      ((j0$270
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 53 #f #f #f 2 (26 14) #f #f 0 2 #t #f #f)))
       (568
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (walls$472
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 604 #f #f #f 1 (603) #f #f 0 1 #f #f #f))))
      ((569
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (node$444
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 552 #f #f #f 1 (552) #f #f 0 1 #t #f #f)))
       (lp$207$314
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             160
             #f
             #f
             #f
             3
             (149 160 146)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(159
                 (k$714 c$315)
                 ((if (Cyc-fast-gte c$315 (Cyc-fast-mul 2 r$773))
                    (k$714 (Cyc-fast-gte c$315 (Cyc-fast-mul 2 r$773)))
                    (href/rc
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(155
                          (r$723)
                          ((#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(154
                                (r$722)
                                ((display-hexbottom
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(153
                                       (r$716)
                                       ((dot/space
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(150
                                              (r$719)
                                              ((write-ch
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(149
                                                     (r$717)
                                                     ((lp$207$314
                                                        k$714
                                                        (Cyc-fast-plus
                                                          c$315
                                                          2)))
                                                     #f))
                                                 r$719))
                                              #f))
                                          harr$305
                                          (Cyc-fast-sub r$311 1)
                                          (Cyc-fast-plus c$315 1)))
                                       #f))
                                   r$722))
                                #f))
                            (vector-ref r$723 3)))
                          #f))
                      harr$305
                      r$311
                      c$315)))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((570
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (node$445
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             551
             #f
             #f
             #f
             1
             (544)
             #f
             node$444
             0
             1
             #f
             #f
             #f))))
      ((571
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((node$447
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 549 #f #f #f 2 (549 548) #f #f 0 2 #t #t #f))))
      ()
      ((574
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((575
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (set1$476
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             598
             #f
             #f
             #f
             3
             (594 588 585)
             #f
             (vector-ref (vector-ref wall$474 1) 1)
             0
             3
             #f
             #f
             #f))))
      ((576
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((577
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (search$467) #t))))
      ((578
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((579
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((580
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$1000
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 511 #f #f #f 2 (502 511) #f #f 1 1 #t #f #t))))
      ()
      ((harr$346
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             356
             #f
             #f
             #f
             8
             (354 346 292 305 313 324 329 335)
             #f
             #f
             0
             8
             #t
             #f
             #f))))
      ((584
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((585
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((586
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((587
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((count$263
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 71 #f #f #f 1 (49) #f #f 0 1 #t #f #f)))
       (588
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((589
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((591
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((592
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((594
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((Cyc-fast-div
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 3 (68 26 14) #f #f 3 0 #t #f #f)))
       (598
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((602
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (node$450
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 559 #f #f #f 1 (553) #f r$1051 0 1 #t #f #f))))
      ((603
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (walls$480
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 588 #f #f #f 1 (587) #f r$1087 0 1 #t #f #f))))
      ((604
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((605
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (node$453
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 557 #f #f #f 2 (557 557) #f #f 0 1 #t #f #f))))
      ((606
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((lp$132$404
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             468
             #f
             #f
             #f
             3
             (433 468 430)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(467
                 (k$938 x$405)
                 ((if (Cyc-fast-lt x$405 0)
                    (k$938 (Cyc-fast-lt x$405 0))
                    (bitwise-and
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(461
                          (r$965)
                          ((#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(458
                                (lp$136$408)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(434
                                      (r$943)
                                      ((lp$136$408
                                         #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(433
                                             (r$940)
                                             ((lp$132$404
                                                k$938
                                                (Cyc-fast-sub x$405 3)))
                                             #f))
                                         (Cyc-fast-plus
                                           (Cyc-fast-mul
                                             (Cyc-fast-sub nrows$389 1)
                                             2)
                                           r$965)))
                                      #f))
                                  (set! lp$136$408
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(457
                                        (k$945 y$409)
                                        ((if (Cyc-fast-lte y$409 1)
                                           (k$945 (Cyc-fast-lte y$409 1))
                                           (href #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(452
                                                     (hex$411)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(451
                                                           (k$959)
                                                           ((if (zero?__inline__
                                                                  x$405)
                                                              (k$959 #f)
                                                              (href #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(447
                                                                        (r$961)
                                                                        ((add-wall$396
                                                                           k$959
                                                                           hex$411
                                                                           r$961
                                                                           south-west))
                                                                        #f))
                                                                    harr$388
                                                                    (Cyc-fast-sub
                                                                      x$405
                                                                      3)
                                                                    (Cyc-fast-sub
                                                                      y$409
                                                                      1))))
                                                           #t))
                                                       #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(446
                                                           (r$950)
                                                           ((href #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(444
                                                                      (r$957)
                                                                      ((add-wall$396
                                                                         #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(443
                                                                             (r$951)
                                                                             ((#((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(442
                                                                                   (k$952)
                                                                                   ((if (Cyc-fast-lt
                                                                                          x$405
                                                                                          (Cyc-fast-mul
                                                                                            3
                                                                                            (Cyc-fast-sub
                                                                                              ncols$390
                                                                                              1)))
                                                                                      (href #((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(438
                                                                                                (r$954)
                                                                                                ((add-wall$396
                                                                                                   k$952
                                                                                                   hex$411
                                                                                                   r$954
                                                                                                   south-east))
                                                                                                #f))
                                                                                            harr$388
                                                                                            (Cyc-fast-plus
                                                                                              x$405
                                                                                              3)
                                                                                            (Cyc-fast-sub
                                                                                              y$409
                                                                                              1))
                                                                                      (k$952 #f)))
                                                                                   #t))
                                                                               #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(437
                                                                                   (r$947)
                                                                                   ((lp$136$408
                                                                                      k$945
                                                                                      (Cyc-fast-sub
                                                                                        y$409
                                                                                        2)))
                                                                                   #f))))
                                                                             #f))
                                                                         hex$411
                                                                         r$957
                                                                         south))
                                                                      #f))
                                                                  harr$388
                                                                  x$405
                                                                  (Cyc-fast-sub
                                                                    y$409
                                                                    2)))
                                                           #f))))
                                                     #f))
                                                 harr$388
                                                 x$405
                                                 y$409)))
                                        #t)))))
                                #f))
                            #f))
                          #f))
                      x$405
                      1)))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ((609
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (node$457
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             569
             #f
             #f
             #f
             1
             (562)
             #f
             new-root$455
             0
             1
             #f
             #f
             #f))))
      ((610
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$810 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  356
                  #f
                  #f
                  #f
                  3
                  (292 286 286)
                  #f
                  #f
                  2
                  1
                  #f
                  #f
                  #t)))
       (611
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((612
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((613
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((614
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((616
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((617
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$484) #t))))
      ((618
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((621
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$1013
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 530 #f #f #f 1 (528) #f #f 1 0 #t #f #t))))
      ((622
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((623
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((626
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((eq? .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                ?
                #f
                #f
                #f
                4
                (575 670 688 682)
                #f
                #f
                4
                0
                #t
                #f
                #f))))
      ((current-output-port
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 3 (43 12 61) #f #f 3 0 #f #f #f))))
      ((630
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$491) #f))))
      ((631
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((y$433 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 538 #f #f #f 1 (538) #f #f 0 1 #t #f #f))))
      ((635
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((636
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((637
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((638
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((639
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (node$460
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             567
             #f
             #f
             #f
             3
             (567 565 564)
             #f
             #f
             0
             3
             #f
             #t
             #f))))
      ((640
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((641
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((642
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((643
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((vector-length
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (622 623) #f #f 2 0 #t #f #f))))
      ((645
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (node$466
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             579
             #f
             #f
             #f
             1
             (571)
             #f
             root$463
             0
             1
             #f
             #f
             #f))))
      ((646
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((647
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((648
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (node$469
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             577
             #f
             #f
             #f
             3
             (577 576 574)
             #f
             #f
             0
             3
             #f
             #t
             #f))))
      ()
      ((650
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((651
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((harr$361
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             393
             #f
             #f
             #f
             6
             (393 392 391 390 383 374)
             #f
             #f
             0
             6
             #f
             #f
             #f))))
      ((653
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (result$384
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             364
             #f
             #f
             #f
             3
             (364 364 364)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ()
      ((k$1020
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 538 #f #f #f 1 (533) #f #f 1 0 #t #f #t))))
      ((input2$289
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 101 #f #f #f 2 (97 88) #f #f 0 2 #t #f #f))))
      ()
      ()
      ((659
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((newline
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             4
             (44 13 21 62)
             #f
             #f
             4
             0
             #f
             #f
             #f)))
       (661
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((663
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$1029
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 539 #f #f #f 1 (539) #f #f 1 0 #t #f #t))))
      ((665
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((count$287
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             105
             #f
             #f
             #f
             4
             (99 89 88 90)
             #f
             #f
             0
             4
             #f
             #f
             #f))))
      ((667
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (entrance$334
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             252
             #f
             #f
             #f
             1
             (252)
             #f
             (vector-ref result$332 1)
             0
             1
             #t
             #f
             #f))))
      ((668
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (main .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 107
                 #f
                 #f
                 2
                 (-1 -1)
                 #f
                 (#((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(107
                      (k$634)
                      ((read #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(105
                                 (count$287)
                                 ((read #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(103
                                            (input1$288)
                                            ((read #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(101
                                                       (input2$289)
                                                       ((read #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(99
                                                                  (output$290)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(97
                                                                        (s3$291)
                                                                        ((#((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(95
                                                                              (s2$292)
                                                                              ((#((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(93
                                                                                    (s1$293)
                                                                                    ((#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(90
                                                                                          (r$642)
                                                                                          ((run-r7rs-benchmark
                                                                                             k$634
                                                                                             r$642
                                                                                             count$287
                                                                                             #((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(89
                                                                                                 (k$646)
                                                                                                 ((hide #((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(88
                                                                                                            (r$647)
                                                                                                            ((hide #((record-marker)
                                                                                                                     #((record-marker)
                                                                                                                       #f
                                                                                                                       (id args
                                                                                                                           body
                                                                                                                           has-cont))
                                                                                                                     #(87
                                                                                                                       (r$648)
                                                                                                                       ((run k$646
                                                                                                                             r$647
                                                                                                                             r$648))
                                                                                                                       #f))
                                                                                                                   count$287
                                                                                                                   input2$289))
                                                                                                            #f))
                                                                                                        count$287
                                                                                                        input1$288))
                                                                                                 #t))
                                                                                             #((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(85
                                                                                                 (k$645 result$295)
                                                                                                 ((k$645 (equal?
                                                                                                           result$295
                                                                                                           output$290)))
                                                                                                 #t))))
                                                                                          #f))
                                                                                      (string-append
                                                                                        "maze"
                                                                                        ":"
                                                                                        s1$293
                                                                                        ":"
                                                                                        s2$292
                                                                                        ":"
                                                                                        s3$291)))
                                                                                    #f))
                                                                                (number->string
                                                                                  input1$288)))
                                                                              #f))
                                                                          (number->string
                                                                            input2$289)))
                                                                        #f))
                                                                    (number->string
                                                                      count$287)))
                                                                  #f))))
                                                       #f))))
                                            #f))))
                                 #f))))
                      #t)))
                 1
                 0
                 #f
                 #f
                 #f))))
      ((669
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((670
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((671
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((672
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((673
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (nc$353
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             344
             #f
             #f
             #f
             1
             (297)
             #f
             (vector-ref harr$346 2)
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ((676
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$1193) #f))))
      ((677
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((679
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((681
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((682
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((684
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$528) #t))))
      ((k$830 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  297
                  #f
                  #f
                  #f
                  3
                  (297 293 297)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(292
                      (r$824)
                      ((if r$824
                         (href #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(288
                                   (ne$356)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(287
                                         (r$827)
                                         ((bit-test
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(286
                                                (r$826)
                                                ((if r$826
                                                   (k$810 #f)
                                                   (proc$347 k$810 ne$356)))
                                                #f))
                                            r$827
                                            south-west))
                                         #f))
                                     (vector-ref ne$356 3)))
                                   #f))
                               harr$346
                               (Cyc-fast-plus (car (vector-ref cell$345 2)) 3)
                               (Cyc-fast-plus (cdr (vector-ref cell$345 2)) 1))
                         (k$810 #f)))
                      #f))
                  3
                  0
                  #t
                  #f
                  #t)))
       (685
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((686
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((687
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((688
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$834 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  305
                  #f
                  #f
                  #f
                  3
                  (305 299 299)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(298
                      (r$823)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(297
                            (k$830)
                            ((if (Cyc-fast-lt
                                   (car (vector-ref cell$345 2))
                                   (Cyc-fast-mul 3 (Cyc-fast-sub nc$353 1)))
                               (if (Cyc-fast-lte
                                     (cdr (vector-ref cell$345 2))
                                     (Cyc-fast-mul 2 (Cyc-fast-sub nr$352 1)))
                                 (k$830 (Cyc-fast-lte
                                          (cdr (vector-ref cell$345 2))
                                          (Cyc-fast-mul
                                            2
                                            (Cyc-fast-sub nr$352 1))))
                                 (mod #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(293
                                          (r$833)
                                          ((k$830 (zero?__inline__ r$833)))
                                          #f))
                                      (car (vector-ref cell$345 2))
                                      6))
                               (k$830 #f)))
                            #t))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(292
                            (r$824)
                            ((if r$824
                               (href #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(288
                                         (ne$356)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(287
                                               (r$827)
                                               ((bit-test
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(286
                                                      (r$826)
                                                      ((if r$826
                                                         (k$810 #f)
                                                         (proc$347
                                                           k$810
                                                           ne$356)))
                                                      #f))
                                                  r$827
                                                  south-west))
                                               #f))
                                           (vector-ref ne$356 3)))
                                         #f))
                                     harr$346
                                     (Cyc-fast-plus
                                       (car (vector-ref cell$345 2))
                                       3)
                                     (Cyc-fast-plus
                                       (cdr (vector-ref cell$345 2))
                                       1))
                               (k$810 #f)))
                            #f))))
                      #f))
                  2
                  1
                  #f
                  #f
                  #t)))
       (remainder
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (737) #f #f 1 0 #f #f #f))))
      ((690
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((wall:bit
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             646
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(646
                  (k$1153 o$506)
                  ((k$1153 (vector-ref o$506 3)))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ()
      ((693
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$524) #t))))
      ((694
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$1032
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 540 #f #f #f 1 (540) #f #f 1 0 #t #f #t))))
      ((695
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (nrows$306
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             247
             #f
             #f
             #f
             2
             (211 132)
             #f
             (vector-ref harr$305 1)
             0
             2
             #t
             #f
             #f))))
      ((696
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$1035
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 541 #f #f #f 1 (541) #f #f 1 0 #t #f #t))))
      ((698
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((699
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((700
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$1038
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 543 #f #f #f 1 (543) #f #f 0 1 #t #f #t))))
      ((701
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((entrance$342
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             271
             #f
             #f
             #f
             2
             (267 259)
             #f
             (vector-ref result$340 0)
             0
             2
             #f
             #f
             #f))))
      ((703
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$1218) #t))))
      ()
      ((705
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((706
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ()
      ((711
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((713
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((715
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((716
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((717
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (list->vector
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (394) #f #f 1 0 #t #f #f))))
      ((718
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (lo$541
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             711
             #f
             #f
             #f
             3
             (706 705 705)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((k$840 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  319
                  #f
                  #f
                  #f
                  3
                  (313 307 307)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(306
                      (r$822)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(305
                            (k$834)
                            ((if (Cyc-fast-lt
                                   (cdr (vector-ref cell$345 2))
                                   (Cyc-fast-mul 2 (Cyc-fast-sub nr$352 1)))
                               (href #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(301
                                         (n$358)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(300
                                               (r$838)
                                               ((bit-test
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(299
                                                      (r$837)
                                                      ((if r$837
                                                         (k$834 #f)
                                                         (proc$347
                                                           k$834
                                                           n$358)))
                                                      #f))
                                                  r$838
                                                  south))
                                               #f))
                                           (vector-ref n$358 3)))
                                         #f))
                                     harr$346
                                     (car (vector-ref cell$345 2))
                                     (Cyc-fast-plus
                                       (cdr (vector-ref cell$345 2))
                                       2))
                               (k$834 #f)))
                            #t))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(298
                            (r$823)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(297
                                  (k$830)
                                  ((if (Cyc-fast-lt
                                         (car (vector-ref cell$345 2))
                                         (Cyc-fast-mul
                                           3
                                           (Cyc-fast-sub nc$353 1)))
                                     (if (Cyc-fast-lte
                                           (cdr (vector-ref cell$345 2))
                                           (Cyc-fast-mul
                                             2
                                             (Cyc-fast-sub nr$352 1)))
                                       (k$830 (Cyc-fast-lte
                                                (cdr (vector-ref cell$345 2))
                                                (Cyc-fast-mul
                                                  2
                                                  (Cyc-fast-sub nr$352 1))))
                                       (mod #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(293
                                                (r$833)
                                                ((k$830 (zero?__inline__
                                                          r$833)))
                                                #f))
                                            (car (vector-ref cell$345 2))
                                            6))
                                     (k$830 #f)))
                                  #t))
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(292
                                  (r$824)
                                  ((if r$824
                                     (href #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(288
                                               (ne$356)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(287
                                                     (r$827)
                                                     ((bit-test
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(286
                                                            (r$826)
                                                            ((if r$826
                                                               (k$810 #f)
                                                               (proc$347
                                                                 k$810
                                                                 ne$356)))
                                                            #f))
                                                        r$827
                                                        south-west))
                                                     #f))
                                                 (vector-ref ne$356 3)))
                                               #f))
                                           harr$346
                                           (Cyc-fast-plus
                                             (car (vector-ref cell$345 2))
                                             3)
                                           (Cyc-fast-plus
                                             (cdr (vector-ref cell$345 2))
                                             1))
                                     (k$810 #f)))
                                  #f))))
                            #f))))
                      #f))
                  2
                  1
                  #f
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$847 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  318
                  #f
                  #f
                  #f
                  3
                  (318 314 318)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(313
                      (r$841)
                      ((if r$841
                         (href #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(309
                                   (nw$359)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(308
                                         (r$844)
                                         ((bit-test
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(307
                                                (r$843)
                                                ((if r$843
                                                   (k$840 #f)
                                                   (proc$347 k$840 nw$359)))
                                                #f))
                                            r$844
                                            south-east))
                                         #f))
                                     (vector-ref nw$359 3)))
                                   #f))
                               harr$346
                               (Cyc-fast-sub (car (vector-ref cell$345 2)) 3)
                               (Cyc-fast-plus (cdr (vector-ref cell$345 2)) 1))
                         (k$840 #f)))
                      #f))
                  3
                  0
                  #t
                  #f
                  #t))))
      ()
      ((k$1042
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 552 #f #f #f 1 (544) #f #f 0 1 #f #f #t))))
      ()
      ((harr$388
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             487
             #f
             #f
             #f
             13
             (487
              485
              457
              446
              442
              451
              425
              416
              409
              405
              402
              401
              419)
             #f
             #f
             0
             13
             #t
             #f
             #f))))
      ((k$1045
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 549 #f #f #f 2 (546 546) #f #f 1 1 #t #f #t))))
      ()
      ((wall:neighbor
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             647
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(647
                  (k$1156 o$507)
                  ((k$1156 (vector-ref o$507 2)))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ((737
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$1238) #f))))
      ()
      ()
      ((740
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((741
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((this-scheme-implementation-name
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             4
             #f
             #f
             2
             (-1 19)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(4
                  (k$564)
                  ((Cyc-version
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(3
                         (r$565)
                         ((k$564 (string-append "cyclone-" r$565)))
                         #f))))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ((cell:id
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             642
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(642
                  (k$1143 o$502)
                  ((k$1143 (vector-ref o$502 2)))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ((proc$347
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             356
             #f
             #f
             #f
             6
             (286 299 307 321 327 332)
             #f
             #f
             6
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$851 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  325
                  #f
                  #f
                  #f
                  2
                  (321 324)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(320
                      (r$821)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(319
                            (k$840)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(318
                                  (k$847)
                                  ((if (Cyc-fast-gt
                                         (car (vector-ref cell$345 2))
                                         0)
                                     (if (Cyc-fast-lte
                                           (cdr (vector-ref cell$345 2))
                                           (Cyc-fast-mul
                                             2
                                             (Cyc-fast-sub nr$352 1)))
                                       (k$847 (Cyc-fast-lte
                                                (cdr (vector-ref cell$345 2))
                                                (Cyc-fast-mul
                                                  2
                                                  (Cyc-fast-sub nr$352 1))))
                                       (mod #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(314
                                                (r$850)
                                                ((k$847 (zero?__inline__
                                                          r$850)))
                                                #f))
                                            (car (vector-ref cell$345 2))
                                            6))
                                     (k$847 #f)))
                                  #t))
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(313
                                  (r$841)
                                  ((if r$841
                                     (href #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(309
                                               (nw$359)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(308
                                                     (r$844)
                                                     ((bit-test
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(307
                                                            (r$843)
                                                            ((if r$843
                                                               (k$840 #f)
                                                               (proc$347
                                                                 k$840
                                                                 nw$359)))
                                                            #f))
                                                        r$844
                                                        south-east))
                                                     #f))
                                                 (vector-ref nw$359 3)))
                                               #f))
                                           harr$346
                                           (Cyc-fast-sub
                                             (car (vector-ref cell$345 2))
                                             3)
                                           (Cyc-fast-plus
                                             (cdr (vector-ref cell$345 2))
                                             1))
                                     (k$840 #f)))
                                  #f))))
                            #t))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(306
                            (r$822)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(305
                                  (k$834)
                                  ((if (Cyc-fast-lt
                                         (cdr (vector-ref cell$345 2))
                                         (Cyc-fast-mul
                                           2
                                           (Cyc-fast-sub nr$352 1)))
                                     (href #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(301
                                               (n$358)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(300
                                                     (r$838)
                                                     ((bit-test
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(299
                                                            (r$837)
                                                            ((if r$837
                                                               (k$834 #f)
                                                               (proc$347
                                                                 k$834
                                                                 n$358)))
                                                            #f))
                                                        r$838
                                                        south))
                                                     #f))
                                                 (vector-ref n$358 3)))
                                               #f))
                                           harr$346
                                           (car (vector-ref cell$345 2))
                                           (Cyc-fast-plus
                                             (cdr (vector-ref cell$345 2))
                                             2))
                                     (k$834 #f)))
                                  #t))
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(298
                                  (r$823)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(297
                                        (k$830)
                                        ((if (Cyc-fast-lt
                                               (car (vector-ref cell$345 2))
                                               (Cyc-fast-mul
                                                 3
                                                 (Cyc-fast-sub nc$353 1)))
                                           (if (Cyc-fast-lte
                                                 (cdr (vector-ref cell$345 2))
                                                 (Cyc-fast-mul
                                                   2
                                                   (Cyc-fast-sub nr$352 1)))
                                             (k$830 (Cyc-fast-lte
                                                      (cdr (vector-ref
                                                             cell$345
                                                             2))
                                                      (Cyc-fast-mul
                                                        2
                                                        (Cyc-fast-sub
                                                          nr$352
                                                          1))))
                                             (mod #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(293
                                                      (r$833)
                                                      ((k$830 (zero?__inline__
                                                                r$833)))
                                                      #f))
                                                  (car (vector-ref cell$345 2))
                                                  6))
                                           (k$830 #f)))
                                        #t))
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(292
                                        (r$824)
                                        ((if r$824
                                           (href #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(288
                                                     (ne$356)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(287
                                                           (r$827)
                                                           ((bit-test
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(286
                                                                  (r$826)
                                                                  ((if r$826
                                                                     (k$810 #f)
                                                                     (proc$347
                                                                       k$810
                                                                       ne$356)))
                                                                  #f))
                                                              r$827
                                                              south-west))
                                                           #f))
                                                       (vector-ref ne$356 3)))
                                                     #f))
                                                 harr$346
                                                 (Cyc-fast-plus
                                                   (car (vector-ref cell$345 2))
                                                   3)
                                                 (Cyc-fast-plus
                                                   (cdr (vector-ref cell$345 2))
                                                   1))
                                           (k$810 #f)))
                                        #f))))
                                  #f))))
                            #f))))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t)))
       (760
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$1254) #f)))
       (old-parent$461
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             565
             #f
             #f
             #f
             2
             (564 564)
             #f
             (vector-ref node$460 4)
             0
             1
             #f
             #f
             #f))))
      ((set-size
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             669
             #f
             #f
             4
             (585 661 663 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(669
                  (k$1177 s$519)
                  ((get-set-root
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(668 (r$1178) ((k$1177 (car r$1178))) #f))
                     s$519))
                  #t)))
             3
             0
             #f
             #f
             #f))))
      ()
      ((763
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((764
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$856 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  330
                  #f
                  #f
                  #f
                  2
                  (327 329)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(326
                      (r$820)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(325
                            (k$851)
                            ((bit-test
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(324
                                   (r$852)
                                   ((if r$852
                                      (k$851 #f)
                                      (href #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(321
                                                (r$853)
                                                ((proc$347 k$851 r$853))
                                                #f))
                                            harr$346
                                            (Cyc-fast-plus
                                              (car (vector-ref cell$345 2))
                                              3)
                                            (Cyc-fast-sub
                                              (cdr (vector-ref cell$345 2))
                                              1))))
                                   #f))
                               walls$348
                               south-east))
                            #t))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(320
                            (r$821)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(319
                                  (k$840)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(318
                                        (k$847)
                                        ((if (Cyc-fast-gt
                                               (car (vector-ref cell$345 2))
                                               0)
                                           (if (Cyc-fast-lte
                                                 (cdr (vector-ref cell$345 2))
                                                 (Cyc-fast-mul
                                                   2
                                                   (Cyc-fast-sub nr$352 1)))
                                             (k$847 (Cyc-fast-lte
                                                      (cdr (vector-ref
                                                             cell$345
                                                             2))
                                                      (Cyc-fast-mul
                                                        2
                                                        (Cyc-fast-sub
                                                          nr$352
                                                          1))))
                                             (mod #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(314
                                                      (r$850)
                                                      ((k$847 (zero?__inline__
                                                                r$850)))
                                                      #f))
                                                  (car (vector-ref cell$345 2))
                                                  6))
                                           (k$847 #f)))
                                        #t))
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(313
                                        (r$841)
                                        ((if r$841
                                           (href #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(309
                                                     (nw$359)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(308
                                                           (r$844)
                                                           ((bit-test
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(307
                                                                  (r$843)
                                                                  ((if r$843
                                                                     (k$840 #f)
                                                                     (proc$347
                                                                       k$840
                                                                       nw$359)))
                                                                  #f))
                                                              r$844
                                                              south-east))
                                                           #f))
                                                       (vector-ref nw$359 3)))
                                                     #f))
                                                 harr$346
                                                 (Cyc-fast-sub
                                                   (car (vector-ref cell$345 2))
                                                   3)
                                                 (Cyc-fast-plus
                                                   (cdr (vector-ref cell$345 2))
                                                   1))
                                           (k$840 #f)))
                                        #f))))
                                  #t))
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(306
                                  (r$822)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(305
                                        (k$834)
                                        ((if (Cyc-fast-lt
                                               (cdr (vector-ref cell$345 2))
                                               (Cyc-fast-mul
                                                 2
                                                 (Cyc-fast-sub nr$352 1)))
                                           (href #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(301
                                                     (n$358)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(300
                                                           (r$838)
                                                           ((bit-test
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(299
                                                                  (r$837)
                                                                  ((if r$837
                                                                     (k$834 #f)
                                                                     (proc$347
                                                                       k$834
                                                                       n$358)))
                                                                  #f))
                                                              r$838
                                                              south))
                                                           #f))
                                                       (vector-ref n$358 3)))
                                                     #f))
                                                 harr$346
                                                 (car (vector-ref cell$345 2))
                                                 (Cyc-fast-plus
                                                   (cdr (vector-ref cell$345 2))
                                                   2))
                                           (k$834 #f)))
                                        #t))
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(298
                                        (r$823)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(297
                                              (k$830)
                                              ((if (Cyc-fast-lt
                                                     (car (vector-ref
                                                            cell$345
                                                            2))
                                                     (Cyc-fast-mul
                                                       3
                                                       (Cyc-fast-sub nc$353 1)))
                                                 (if (Cyc-fast-lte
                                                       (cdr (vector-ref
                                                              cell$345
                                                              2))
                                                       (Cyc-fast-mul
                                                         2
                                                         (Cyc-fast-sub
                                                           nr$352
                                                           1)))
                                                   (k$830 (Cyc-fast-lte
                                                            (cdr (vector-ref
                                                                   cell$345
                                                                   2))
                                                            (Cyc-fast-mul
                                                              2
                                                              (Cyc-fast-sub
                                                                nr$352
                                                                1))))
                                                   (mod #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(293
                                                            (r$833)
                                                            ((k$830 (zero?__inline__
                                                                      r$833)))
                                                            #f))
                                                        (car (vector-ref
                                                               cell$345
                                                               2))
                                                        6))
                                                 (k$830 #f)))
                                              #t))
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(292
                                              (r$824)
                                              ((if r$824
                                                 (href #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(288
                                                           (ne$356)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(287
                                                                 (r$827)
                                                                 ((bit-test
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(286
                                                                        (r$826)
                                                                        ((if r$826
                                                                           (k$810 #f)
                                                                           (proc$347
                                                                             k$810
                                                                             ne$356)))
                                                                        #f))
                                                                    r$827
                                                                    south-west))
                                                                 #f))
                                                             (vector-ref
                                                               ne$356
                                                               3)))
                                                           #f))
                                                       harr$346
                                                       (Cyc-fast-plus
                                                         (car (vector-ref
                                                                cell$345
                                                                2))
                                                         3)
                                                       (Cyc-fast-plus
                                                         (cdr (vector-ref
                                                                cell$345
                                                                2))
                                                         1))
                                                 (k$810 #f)))
                                              #f))))
                                        #f))))
                                  #f))))
                            #f))))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t))))
      ((k$1050
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 561 #f #f #f 1 (553) #f #f 0 1 #t #f #t))))
      ()
      ()
      ((769
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$1266) #f))))
      ((770
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$1054
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 557 #f #f #f 2 (557 555) #f #f 1 1 #t #f #t))))
      ((771
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((772
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (harr:elts
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             539
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(539
                  (k$1029 o$438)
                  ((k$1029 (vector-ref o$438 3)))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ()
      ((774
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((775
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$1059
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 570 #f #f #f 1 (562) #f #f 0 1 #f #f #t))))
      ()
      ((777
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((778
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((779
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((780
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((781
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((782
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((783
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ((new-parent$459
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 567 #f #f #f 1 (565) #f #f 0 1 #t #f #f))))
      ()
      ((k$564 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 4 #f #f #f 1 (3) #f #f 1 0 #t #f #t)))
       (n$358 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 301 #f #f #f 2 (301 299) #f #f 0 2 #f #f #f))))
      ()
      ()
      ()
      ((k$568 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 71 #f #f #f 1 (5) #f #f 0 1 #t #f #t))))
      ()
      ()
      ((k$860 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  336
                  #f
                  #f
                  #f
                  2
                  (332 335)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(331
                      (r$819)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(330
                            (k$856)
                            ((bit-test
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(329
                                   (r$857)
                                   ((if r$857
                                      (k$856 #f)
                                      (href #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(327
                                                (r$858)
                                                ((proc$347 k$856 r$858))
                                                #f))
                                            harr$346
                                            (car (vector-ref cell$345 2))
                                            (Cyc-fast-sub
                                              (cdr (vector-ref cell$345 2))
                                              2))))
                                   #f))
                               walls$348
                               south))
                            #t))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(326
                            (r$820)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(325
                                  (k$851)
                                  ((bit-test
                                     #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(324
                                         (r$852)
                                         ((if r$852
                                            (k$851 #f)
                                            (href #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(321
                                                      (r$853)
                                                      ((proc$347 k$851 r$853))
                                                      #f))
                                                  harr$346
                                                  (Cyc-fast-plus
                                                    (car (vector-ref
                                                           cell$345
                                                           2))
                                                    3)
                                                  (Cyc-fast-sub
                                                    (cdr (vector-ref
                                                           cell$345
                                                           2))
                                                    1))))
                                         #f))
                                     walls$348
                                     south-east))
                                  #t))
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(320
                                  (r$821)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(319
                                        (k$840)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(318
                                              (k$847)
                                              ((if (Cyc-fast-gt
                                                     (car (vector-ref
                                                            cell$345
                                                            2))
                                                     0)
                                                 (if (Cyc-fast-lte
                                                       (cdr (vector-ref
                                                              cell$345
                                                              2))
                                                       (Cyc-fast-mul
                                                         2
                                                         (Cyc-fast-sub
                                                           nr$352
                                                           1)))
                                                   (k$847 (Cyc-fast-lte
                                                            (cdr (vector-ref
                                                                   cell$345
                                                                   2))
                                                            (Cyc-fast-mul
                                                              2
                                                              (Cyc-fast-sub
                                                                nr$352
                                                                1))))
                                                   (mod #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(314
                                                            (r$850)
                                                            ((k$847 (zero?__inline__
                                                                      r$850)))
                                                            #f))
                                                        (car (vector-ref
                                                               cell$345
                                                               2))
                                                        6))
                                                 (k$847 #f)))
                                              #t))
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(313
                                              (r$841)
                                              ((if r$841
                                                 (href #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(309
                                                           (nw$359)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(308
                                                                 (r$844)
                                                                 ((bit-test
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(307
                                                                        (r$843)
                                                                        ((if r$843
                                                                           (k$840 #f)
                                                                           (proc$347
                                                                             k$840
                                                                             nw$359)))
                                                                        #f))
                                                                    r$844
                                                                    south-east))
                                                                 #f))
                                                             (vector-ref
                                                               nw$359
                                                               3)))
                                                           #f))
                                                       harr$346
                                                       (Cyc-fast-sub
                                                         (car (vector-ref
                                                                cell$345
                                                                2))
                                                         3)
                                                       (Cyc-fast-plus
                                                         (cdr (vector-ref
                                                                cell$345
                                                                2))
                                                         1))
                                                 (k$840 #f)))
                                              #f))))
                                        #t))
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(306
                                        (r$822)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(305
                                              (k$834)
                                              ((if (Cyc-fast-lt
                                                     (cdr (vector-ref
                                                            cell$345
                                                            2))
                                                     (Cyc-fast-mul
                                                       2
                                                       (Cyc-fast-sub nr$352 1)))
                                                 (href #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(301
                                                           (n$358)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(300
                                                                 (r$838)
                                                                 ((bit-test
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(299
                                                                        (r$837)
                                                                        ((if r$837
                                                                           (k$834 #f)
                                                                           (proc$347
                                                                             k$834
                                                                             n$358)))
                                                                        #f))
                                                                    r$838
                                                                    south))
                                                                 #f))
                                                             (vector-ref
                                                               n$358
                                                               3)))
                                                           #f))
                                                       harr$346
                                                       (car (vector-ref
                                                              cell$345
                                                              2))
                                                       (Cyc-fast-plus
                                                         (cdr (vector-ref
                                                                cell$345
                                                                2))
                                                         2))
                                                 (k$834 #f)))
                                              #t))
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(298
                                              (r$823)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(297
                                                    (k$830)
                                                    ((if (Cyc-fast-lt
                                                           (car (vector-ref
                                                                  cell$345
                                                                  2))
                                                           (Cyc-fast-mul
                                                             3
                                                             (Cyc-fast-sub
                                                               nc$353
                                                               1)))
                                                       (if (Cyc-fast-lte
                                                             (cdr (vector-ref
                                                                    cell$345
                                                                    2))
                                                             (Cyc-fast-mul
                                                               2
                                                               (Cyc-fast-sub
                                                                 nr$352
                                                                 1)))
                                                         (k$830 (Cyc-fast-lte
                                                                  (cdr (vector-ref
                                                                         cell$345
                                                                         2))
                                                                  (Cyc-fast-mul
                                                                    2
                                                                    (Cyc-fast-sub
                                                                      nr$352
                                                                      1))))
                                                         (mod #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(293
                                                                  (r$833)
                                                                  ((k$830 (zero?__inline__
                                                                            r$833)))
                                                                  #f))
                                                              (car (vector-ref
                                                                     cell$345
                                                                     2))
                                                              6))
                                                       (k$830 #f)))
                                                    #t))
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(292
                                                    (r$824)
                                                    ((if r$824
                                                       (href #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(288
                                                                 (ne$356)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(287
                                                                       (r$827)
                                                                       ((bit-test
                                                                          #((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(286
                                                                              (r$826)
                                                                              ((if r$826
                                                                                 (k$810 #f)
                                                                                 (proc$347
                                                                                   k$810
                                                                                   ne$356)))
                                                                              #f))
                                                                          r$827
                                                                          south-west))
                                                                       #f))
                                                                   (vector-ref
                                                                     ne$356
                                                                     3)))
                                                                 #f))
                                                             harr$346
                                                             (Cyc-fast-plus
                                                               (car (vector-ref
                                                                      cell$345
                                                                      2))
                                                               3)
                                                             (Cyc-fast-plus
                                                               (cdr (vector-ref
                                                                      cell$345
                                                                      2))
                                                               1))
                                                       (k$810 #f)))
                                                    #f))))
                                              #f))))
                                        #f))))
                                  #f))))
                            #f))))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ((nrows$331
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 258 #f #f #f 1 (258) #f #f 0 1 #t #f #f))))
      ()
      ((ok?$261
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 71 #f #f #f 1 (49) #f #f 1 0 #f #f #f))))
      ()
      ((k$869 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 393 #f #f #f 1 (357) #f #f 0 1 #f #f #t)))
       (k$1062
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 567 #f #f #f 2 (564 564) #f #f 1 1 #t #f #t))))
      ()
      ((nrows$337
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             285
             #f
             #f
             #f
             3
             (285 279 267)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ()
      ()
      ((k$1067
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 580 #f #f #f 1 (571) #f #f 0 1 #f #f #t))))
      ()
      ((entrance$371
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 384 #f #f #f 2 (379 383) #f #f 0 2 #f #f #f))))
      ()
      ((output
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             #f
             #f
             #f
             5
             (111 108 251 250 -1)
             #t
             '()
             0
             2
             #f
             #f
             #f))))
      ((j1$276
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 38 #f #f #f 2 (26 14) #f #f 0 2 #t #f #f))))
      ()
      ((entrance$376
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             377
             #f
             #f
             #f
             1
             (366)
             #f
             entrance$371
             0
             1
             #f
             #f
             #f))))
      ((set2$478
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             594
             #f
             #f
             #f
             2
             (594 588)
             #f
             (vector-ref (vector-ref wall$474 2) 1)
             0
             2
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((loop$273
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             50
             #f
             #f
             #f
             3
             (7 50 5)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(49
                 (k$579 i$275 result$274)
                 ((if (Cyc-fast-lt i$275 count$263)
                    (thunk$262
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(7
                          (r$582)
                          ((loop$273 k$579 (Cyc-fast-plus i$275 1) r$582))
                          #f)))
                    (ok?$261
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(47
                          (r$583)
                          ((if r$583
                             (current-jiffy
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(38
                                   (j1$276)
                                   ((current-second
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(36
                                          (t1$277)
                                          ((rounded$266
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(28
                                                 (secs2$280)
                                                 ((display
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(26
                                                        (r$590)
                                                        ((write #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(25
                                                                    (r$591)
                                                                    ((display
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(24
                                                                           (r$592)
                                                                           ((write #((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(23
                                                                                       (r$593)
                                                                                       ((display
                                                                                          #((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(22
                                                                                              (r$594)
                                                                                              ((display
                                                                                                 #((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(21
                                                                                                     (r$595)
                                                                                                     ((newline
                                                                                                        #((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(20
                                                                                                            (r$596)
                                                                                                            ((display
                                                                                                               #((record-marker)
                                                                                                                 #((record-marker)
                                                                                                                   #f
                                                                                                                   (id args
                                                                                                                       body
                                                                                                                       has-cont))
                                                                                                                 #(19
                                                                                                                   (r$597)
                                                                                                                   ((this-scheme-implementation-name
                                                                                                                      #((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(18
                                                                                                                          (r$605)
                                                                                                                          ((display
                                                                                                                             #((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(17
                                                                                                                                 (r$598)
                                                                                                                                 ((display
                                                                                                                                    #((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(16
                                                                                                                                        (r$599)
                                                                                                                                        ((display
                                                                                                                                           #((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(15
                                                                                                                                               (r$600)
                                                                                                                                               ((display
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(14
                                                                                                                                                      (r$601)
                                                                                                                                                      ((display
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #f
                                                                                                                                                             (id args
                                                                                                                                                                 body
                                                                                                                                                                 has-cont))
                                                                                                                                                           #(13
                                                                                                                                                             (r$602)
                                                                                                                                                             ((newline
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #f
                                                                                                                                                                    (id args
                                                                                                                                                                        body
                                                                                                                                                                        has-cont))
                                                                                                                                                                  #(12
                                                                                                                                                                    (r$603)
                                                                                                                                                                    ((current-output-port
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #f
                                                                                                                                                                           (id args
                                                                                                                                                                               body
                                                                                                                                                                               has-cont))
                                                                                                                                                                         #(11
                                                                                                                                                                           (r$604)
                                                                                                                                                                           ((flush-output-port
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(10
                                                                                                                                                                                  (r$584)
                                                                                                                                                                                  ((k$579 result$274))
                                                                                                                                                                                  #f))
                                                                                                                                                                              r$604))
                                                                                                                                                                           #f))))
                                                                                                                                                                    #f))))
                                                                                                                                                             #f))
                                                                                                                                                         (inexact__inline__
                                                                                                                                                           (Cyc-fast-div
                                                                                                                                                             (Cyc-fast-sub
                                                                                                                                                               j1$276
                                                                                                                                                               j0$270)
                                                                                                                                                             j/s$268))))
                                                                                                                                                      #f))
                                                                                                                                                  ","))
                                                                                                                                               #f))
                                                                                                                                           name$264))
                                                                                                                                        #f))
                                                                                                                                    ","))
                                                                                                                                 #f))
                                                                                                                             r$605))
                                                                                                                          #f))))
                                                                                                                   #f))
                                                                                                               "+!CSVLINE!+"))
                                                                                                            #f))))
                                                                                                     #f))
                                                                                                 name$264))
                                                                                              #f))
                                                                                          ") for "))
                                                                                       #f))
                                                                                   secs2$280))
                                                                           #f))
                                                                       " seconds ("))
                                                                    #f))
                                                                (inexact__inline__
                                                                  (Cyc-fast-div
                                                                    (Cyc-fast-sub
                                                                      j1$276
                                                                      j0$270)
                                                                    j/s$268))))
                                                        #f))
                                                    "Elapsed time: "))
                                                 #f))
                                             (Cyc-fast-sub t1$277 t0$269)))
                                          #f))))
                                   #f)))
                             (display
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(45
                                   (r$608)
                                   ((write #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(44
                                               (r$609)
                                               ((newline
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(43
                                                      (r$610)
                                                      ((current-output-port
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(42
                                                             (r$612)
                                                             ((flush-output-port
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(41
                                                                    (r$611)
                                                                    ((k$579 result$274))
                                                                    #f))
                                                                r$612))
                                                             #f))))
                                                      #f))))
                                               #f))
                                           result$274))
                                   #f))
                               "ERROR: returned incorrect result: ")))
                          #f))
                      result$274)))
                 #t))
             2
             0
             #t
             #f
             #f))))
      ()
      ()
      ((%halt .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(? ? #f #f #f 1 (-1) #f #f 0 1 #f #f #f))))
      ()
      ((k$579 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 49 #f #f #f 3 (41 10 7) #f #f 2 1 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((i$424 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  513
                  #f
                  #f
                  #f
                  1
                  (498)
                  #f
                  (Cyc-fast-mul r$422 ncols$417)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((k$876 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 384 #f #f #f 2 (360 383) #f #f 0 2 #f #f #t))))
      ((k$1070
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 577 #f #f #f 1 (576) #f #f 0 1 #f #f #t))))
      ((i$427 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 511 #f #f #f 2 (503 502) #f #f 0 2 #t #f #f))))
      ()
      ((k$1073
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 575 #f #f #f 2 (574 574) #f #f 1 1 #f #f #t))))
      ()
      ()
      ()
      ((k$1077
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 604 #f #f #f 1 (604) #f #f 0 1 #t #f #t))))
      ()
      ((k$1079
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 603 #f #f #f 1 (603) #f #f 0 1 #t #f #t)))
       (entrance$381
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 375 #f #f #f 2 (370 374) #f #f 0 2 #f #f #f))))
      ()
      ()
      ()
      ()
      ((entrance$386
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             360
             #f
             #f
             #f
             1
             (360)
             #f
             (vector-ref result$384 1)
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((cell$345
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             356
             #f
             #f
             #f
             22
             (356
              292
              292
              297
              297
              297
              297
              305
              305
              305
              313
              313
              318
              318
              318
              318
              324
              324
              329
              329
              335
              335)
             #f
             #f
             0
             22
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$888 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  375
                  #f
                  #f
                  #f
                  3
                  (370 368 374)
                  #f
                  #f
                  0
                  3
                  #f
                  #f
                  #t)))
       (k$1081
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             602
             #f
             #f
             #f
             3
             (584 584 592)
             #f
             #f
             2
             1
             #f
             #f
             #t))))
      ()
      ()
      ()
      ()
      ()
      ((r$1100
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             606
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$484
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(617
                   (k$1102 i$485)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(616
                         (r$1103)
                         ((if r$1103
                            (#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(614
                                 (r$1106)
                                 ((random-int
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(613
                                        (r$1107)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(612
                                              (elt-i$487 j$486)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(611
                                                    (r$1109)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(610
                                                          (r$1108)
                                                          ((#((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(609
                                                                (r$1104)
                                                                ((lp$484
                                                                   k$1102
                                                                   (Cyc-fast-sub
                                                                     i$485
                                                                     1)))
                                                                #f))
                                                            (vector-set!
                                                              v$482
                                                              j$486
                                                              elt-i$487)))
                                                          #f))
                                                      (vector-set!
                                                        v$482
                                                        i$485
                                                        r$1109)))
                                                    #f))
                                                (vector-ref v$482 j$486)))
                                              #f))
                                          r$1106
                                          r$1107))
                                        #f))
                                    i$485
                                    random-state$481))
                                 #f))
                             (vector-ref v$482 i$485))
                            (k$1102 #f)))
                         #f))
                     (Cyc-fast-gt i$485 1)))
                   #t)))
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ((r$1103
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             616
             #f
             #f
             #f
             1
             (616)
             #f
             (Cyc-fast-gt i$485 1)
             0
             0
             #t
             #f
             #f))))
      ((lp$524
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             694
             #f
             #f
             #f
             3
             (690 694 673)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(693
                 (k$1189 r$525)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(690
                       (r$1191)
                       ((if r$1191
                          (lp$524 k$1189 (cdr r$525))
                          (#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(688
                               (k$1193)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(687
                                     (r$1194)
                                     ((if r$1194
                                        (k$1193 #f)
                                        (#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(686
                                             (x$527)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(685
                                                   (lp$528)
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(677
                                                         (r$1195)
                                                         ((lp$528 k$1193 x$527))
                                                         #f))
                                                     (set! lp$528
                                                       #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(684
                                                           (k$1197 x$529)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(682
                                                                 (next$530)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(681
                                                                       (r$1199)
                                                                       ((if r$1199
                                                                          (k$1197
                                                                            #f)
                                                                          (#((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(679
                                                                               (r$1200)
                                                                               ((lp$528
                                                                                  k$1197
                                                                                  next$530))
                                                                               #f))
                                                                           (set-cdr!
                                                                             x$529
                                                                             r$525))))
                                                                       #f))
                                                                   (eq? r$525
                                                                        next$530)))
                                                                 #f))
                                                             (cdr x$529)))
                                                           #t)))))
                                                   #f))
                                               #f))
                                             #f))
                                         s$522)))
                                     #f))
                                 (eq? r$525 s$522)))
                               #t))
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(676 (r$1192) ((k$1189 r$525)) #f)))))
                       #f))
                   (pair? (cdr r$525))))
                 #t))
             2
             0
             #f
             #f
             #f)))
       (r$1104
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             609
             #f
             #f
             #f
             0
             ()
             #f
             (vector-set! v$482 j$486 elt-i$487)
             0
             0
             #t
             #f
             #f))))
      ()
      ((r$1106
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             614
             #f
             #f
             #f
             1
             (613)
             #f
             (vector-ref v$482 i$485)
             0
             1
             #f
             #f
             #f))))
      ((r$1107
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 613 #f #f #f 1 (613) #f #f 0 1 #t #f #f))))
      ((lp$528
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             685
             #f
             #f
             #f
             3
             (679 685 677)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(684
                 (k$1197 x$529)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(682
                       (next$530)
                       ((#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(681
                             (r$1199)
                             ((if r$1199
                                (k$1197 #f)
                                (#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(679
                                     (r$1200)
                                     ((lp$528 k$1197 next$530))
                                     #f))
                                 (set-cdr! x$529 r$525))))
                             #f))
                         (eq? r$525 next$530)))
                       #f))
                   (cdr x$529)))
                 #t))
             2
             0
             #f
             #f
             #f)))
       (r$1108
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             610
             #f
             #f
             #f
             0
             ()
             #f
             (vector-set! v$482 i$485 r$1109)
             0
             0
             #t
             #f
             #f)))
       (r$700 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 163 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$1109
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             611
             #f
             #f
             #f
             1
             (611)
             #f
             (vector-ref v$482 j$486)
             0
             1
             #t
             #f
             #f)))
       (r$701 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 162 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$702 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 145 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((bcol$374
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             377
             #f
             #f
             #f
             1
             (366)
             #f
             (Cyc-fast-sub ncols$362 1)
             0
             1
             #f
             #f
             #f)))
       (r$703 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 136 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$704 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 135 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ((r$707 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 143 #f #f #f 1 (143) #f #f 0 0 #t #f #f))))
      ((bcol$379
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             375
             #f
             #f
             #f
             5
             (375 374 370 370 368)
             #f
             #f
             0
             5
             #f
             #f
             #f)))
       (r$708 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  137
                  #f
                  #f
                  #f
                  1
                  (137)
                  #f
                  (vector-ref r$709 3)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$709 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 138 #f #f #f 1 (138) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((tcol$364
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             386
             #f
             #f
             #f
             1
             (357)
             #f
             (Cyc-fast-sub ncols$362 1)
             0
             1
             #f
             #f
             #f))))
      ((round__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (68) #f #f 1 0 #t #f #f)))
       (nrows$363
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 388 #f #f #f 1 (383) #f r$871 0 1 #t #f #f))))
      ()
      ((k$899 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 487 #f #f #f 1 (394) #f #f 1 0 #t #f #t))))
      ()
      ((cons .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 6
                 (251 282 476 490 698 718)
                 #f
                 #f
                 6
                 0
                 #t
                 #f
                 #f)))
       (tcol$369
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             384
             #f
             #f
             #f
             4
             (384 383 368 360)
             #f
             #f
             0
             4
             #f
             #f
             #f))))
      ()
      ()
      ((k$1097
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 622 #f #f #f 1 (605) #f #f 1 0 #t #f #t)))
       (r$1110
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             621
             #f
             #f
             #f
             1
             (606)
             #f
             (vector-length v$482)
             0
             1
             #t
             #f
             #f)))
       (r$413 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 492 #f #f #f 1 (492) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ((r$1115
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             623
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$491
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(630
                   (k$1117 i$492)
                   ((if (Cyc-fast-gte i$492 0)
                      (proc$489
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(626
                            (r$1119)
                            ((lp$491 k$1117 (Cyc-fast-sub i$492 1)))
                            #f))
                        (vector-ref v$488 i$492))
                      (k$1117 #f)))
                   #t)))
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ((bit$509
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 650 #f #f #f 1 (650) #f #f 0 1 #t #f #f))))
      ((r$1119
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 626 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$712 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  146
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$207$314
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(159
                        (k$714 c$315)
                        ((if (Cyc-fast-gte c$315 (Cyc-fast-mul 2 r$773))
                           (k$714 (Cyc-fast-gte c$315 (Cyc-fast-mul 2 r$773)))
                           (href/rc
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(155
                                 (r$723)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(154
                                       (r$722)
                                       ((display-hexbottom
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(153
                                              (r$716)
                                              ((dot/space
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(150
                                                     (r$719)
                                                     ((write-ch
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(149
                                                            (r$717)
                                                            ((lp$207$314
                                                               k$714
                                                               (Cyc-fast-plus
                                                                 c$315
                                                                 2)))
                                                            #f))
                                                        r$719))
                                                     #f))
                                                 harr$305
                                                 (Cyc-fast-sub r$311 1)
                                                 (Cyc-fast-plus c$315 1)))
                                              #f))
                                          r$722))
                                       #f))
                                   (vector-ref r$723 3)))
                                 #f))
                             harr$305
                             r$311
                             c$315)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((n$394 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 477 #f #f #f 1 (477) #f #f 0 1 #t #f #f))))
      ((lp$200$318
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             184
             #f
             #f
             #f
             3
             (174 184 171)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(183
                 (k$731 c$319)
                 ((if (Cyc-fast-gte c$319 (Cyc-fast-mul 2 r$773))
                    (k$731 (Cyc-fast-gte c$319 (Cyc-fast-mul 2 r$773)))
                    (dot/space
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(178
                          (r$738)
                          ((write-ch
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(177
                                 (r$733)
                                 ((href/rc
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(176
                                        (r$737)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(175
                                              (r$736)
                                              ((display-hexbottom
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(174
                                                     (r$734)
                                                     ((lp$200$318
                                                        k$731
                                                        (Cyc-fast-plus
                                                          c$319
                                                          2)))
                                                     #f))
                                                 r$736))
                                              #f))
                                          (vector-ref r$737 3)))
                                        #f))
                                    harr$305
                                    r$311
                                    c$319))
                                 #f))
                             r$738))
                          #f))
                      harr$305
                      r$311
                      (Cyc-fast-sub c$319 1))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((r$716 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 153 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((elt-i$487
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 612 #f #f #f 1 (610) #f r$1106 0 1 #t #f #f)))
       (r$717 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 149 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((r$719 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 150 #f #f #f 1 (150) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$422 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  518
                  #f
                  #f
                  #f
                  5
                  (518 505 497 518 518)
                  #f
                  #f
                  0
                  5
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$722 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  154
                  #f
                  #f
                  #f
                  1
                  (154)
                  #f
                  (vector-ref r$723 3)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$723 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 155 #f #f #f 1 (155) #f #f 0 1 #t #f #f))))
      ()
      ((r$725 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 168 #f #f #f 1 (168) #f #f 0 0 #t #f #f))))
      ((r$726 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 164 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$727 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 165 #f #f #f 1 (165) #f #f 0 1 #t #f #f))))
      ()
      ((r$729 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  171
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$200$318
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(183
                        (k$731 c$319)
                        ((if (Cyc-fast-gte c$319 (Cyc-fast-mul 2 r$773))
                           (k$731 (Cyc-fast-gte c$319 (Cyc-fast-mul 2 r$773)))
                           (dot/space
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(178
                                 (r$738)
                                 ((write-ch
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(177
                                        (r$733)
                                        ((href/rc
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(176
                                               (r$737)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(175
                                                     (r$736)
                                                     ((display-hexbottom
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(174
                                                            (r$734)
                                                            ((lp$200$318
                                                               k$731
                                                               (Cyc-fast-plus
                                                                 c$319
                                                                 2)))
                                                            #f))
                                                        r$736))
                                                     #f))
                                                 (vector-ref r$737 3)))
                                               #f))
                                           harr$305
                                           r$311
                                           c$319))
                                        #f))
                                    r$738))
                                 #f))
                             harr$305
                             r$311
                             (Cyc-fast-sub c$319 1))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((inexact__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (26 14) #f #f 2 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((s1$513
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 667 #f #f #f 1 (667) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((jiffies-per-second
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (59) #f #f 1 0 #f #f #f))))
      ((r$431 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 530 #f #f #f 1 (528) #f #f 0 1 #t #f #f))))
      ((nrows$389
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             485
             #f
             #f
             #f
             1
             (434)
             #f
             (vector-ref harr$388 1)
             0
             1
             #t
             #f
             #f)))
       (hex$411
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             452
             #f
             #f
             #f
             3
             (444 438 447)
             #f
             #f
             0
             3
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ((Cyc-fast-gte
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             12
             (127 238 238 219 219 183 183 159 159 630 740 763)
             #f
             #f
             12
             0
             #t
             #f
             #f)))
       (parent$468
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 577 #f #f #f 2 (577 575) #f #f 0 2 #t #f #f)))
       (r$437 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 535 #f #f #f 1 (533) #f r$1021 0 1 #t #f #f))))
      ((owner$511
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 650 #f #f #f 1 (650) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((r$733 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 177 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$734 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 174 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((r$736 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  175
                  #f
                  #f
                  #f
                  1
                  (175)
                  #f
                  (vector-ref r$737 3)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$737 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 176 #f #f #f 1 (176) #f #f 0 1 #t #f #f))))
      ((r$738 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 178 #f #f #f 1 (178) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((c$299 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 128 #f #f #f 1 (127) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((exact-integer?__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             4
             (740 740 763 763)
             #f
             #f
             4
             0
             #t
             #f
             #f)))
       (s1$521
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 672 #f #f #f 1 (672) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$741 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 200 #f #f #f 1 (200) #f #f 0 0 #t #f #f))))
      ((r$742 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 196 #f #f #f 1 (196) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r$746 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  203
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$192$322
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(219
                        (k$748 c$323)
                        ((if (Cyc-fast-gte c$323 (Cyc-fast-mul 2 r$773))
                           (k$748 (Cyc-fast-gte c$323 (Cyc-fast-mul 2 r$773)))
                           (#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(215
                                (k$759)
                                ((if (Cyc-fast-eq c$323 entrance$304)
                                   (k$759 #\space)
                                   (k$759 #\_)))
                                #t))
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(213
                                (r$758)
                                ((write-ch
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(212
                                       (r$750)
                                       ((write-ch
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(211
                                              (r$751)
                                              ((dot/space
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(208
                                                     (r$755)
                                                     ((write-ch
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(207
                                                            (r$752)
                                                            ((write-ch
                                                               #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(206
                                                                   (r$753)
                                                                   ((lp$192$322
                                                                      k$748
                                                                      (Cyc-fast-plus
                                                                        c$323
                                                                        2)))
                                                                   #f))
                                                               #\\))
                                                            #f))
                                                        r$755))
                                                     #f))
                                                 harr$305
                                                 (Cyc-fast-sub nrows$306 1)
                                                 (Cyc-fast-plus c$323 1)))
                                              #f))
                                          #\/))
                                       #f))
                                   r$758))
                                #f)))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((Cyc-fast-eq
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             14
             (231
              215
              199
              511
              511
              584
              737
              737
              760
              760
              781
              780
              779
              778)
             #f
             #f
             14
             0
             #t
             #f
             #f))))
      ()
      ((read .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 4
                 (101 103 105 107)
                 #f
                 #f
                 4
                 0
                 #f
                 #f
                 #f))))
      ()
      ()
      ((bitwise-and
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             781
             #f
             #f
             7
             (131 261 467 511 587 774 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(781
                  (k$1259 x$558 y$557)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(780
                        (r$1260)
                        ((if r$1260
                           (k$1259 0)
                           (#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(779
                                (r$1261)
                                ((if r$1261
                                   (k$1259 0)
                                   (#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(778
                                        (r$1262)
                                        ((if r$1262
                                           (k$1259 y$557)
                                           (#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(777
                                                (r$1263)
                                                ((if r$1263
                                                   (k$1259 x$558)
                                                   (div #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(775
                                                            (r$1268)
                                                            ((div #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(774
                                                                      (r$1269)
                                                                      ((bitwise-and
                                                                         #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(772
                                                                             (z$559)
                                                                             ((#((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(771
                                                                                   (k$1266)
                                                                                   ((odd? #((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(770
                                                                                              (r$1267)
                                                                                              ((if r$1267
                                                                                                 (odd? k$1266
                                                                                                       y$557)
                                                                                                 (k$1266
                                                                                                   #f)))
                                                                                              #f))
                                                                                          x$558))
                                                                                   #t))
                                                                               #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(769
                                                                                   (r$1265)
                                                                                   ((if r$1265
                                                                                      (k$1259
                                                                                        (+ z$559
                                                                                           z$559
                                                                                           1))
                                                                                      (k$1259
                                                                                        (Cyc-fast-plus
                                                                                          z$559
                                                                                          z$559))))
                                                                                   #f))))
                                                                             #f))
                                                                         r$1268
                                                                         r$1269))
                                                                      #f))
                                                                  y$557
                                                                  2))
                                                            #f))
                                                        x$558
                                                        2)))
                                                #f))
                                            (Cyc-fast-eq y$557 -1))))
                                        #f))
                                    (Cyc-fast-eq x$558 -1))))
                                #f))
                            (Cyc-fast-eq y$557 0))))
                        #f))
                    (Cyc-fast-eq x$558 0)))
                  #t)))
             6
             0
             #f
             #f
             #f))))
      ()
      ()
      ((i$485 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  617
                  #f
                  #f
                  #f
                  5
                  (617 616 614 611 609)
                  #f
                  #f
                  0
                  5
                  #f
                  #f
                  #f))))
      ((current-jiffy
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (47 55) #f #f 2 0 #f #f #f))))
      ()
      ()
      ((Cyc-fast-mul
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             41
             (68
              219
              219
              183
              183
              159
              159
              279
              297
              297
              297
              305
              318
              318
              442
              434
              430
              425
              416
              395
              419
              419
              419
              525
              518
              505
              505
              528
              533
              706
              706
              705
              705
              705
              705
              737
              737
              737
              737
              760
              760)
             #f
             #f
             41
             0
             #t
             #f
             #f))))
      ((div .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                -1
                764
                #f
                #f
                8
                (245 428 537 538 715 -1 775 777)
                #f
                (#((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(764
                     (k$1243 x$552 y$551)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(763
                           (k$1254)
                           ((if (exact-integer?__inline__ x$552)
                              (if (exact-integer?__inline__ y$551)
                                (k$1254 (Cyc-fast-gte x$552 0))
                                (k$1254 #f))
                              (k$1254 #f)))
                           #t))
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(760
                           (r$1244)
                           ((if r$1244
                              (k$1243 (quotient__inline__ x$552 y$551))
                              (if (Cyc-fast-lt y$551 0)
                                (if (Cyc-fast-eq
                                      (Cyc-fast-sub
                                        x$552
                                        (Cyc-fast-mul
                                          (quotient__inline__ x$552 y$551)
                                          y$551))
                                      0)
                                  (k$1243 (quotient__inline__ x$552 y$551))
                                  (k$1243
                                    (Cyc-fast-plus
                                      (quotient__inline__ x$552 y$551)
                                      1)))
                                (if (Cyc-fast-eq
                                      (Cyc-fast-sub
                                        x$552
                                        (Cyc-fast-mul
                                          (quotient__inline__ x$552 y$551)
                                          y$551))
                                      0)
                                  (k$1243 (quotient__inline__ x$552 y$551))
                                  (k$1243
                                    (Cyc-fast-sub
                                      (quotient__inline__ x$552 y$551)
                                      1))))))
                           #f))))
                     #t)))
                7
                0
                #f
                #f
                #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((Cyc-fast-sub
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             63
             (36
              26
              14
              211
              183
              153
              135
              143
              168
              132
              199
              267
              297
              297
              297
              305
              313
              318
              318
              324
              329
              335
              335
              388
              383
              379
              370
              370
              360
              446
              437
              442
              442
              451
              451
              434
              433
              430
              428
              416
              405
              398
              395
              419
              419
              497
              494
              609
              606
              626
              623
              706
              705
              705
              737
              737
              737
              737
              737
              760
              760
              760
              782)
             #f
             #f
             63
             0
             #t
             #f
             #f)))
       (r$750 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 212 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$751 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 211 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$752 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 207 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$753 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 206 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((r$755 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 208 #f #f #f 1 (208) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((wall$474
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             602
             #f
             #f
             #f
             5
             (602 598 592 591 586)
             #f
             #f
             0
             5
             #t
             #t
             #f)))
       (r$758 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 213 #f #f #f 1 (213) #f #f 0 1 #t #f #f))))
      ((pair? .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(? ? #f #f #f 1 (693) #f #f 1 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((i$492 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  630
                  #f
                  #f
                  #f
                  3
                  (630 626 630)
                  #f
                  #f
                  0
                  3
                  #t
                  #f
                  #f)))
       (make-vector
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (525) #f #f 1 0 #t #f #f))))
      ((root$463
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 580 #f #f #f 1 (580) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((walls$339
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 279 #f #f #f 1 (279) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$761 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  225
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$188$326
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(238
                        (k$763 c$327)
                        ((if (Cyc-fast-gte c$327 ncols$307)
                           (k$763 (Cyc-fast-gte c$327 ncols$307))
                           (write-ch
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(234
                                 (r$765)
                                 ((write-ch
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(233
                                        (r$766)
                                        ((write-ch
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(232
                                               (r$767)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(231
                                                     (k$771)
                                                     ((if (Cyc-fast-eq
                                                            c$327
                                                            entrance$304)
                                                        (k$771 #\space)
                                                        (k$771 #\_)))
                                                     #t))
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(229
                                                     (r$770)
                                                     ((write-ch
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(228
                                                            (r$768)
                                                            ((lp$188$326
                                                               k$763
                                                               (Cyc-fast-plus
                                                                 c$327
                                                                 2)))
                                                            #f))
                                                        r$770))
                                                     #f))))
                                               #f))
                                           #\space))
                                        #f))
                                    #\space))
                                 #f))
                             #\space)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ((r$765 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 234 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$766 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 233 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$767 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 232 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$768 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 228 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((Cyc-fast-gt
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             6
             (318 371 428 617 659 706)
             #f
             #f
             6
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((child$470
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 575 #f #f #f 2 (575 574) #f #f 0 2 #f #f #f)))
       (walls$344
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             267
             #f
             #f
             #f
             1
             (261)
             #f
             (vector-ref exit-cell$343 3)
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((walls$348
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             354
             #f
             #f
             #f
             3
             (325 330 336)
             #f
             (vector-ref cell$345 3)
             0
             3
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((r$1173
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             651
             #f
             #f
             #f
             0
             ()
             #f
             (set-cdr! r2$515 r1$514)
             0
             0
             #t
             #f
             #f))))
      ((r$1174
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             653
             #f
             #f
             #f
             0
             ()
             #f
             (set-cdr! r1$514 r2$515)
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((r$770 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 229 #f #f #f 1 (229) #f #f 0 1 #t #f #f)))
       (r$1178
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 668 #f #f #f 1 (668) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((r$773 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  244
                  #f
                  #f
                  #f
                  6
                  (219 219 183 183 159 159)
                  #f
                  #f
                  0
                  6
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ((ne$356
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 288 #f #f #f 2 (288 286) #f #f 0 2 #f #f #f)))
       (r$777 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  250
                  #f
                  #f
                  #f
                  1
                  (250)
                  #f
                  (cons c$329 output)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ((seed$539
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             715
             #f
             #f
             #f
             2
             (715 713)
             #f
             r$1212
             0
             2
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((o$395 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 477 #f #f #f 1 (477) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((output$290
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 99 #f #f #f 1 (85) #f #f 0 1 #t #f #f)))
       (r$1182
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 671 #f #f #f 1 (670) #f #f 0 1 #t #f #f))))
      ((r$1183
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 670 #f #f #f 1 (670) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r$1187
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             673
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$524
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(693
                   (k$1189 r$525)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(690
                         (r$1191)
                         ((if r$1191
                            (lp$524 k$1189 (cdr r$525))
                            (#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(688
                                 (k$1193)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(687
                                       (r$1194)
                                       ((if r$1194
                                          (k$1193 #f)
                                          (#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(686
                                               (x$527)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(685
                                                     (lp$528)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(677
                                                           (r$1195)
                                                           ((lp$528
                                                              k$1193
                                                              x$527))
                                                           #f))
                                                       (set! lp$528
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(684
                                                             (k$1197 x$529)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(682
                                                                   (next$530)
                                                                   ((#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(681
                                                                         (r$1199)
                                                                         ((if r$1199
                                                                            (k$1197
                                                                              #f)
                                                                            (#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(679
                                                                                 (r$1200)
                                                                                 ((lp$528
                                                                                    k$1197
                                                                                    next$530))
                                                                                 #f))
                                                                             (set-cdr!
                                                                               x$529
                                                                               r$525))))
                                                                         #f))
                                                                     (eq? r$525
                                                                          next$530)))
                                                                   #f))
                                                               (cdr x$529)))
                                                             #t)))))
                                                     #f))
                                                 #f))
                                               #f))
                                           s$522)))
                                       #f))
                                   (eq? r$525 s$522)))
                                 #t))
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(676 (r$1192) ((k$1189 r$525)) #f)))))
                         #f))
                     (pair? (cdr r$525))))
                   #t)))
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ((+ .
          #((record-marker)
            #((record-marker)
              #f
              (global
                defined-by
                defines-lambda-id
                const
                const-value
                ref-count
                ref-by
                reassigned
                assigned-value
                app-fnc-count
                app-arg-count
                inlinable
                mutated-indirectly
                cont))
            #(? ? #f #f #f 1 (769) #f #f 1 0 #t #f #f))))
      ((ncols$296
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 111 #f #f #f 1 (109) #f #f 0 1 #f #f #f))))
      ((- .
          #((record-marker)
            #((record-marker)
              #f
              (global
                defined-by
                defines-lambda-id
                const
                const-value
                ref-count
                ref-by
                reassigned
                assigned-value
                app-fnc-count
                app-arg-count
                inlinable
                mutated-indirectly
                cont))
            #(? ? #f #f #f 1 (783) #f #f 1 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((do-children$462
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 580 #f #f #f 1 (576) #f #f 1 0 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((current-second
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (38 57) #f #f 2 0 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$1191
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             690
             #f
             #f
             #f
             1
             (690)
             #f
             (pair? (cdr r$525))
             0
             0
             #t
             #f
             #f))))
      ((r$1192
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 676 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((bit-test
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             131
             #f
             #f
             10
             (114 118 122 -1 287 300 308 325 330 336)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(131
                  (k$678 j$303 bit$302)
                  ((bitwise-and
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(130
                         (r$680)
                         ((k$678 (not__inline__ (zero?__inline__ r$680))))
                         #f))
                     j$303
                     bit$302))
                  #t)))
             9
             0
             #f
             #f
             #f))))
      ((r$1194
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             687
             #f
             #f
             #f
             1
             (687)
             #f
             (eq? r$525 s$522)
             0
             0
             #t
             #f
             #f))))
      ((r$1195
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             677
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$528
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(684
                   (k$1197 x$529)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(682
                         (next$530)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(681
                               (r$1199)
                               ((if r$1199
                                  (k$1197 #f)
                                  (#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(679
                                       (r$1200)
                                       ((lp$528 k$1197 next$530))
                                       #f))
                                   (set-cdr! x$529 r$525))))
                               #f))
                           (eq? r$525 next$530)))
                         #f))
                     (cdr x$529)))
                   #t)))
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ((s2$512
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 667 #f #f #f 1 (665) #f #f 0 1 #f #f #f))))
      ((r$1199
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             681
             #f
             #f
             #f
             1
             (681)
             #f
             (eq? r$525 next$530)
             0
             0
             #t
             #f
             #f))))
      ((r$792 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 276 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((ha$432
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 530 #f #f #f 2 (530 529) #f #f 0 2 #t #f #f))))
      ()
      ()
      ((ha$435
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 538 #f #f #f 2 (535 534) #f #f 0 2 #t #f #f))))
      ((reverse
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (108) #f #f 1 0 #f #f #f))))
      ((r$798 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 263 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$799 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 262 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((call-with-values
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (83) #f #f 1 0 #f #f #f))))
      ()
      ()
      ()
      ((k$706 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  144
                  #f
                  #f
                  #f
                  3
                  (143 143 137)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(136
                      (r$703)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(135
                             (r$704)
                             ((lp$196$310 k$696 (Cyc-fast-sub r$311 1)))
                             #f))
                         #\newline))
                      #f))
                  1
                  2
                  #f
                  #f
                  #t))))
      ((s2$520
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 672 #f #f #f 1 (671) #f #f 0 1 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((s1$293
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             93
             #f
             #f
             #f
             1
             (93)
             #f
             (number->string input1$288)
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((k$1203
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 698 #f #f #f 1 (698) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ((k$1207
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 700 #f #f #f 1 (699) #f #f 0 1 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((secs2$280
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 28 #f #f #f 1 (24) #f #f 0 1 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$714 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 159 #f #f #f 2 (149 159) #f #f 1 1 #t #f #t))))
      ((result$274
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             49
             #f
             #f
             #f
             4
             (49 45 41 10)
             #f
             #f
             0
             4
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((mod .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                -1
                741
                #f
                #f
                5
                (297 318 699 713 -1)
                #f
                (#((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(741
                     (k$1227 x$546 y$545)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(740
                           (k$1238)
                           ((if (exact-integer?__inline__ x$546)
                              (if (exact-integer?__inline__ y$545)
                                (k$1238 (Cyc-fast-gte x$546 0))
                                (k$1238 #f))
                              (k$1238 #f)))
                           #t))
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(737
                           (r$1228)
                           ((if r$1228
                              (remainder k$1227 x$546 y$545)
                              (if (Cyc-fast-lt y$545 0)
                                (if (Cyc-fast-eq
                                      (Cyc-fast-sub
                                        x$546
                                        (Cyc-fast-mul
                                          (quotient__inline__ x$546 y$545)
                                          y$545))
                                      0)
                                  (k$1227 0)
                                  (k$1227
                                    (Cyc-fast-sub
                                      (Cyc-fast-sub
                                        x$546
                                        (Cyc-fast-mul
                                          (quotient__inline__ x$546 y$545)
                                          y$545))
                                      y$545)))
                                (if (Cyc-fast-eq
                                      (Cyc-fast-sub
                                        x$546
                                        (Cyc-fast-mul
                                          (quotient__inline__ x$546 y$545)
                                          y$545))
                                      0)
                                  (k$1227 0)
                                  (k$1227
                                    (Cyc-fast-plus
                                      (Cyc-fast-sub
                                        x$546
                                        (Cyc-fast-mul
                                          (quotient__inline__ x$546 y$545)
                                          y$545))
                                      y$545))))))
                           #f))))
                     #t)))
                4
                0
                #f
                #f
                #f)))
       (j$486 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  612
                  #f
                  #f
                  #f
                  2
                  (612 610)
                  #f
                  r$1107
                  0
                  2
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ((k$1211
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 717 #f #f #f 1 (701) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ((Cyc-fast-lt
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             18
             (49
              78
              190
              190
              297
              305
              384
              375
              442
              467
              467
              409
              409
              419
              518
              518
              737
              760)
             #f
             #f
             18
             0
             #t
             #f
             #f))))
      ((k$1218
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             706
             #f
             #f
             #f
             2
             (705 705)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(703
                 (val$543)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(701 (r$1217) ((k$1211 val$543)) #f))
                   (set-car! state$534 val$543)))
                 #f))
             2
             0
             #f
             #f
             #t))))
      ()
      ()
      ()
      ()
      ((walls$392
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             478
             #f
             #f
             #f
             3
             (476 475 394)
             #t
             r$969
             0
             2
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$724 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  169
                  #f
                  #f
                  #f
                  2
                  (168 164)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(163
                      (r$700)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(162
                             (r$701)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(160
                                   (lp$207$314)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(146
                                         (r$712)
                                         ((lp$207$314
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(145
                                                (r$702)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(144
                                                      (k$706)
                                                      ((odd? #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(143
                                                                 (r$707)
                                                                 ((if r$707
                                                                    (href/rc
                                                                      #((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(138
                                                                          (r$709)
                                                                          ((#((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(137
                                                                                (r$708)
                                                                                ((display-hexbottom
                                                                                   k$706
                                                                                   r$708))
                                                                                #f))
                                                                            (vector-ref
                                                                              r$709
                                                                              3)))
                                                                          #f))
                                                                      harr$305
                                                                      r$311
                                                                      (Cyc-fast-sub
                                                                        ncols$307
                                                                        1))
                                                                    (if (zero?__inline__
                                                                          r$311)
                                                                      (k$706 #f)
                                                                      (write-ch
                                                                        k$706
                                                                        #\\))))
                                                                 #f))
                                                             ncols$307))
                                                      #t))
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(136
                                                      (r$703)
                                                      ((write-ch
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(135
                                                             (r$704)
                                                             ((lp$196$310
                                                                k$696
                                                                (Cyc-fast-sub
                                                                  r$311
                                                                  1)))
                                                             #f))
                                                         #\newline))
                                                      #f))))
                                                #f))
                                            0))
                                         #f))
                                     (set! lp$207$314
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(159
                                           (k$714 c$315)
                                           ((if (Cyc-fast-gte
                                                  c$315
                                                  (Cyc-fast-mul 2 r$773))
                                              (k$714 (Cyc-fast-gte
                                                       c$315
                                                       (Cyc-fast-mul 2 r$773)))
                                              (href/rc
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(155
                                                    (r$723)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(154
                                                          (r$722)
                                                          ((display-hexbottom
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(153
                                                                 (r$716)
                                                                 ((dot/space
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(150
                                                                        (r$719)
                                                                        ((write-ch
                                                                           #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(149
                                                                               (r$717)
                                                                               ((lp$207$314
                                                                                  k$714
                                                                                  (Cyc-fast-plus
                                                                                    c$315
                                                                                    2)))
                                                                               #f))
                                                                           r$719))
                                                                        #f))
                                                                    harr$305
                                                                    (Cyc-fast-sub
                                                                      r$311
                                                                      1)
                                                                    (Cyc-fast-plus
                                                                      c$315
                                                                      1)))
                                                                 #f))
                                                             r$722))
                                                          #f))
                                                      (vector-ref r$723 3)))
                                                    #f))
                                                harr$305
                                                r$311
                                                c$315)))
                                           #t)))))
                                   #f))
                               #f))
                             #f))
                         #\newline))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t))))
      ((dot/space
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             128
             #f
             #f
             5
             (-1 211 183 153 168)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(128
                  (k$671 harr$301 r$300 c$299)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(127
                        (k$673)
                        ((if (Cyc-fast-gte r$300 0)
                           (href/rc
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(125 (r$675) ((k$673 (vector-ref r$675 5))) #f))
                             harr$301
                             r$300
                             c$299)
                           (k$673 #f)))
                        #t))
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(124
                        (r$672)
                        ((if r$672 (k$671 #\.) (k$671 #\space)))
                        #f))))
                  #t)))
             4
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$1224
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 718 #f #f #f 1 (718) #f #f 1 0 #t #f #t))))
      ()
      ()
      ((k$1227
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             741
             #f
             #f
             #f
             5
             (737 737 737 737 737)
             #f
             #f
             4
             1
             #f
             #f
             #t))))
      ()
      ()
      ()
      ()
      ((Cyc-fast-plus
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             31
             (7
              228
              211
              206
              174
              153
              149
              292
              292
              305
              313
              324
              442
              434
              425
              416
              401
              395
              419
              505
              502
              502
              528
              533
              555
              653
              651
              705
              737
              760
              769)
             #f
             #f
             31
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$731 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 183 #f #f #f 2 (174 183) #f #f 1 1 #t #f #t))))
      ()
      ((make-wall-vec
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             487
             #f
             #f
             2
             (283 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(487
                  (k$899 harr$388)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(485
                        (nrows$389)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(483
                              (ncols$390)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(478
                                    (walls$392)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(473
                                          (add-wall$396)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(468
                                                (lp$132$404)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(430
                                                      (r$936)
                                                      ((lp$132$404
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(429
                                                             (r$905)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(428
                                                                   (k$907)
                                                                   ((if (Cyc-fast-gt
                                                                          ncols$390
                                                                          1)
                                                                      (div #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(425
                                                                               (r$933)
                                                                               ((href #((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(420
                                                                                          (rmoc-hex$402)
                                                                                          ((#((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(419
                                                                                                (k$929)
                                                                                                ((if (Cyc-fast-lt
                                                                                                       (Cyc-fast-plus
                                                                                                         3
                                                                                                         (Cyc-fast-mul
                                                                                                           6
                                                                                                           r$933))
                                                                                                       (Cyc-fast-mul
                                                                                                         3
                                                                                                         (Cyc-fast-sub
                                                                                                           ncols$390
                                                                                                           1)))
                                                                                                   (href #((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(417
                                                                                                             (r$931)
                                                                                                             ((add-wall$396
                                                                                                                k$929
                                                                                                                rmoc-hex$402
                                                                                                                r$931
                                                                                                                south-east))
                                                                                                             #f))
                                                                                                         harr$388
                                                                                                         (Cyc-fast-mul
                                                                                                           3
                                                                                                           (Cyc-fast-sub
                                                                                                             ncols$390
                                                                                                             1))
                                                                                                         0)
                                                                                                   (k$929 #f)))
                                                                                                #t))
                                                                                            #((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(416
                                                                                                (r$926)
                                                                                                ((href #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(414
                                                                                                           (r$927)
                                                                                                           ((add-wall$396
                                                                                                              #((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(413
                                                                                                                  (r$910)
                                                                                                                  ((#((record-marker)
                                                                                                                      #((record-marker)
                                                                                                                        #f
                                                                                                                        (id args
                                                                                                                            body
                                                                                                                            has-cont))
                                                                                                                      #(410
                                                                                                                        (lp$140$399)
                                                                                                                        ((#((record-marker)
                                                                                                                            #((record-marker)
                                                                                                                              #f
                                                                                                                              (id args
                                                                                                                                  body
                                                                                                                                  has-cont))
                                                                                                                            #(395
                                                                                                                              (r$912)
                                                                                                                              ((lp$140$399
                                                                                                                                 k$907
                                                                                                                                 (Cyc-fast-sub
                                                                                                                                   (Cyc-fast-plus
                                                                                                                                     3
                                                                                                                                     (Cyc-fast-mul
                                                                                                                                       6
                                                                                                                                       r$933))
                                                                                                                                   6)))
                                                                                                                              #f))
                                                                                                                          (set! lp$140$399
                                                                                                                            #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(409
                                                                                                                                (k$914 x$400)
                                                                                                                                ((if (Cyc-fast-lt
                                                                                                                                       x$400
                                                                                                                                       3)
                                                                                                                                   (k$914 (Cyc-fast-lt
                                                                                                                                            x$400
                                                                                                                                            3))
                                                                                                                                   (href #((record-marker)
                                                                                                                                           #((record-marker)
                                                                                                                                             #f
                                                                                                                                             (id args
                                                                                                                                                 body
                                                                                                                                                 has-cont))
                                                                                                                                           #(405
                                                                                                                                             (r$922)
                                                                                                                                             ((href #((record-marker)
                                                                                                                                                      #((record-marker)
                                                                                                                                                        #f
                                                                                                                                                        (id args
                                                                                                                                                            body
                                                                                                                                                            has-cont))
                                                                                                                                                      #(403
                                                                                                                                                        (r$923)
                                                                                                                                                        ((add-wall$396
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #f
                                                                                                                                                               (id args
                                                                                                                                                                   body
                                                                                                                                                                   has-cont))
                                                                                                                                                             #(402
                                                                                                                                                               (r$916)
                                                                                                                                                               ((href #((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(401
                                                                                                                                                                          (r$919)
                                                                                                                                                                          ((href #((record-marker)
                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                     #f
                                                                                                                                                                                     (id args
                                                                                                                                                                                         body
                                                                                                                                                                                         has-cont))
                                                                                                                                                                                   #(399
                                                                                                                                                                                     (r$920)
                                                                                                                                                                                     ((add-wall$396
                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                            #f
                                                                                                                                                                                            (id args
                                                                                                                                                                                                body
                                                                                                                                                                                                has-cont))
                                                                                                                                                                                          #(398
                                                                                                                                                                                            (r$917)
                                                                                                                                                                                            ((lp$140$399
                                                                                                                                                                                               k$914
                                                                                                                                                                                               (Cyc-fast-sub
                                                                                                                                                                                                 x$400
                                                                                                                                                                                                 6)))
                                                                                                                                                                                            #f))
                                                                                                                                                                                        r$919
                                                                                                                                                                                        r$920
                                                                                                                                                                                        south-east))
                                                                                                                                                                                     #f))
                                                                                                                                                                                 harr$388
                                                                                                                                                                                 (Cyc-fast-plus
                                                                                                                                                                                   x$400
                                                                                                                                                                                   3)
                                                                                                                                                                                 0))
                                                                                                                                                                          #f))
                                                                                                                                                                      harr$388
                                                                                                                                                                      x$400
                                                                                                                                                                      1))
                                                                                                                                                               #f))
                                                                                                                                                           r$922
                                                                                                                                                           r$923
                                                                                                                                                           south-west))
                                                                                                                                                        #f))
                                                                                                                                                    harr$388
                                                                                                                                                    (Cyc-fast-sub
                                                                                                                                                      x$400
                                                                                                                                                      3)
                                                                                                                                                    0))
                                                                                                                                             #f))
                                                                                                                                         harr$388
                                                                                                                                         x$400
                                                                                                                                         1)))
                                                                                                                                #t)))))
                                                                                                                        #f))
                                                                                                                    #f))
                                                                                                                  #f))
                                                                                                              rmoc-hex$402
                                                                                                              r$927
                                                                                                              south-west))
                                                                                                           #f))
                                                                                                       harr$388
                                                                                                       (Cyc-fast-sub
                                                                                                         (Cyc-fast-plus
                                                                                                           3
                                                                                                           (Cyc-fast-mul
                                                                                                             6
                                                                                                             r$933))
                                                                                                         3)
                                                                                                       0))
                                                                                                #f))))
                                                                                          #f))
                                                                                      harr$388
                                                                                      (Cyc-fast-plus
                                                                                        3
                                                                                        (Cyc-fast-mul
                                                                                          6
                                                                                          r$933))
                                                                                      1))
                                                                               #f))
                                                                           (Cyc-fast-sub
                                                                             ncols$390
                                                                             2)
                                                                           2)
                                                                      (k$907 #f)))
                                                                   #t))
                                                               #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(394
                                                                   (r$906)
                                                                   ((k$899 (list->vector
                                                                             walls$392)))
                                                                   #f))))
                                                             #f))
                                                         (Cyc-fast-mul
                                                           (Cyc-fast-sub
                                                             ncols$390
                                                             1)
                                                           3)))
                                                      #f))
                                                  (set! lp$132$404
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(467
                                                        (k$938 x$405)
                                                        ((if (Cyc-fast-lt
                                                               x$405
                                                               0)
                                                           (k$938 (Cyc-fast-lt
                                                                    x$405
                                                                    0))
                                                           (bitwise-and
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(461
                                                                 (r$965)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(458
                                                                       (lp$136$408)
                                                                       ((#((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(434
                                                                             (r$943)
                                                                             ((lp$136$408
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(433
                                                                                    (r$940)
                                                                                    ((lp$132$404
                                                                                       k$938
                                                                                       (Cyc-fast-sub
                                                                                         x$405
                                                                                         3)))
                                                                                    #f))
                                                                                (Cyc-fast-plus
                                                                                  (Cyc-fast-mul
                                                                                    (Cyc-fast-sub
                                                                                      nrows$389
                                                                                      1)
                                                                                    2)
                                                                                  r$965)))
                                                                             #f))
                                                                         (set! lp$136$408
                                                                           #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(457
                                                                               (k$945 y$409)
                                                                               ((if (Cyc-fast-lte
                                                                                      y$409
                                                                                      1)
                                                                                  (k$945 (Cyc-fast-lte
                                                                                           y$409
                                                                                           1))
                                                                                  (href #((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(452
                                                                                            (hex$411)
                                                                                            ((#((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(451
                                                                                                  (k$959)
                                                                                                  ((if (zero?__inline__
                                                                                                         x$405)
                                                                                                     (k$959 #f)
                                                                                                     (href #((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(447
                                                                                                               (r$961)
                                                                                                               ((add-wall$396
                                                                                                                  k$959
                                                                                                                  hex$411
                                                                                                                  r$961
                                                                                                                  south-west))
                                                                                                               #f))
                                                                                                           harr$388
                                                                                                           (Cyc-fast-sub
                                                                                                             x$405
                                                                                                             3)
                                                                                                           (Cyc-fast-sub
                                                                                                             y$409
                                                                                                             1))))
                                                                                                  #t))
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(446
                                                                                                  (r$950)
                                                                                                  ((href #((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(444
                                                                                                             (r$957)
                                                                                                             ((add-wall$396
                                                                                                                #((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(443
                                                                                                                    (r$951)
                                                                                                                    ((#((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(442
                                                                                                                          (k$952)
                                                                                                                          ((if (Cyc-fast-lt
                                                                                                                                 x$405
                                                                                                                                 (Cyc-fast-mul
                                                                                                                                   3
                                                                                                                                   (Cyc-fast-sub
                                                                                                                                     ncols$390
                                                                                                                                     1)))
                                                                                                                             (href #((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(438
                                                                                                                                       (r$954)
                                                                                                                                       ((add-wall$396
                                                                                                                                          k$952
                                                                                                                                          hex$411
                                                                                                                                          r$954
                                                                                                                                          south-east))
                                                                                                                                       #f))
                                                                                                                                   harr$388
                                                                                                                                   (Cyc-fast-plus
                                                                                                                                     x$405
                                                                                                                                     3)
                                                                                                                                   (Cyc-fast-sub
                                                                                                                                     y$409
                                                                                                                                     1))
                                                                                                                             (k$952 #f)))
                                                                                                                          #t))
                                                                                                                      #((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(437
                                                                                                                          (r$947)
                                                                                                                          ((lp$136$408
                                                                                                                             k$945
                                                                                                                             (Cyc-fast-sub
                                                                                                                               y$409
                                                                                                                               2)))
                                                                                                                          #f))))
                                                                                                                    #f))
                                                                                                                hex$411
                                                                                                                r$957
                                                                                                                south))
                                                                                                             #f))
                                                                                                         harr$388
                                                                                                         x$405
                                                                                                         (Cyc-fast-sub
                                                                                                           y$409
                                                                                                           2)))
                                                                                                  #f))))
                                                                                            #f))
                                                                                        harr$388
                                                                                        x$405
                                                                                        y$409)))
                                                                               #t)))))
                                                                       #f))
                                                                   #f))
                                                                 #f))
                                                             x$405
                                                             1)))
                                                        #t)))))
                                                #f))
                                            #f))
                                          #f))
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(477
                                          (k$968 o$395 n$394 b$393)
                                          ((make-wall
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(476
                                                 (r$970)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(475
                                                       (r$969)
                                                       ((k$968 (set! walls$392
                                                                 r$969)))
                                                       #f))
                                                   (cons r$970 walls$392)))
                                                 #f))
                                             o$395
                                             n$394
                                             b$393))
                                          #t))))
                                    #f))
                                '()))
                              #f))
                          (vector-ref harr$388 2)))
                        #f))
                    (vector-ref harr$388 1)))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ((result$295
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 85 #f #f #f 1 (85) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((cell:reachable
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             643
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(643
                  (k$1146 o$503)
                  ((k$1146 (vector-ref o$503 1)))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((flush-output-port
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 3 (42 11 60) #f #f 3 0 #f #f #f))))
      ((lp$105$452
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             558
             #f
             #f
             #f
             3
             (555 558 553)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(557
                 (k$1054 len$454 node$453)
                 ((if node$453
                    (#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(555
                         (r$1056)
                         ((lp$105$452
                            k$1054
                            (Cyc-fast-plus len$454 1)
                            r$1056))
                         #f))
                     (vector-ref node$453 4))
                    (k$1054 len$454)))
                 #t))
             2
             0
             #t
             #f
             #f))))
      ()
      ()
      ((run-r7rs-benchmark
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             71
             #f
             #f
             2
             (-1 90)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(71
                  (k$568 name$264 count$263 thunk$262 ok?$261)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(70
                        (rounded$266)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(64
                              (r$569)
                              ((display
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(63
                                     (r$570)
                                     ((display
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(62
                                            (r$571)
                                            ((newline
                                               #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(61
                                                   (r$572)
                                                   ((current-output-port
                                                      #((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(60
                                                          (r$613)
                                                          ((flush-output-port
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(59
                                                                 (r$573)
                                                                 ((jiffies-per-second
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(57
                                                                        (j/s$268)
                                                                        ((current-second
                                                                           #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(55
                                                                               (t0$269)
                                                                               ((current-jiffy
                                                                                  #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(53
                                                                                      (j0$270)
                                                                                      ((#((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(50
                                                                                            (loop$273)
                                                                                            ((#((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(5
                                                                                                  (r$577)
                                                                                                  ((loop$273
                                                                                                     k$568
                                                                                                     0
                                                                                                     #f))
                                                                                                  #f))
                                                                                              (set! loop$273
                                                                                                #((record-marker)
                                                                                                  #((record-marker)
                                                                                                    #f
                                                                                                    (id args
                                                                                                        body
                                                                                                        has-cont))
                                                                                                  #(49
                                                                                                    (k$579 i$275
                                                                                                           result$274)
                                                                                                    ((if (Cyc-fast-lt
                                                                                                           i$275
                                                                                                           count$263)
                                                                                                       (thunk$262
                                                                                                         #((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(7
                                                                                                             (r$582)
                                                                                                             ((loop$273
                                                                                                                k$579
                                                                                                                (Cyc-fast-plus
                                                                                                                  i$275
                                                                                                                  1)
                                                                                                                r$582))
                                                                                                             #f)))
                                                                                                       (ok?$261
                                                                                                         #((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(47
                                                                                                             (r$583)
                                                                                                             ((if r$583
                                                                                                                (current-jiffy
                                                                                                                  #((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(38
                                                                                                                      (j1$276)
                                                                                                                      ((current-second
                                                                                                                         #((record-marker)
                                                                                                                           #((record-marker)
                                                                                                                             #f
                                                                                                                             (id args
                                                                                                                                 body
                                                                                                                                 has-cont))
                                                                                                                           #(36
                                                                                                                             (t1$277)
                                                                                                                             ((rounded$266
                                                                                                                                #((record-marker)
                                                                                                                                  #((record-marker)
                                                                                                                                    #f
                                                                                                                                    (id args
                                                                                                                                        body
                                                                                                                                        has-cont))
                                                                                                                                  #(28
                                                                                                                                    (secs2$280)
                                                                                                                                    ((display
                                                                                                                                       #((record-marker)
                                                                                                                                         #((record-marker)
                                                                                                                                           #f
                                                                                                                                           (id args
                                                                                                                                               body
                                                                                                                                               has-cont))
                                                                                                                                         #(26
                                                                                                                                           (r$590)
                                                                                                                                           ((write #((record-marker)
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #f
                                                                                                                                                       (id args
                                                                                                                                                           body
                                                                                                                                                           has-cont))
                                                                                                                                                     #(25
                                                                                                                                                       (r$591)
                                                                                                                                                       ((display
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #f
                                                                                                                                                              (id args
                                                                                                                                                                  body
                                                                                                                                                                  has-cont))
                                                                                                                                                            #(24
                                                                                                                                                              (r$592)
                                                                                                                                                              ((write #((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(23
                                                                                                                                                                          (r$593)
                                                                                                                                                                          ((display
                                                                                                                                                                             #((record-marker)
                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                 #f
                                                                                                                                                                                 (id args
                                                                                                                                                                                     body
                                                                                                                                                                                     has-cont))
                                                                                                                                                                               #(22
                                                                                                                                                                                 (r$594)
                                                                                                                                                                                 ((display
                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                        #f
                                                                                                                                                                                        (id args
                                                                                                                                                                                            body
                                                                                                                                                                                            has-cont))
                                                                                                                                                                                      #(21
                                                                                                                                                                                        (r$595)
                                                                                                                                                                                        ((newline
                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #f
                                                                                                                                                                                               (id args
                                                                                                                                                                                                   body
                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                             #(20
                                                                                                                                                                                               (r$596)
                                                                                                                                                                                               ((display
                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #f
                                                                                                                                                                                                      (id args
                                                                                                                                                                                                          body
                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                    #(19
                                                                                                                                                                                                      (r$597)
                                                                                                                                                                                                      ((this-scheme-implementation-name
                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                             #f
                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                 body
                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                           #(18
                                                                                                                                                                                                             (r$605)
                                                                                                                                                                                                             ((display
                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                        body
                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                  #(17
                                                                                                                                                                                                                    (r$598)
                                                                                                                                                                                                                    ((display
                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                               body
                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                         #(16
                                                                                                                                                                                                                           (r$599)
                                                                                                                                                                                                                           ((display
                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                #(15
                                                                                                                                                                                                                                  (r$600)
                                                                                                                                                                                                                                  ((display
                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                       #(14
                                                                                                                                                                                                                                         (r$601)
                                                                                                                                                                                                                                         ((display
                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                              #(13
                                                                                                                                                                                                                                                (r$602)
                                                                                                                                                                                                                                                ((newline
                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                     #(12
                                                                                                                                                                                                                                                       (r$603)
                                                                                                                                                                                                                                                       ((current-output-port
                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                            #(11
                                                                                                                                                                                                                                                              (r$604)
                                                                                                                                                                                                                                                              ((flush-output-port
                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                   #(10
                                                                                                                                                                                                                                                                     (r$584)
                                                                                                                                                                                                                                                                     ((k$579 result$274))
                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                 r$604))
                                                                                                                                                                                                                                                              #f))))
                                                                                                                                                                                                                                                       #f))))
                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                            (inexact__inline__
                                                                                                                                                                                                                                              (Cyc-fast-div
                                                                                                                                                                                                                                                (Cyc-fast-sub
                                                                                                                                                                                                                                                  j1$276
                                                                                                                                                                                                                                                  j0$270)
                                                                                                                                                                                                                                                j/s$268))))
                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                     ","))
                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                              name$264))
                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                       ","))
                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                r$605))
                                                                                                                                                                                                             #f))))
                                                                                                                                                                                                      #f))
                                                                                                                                                                                                  "+!CSVLINE!+"))
                                                                                                                                                                                               #f))))
                                                                                                                                                                                        #f))
                                                                                                                                                                                    name$264))
                                                                                                                                                                                 #f))
                                                                                                                                                                             ") for "))
                                                                                                                                                                          #f))
                                                                                                                                                                      secs2$280))
                                                                                                                                                              #f))
                                                                                                                                                          " seconds ("))
                                                                                                                                                       #f))
                                                                                                                                                   (inexact__inline__
                                                                                                                                                     (Cyc-fast-div
                                                                                                                                                       (Cyc-fast-sub
                                                                                                                                                         j1$276
                                                                                                                                                         j0$270)
                                                                                                                                                       j/s$268))))
                                                                                                                                           #f))
                                                                                                                                       "Elapsed time: "))
                                                                                                                                    #f))
                                                                                                                                (Cyc-fast-sub
                                                                                                                                  t1$277
                                                                                                                                  t0$269)))
                                                                                                                             #f))))
                                                                                                                      #f)))
                                                                                                                (display
                                                                                                                  #((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(45
                                                                                                                      (r$608)
                                                                                                                      ((write #((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(44
                                                                                                                                  (r$609)
                                                                                                                                  ((newline
                                                                                                                                     #((record-marker)
                                                                                                                                       #((record-marker)
                                                                                                                                         #f
                                                                                                                                         (id args
                                                                                                                                             body
                                                                                                                                             has-cont))
                                                                                                                                       #(43
                                                                                                                                         (r$610)
                                                                                                                                         ((current-output-port
                                                                                                                                            #((record-marker)
                                                                                                                                              #((record-marker)
                                                                                                                                                #f
                                                                                                                                                (id args
                                                                                                                                                    body
                                                                                                                                                    has-cont))
                                                                                                                                              #(42
                                                                                                                                                (r$612)
                                                                                                                                                ((flush-output-port
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #f
                                                                                                                                                       (id args
                                                                                                                                                           body
                                                                                                                                                           has-cont))
                                                                                                                                                     #(41
                                                                                                                                                       (r$611)
                                                                                                                                                       ((k$579 result$274))
                                                                                                                                                       #f))
                                                                                                                                                   r$612))
                                                                                                                                                #f))))
                                                                                                                                         #f))))
                                                                                                                                  #f))
                                                                                                                              result$274))
                                                                                                                      #f))
                                                                                                                  "ERROR: returned incorrect result: ")))
                                                                                                             #f))
                                                                                                         result$274)))
                                                                                                    #t)))))
                                                                                            #f))
                                                                                        #f))
                                                                                      #f))))
                                                                               #f))))
                                                                        #f))))
                                                                 #f))
                                                             r$613))
                                                          #f))))
                                                   #f))))
                                            #f))
                                        name$264))
                                     #f))
                                 "Running "))
                              #f))
                          (set! rounded$266
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(68
                                (k$615 x$281)
                                ((k$615 (Cyc-fast-div
                                          (round__inline__
                                            (Cyc-fast-mul 1000 x$281))
                                          1000)))
                                #t)))))
                        #f))
                    #f))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((k$1238
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             740
             #f
             #f
             #f
             3
             (740 740 740)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(737
                 (r$1228)
                 ((if r$1228
                    (remainder k$1227 x$546 y$545)
                    (if (Cyc-fast-lt y$545 0)
                      (if (Cyc-fast-eq
                            (Cyc-fast-sub
                              x$546
                              (Cyc-fast-mul
                                (quotient__inline__ x$546 y$545)
                                y$545))
                            0)
                        (k$1227 0)
                        (k$1227
                          (Cyc-fast-sub
                            (Cyc-fast-sub
                              x$546
                              (Cyc-fast-mul
                                (quotient__inline__ x$546 y$545)
                                y$545))
                            y$545)))
                      (if (Cyc-fast-eq
                            (Cyc-fast-sub
                              x$546
                              (Cyc-fast-mul
                                (quotient__inline__ x$546 y$545)
                                y$545))
                            0)
                        (k$1227 0)
                        (k$1227
                          (Cyc-fast-plus
                            (Cyc-fast-sub
                              x$546
                              (Cyc-fast-mul
                                (quotient__inline__ x$546 y$545)
                                y$545))
                            y$545))))))
                 #f))
             3
             0
             #t
             #f
             #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((harr-tabulate
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             525
             #f
             #f
             2
             (492 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(525
                  (k$987 nrows$418 ncols$417 proc$416)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(522
                        (v$419)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(519
                              (lp$113$421)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(494
                                    (r$991)
                                    ((lp$113$421
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(493
                                           (r$989)
                                           ((make-harr
                                              k$987
                                              nrows$418
                                              ncols$417
                                              v$419))
                                           #f))
                                       (Cyc-fast-sub nrows$418 1)))
                                    #f))
                                (set! lp$113$421
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(518
                                      (k$993 r$422)
                                      ((if (Cyc-fast-lt r$422 0)
                                         (k$993 (Cyc-fast-lt r$422 0))
                                         (#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(513
                                              (i$424)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(512
                                                    (lp$117$426)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(498
                                                          (r$998)
                                                          ((lp$117$426
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(497
                                                                 (r$995)
                                                                 ((lp$113$421
                                                                    k$993
                                                                    (Cyc-fast-sub
                                                                      r$422
                                                                      1)))
                                                                 #f))
                                                             0
                                                             i$424))
                                                          #f))
                                                      (set! lp$117$426
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(511
                                                            (k$1000 c$428 i$427)
                                                            ((if (Cyc-fast-eq
                                                                   c$428
                                                                   ncols$417)
                                                               (k$1000
                                                                 (Cyc-fast-eq
                                                                   c$428
                                                                   ncols$417))
                                                               (bitwise-and
                                                                 #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(505
                                                                     (r$1009)
                                                                     ((proc$416
                                                                        #((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(503
                                                                            (r$1005)
                                                                            ((#((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(502
                                                                                  (r$1002)
                                                                                  ((lp$117$426
                                                                                     k$1000
                                                                                     (Cyc-fast-plus
                                                                                       c$428
                                                                                       1)
                                                                                     (Cyc-fast-plus
                                                                                       i$427
                                                                                       1)))
                                                                                  #f))
                                                                              (vector-set!
                                                                                v$419
                                                                                i$427
                                                                                r$1005)))
                                                                            #f))
                                                                        (Cyc-fast-mul
                                                                          3
                                                                          c$428)
                                                                        (Cyc-fast-plus
                                                                          (Cyc-fast-mul
                                                                            2
                                                                            r$422)
                                                                          r$1009)))
                                                                     #f))
                                                                 c$428
                                                                 1)))
                                                            #t)))))
                                                    #f))
                                                #f))
                                              #f))
                                          (Cyc-fast-mul r$422 ncols$417))))
                                      #t)))))
                              #f))
                          #f))
                        #f))
                    (make-vector (Cyc-fast-mul nrows$418 ncols$417))))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ((n$533 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 700 #f #f #f 1 (699) #f #f 0 1 #t #f #f))))
      ((k$740 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  201
                  #f
                  #f
                  #f
                  2
                  (200 196)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(195
                      (r$691)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(194
                             (r$692)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(191
                                   (lp$196$310)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(132
                                         (r$694)
                                         ((lp$196$310
                                            k$683
                                            (Cyc-fast-sub nrows$306 1)))
                                         #f))
                                     (set! lp$196$310
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(190
                                           (k$696 r$311)
                                           ((if (Cyc-fast-lt r$311 0)
                                              (k$696 (Cyc-fast-lt r$311 0))
                                              (write-ch
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(186
                                                    (r$698)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(184
                                                          (lp$200$318)
                                                          ((#((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(171
                                                                (r$729)
                                                                ((lp$200$318
                                                                   #((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(170
                                                                       (r$699)
                                                                       ((#((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(169
                                                                             (k$724)
                                                                             ((odd? #((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(168
                                                                                        (r$725)
                                                                                        ((if r$725
                                                                                           (dot/space
                                                                                             #((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(165
                                                                                                 (r$727)
                                                                                                 ((write-ch
                                                                                                    #((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(164
                                                                                                        (r$726)
                                                                                                        ((write-ch
                                                                                                           k$724
                                                                                                           #\\))
                                                                                                        #f))
                                                                                                    r$727))
                                                                                                 #f))
                                                                                             harr$305
                                                                                             r$311
                                                                                             (Cyc-fast-sub
                                                                                               ncols$307
                                                                                               1))
                                                                                           (k$724 #f)))
                                                                                        #f))
                                                                                    ncols$307))
                                                                             #t))
                                                                         #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(163
                                                                             (r$700)
                                                                             ((write-ch
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(162
                                                                                    (r$701)
                                                                                    ((#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(160
                                                                                          (lp$207$314)
                                                                                          ((#((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(146
                                                                                                (r$712)
                                                                                                ((lp$207$314
                                                                                                   #((record-marker)
                                                                                                     #((record-marker)
                                                                                                       #f
                                                                                                       (id args
                                                                                                           body
                                                                                                           has-cont))
                                                                                                     #(145
                                                                                                       (r$702)
                                                                                                       ((#((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(144
                                                                                                             (k$706)
                                                                                                             ((odd? #((record-marker)
                                                                                                                      #((record-marker)
                                                                                                                        #f
                                                                                                                        (id args
                                                                                                                            body
                                                                                                                            has-cont))
                                                                                                                      #(143
                                                                                                                        (r$707)
                                                                                                                        ((if r$707
                                                                                                                           (href/rc
                                                                                                                             #((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(138
                                                                                                                                 (r$709)
                                                                                                                                 ((#((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(137
                                                                                                                                       (r$708)
                                                                                                                                       ((display-hexbottom
                                                                                                                                          k$706
                                                                                                                                          r$708))
                                                                                                                                       #f))
                                                                                                                                   (vector-ref
                                                                                                                                     r$709
                                                                                                                                     3)))
                                                                                                                                 #f))
                                                                                                                             harr$305
                                                                                                                             r$311
                                                                                                                             (Cyc-fast-sub
                                                                                                                               ncols$307
                                                                                                                               1))
                                                                                                                           (if (zero?__inline__
                                                                                                                                 r$311)
                                                                                                                             (k$706 #f)
                                                                                                                             (write-ch
                                                                                                                               k$706
                                                                                                                               #\\))))
                                                                                                                        #f))
                                                                                                                    ncols$307))
                                                                                                             #t))
                                                                                                         #((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(136
                                                                                                             (r$703)
                                                                                                             ((write-ch
                                                                                                                #((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(135
                                                                                                                    (r$704)
                                                                                                                    ((lp$196$310
                                                                                                                       k$696
                                                                                                                       (Cyc-fast-sub
                                                                                                                         r$311
                                                                                                                         1)))
                                                                                                                    #f))
                                                                                                                #\newline))
                                                                                                             #f))))
                                                                                                       #f))
                                                                                                   0))
                                                                                                #f))
                                                                                            (set! lp$207$314
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(159
                                                                                                  (k$714 c$315)
                                                                                                  ((if (Cyc-fast-gte
                                                                                                         c$315
                                                                                                         (Cyc-fast-mul
                                                                                                           2
                                                                                                           r$773))
                                                                                                     (k$714 (Cyc-fast-gte
                                                                                                              c$315
                                                                                                              (Cyc-fast-mul
                                                                                                                2
                                                                                                                r$773)))
                                                                                                     (href/rc
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(155
                                                                                                           (r$723)
                                                                                                           ((#((record-marker)
                                                                                                               #((record-marker)
                                                                                                                 #f
                                                                                                                 (id args
                                                                                                                     body
                                                                                                                     has-cont))
                                                                                                               #(154
                                                                                                                 (r$722)
                                                                                                                 ((display-hexbottom
                                                                                                                    #((record-marker)
                                                                                                                      #((record-marker)
                                                                                                                        #f
                                                                                                                        (id args
                                                                                                                            body
                                                                                                                            has-cont))
                                                                                                                      #(153
                                                                                                                        (r$716)
                                                                                                                        ((dot/space
                                                                                                                           #((record-marker)
                                                                                                                             #((record-marker)
                                                                                                                               #f
                                                                                                                               (id args
                                                                                                                                   body
                                                                                                                                   has-cont))
                                                                                                                             #(150
                                                                                                                               (r$719)
                                                                                                                               ((write-ch
                                                                                                                                  #((record-marker)
                                                                                                                                    #((record-marker)
                                                                                                                                      #f
                                                                                                                                      (id args
                                                                                                                                          body
                                                                                                                                          has-cont))
                                                                                                                                    #(149
                                                                                                                                      (r$717)
                                                                                                                                      ((lp$207$314
                                                                                                                                         k$714
                                                                                                                                         (Cyc-fast-plus
                                                                                                                                           c$315
                                                                                                                                           2)))
                                                                                                                                      #f))
                                                                                                                                  r$719))
                                                                                                                               #f))
                                                                                                                           harr$305
                                                                                                                           (Cyc-fast-sub
                                                                                                                             r$311
                                                                                                                             1)
                                                                                                                           (Cyc-fast-plus
                                                                                                                             c$315
                                                                                                                             1)))
                                                                                                                        #f))
                                                                                                                    r$722))
                                                                                                                 #f))
                                                                                                             (vector-ref
                                                                                                               r$723
                                                                                                               3)))
                                                                                                           #f))
                                                                                                       harr$305
                                                                                                       r$311
                                                                                                       c$315)))
                                                                                                  #t)))))
                                                                                          #f))
                                                                                      #f))
                                                                                    #f))
                                                                                #\newline))
                                                                             #f))))
                                                                       #f))
                                                                   1))
                                                                #f))
                                                            (set! lp$200$318
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(183
                                                                  (k$731 c$319)
                                                                  ((if (Cyc-fast-gte
                                                                         c$319
                                                                         (Cyc-fast-mul
                                                                           2
                                                                           r$773))
                                                                     (k$731 (Cyc-fast-gte
                                                                              c$319
                                                                              (Cyc-fast-mul
                                                                                2
                                                                                r$773)))
                                                                     (dot/space
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(178
                                                                           (r$738)
                                                                           ((write-ch
                                                                              #((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(177
                                                                                  (r$733)
                                                                                  ((href/rc
                                                                                     #((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(176
                                                                                         (r$737)
                                                                                         ((#((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(175
                                                                                               (r$736)
                                                                                               ((display-hexbottom
                                                                                                  #((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(174
                                                                                                      (r$734)
                                                                                                      ((lp$200$318
                                                                                                         k$731
                                                                                                         (Cyc-fast-plus
                                                                                                           c$319
                                                                                                           2)))
                                                                                                      #f))
                                                                                                  r$736))
                                                                                               #f))
                                                                                           (vector-ref
                                                                                             r$737
                                                                                             3)))
                                                                                         #f))
                                                                                     harr$305
                                                                                     r$311
                                                                                     c$319))
                                                                                  #f))
                                                                              r$738))
                                                                           #f))
                                                                       harr$305
                                                                       r$311
                                                                       (Cyc-fast-sub
                                                                         c$319
                                                                         1))))
                                                                  #t)))))
                                                          #f))
                                                      #f))
                                                    #f))
                                                #\/)))
                                           #t)))))
                                   #f))
                               #f))
                             #f))
                         #\newline))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t)))
       (odd? .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 5
                 (144 169 201 770 771)
                 #f
                 #f
                 5
                 0
                 #f
                 #f
                 #f)))
       (c$412 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 492 #f #f #f 1 (492) #f #f 0 1 #t #f #f))))
      ()
      ((nw$359
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 309 #f #f #f 2 (309 307) #f #f 0 2 #f #f #f))))
      ((k$743 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  199
                  #f
                  #f
                  #f
                  2
                  (199 199)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(196 (r$742) ((write-ch k$740 r$742)) #f))
                  2
                  0
                  #t
                  #f
                  #t))))
      ()
      ()
      ()
      ((top-cell$373
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #f #f 1 (380) #f #f 0 1 #t #f #f))))
      ((k$748 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 219 #f #f #f 2 (206 219) #f #f 1 1 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((name$264
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 71 #f #f #f 3 (63 22 16) #f #f 0 3 #f #f #f)))
       (permute-vec!
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             622
             #f
             #f
             2
             (282 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(622
                  (k$1097 v$482 random-state$481)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(621
                        (r$1110)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(618
                              (lp$484)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(606
                                    (r$1100)
                                    ((lp$484
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(605 (r$1098) ((k$1097 v$482)) #f))
                                       (Cyc-fast-sub r$1110 1)))
                                    #f))
                                (set! lp$484
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(617
                                      (k$1102 i$485)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(616
                                            (r$1103)
                                            ((if r$1103
                                               (#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(614
                                                    (r$1106)
                                                    ((random-int
                                                       #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(613
                                                           (r$1107)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(612
                                                                 (elt-i$487
                                                                   j$486)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(611
                                                                       (r$1109)
                                                                       ((#((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(610
                                                                             (r$1108)
                                                                             ((#((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(609
                                                                                   (r$1104)
                                                                                   ((lp$484
                                                                                      k$1102
                                                                                      (Cyc-fast-sub
                                                                                        i$485
                                                                                        1)))
                                                                                   #f))
                                                                               (vector-set!
                                                                                 v$482
                                                                                 j$486
                                                                                 elt-i$487)))
                                                                             #f))
                                                                         (vector-set!
                                                                           v$482
                                                                           i$485
                                                                           r$1109)))
                                                                       #f))
                                                                   (vector-ref
                                                                     v$482
                                                                     j$486)))
                                                                 #f))
                                                             r$1106
                                                             r$1107))
                                                           #f))
                                                       i$485
                                                       random-state$481))
                                                    #f))
                                                (vector-ref v$482 i$485))
                                               (k$1102 #f)))
                                            #f))
                                        (Cyc-fast-gt i$485 1)))
                                      #t)))))
                              #f))
                          #f))
                        #f))
                    (vector-length v$482)))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((k$1243
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             764
             #f
             #f
             #f
             5
             (760 760 760 760 760)
             #f
             #f
             5
             0
             #t
             #f
             #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((n$544 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 718 #f #f #f 1 (718) #f #f 0 1 #t #f #f))))
      ((set-cell:mark
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             636
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(636
                  (k$1125 o$494 v$493)
                  ((k$1125 (vector-set! o$494 5 v$493)))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ((c$428 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  511
                  #f
                  #f
                  #f
                  5
                  (511 505 502 511 511)
                  #f
                  #f
                  0
                  5
                  #t
                  #f
                  #f))))
      ((car .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                ?
                #f
                #f
                #f
                12
                (292 297 297 305 313 318 318 324 329 335 668 717)
                #f
                #f
                12
                0
                #t
                #f
                #f))))
      ()
      ((k$759 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  215
                  #f
                  #f
                  #f
                  2
                  (215 215)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(213
                      (r$758)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(212
                             (r$750)
                             ((write-ch
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(211
                                    (r$751)
                                    ((dot/space
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(208
                                           (r$755)
                                           ((write-ch
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(207
                                                  (r$752)
                                                  ((write-ch
                                                     #((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(206
                                                         (r$753)
                                                         ((lp$192$322
                                                            k$748
                                                            (Cyc-fast-plus
                                                              c$323
                                                              2)))
                                                         #f))
                                                     #\\))
                                                  #f))
                                              r$755))
                                           #f))
                                       harr$305
                                       (Cyc-fast-sub nrows$306 1)
                                       (Cyc-fast-plus c$323 1)))
                                    #f))
                                #\/))
                             #f))
                         r$758))
                      #f))
                  2
                  0
                  #t
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((v$285 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #f)))
       (n1$516
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             661
             #f
             #f
             #f
             3
             (653 651 659)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ()
      ((add-wall$396
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             473
             #f
             #f
             #f
             7
             (438 444 447 399 403 414 417)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(477
                 (k$968 o$395 n$394 b$393)
                 ((make-wall
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(476
                        (r$970)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(475
                              (r$969)
                              ((k$968 (set! walls$392 r$969)))
                              #f))
                          (cons r$970 walls$392)))
                        #f))
                    o$395
                    n$394
                    b$393))
                 #t))
             7
             0
             #f
             #f
             #f))))
      ()
      ((values
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (82 76) #f #f 1 1 #f #f #f)))
       (k$1254
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             763
             #f
             #f
             #f
             3
             (763 763 763)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(760
                 (r$1244)
                 ((if r$1244
                    (k$1243 (quotient__inline__ x$552 y$551))
                    (if (Cyc-fast-lt y$551 0)
                      (if (Cyc-fast-eq
                            (Cyc-fast-sub
                              x$552
                              (Cyc-fast-mul
                                (quotient__inline__ x$552 y$551)
                                y$551))
                            0)
                        (k$1243 (quotient__inline__ x$552 y$551))
                        (k$1243
                          (Cyc-fast-plus
                            (quotient__inline__ x$552 y$551)
                            1)))
                      (if (Cyc-fast-eq
                            (Cyc-fast-sub
                              x$552
                              (Cyc-fast-mul
                                (quotient__inline__ x$552 y$551)
                                y$551))
                            0)
                        (k$1243 (quotient__inline__ x$552 y$551))
                        (k$1243
                          (Cyc-fast-sub (quotient__inline__ x$552 y$551) 1))))))
                 #f))
             3
             0
             #t
             #f
             #t))))
      ()
      ()
      ()
      ()
      ((k$1259
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             781
             #f
             #f
             #f
             6
             (769 769 777 778 779 780)
             #f
             #f
             6
             0
             #t
             #f
             #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((c$430 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 530 #f #f #f 1 (528) #f #f 0 1 #t #f #f))))
      ()
      ((rmoc-hex$402
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 420 #f #f #f 2 (414 417) #f #f 0 2 #f #f #f))))
      ()
      ()
      ((k$763 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 238 #f #f #f 2 (228 238) #f #f 1 1 #t #f #t))))
      ((c$436 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 535 #f #f #f 1 (533) #f r$1022 0 1 #t #f #f))))
      ((next$530
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             682
             #f
             #f
             #f
             2
             (682 679)
             #f
             (cdr x$529)
             0
             2
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$1266
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             771
             #f
             #f
             #f
             2
             (770 770)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(769
                 (r$1265)
                 ((if r$1265
                    (k$1259 (+ z$559 z$559 1))
                    (k$1259 (Cyc-fast-plus z$559 z$559))))
                 #f))
             1
             1
             #f
             #f
             #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((bt-lp$378
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             376
             #f
             #f
             #f
             4
             (370 368 376 366)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(375
                 (k$888 max-len$382
                        entrance$381
                        exit$380
                        bcol$379)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(374
                       (r$889)
                       ((if r$889
                          (vector k$888 max-len$382 entrance$381 exit$380)
                          (href/rc
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(373
                                (r$894)
                                ((path-length
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(371
                                       (this-len$383)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(370
                                             (r$891)
                                             ((if r$891
                                                (#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(368
                                                     (r$892)
                                                     ((bt-lp$378
                                                        k$888
                                                        this-len$383
                                                        tcol$369
                                                        bcol$379
                                                        r$892))
                                                     #f))
                                                 (Cyc-fast-sub bcol$379 1))
                                                (bt-lp$378
                                                  k$888
                                                  max-len$382
                                                  entrance$381
                                                  exit$380
                                                  (Cyc-fast-sub bcol$379 1))))
                                             #f))
                                         (Cyc-fast-gt
                                           this-len$383
                                           max-len$382)))
                                       #f))
                                   r$894))
                                #f))
                            harr$361
                            0
                            bcol$379)))
                       #f))
                   (Cyc-fast-lt bcol$379 0)))
                 #t))
             3
             0
             #f
             #f
             #f))))
      ()
      ((j/s$268
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 57 #f #f #f 2 (26 14) #f #f 0 2 #t #f #f))))
      ((s2$292
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             95
             #f
             #f
             #f
             1
             (93)
             #f
             (number->string input2$289)
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ((k$771 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  231
                  #f
                  #f
                  #f
                  2
                  (231 231)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(229
                      (r$770)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(228
                             (r$768)
                             ((lp$188$326 k$763 (Cyc-fast-plus c$327 2)))
                             #f))
                         r$770))
                      #f))
                  2
                  0
                  #t
                  #f
                  #t))))
      ()
      ()
      ()
      ((lp$113$421
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             519
             #f
             #f
             #f
             3
             (497 519 494)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(518
                 (k$993 r$422)
                 ((if (Cyc-fast-lt r$422 0)
                    (k$993 (Cyc-fast-lt r$422 0))
                    (#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(513
                         (i$424)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(512
                               (lp$117$426)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(498
                                     (r$998)
                                     ((lp$117$426
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(497
                                            (r$995)
                                            ((lp$113$421
                                               k$993
                                               (Cyc-fast-sub r$422 1)))
                                            #f))
                                        0
                                        i$424))
                                     #f))
                                 (set! lp$117$426
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(511
                                       (k$1000 c$428 i$427)
                                       ((if (Cyc-fast-eq c$428 ncols$417)
                                          (k$1000 (Cyc-fast-eq c$428 ncols$417))
                                          (bitwise-and
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(505
                                                (r$1009)
                                                ((proc$416
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(503
                                                       (r$1005)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(502
                                                             (r$1002)
                                                             ((lp$117$426
                                                                k$1000
                                                                (Cyc-fast-plus
                                                                  c$428
                                                                  1)
                                                                (Cyc-fast-plus
                                                                  i$427
                                                                  1)))
                                                             #f))
                                                         (vector-set!
                                                           v$419
                                                           i$427
                                                           r$1005)))
                                                       #f))
                                                   (Cyc-fast-mul 3 c$428)
                                                   (Cyc-fast-plus
                                                     (Cyc-fast-mul 2 r$422)
                                                     r$1009)))
                                                #f))
                                            c$428
                                            1)))
                                       #t)))))
                               #f))
                           #f))
                         #f))
                     (Cyc-fast-mul r$422 ncols$417))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((k$776 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 251 #f #f #f 1 (250) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ((maze$464
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 580 #f #f #f 1 (576) #f #f 0 1 #f #f #f))))
      ()
      ()
      ()
      ((o$500 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 640 #f #f #f 1 (640) #f #f 0 1 #t #t #f))))
      ((o$501 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 641 #f #f #f 1 (641) #f #f 0 1 #t #f #f)))
       (tmp$111$448
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             546
             #f
             #f
             #f
             2
             (546 546)
             #f
             (vector-ref node$447 4)
             0
             1
             #t
             #f
             #f))))
      ((o$502 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 642 #f #f #f 1 (642) #f #f 0 1 #t #f #f))))
      ((o$503 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 643 #f #f #f 1 (643) #f #f 0 1 #t #f #f))))
      ()
      ((k$1272
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 783 #f #f #f 1 (782) #f #f 1 0 #t #f #t))))
      ((o$506 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 646 #f #f #f 1 (646) #f #f 0 1 #t #f #f))))
      ((wall:owner
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             648
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(648
                  (k$1159 o$508)
                  ((k$1159 (vector-ref o$508 1)))
                  #t)))
             0
             0
             #f
             #f
             #f)))
       (o$507 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 647 #f #f #f 1 (647) #f #f 0 1 #t #f #f))))
      ((o$508 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 648 #f #f #f 1 (648) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$782 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 258 #f #f #f 1 (252) #f #f 0 1 #f #f #t))))
      ()
      ()
      ()
      ()
      ((cdr .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                ?
                #f
                #f
                #f
                14
                (292
                 297
                 297
                 305
                 305
                 313
                 318
                 318
                 324
                 329
                 335
                 693
                 684
                 690)
                #f
                #f
                14
                0
                #t
                #f
                #f))))
      ()
      ((k$789 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 285 #f #f #f 1 (259) #f #f 0 1 #f #f #t))))
      ()
      ((r$300 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 128 #f #f #f 2 (127 127) #f #f 0 2 #t #f #f))))
      ()
      ()
      ()
      ()
      ((r$1002
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             502
             #f
             #f
             #f
             0
             ()
             #f
             (vector-set! v$419 i$427 r$1005)
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ((r$1005
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 503 #f #f #f 1 (503) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((r$600 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 15 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$601 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 14 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (r$1009
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 505 #f #f #f 1 (505) #f #f 0 1 #t #f #f))))
      ((r$602 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 13 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$603 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 12 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$604 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 11 #f #f #f 1 (11) #f #f 0 1 #t #f #f)))
       (lp$136$408
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             458
             #f
             #f
             #f
             3
             (437 458 434)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(457
                 (k$945 y$409)
                 ((if (Cyc-fast-lte y$409 1)
                    (k$945 (Cyc-fast-lte y$409 1))
                    (href #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(452
                              (hex$411)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(451
                                    (k$959)
                                    ((if (zero?__inline__ x$405)
                                       (k$959 #f)
                                       (href #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(447
                                                 (r$961)
                                                 ((add-wall$396
                                                    k$959
                                                    hex$411
                                                    r$961
                                                    south-west))
                                                 #f))
                                             harr$388
                                             (Cyc-fast-sub x$405 3)
                                             (Cyc-fast-sub y$409 1))))
                                    #t))
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(446
                                    (r$950)
                                    ((href #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(444
                                               (r$957)
                                               ((add-wall$396
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(443
                                                      (r$951)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(442
                                                            (k$952)
                                                            ((if (Cyc-fast-lt
                                                                   x$405
                                                                   (Cyc-fast-mul
                                                                     3
                                                                     (Cyc-fast-sub
                                                                       ncols$390
                                                                       1)))
                                                               (href #((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(438
                                                                         (r$954)
                                                                         ((add-wall$396
                                                                            k$952
                                                                            hex$411
                                                                            r$954
                                                                            south-east))
                                                                         #f))
                                                                     harr$388
                                                                     (Cyc-fast-plus
                                                                       x$405
                                                                       3)
                                                                     (Cyc-fast-sub
                                                                       y$409
                                                                       1))
                                                               (k$952 #f)))
                                                            #t))
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(437
                                                            (r$947)
                                                            ((lp$136$408
                                                               k$945
                                                               (Cyc-fast-sub
                                                                 y$409
                                                                 2)))
                                                            #f))))
                                                      #f))
                                                  hex$411
                                                  r$957
                                                  south))
                                               #f))
                                           harr$388
                                           x$405
                                           (Cyc-fast-sub y$409 2)))
                                    #f))))
                              #f))
                          harr$388
                          x$405
                          y$409)))
                 #t))
             2
             0
             #t
             #f
             #f))))
      ((r$605 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 18 #f #f #f 1 (18) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((r$608 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 45 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$609 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 44 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ((new-root$455
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 570 #f #f #f 1 (570) #f #f 0 1 #t #f #f))))
      ((nelts$531
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 698 #f #f #f 1 (698) #f #f 0 1 #t #f #f)))
       (ncols$417
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             525
             #f
             #f
             #f
             5
             (525 518 511 511 493)
             #f
             #f
             0
             5
             #t
             #t
             #f))))
      ((r$905 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 429 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$906 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 394 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((set-equal?
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             672
             #f
             #f
             2
             (594 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(672
                  (k$1181 s1$521 s2$520)
                  ((get-set-root
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(671
                         (r$1182)
                         ((get-set-root
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(670 (r$1183) ((k$1181 (eq? r$1182 r$1183))) #f))
                            s2$520))
                         #f))
                     s1$521))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (r$311 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  190
                  #f
                  #f
                  #f
                  10
                  (183 177 159 153 135 143 143 168 190 190)
                  #f
                  #f
                  0
                  10
                  #t
                  #f
                  #f))))
      ((call-with-current-continuation
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (604) #f #f 1 0 #f #f #f))))
      ()
      ()
      ()
      ()
      ((r$1014
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             529
             #f
             #f
             #f
             1
             (528)
             #f
             (vector-ref ha$432 3)
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ((r$1017
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             528
             #f
             #f
             #f
             1
             (528)
             #f
             (vector-ref ha$432 2)
             0
             1
             #t
             #f
             #f))))
      ((r$610 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 43 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$611 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 41 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$612 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 42 #f #f #f 1 (42) #f #f 0 1 #t #f #f))))
      ((r$613 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 60 #f #f #f 1 (60) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((lp$192$322
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             220
             #f
             #f
             #f
             3
             (206 220 203)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(219
                 (k$748 c$323)
                 ((if (Cyc-fast-gte c$323 (Cyc-fast-mul 2 r$773))
                    (k$748 (Cyc-fast-gte c$323 (Cyc-fast-mul 2 r$773)))
                    (#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(215
                         (k$759)
                         ((if (Cyc-fast-eq c$323 entrance$304)
                            (k$759 #\space)
                            (k$759 #\_)))
                         #t))
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(213
                         (r$758)
                         ((write-ch
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(212
                                (r$750)
                                ((write-ch
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(211
                                       (r$751)
                                       ((dot/space
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(208
                                              (r$755)
                                              ((write-ch
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(207
                                                     (r$752)
                                                     ((write-ch
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(206
                                                            (r$753)
                                                            ((lp$192$322
                                                               k$748
                                                               (Cyc-fast-plus
                                                                 c$323
                                                                 2)))
                                                            #f))
                                                        #\\))
                                                     #f))
                                                 r$755))
                                              #f))
                                          harr$305
                                          (Cyc-fast-sub nrows$306 1)
                                          (Cyc-fast-plus c$323 1)))
                                       #f))
                                   #\/))
                                #f))
                            r$758))
                         #f)))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ((mark-path
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             552
             #f
             #f
             2
             (263 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(552
                  (k$1042 node$444)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(551
                        (node$445)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(550
                              (lp$446)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(544 (r$1043) ((lp$446 k$1042 node$445)) #f))
                                (set! lp$446
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(549
                                      (k$1045 node$447)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(548
                                            (r$1046)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(546
                                                  (tmp$111$448)
                                                  ((if tmp$111$448
                                                     (lp$446 k$1045 tmp$111$448)
                                                     (k$1045 #f)))
                                                  #f))
                                              (vector-ref node$447 4)))
                                            #f))
                                        (vector-set! node$447 5 #t)))
                                      #t)))))
                              #f))
                          #f))
                        #f))
                    node$444))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((r$910 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 413 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((r$912 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  395
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$140$399
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(409
                        (k$914 x$400)
                        ((if (Cyc-fast-lt x$400 3)
                           (k$914 (Cyc-fast-lt x$400 3))
                           (href #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(405
                                     (r$922)
                                     ((href #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(403
                                                (r$923)
                                                ((add-wall$396
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(402
                                                       (r$916)
                                                       ((href #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(401
                                                                  (r$919)
                                                                  ((href #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(399
                                                                             (r$920)
                                                                             ((add-wall$396
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(398
                                                                                    (r$917)
                                                                                    ((lp$140$399
                                                                                       k$914
                                                                                       (Cyc-fast-sub
                                                                                         x$400
                                                                                         6)))
                                                                                    #f))
                                                                                r$919
                                                                                r$920
                                                                                south-east))
                                                                             #f))
                                                                         harr$388
                                                                         (Cyc-fast-plus
                                                                           x$400
                                                                           3)
                                                                         0))
                                                                  #f))
                                                              harr$388
                                                              x$400
                                                              1))
                                                       #f))
                                                   r$922
                                                   r$923
                                                   south-west))
                                                #f))
                                            harr$388
                                            (Cyc-fast-sub x$400 3)
                                            0))
                                     #f))
                                 harr$388
                                 x$400
                                 1)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ((r$916 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 402 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$917 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 398 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((display-hexbottom
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             123
             #f
             #f
             4
             (-1 175 154 137)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(123
                  (k$657 hexwalls$298)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(122
                        (k$667)
                        ((bit-test
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(121
                               (r$668)
                               ((if r$668 (k$667 #\\) (k$667 #\space)))
                               #f))
                           hexwalls$298
                           south-west))
                        #t))
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(120
                        (r$666)
                        ((write-ch
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(119
                               (r$658)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(118
                                     (k$664)
                                     ((bit-test
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(117
                                            (r$665)
                                            ((if r$665
                                               (k$664 #\_)
                                               (k$664 #\space)))
                                            #f))
                                        hexwalls$298
                                        south))
                                     #t))
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(116
                                     (r$663)
                                     ((write-ch
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(115
                                            (r$659)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(114
                                                  (k$661)
                                                  ((bit-test
                                                     #((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(113
                                                         (r$662)
                                                         ((if r$662
                                                            (k$661 #\/)
                                                            (k$661 #\space)))
                                                         #f))
                                                     hexwalls$298
                                                     south-east))
                                                  #t))
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(112
                                                  (r$660)
                                                  ((write-ch k$657 r$660))
                                                  #f))))
                                            #f))
                                        r$663))
                                     #f))))
                               #f))
                           r$666))
                        #f))))
                  #t)))
             3
             0
             #f
             #f
             #f))))
      ((r$919 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 401 #f #f #f 1 (399) #f #f 0 1 #f #f #f))))
      ()
      ((set-cell:parent
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             638
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(638
                  (k$1131 o$497 v$496)
                  ((k$1131 (vector-set! o$497 4 v$496)))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$1021
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 537 #f #f #f 1 (536) #f #f 0 1 #f #f #f))))
      ((r$1022
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 536 #f #f #f 1 (536) #f #f 0 1 #t #f #f))))
      ((r$1023
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             534
             #f
             #f
             #f
             1
             (533)
             #f
             (vector-ref ha$435 3)
             0
             1
             #t
             #f
             #f))))
      ()
      ((union!
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             667
             #f
             #f
             2
             (588 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(667
                  (k$1166 s1$513 s2$512)
                  ((get-set-root
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(665
                         (r1$514)
                         ((get-set-root
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(663
                                (r2$515)
                                ((set-size
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(661
                                       (n1$516)
                                       ((set-size
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(659
                                              (n2$517)
                                              ((if (Cyc-fast-gt n1$516 n2$517)
                                                 (#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(651
                                                      (r$1173)
                                                      ((k$1166
                                                         (set-car!
                                                           r1$514
                                                           (Cyc-fast-plus
                                                             n1$516
                                                             n2$517))))
                                                      #f))
                                                  (set-cdr! r2$515 r1$514))
                                                 (#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(653
                                                      (r$1174)
                                                      ((k$1166
                                                         (set-car!
                                                           r2$515
                                                           (Cyc-fast-plus
                                                             n1$516
                                                             n2$517))))
                                                      #f))
                                                  (set-cdr! r1$514 r2$515))))
                                              #f))
                                          r2$515))
                                       #f))
                                   r1$514))
                                #f))
                            s2$512))
                         #f))
                     s1$513))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (neighbor$510
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 650 #f #f #f 1 (650) #f #f 0 1 #t #f #f))))
      ((lp$446
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             550
             #f
             #f
             #f
             3
             (546 550 544)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(549
                 (k$1045 node$447)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(548
                       (r$1046)
                       ((#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(546
                             (tmp$111$448)
                             ((if tmp$111$448
                                (lp$446 k$1045 tmp$111$448)
                                (k$1045 #f)))
                             #f))
                         (vector-ref node$447 4)))
                       #f))
                   (vector-set! node$447 5 #t)))
                 #t))
             2
             0
             #f
             #f
             #f)))
       (r$1026
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             533
             #f
             #f
             #f
             1
             (533)
             #f
             (vector-ref ha$435 2)
             0
             1
             #t
             #f
             #f))))
      ((vector-for-each-rev
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             635
             #f
             #f
             2
             (603 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(635
                  (k$1113 proc$489 v$488)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(631
                        (lp$491)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(623
                              (r$1115)
                              ((lp$491
                                 k$1113
                                 (Cyc-fast-sub (vector-length v$488) 1)))
                              #f))
                          (set! lp$491
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(630
                                (k$1117 i$492)
                                ((if (Cyc-fast-gte i$492 0)
                                   (proc$489
                                     #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(626
                                         (r$1119)
                                         ((lp$491
                                            k$1117
                                            (Cyc-fast-sub i$492 1)))
                                         #f))
                                     (vector-ref v$488 i$492))
                                   (k$1117 #f)))
                                #t)))))
                        #f))
                    #f))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (len$454
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 557 #f #f #f 2 (557 555) #f #f 0 2 #t #f #f))))
      ()
      ()
      ()
      ()
      ((t0$269
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 55 #f #f #f 1 (36) #f #f 0 1 #t #f #f))))
      ()
      ((r$626 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 79 #f #f #f 1 (76) #f #f 0 1 #f #f #f))))
      ((r$627 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 76 #f #f #f 1 (76) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r$920 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 399 #f #f #f 1 (399) #f #f 0 1 #t #f #f))))
      ()
      ((r$922 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 405 #f #f #f 1 (403) #f #f 0 1 #f #f #f))))
      ((r$923 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 403 #f #f #f 1 (403) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((r$926 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 416 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$927 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 414 #f #f #f 1 (414) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((lp$458
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             568
             #f
             #f
             #f
             3
             (564 568 562)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(567
                 (k$1062 node$460 new-parent$459)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(565
                       (old-parent$461)
                       ((#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(564
                             (r$1064)
                             ((if old-parent$461
                                (lp$458 k$1062 old-parent$461 node$460)
                                (k$1062 #f)))
                             #f))
                         (vector-set! node$460 4 new-parent$459)))
                       #f))
                   (vector-ref node$460 4)))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((j$303 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 131 #f #f #f 1 (131) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((ncols$442
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 543 #f #f #f 1 (543) #f #f 0 1 #t #f #f))))
      ()
      ((r$931 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 417 #f #f #f 1 (417) #f #f 0 1 #t #f #f))))
      ()
      ((r$933 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  425
                  #f
                  #f
                  #f
                  4
                  (425 416 395 419)
                  #f
                  #f
                  0
                  4
                  #t
                  #f
                  #f))))
      ()
      ((n2$517
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             659
             #f
             #f
             #f
             3
             (653 651 659)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((r$936 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  430
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$132$404
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(467
                        (k$938 x$405)
                        ((if (Cyc-fast-lt x$405 0)
                           (k$938 (Cyc-fast-lt x$405 0))
                           (bitwise-and
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(461
                                 (r$965)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(458
                                       (lp$136$408)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(434
                                             (r$943)
                                             ((lp$136$408
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(433
                                                    (r$940)
                                                    ((lp$132$404
                                                       k$938
                                                       (Cyc-fast-sub x$405 3)))
                                                    #f))
                                                (Cyc-fast-plus
                                                  (Cyc-fast-mul
                                                    (Cyc-fast-sub nrows$389 1)
                                                    2)
                                                  r$965)))
                                             #f))
                                         (set! lp$136$408
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(457
                                               (k$945 y$409)
                                               ((if (Cyc-fast-lte y$409 1)
                                                  (k$945 (Cyc-fast-lte y$409 1))
                                                  (href #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(452
                                                            (hex$411)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(451
                                                                  (k$959)
                                                                  ((if (zero?__inline__
                                                                         x$405)
                                                                     (k$959 #f)
                                                                     (href #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(447
                                                                               (r$961)
                                                                               ((add-wall$396
                                                                                  k$959
                                                                                  hex$411
                                                                                  r$961
                                                                                  south-west))
                                                                               #f))
                                                                           harr$388
                                                                           (Cyc-fast-sub
                                                                             x$405
                                                                             3)
                                                                           (Cyc-fast-sub
                                                                             y$409
                                                                             1))))
                                                                  #t))
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(446
                                                                  (r$950)
                                                                  ((href #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(444
                                                                             (r$957)
                                                                             ((add-wall$396
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(443
                                                                                    (r$951)
                                                                                    ((#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(442
                                                                                          (k$952)
                                                                                          ((if (Cyc-fast-lt
                                                                                                 x$405
                                                                                                 (Cyc-fast-mul
                                                                                                   3
                                                                                                   (Cyc-fast-sub
                                                                                                     ncols$390
                                                                                                     1)))
                                                                                             (href #((record-marker)
                                                                                                     #((record-marker)
                                                                                                       #f
                                                                                                       (id args
                                                                                                           body
                                                                                                           has-cont))
                                                                                                     #(438
                                                                                                       (r$954)
                                                                                                       ((add-wall$396
                                                                                                          k$952
                                                                                                          hex$411
                                                                                                          r$954
                                                                                                          south-east))
                                                                                                       #f))
                                                                                                   harr$388
                                                                                                   (Cyc-fast-plus
                                                                                                     x$405
                                                                                                     3)
                                                                                                   (Cyc-fast-sub
                                                                                                     y$409
                                                                                                     1))
                                                                                             (k$952 #f)))
                                                                                          #t))
                                                                                      #((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(437
                                                                                          (r$947)
                                                                                          ((lp$136$408
                                                                                             k$945
                                                                                             (Cyc-fast-sub
                                                                                               y$409
                                                                                               2)))
                                                                                          #f))))
                                                                                    #f))
                                                                                hex$411
                                                                                r$957
                                                                                south))
                                                                             #f))
                                                                         harr$388
                                                                         x$405
                                                                         (Cyc-fast-sub
                                                                           y$409
                                                                           2)))
                                                                  #f))))
                                                            #f))
                                                        harr$388
                                                        x$405
                                                        y$409)))
                                               #t)))))
                                       #f))
                                   #f))
                                 #f))
                             x$405
                             1)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((Cyc-fast-lte
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             6
             (297 297 318 318 457 457)
             #f
             #f
             6
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((nrows$297
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 111 #f #f #f 1 (109) #f #f 0 1 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((r$1043
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             544
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$446
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(549
                   (k$1045 node$447)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(548
                         (r$1046)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(546
                               (tmp$111$448)
                               ((if tmp$111$448
                                  (lp$446 k$1045 tmp$111$448)
                                  (k$1045 #f)))
                               #f))
                           (vector-ref node$447 4)))
                         #f))
                     (vector-set! node$447 5 #t)))
                   #t)))
             0
             0
             #t
             #f
             #f))))
      ((make-maze
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             285
             #f
             #f
             2
             (258 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(285
                  (k$789 nrows$337 ncols$336)
                  ((gen-maze-array
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(283
                         (cells$338)
                         ((make-wall-vec
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(282
                                (r$806)
                                ((permute-vec!
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(279
                                       (walls$339)
                                       ((dig-maze
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(276
                                              (r$792)
                                              ((pick-entrances
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(274
                                                     (result$340)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(271
                                                           (entrance$342
                                                             exit$341)
                                                           ((href/rc
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(269
                                                                  (exit-cell$343)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(267
                                                                        (walls$344)
                                                                        ((href/rc
                                                                           #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(264
                                                                               (r$803)
                                                                               ((reroot-maze
                                                                                  #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(263
                                                                                      (r$798)
                                                                                      ((mark-path
                                                                                         #((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(262
                                                                                             (r$799)
                                                                                             ((bitwise-not
                                                                                                #((record-marker)
                                                                                                  #((record-marker)
                                                                                                    #f
                                                                                                    (id args
                                                                                                        body
                                                                                                        has-cont))
                                                                                                  #(261
                                                                                                    (r$802)
                                                                                                    ((bitwise-and
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(260
                                                                                                           (r$801)
                                                                                                           ((#((record-marker)
                                                                                                               #((record-marker)
                                                                                                                 #f
                                                                                                                 (id args
                                                                                                                     body
                                                                                                                     has-cont))
                                                                                                               #(259
                                                                                                                 (r$800)
                                                                                                                 ((vector
                                                                                                                    k$789
                                                                                                                    cells$338
                                                                                                                    entrance$342
                                                                                                                    exit$341))
                                                                                                                 #f))
                                                                                                             (vector-set!
                                                                                                               exit-cell$343
                                                                                                               3
                                                                                                               r$801)))
                                                                                                           #f))
                                                                                                       walls$344
                                                                                                       r$802))
                                                                                                    #f))
                                                                                                south))
                                                                                             #f))
                                                                                         exit-cell$343))
                                                                                      #f))
                                                                                  r$803))
                                                                               #f))
                                                                           cells$338
                                                                           (Cyc-fast-sub
                                                                             nrows$337
                                                                             1)
                                                                           entrance$342))
                                                                        #f))
                                                                    (vector-ref
                                                                      exit-cell$343
                                                                      3)))
                                                                  #f))
                                                              cells$338
                                                              0
                                                              exit$341))
                                                           #f))
                                                       (vector-ref result$340 0)
                                                       (vector-ref
                                                         result$340
                                                         1)))
                                                     #f))
                                                 cells$338))
                                              #f))
                                          walls$339
                                          (Cyc-fast-mul nrows$337 ncols$336)))
                                       #f))
                                   r$806
                                   (cons 20 #f)))
                                #f))
                            cells$338))
                         #f))
                     nrows$337
                     ncols$336))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ((r$1046
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             548
             #f
             #f
             #f
             0
             ()
             #f
             (vector-set! node$447 5 #t)
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((r$642 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  90
                  #f
                  #f
                  #f
                  1
                  (90)
                  #f
                  (string-append
                    "maze"
                    ":"
                    s1$293
                    ":"
                    s2$292
                    ":"
                    s3$291)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ((r$647 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 88 #f #f #f 1 (87) #f #f 0 1 #f #f #f))))
      ((r$648 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 87 #f #f #f 1 (87) #f #f 0 1 #t #f #f))))
      ()
      ((x$527 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 686 #f #f #f 1 (677) #f s$522 0 1 #f #f #f))))
      ((r$940 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 433 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((x$529 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 684 #f #f #f 2 (684 681) #f #f 0 2 #f #t #f))))
      ()
      ((r$943 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  434
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$136$408
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(457
                        (k$945 y$409)
                        ((if (Cyc-fast-lte y$409 1)
                           (k$945 (Cyc-fast-lte y$409 1))
                           (href #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(452
                                     (hex$411)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(451
                                           (k$959)
                                           ((if (zero?__inline__ x$405)
                                              (k$959 #f)
                                              (href #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(447
                                                        (r$961)
                                                        ((add-wall$396
                                                           k$959
                                                           hex$411
                                                           r$961
                                                           south-west))
                                                        #f))
                                                    harr$388
                                                    (Cyc-fast-sub x$405 3)
                                                    (Cyc-fast-sub y$409 1))))
                                           #t))
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(446
                                           (r$950)
                                           ((href #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(444
                                                      (r$957)
                                                      ((add-wall$396
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(443
                                                             (r$951)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(442
                                                                   (k$952)
                                                                   ((if (Cyc-fast-lt
                                                                          x$405
                                                                          (Cyc-fast-mul
                                                                            3
                                                                            (Cyc-fast-sub
                                                                              ncols$390
                                                                              1)))
                                                                      (href #((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(438
                                                                                (r$954)
                                                                                ((add-wall$396
                                                                                   k$952
                                                                                   hex$411
                                                                                   r$954
                                                                                   south-east))
                                                                                #f))
                                                                            harr$388
                                                                            (Cyc-fast-plus
                                                                              x$405
                                                                              3)
                                                                            (Cyc-fast-sub
                                                                              y$409
                                                                              1))
                                                                      (k$952 #f)))
                                                                   #t))
                                                               #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(437
                                                                   (r$947)
                                                                   ((lp$136$408
                                                                      k$945
                                                                      (Cyc-fast-sub
                                                                        y$409
                                                                        2)))
                                                                   #f))))
                                                             #f))
                                                         hex$411
                                                         r$957
                                                         south))
                                                      #f))
                                                  harr$388
                                                  x$405
                                                  (Cyc-fast-sub y$409 2)))
                                           #f))))
                                     #f))
                                 harr$388
                                 x$405
                                 y$409)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ((r$947 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 437 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((val$543
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 703 #f #f #f 2 (703 701) #f #f 0 2 #t #f #f))))
      ()
      ()
      ()
      ()
      ((r$1051
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             560
             #f
             #f
             #f
             1
             (560)
             #f
             (vector-ref cell$449 4)
             0
             1
             #t
             #f
             #f))))
      ((s3$291
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             97
             #f
             #f
             #f
             1
             (93)
             #f
             (number->string count$287)
             0
             1
             #t
             #f
             #f)))
       (pick-entrances
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             393
             #f
             #f
             2
             (276 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(393
                  (k$869 harr$361)
                  ((href/rc
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(392
                         (r$896)
                         ((dfs-maze
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(391
                                (r$870)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(390
                                      (r$871)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(389
                                            (r$872)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(388
                                                  (nrows$363 ncols$362)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(386
                                                        (tcol$364)
                                                        ((#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(385
                                                              (tp-lp$368)
                                                              ((#((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(357
                                                                    (r$874)
                                                                    ((tp-lp$368
                                                                       k$869
                                                                       -1
                                                                       #f
                                                                       #f
                                                                       tcol$364))
                                                                    #f))
                                                                (set! tp-lp$368
                                                                  #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(384
                                                                      (k$876 max-len$372
                                                                             entrance$371
                                                                             exit$370
                                                                             tcol$369)
                                                                      ((#((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(383
                                                                            (r$877)
                                                                            ((if r$877
                                                                               (vector
                                                                                 k$876
                                                                                 entrance$371
                                                                                 exit$370)
                                                                               (href/rc
                                                                                 #((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(380
                                                                                     (top-cell$373)
                                                                                     ((reroot-maze
                                                                                        #((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(379
                                                                                            (r$879)
                                                                                            ((#((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(377
                                                                                                  (max-len$377
                                                                                                    entrance$376
                                                                                                    exit$375
                                                                                                    bcol$374)
                                                                                                  ((#((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(376
                                                                                                        (bt-lp$378)
                                                                                                        ((#((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(366
                                                                                                              (r$886)
                                                                                                              ((bt-lp$378
                                                                                                                 #((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(364
                                                                                                                     (result$384)
                                                                                                                     ((#((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(360
                                                                                                                           (max-len$387
                                                                                                                             entrance$386
                                                                                                                             exit$385)
                                                                                                                           ((tp-lp$368
                                                                                                                              k$876
                                                                                                                              max-len$387
                                                                                                                              entrance$386
                                                                                                                              exit$385
                                                                                                                              (Cyc-fast-sub
                                                                                                                                tcol$369
                                                                                                                                1)))
                                                                                                                           #f))
                                                                                                                       (vector-ref
                                                                                                                         result$384
                                                                                                                         0)
                                                                                                                       (vector-ref
                                                                                                                         result$384
                                                                                                                         1)
                                                                                                                       (vector-ref
                                                                                                                         result$384
                                                                                                                         2)))
                                                                                                                     #f))
                                                                                                                 max-len$377
                                                                                                                 entrance$376
                                                                                                                 exit$375
                                                                                                                 bcol$374))
                                                                                                              #f))
                                                                                                          (set! bt-lp$378
                                                                                                            #((record-marker)
                                                                                                              #((record-marker)
                                                                                                                #f
                                                                                                                (id args
                                                                                                                    body
                                                                                                                    has-cont))
                                                                                                              #(375
                                                                                                                (k$888 max-len$382
                                                                                                                       entrance$381
                                                                                                                       exit$380
                                                                                                                       bcol$379)
                                                                                                                ((#((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(374
                                                                                                                      (r$889)
                                                                                                                      ((if r$889
                                                                                                                         (vector
                                                                                                                           k$888
                                                                                                                           max-len$382
                                                                                                                           entrance$381
                                                                                                                           exit$380)
                                                                                                                         (href/rc
                                                                                                                           #((record-marker)
                                                                                                                             #((record-marker)
                                                                                                                               #f
                                                                                                                               (id args
                                                                                                                                   body
                                                                                                                                   has-cont))
                                                                                                                             #(373
                                                                                                                               (r$894)
                                                                                                                               ((path-length
                                                                                                                                  #((record-marker)
                                                                                                                                    #((record-marker)
                                                                                                                                      #f
                                                                                                                                      (id args
                                                                                                                                          body
                                                                                                                                          has-cont))
                                                                                                                                    #(371
                                                                                                                                      (this-len$383)
                                                                                                                                      ((#((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(370
                                                                                                                                            (r$891)
                                                                                                                                            ((if r$891
                                                                                                                                               (#((record-marker)
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #f
                                                                                                                                                    (id args
                                                                                                                                                        body
                                                                                                                                                        has-cont))
                                                                                                                                                  #(368
                                                                                                                                                    (r$892)
                                                                                                                                                    ((bt-lp$378
                                                                                                                                                       k$888
                                                                                                                                                       this-len$383
                                                                                                                                                       tcol$369
                                                                                                                                                       bcol$379
                                                                                                                                                       r$892))
                                                                                                                                                    #f))
                                                                                                                                                (Cyc-fast-sub
                                                                                                                                                  bcol$379
                                                                                                                                                  1))
                                                                                                                                               (bt-lp$378
                                                                                                                                                 k$888
                                                                                                                                                 max-len$382
                                                                                                                                                 entrance$381
                                                                                                                                                 exit$380
                                                                                                                                                 (Cyc-fast-sub
                                                                                                                                                   bcol$379
                                                                                                                                                   1))))
                                                                                                                                            #f))
                                                                                                                                        (Cyc-fast-gt
                                                                                                                                          this-len$383
                                                                                                                                          max-len$382)))
                                                                                                                                      #f))
                                                                                                                                  r$894))
                                                                                                                               #f))
                                                                                                                           harr$361
                                                                                                                           0
                                                                                                                           bcol$379)))
                                                                                                                      #f))
                                                                                                                  (Cyc-fast-lt
                                                                                                                    bcol$379
                                                                                                                    0)))
                                                                                                                #t)))))
                                                                                                        #f))
                                                                                                    #f))
                                                                                                  #f))
                                                                                              max-len$372
                                                                                              entrance$371
                                                                                              exit$370
                                                                                              (Cyc-fast-sub
                                                                                                ncols$362
                                                                                                1)))
                                                                                            #f))
                                                                                        top-cell$373))
                                                                                     #f))
                                                                                 harr$361
                                                                                 (Cyc-fast-sub
                                                                                   nrows$363
                                                                                   1)
                                                                                 tcol$369)))
                                                                            #f))
                                                                        (Cyc-fast-lt
                                                                          tcol$369
                                                                          0)))
                                                                      #t)))))
                                                              #f))
                                                          #f))
                                                        #f))
                                                    (Cyc-fast-sub ncols$362 1)))
                                                  #f))
                                              r$871
                                              r$872))
                                            #f))
                                        (vector-ref harr$361 2)))
                                      #f))
                                  (vector-ref harr$361 1)))
                                #f))
                            harr$361
                            r$896
                            for-each-hex-child))
                         #f))
                     harr$361
                     0
                     0))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (r$1052
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             553
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$105$452
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(557
                   (k$1054 len$454 node$453)
                   ((if node$453
                      (#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(555
                           (r$1056)
                           ((lp$105$452
                              k$1054
                              (Cyc-fast-plus len$454 1)
                              r$1056))
                           #f))
                       (vector-ref node$453 4))
                      (k$1054 len$454)))
                   #t)))
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((r$1056
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             555
             #f
             #f
             #f
             1
             (555)
             #f
             (vector-ref node$453 4)
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((r$652 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  109
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! output '())
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$653 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 108 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ((number->string
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 3 (99 97 95) #f #f 3 0 #t #f #f)))
       (not__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (130) #f #f 1 0 #t #f #f))))
      ((r$658 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 119 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (cell:walls
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             641
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(641
                  (k$1140 o$501)
                  ((k$1140 (vector-ref o$501 3)))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ((r$659 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 115 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((r$950 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 446 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$951 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 443 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ((r$954 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 438 #f #f #f 1 (438) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((r$957 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 444 #f #f #f 1 (444) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((write .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(? ? #f #f #f 3 (45 24 26) #f #f 3 0 #f #f #f))))
      ((vector-set!
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             11
             (260 503 549 565 577 586 611 610 636 638 640)
             #f
             #f
             11
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((gen-maze-array
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             492
             #f
             #f
             2
             (285 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(492
                  (k$974 r$413 c$412)
                  ((harr-tabulate
                     k$974
                     r$413
                     c$412
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(491
                         (k$976 x$415 y$414)
                         ((base-set
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(490
                                (r$977)
                                ((make-cell k$976 r$977 (cons x$415 y$414)))
                                #f))
                            1))
                         #t))))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ((r$1060
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             562
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$458
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(567
                   (k$1062 node$460 new-parent$459)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(565
                         (old-parent$461)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(564
                               (r$1064)
                               ((if old-parent$461
                                  (lp$458 k$1062 old-parent$461 node$460)
                                  (k$1062 #f)))
                               #f))
                           (vector-set! node$460 4 new-parent$459)))
                         #f))
                     (vector-ref node$460 4)))
                   #t)))
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((lp$484
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             618
             #f
             #f
             #f
             3
             (609 618 606)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(617
                 (k$1102 i$485)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(616
                       (r$1103)
                       ((if r$1103
                          (#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(614
                               (r$1106)
                               ((random-int
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(613
                                      (r$1107)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(612
                                            (elt-i$487 j$486)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(611
                                                  (r$1109)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(610
                                                        (r$1108)
                                                        ((#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(609
                                                              (r$1104)
                                                              ((lp$484
                                                                 k$1102
                                                                 (Cyc-fast-sub
                                                                   i$485
                                                                   1)))
                                                              #f))
                                                          (vector-set!
                                                            v$482
                                                            j$486
                                                            elt-i$487)))
                                                        #f))
                                                    (vector-set!
                                                      v$482
                                                      i$485
                                                      r$1109)))
                                                  #f))
                                              (vector-ref v$482 j$486)))
                                            #f))
                                        r$1106
                                        r$1107))
                                      #f))
                                  i$485
                                  random-state$481))
                               #f))
                           (vector-ref v$482 i$485))
                          (k$1102 #f)))
                       #f))
                   (Cyc-fast-gt i$485 1)))
                 #t))
             2
             0
             #f
             #f
             #f)))
       (r$1064
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             564
             #f
             #f
             #f
             0
             ()
             #f
             (vector-set! node$460 4 new-parent$459)
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((r$660 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 112 #f #f #f 1 (112) #f #f 0 1 #t #f #f)))
       (r$1068
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             571
             #f
             #f
             #f
             0
             ()
             #f
             (set! search$467
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(577
                   (k$1070 node$469 parent$468)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(576
                         (r$1071)
                         ((do-children$462
                            k$1070
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(575
                                (k$1073 child$470)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(574
                                      (r$1074)
                                      ((if r$1074
                                         (k$1073 #f)
                                         (search$467
                                           k$1073
                                           child$470
                                           node$469)))
                                      #f))
                                  (eq? child$470 parent$468)))
                                #t))
                            maze$464
                            node$469))
                         #f))
                     (vector-set! node$469 4 parent$468)))
                   #t)))
             0
             0
             #t
             #f
             #f))))
      ()
      ((r$662 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 113 #f #f #f 1 (113) #f #f 0 0 #t #f #f))))
      ((r$663 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 116 #f #f #f 1 (116) #f #f 0 1 #t #f #f))))
      ()
      ((r$665 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 117 #f #f #f 1 (117) #f #f 0 0 #t #f #f))))
      ((r$666 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 120 #f #f #f 1 (120) #f #f 0 1 #t #f #f))))
      ()
      ((r$668 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 121 #f #f #f 1 (121) #f #f 0 0 #t #f #f))))
      ((x$546 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  741
                  #f
                  #f
                  #f
                  11
                  (737 737 737 737 737 737 737 737 737 740 740)
                  #f
                  #f
                  0
                  11
                  #f
                  #f
                  #f))))
      ()
      ()
      ((r$961 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 447 #f #f #f 1 (447) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r$965 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 461 #f #f #f 1 (434) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r$969 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  475
                  #f
                  #f
                  #f
                  1
                  (475)
                  #f
                  (cons r$970 walls$392)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((lp$491
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             631
             #f
             #f
             #f
             3
             (626 631 623)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(630
                 (k$1117 i$492)
                 ((if (Cyc-fast-gte i$492 0)
                    (proc$489
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(626
                          (r$1119)
                          ((lp$491 k$1117 (Cyc-fast-sub i$492 1)))
                          #f))
                      (vector-ref v$488 i$492))
                    (k$1117 #f)))
                 #t))
             2
             0
             #t
             #f
             #f)))
       (r$1071
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             576
             #f
             #f
             #f
             0
             ()
             #f
             (vector-set! node$469 4 parent$468)
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ((r$1074
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             574
             #f
             #f
             #f
             1
             (574)
             #f
             (eq? child$470 parent$468)
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ((r$672 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 124 #f #f #f 1 (124) #f #f 0 0 #t #f #f))))
      ()
      ()
      ((r$675 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 125 #f #f #f 1 (125) #f #f 0 1 #t #f #f)))
       (x$552 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  764
                  #f
                  #f
                  #f
                  11
                  (760 760 760 760 760 760 760 760 760 763 763)
                  #f
                  #f
                  0
                  11
                  #t
                  #f
                  #f))))
      ()
      ()
      ((ncells$471
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 604 #f #f #f 1 (584) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((x$558 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  781
                  #f
                  #f
                  #f
                  5
                  (781 779 777 771 777)
                  #f
                  #f
                  0
                  5
                  #f
                  #f
                  #f)))
       (r$970 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 476 #f #f #f 1 (476) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$977 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 490 #f #f #f 1 (490) #f #f 0 1 #t #f #f))))
      ((equal?
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (85) #f #f 1 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((for-each-hex-child
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             356
             #f
             #f
             2
             (-1 392)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(356
                  (k$810 proc$347 harr$346 cell$345)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(354
                        (walls$348)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(346
                              (nr$352)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(344
                                    (nc$353)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(336
                                          (k$860)
                                          ((bit-test
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(335
                                                 (r$861)
                                                 ((if r$861
                                                    (k$860 #f)
                                                    (href #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(332
                                                              (r$862)
                                                              ((proc$347
                                                                 k$860
                                                                 r$862))
                                                              #f))
                                                          harr$346
                                                          (Cyc-fast-sub
                                                            (car (vector-ref
                                                                   cell$345
                                                                   2))
                                                            3)
                                                          (Cyc-fast-sub
                                                            (cdr (vector-ref
                                                                   cell$345
                                                                   2))
                                                            1))))
                                                 #f))
                                             walls$348
                                             south-west))
                                          #t))
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(331
                                          (r$819)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(330
                                                (k$856)
                                                ((bit-test
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(329
                                                       (r$857)
                                                       ((if r$857
                                                          (k$856 #f)
                                                          (href #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(327
                                                                    (r$858)
                                                                    ((proc$347
                                                                       k$856
                                                                       r$858))
                                                                    #f))
                                                                harr$346
                                                                (car (vector-ref
                                                                       cell$345
                                                                       2))
                                                                (Cyc-fast-sub
                                                                  (cdr (vector-ref
                                                                         cell$345
                                                                         2))
                                                                  2))))
                                                       #f))
                                                   walls$348
                                                   south))
                                                #t))
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(326
                                                (r$820)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(325
                                                      (k$851)
                                                      ((bit-test
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(324
                                                             (r$852)
                                                             ((if r$852
                                                                (k$851 #f)
                                                                (href #((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(321
                                                                          (r$853)
                                                                          ((proc$347
                                                                             k$851
                                                                             r$853))
                                                                          #f))
                                                                      harr$346
                                                                      (Cyc-fast-plus
                                                                        (car (vector-ref
                                                                               cell$345
                                                                               2))
                                                                        3)
                                                                      (Cyc-fast-sub
                                                                        (cdr (vector-ref
                                                                               cell$345
                                                                               2))
                                                                        1))))
                                                             #f))
                                                         walls$348
                                                         south-east))
                                                      #t))
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(320
                                                      (r$821)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(319
                                                            (k$840)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(318
                                                                  (k$847)
                                                                  ((if (Cyc-fast-gt
                                                                         (car (vector-ref
                                                                                cell$345
                                                                                2))
                                                                         0)
                                                                     (if (Cyc-fast-lte
                                                                           (cdr (vector-ref
                                                                                  cell$345
                                                                                  2))
                                                                           (Cyc-fast-mul
                                                                             2
                                                                             (Cyc-fast-sub
                                                                               nr$352
                                                                               1)))
                                                                       (k$847 (Cyc-fast-lte
                                                                                (cdr (vector-ref
                                                                                       cell$345
                                                                                       2))
                                                                                (Cyc-fast-mul
                                                                                  2
                                                                                  (Cyc-fast-sub
                                                                                    nr$352
                                                                                    1))))
                                                                       (mod #((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(314
                                                                                (r$850)
                                                                                ((k$847 (zero?__inline__
                                                                                          r$850)))
                                                                                #f))
                                                                            (car (vector-ref
                                                                                   cell$345
                                                                                   2))
                                                                            6))
                                                                     (k$847 #f)))
                                                                  #t))
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(313
                                                                  (r$841)
                                                                  ((if r$841
                                                                     (href #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(309
                                                                               (nw$359)
                                                                               ((#((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(308
                                                                                     (r$844)
                                                                                     ((bit-test
                                                                                        #((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(307
                                                                                            (r$843)
                                                                                            ((if r$843
                                                                                               (k$840 #f)
                                                                                               (proc$347
                                                                                                 k$840
                                                                                                 nw$359)))
                                                                                            #f))
                                                                                        r$844
                                                                                        south-east))
                                                                                     #f))
                                                                                 (vector-ref
                                                                                   nw$359
                                                                                   3)))
                                                                               #f))
                                                                           harr$346
                                                                           (Cyc-fast-sub
                                                                             (car (vector-ref
                                                                                    cell$345
                                                                                    2))
                                                                             3)
                                                                           (Cyc-fast-plus
                                                                             (cdr (vector-ref
                                                                                    cell$345
                                                                                    2))
                                                                             1))
                                                                     (k$840 #f)))
                                                                  #f))))
                                                            #t))
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(306
                                                            (r$822)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(305
                                                                  (k$834)
                                                                  ((if (Cyc-fast-lt
                                                                         (cdr (vector-ref
                                                                                cell$345
                                                                                2))
                                                                         (Cyc-fast-mul
                                                                           2
                                                                           (Cyc-fast-sub
                                                                             nr$352
                                                                             1)))
                                                                     (href #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(301
                                                                               (n$358)
                                                                               ((#((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(300
                                                                                     (r$838)
                                                                                     ((bit-test
                                                                                        #((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(299
                                                                                            (r$837)
                                                                                            ((if r$837
                                                                                               (k$834 #f)
                                                                                               (proc$347
                                                                                                 k$834
                                                                                                 n$358)))
                                                                                            #f))
                                                                                        r$838
                                                                                        south))
                                                                                     #f))
                                                                                 (vector-ref
                                                                                   n$358
                                                                                   3)))
                                                                               #f))
                                                                           harr$346
                                                                           (car (vector-ref
                                                                                  cell$345
                                                                                  2))
                                                                           (Cyc-fast-plus
                                                                             (cdr (vector-ref
                                                                                    cell$345
                                                                                    2))
                                                                             2))
                                                                     (k$834 #f)))
                                                                  #t))
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(298
                                                                  (r$823)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(297
                                                                        (k$830)
                                                                        ((if (Cyc-fast-lt
                                                                               (car (vector-ref
                                                                                      cell$345
                                                                                      2))
                                                                               (Cyc-fast-mul
                                                                                 3
                                                                                 (Cyc-fast-sub
                                                                                   nc$353
                                                                                   1)))
                                                                           (if (Cyc-fast-lte
                                                                                 (cdr (vector-ref
                                                                                        cell$345
                                                                                        2))
                                                                                 (Cyc-fast-mul
                                                                                   2
                                                                                   (Cyc-fast-sub
                                                                                     nr$352
                                                                                     1)))
                                                                             (k$830 (Cyc-fast-lte
                                                                                      (cdr (vector-ref
                                                                                             cell$345
                                                                                             2))
                                                                                      (Cyc-fast-mul
                                                                                        2
                                                                                        (Cyc-fast-sub
                                                                                          nr$352
                                                                                          1))))
                                                                             (mod #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(293
                                                                                      (r$833)
                                                                                      ((k$830 (zero?__inline__
                                                                                                r$833)))
                                                                                      #f))
                                                                                  (car (vector-ref
                                                                                         cell$345
                                                                                         2))
                                                                                  6))
                                                                           (k$830 #f)))
                                                                        #t))
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(292
                                                                        (r$824)
                                                                        ((if r$824
                                                                           (href #((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(288
                                                                                     (ne$356)
                                                                                     ((#((record-marker)
                                                                                         #((record-marker)
                                                                                           #f
                                                                                           (id args
                                                                                               body
                                                                                               has-cont))
                                                                                         #(287
                                                                                           (r$827)
                                                                                           ((bit-test
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(286
                                                                                                  (r$826)
                                                                                                  ((if r$826
                                                                                                     (k$810 #f)
                                                                                                     (proc$347
                                                                                                       k$810
                                                                                                       ne$356)))
                                                                                                  #f))
                                                                                              r$827
                                                                                              south-west))
                                                                                           #f))
                                                                                       (vector-ref
                                                                                         ne$356
                                                                                         3)))
                                                                                     #f))
                                                                                 harr$346
                                                                                 (Cyc-fast-plus
                                                                                   (car (vector-ref
                                                                                          cell$345
                                                                                          2))
                                                                                   3)
                                                                                 (Cyc-fast-plus
                                                                                   (cdr (vector-ref
                                                                                          cell$345
                                                                                          2))
                                                                                   1))
                                                                           (k$810 #f)))
                                                                        #f))))
                                                                  #f))))
                                                            #f))))
                                                      #f))))
                                                #f))))
                                          #f))))
                                    #f))
                                (vector-ref harr$346 2)))
                              #f))
                          (vector-ref harr$346 1)))
                        #f))
                    (vector-ref cell$345 3)))
                  #t)))
             0
             1
             #f
             #f
             #f)))
       (r$1086
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 592 #f #f #f 1 (592) #f #f 0 0 #t #f #f))))
      ((r$1087
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             591
             #f
             #f
             #f
             1
             (589)
             #f
             (vector-ref (vector-ref wall$474 1) 3)
             0
             1
             #f
             #f
             #f))))
      ((r$680 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 130 #f #f #f 1 (130) #f #f 0 1 #t #f #f)))
       (r$1088
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 589 #f #f #f 1 (589) #f #f 0 1 #t #f #f))))
      ((r$1089
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 587 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((x$560 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 783 #f #f #f 1 (783) #f #f 0 1 #t #f #f)))
       (lp$140$399
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             410
             #f
             #f
             #f
             3
             (398 410 395)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(409
                 (k$914 x$400)
                 ((if (Cyc-fast-lt x$400 3)
                    (k$914 (Cyc-fast-lt x$400 3))
                    (href #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(405
                              (r$922)
                              ((href #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(403
                                         (r$923)
                                         ((add-wall$396
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(402
                                                (r$916)
                                                ((href #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(401
                                                           (r$919)
                                                           ((href #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(399
                                                                      (r$920)
                                                                      ((add-wall$396
                                                                         #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(398
                                                                             (r$917)
                                                                             ((lp$140$399
                                                                                k$914
                                                                                (Cyc-fast-sub
                                                                                  x$400
                                                                                  6)))
                                                                             #f))
                                                                         r$919
                                                                         r$920
                                                                         south-east))
                                                                      #f))
                                                                  harr$388
                                                                  (Cyc-fast-plus
                                                                    x$400
                                                                    3)
                                                                  0))
                                                           #f))
                                                       harr$388
                                                       x$400
                                                       1))
                                                #f))
                                            r$922
                                            r$923
                                            south-west))
                                         #f))
                                     harr$388
                                     (Cyc-fast-sub x$400 3)
                                     0))
                              #f))
                          harr$388
                          x$400
                          1)))
                 #t))
             2
             0
             #t
             #f
             #f))))
      ()
      ()
      ((hide .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 83
                 #f
                 #f
                 3
                 (-1 88 89)
                 #f
                 (#((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(83
                      (k$620 r$283 x$282)
                      ((call-with-values
                         k$620
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(82
                             (k$625)
                             ((vector
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(79
                                    (r$626)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(78
                                          (k$628)
                                          ((if (Cyc-fast-lt r$283 100)
                                             (k$628 0)
                                             (k$628 1)))
                                          #t))
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(76
                                          (r$627)
                                          ((values k$625 r$626 r$627))
                                          #f))))
                                    #f))
                                values
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(81 (k$631 x$286) ((k$631 x$286)) #t))))
                             #t))
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(74
                             (k$623 v$285 i$284)
                             (((vector-ref v$285 i$284) k$623 x$282))
                             #t))))
                      #t)))
                 2
                 0
                 #f
                 #f
                 #f))))
      ((r$687 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 224 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$688 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 223 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$689 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 222 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((make-wall
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             650
             #f
             #f
             2
             (477 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(650
                  (k$1162 owner$511 neighbor$510 bit$509)
                  ((vector
                     k$1162
                     'wall
                     owner$511
                     neighbor$510
                     bit$509))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$989 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 493 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ((id$504
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 645 #f #f #f 1 (645) #f #f 0 1 #t #f #f)))
       (v$419 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  522
                  #f
                  #f
                  #f
                  2
                  (503 493)
                  #f
                  (make-vector (Cyc-fast-mul nrows$418 ncols$417))
                  0
                  2
                  #f
                  #f
                  #f))))
      ((search$467
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             578
             #f
             #f
             #f
             3
             (574 578 571)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(577
                 (k$1070 node$469 parent$468)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(576
                       (r$1071)
                       ((do-children$462
                          k$1070
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(575
                              (k$1073 child$470)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(574
                                    (r$1074)
                                    ((if r$1074
                                       (k$1073 #f)
                                       (search$467 k$1073 child$470 node$469)))
                                    #f))
                                (eq? child$470 parent$468)))
                              #t))
                          maze$464
                          node$469))
                       #f))
                   (vector-set! node$469 4 parent$468)))
                 #t))
             2
             0
             #f
             #f
             #f)))
       (south-west
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             #f
             #f
             #f
             7
             (122 287 336 447 414 403 -1)
             #f
             (1)
             0
             6
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((r$1090
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             585
             #f
             #f
             #f
             0
             ()
             #f
             (vector-set! (vector-ref wall$474 1) 3 r$1093)
             0
             0
             #t
             #f
             #f))))
      ()
      ((r$1092
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 584 #f #f #f 1 (584) #f #f 0 1 #t #f #f))))
      ((r$1093
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 586 #f #f #f 1 (586) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ((display
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             13
             (47 14 15 16 17 18 20 22 23 25 28 63 64)
             #f
             #f
             13
             0
             #f
             #f
             #f)))
       (r$1098
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 605 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (r$690 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 202 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$691 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 195 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$692 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 194 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((r$694 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  132
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$196$310
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(190
                        (k$696 r$311)
                        ((if (Cyc-fast-lt r$311 0)
                           (k$696 (Cyc-fast-lt r$311 0))
                           (write-ch
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(186
                                 (r$698)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(184
                                       (lp$200$318)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(171
                                             (r$729)
                                             ((lp$200$318
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(170
                                                    (r$699)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(169
                                                          (k$724)
                                                          ((odd? #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(168
                                                                     (r$725)
                                                                     ((if r$725
                                                                        (dot/space
                                                                          #((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(165
                                                                              (r$727)
                                                                              ((write-ch
                                                                                 #((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(164
                                                                                     (r$726)
                                                                                     ((write-ch
                                                                                        k$724
                                                                                        #\\))
                                                                                     #f))
                                                                                 r$727))
                                                                              #f))
                                                                          harr$305
                                                                          r$311
                                                                          (Cyc-fast-sub
                                                                            ncols$307
                                                                            1))
                                                                        (k$724 #f)))
                                                                     #f))
                                                                 ncols$307))
                                                          #t))
                                                      #((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(163
                                                          (r$700)
                                                          ((write-ch
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(162
                                                                 (r$701)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(160
                                                                       (lp$207$314)
                                                                       ((#((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(146
                                                                             (r$712)
                                                                             ((lp$207$314
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(145
                                                                                    (r$702)
                                                                                    ((#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(144
                                                                                          (k$706)
                                                                                          ((odd? #((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(143
                                                                                                     (r$707)
                                                                                                     ((if r$707
                                                                                                        (href/rc
                                                                                                          #((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(138
                                                                                                              (r$709)
                                                                                                              ((#((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(137
                                                                                                                    (r$708)
                                                                                                                    ((display-hexbottom
                                                                                                                       k$706
                                                                                                                       r$708))
                                                                                                                    #f))
                                                                                                                (vector-ref
                                                                                                                  r$709
                                                                                                                  3)))
                                                                                                              #f))
                                                                                                          harr$305
                                                                                                          r$311
                                                                                                          (Cyc-fast-sub
                                                                                                            ncols$307
                                                                                                            1))
                                                                                                        (if (zero?__inline__
                                                                                                              r$311)
                                                                                                          (k$706 #f)
                                                                                                          (write-ch
                                                                                                            k$706
                                                                                                            #\\))))
                                                                                                     #f))
                                                                                                 ncols$307))
                                                                                          #t))
                                                                                      #((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(136
                                                                                          (r$703)
                                                                                          ((write-ch
                                                                                             #((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(135
                                                                                                 (r$704)
                                                                                                 ((lp$196$310
                                                                                                    k$696
                                                                                                    (Cyc-fast-sub
                                                                                                      r$311
                                                                                                      1)))
                                                                                                 #f))
                                                                                             #\newline))
                                                                                          #f))))
                                                                                    #f))
                                                                                0))
                                                                             #f))
                                                                         (set! lp$207$314
                                                                           #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(159
                                                                               (k$714 c$315)
                                                                               ((if (Cyc-fast-gte
                                                                                      c$315
                                                                                      (Cyc-fast-mul
                                                                                        2
                                                                                        r$773))
                                                                                  (k$714 (Cyc-fast-gte
                                                                                           c$315
                                                                                           (Cyc-fast-mul
                                                                                             2
                                                                                             r$773)))
                                                                                  (href/rc
                                                                                    #((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(155
                                                                                        (r$723)
                                                                                        ((#((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(154
                                                                                              (r$722)
                                                                                              ((display-hexbottom
                                                                                                 #((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(153
                                                                                                     (r$716)
                                                                                                     ((dot/space
                                                                                                        #((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(150
                                                                                                            (r$719)
                                                                                                            ((write-ch
                                                                                                               #((record-marker)
                                                                                                                 #((record-marker)
                                                                                                                   #f
                                                                                                                   (id args
                                                                                                                       body
                                                                                                                       has-cont))
                                                                                                                 #(149
                                                                                                                   (r$717)
                                                                                                                   ((lp$207$314
                                                                                                                      k$714
                                                                                                                      (Cyc-fast-plus
                                                                                                                        c$315
                                                                                                                        2)))
                                                                                                                   #f))
                                                                                                               r$719))
                                                                                                            #f))
                                                                                                        harr$305
                                                                                                        (Cyc-fast-sub
                                                                                                          r$311
                                                                                                          1)
                                                                                                        (Cyc-fast-plus
                                                                                                          c$315
                                                                                                          1)))
                                                                                                     #f))
                                                                                                 r$722))
                                                                                              #f))
                                                                                          (vector-ref
                                                                                            r$723
                                                                                            3)))
                                                                                        #f))
                                                                                    harr$305
                                                                                    r$311
                                                                                    c$315)))
                                                                               #t)))))
                                                                       #f))
                                                                   #f))
                                                                 #f))
                                                             #\newline))
                                                          #f))))
                                                    #f))
                                                1))
                                             #f))
                                         (set! lp$200$318
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(183
                                               (k$731 c$319)
                                               ((if (Cyc-fast-gte
                                                      c$319
                                                      (Cyc-fast-mul 2 r$773))
                                                  (k$731 (Cyc-fast-gte
                                                           c$319
                                                           (Cyc-fast-mul
                                                             2
                                                             r$773)))
                                                  (dot/space
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(178
                                                        (r$738)
                                                        ((write-ch
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(177
                                                               (r$733)
                                                               ((href/rc
                                                                  #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(176
                                                                      (r$737)
                                                                      ((#((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(175
                                                                            (r$736)
                                                                            ((display-hexbottom
                                                                               #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(174
                                                                                   (r$734)
                                                                                   ((lp$200$318
                                                                                      k$731
                                                                                      (Cyc-fast-plus
                                                                                        c$319
                                                                                        2)))
                                                                                   #f))
                                                                               r$736))
                                                                            #f))
                                                                        (vector-ref
                                                                          r$737
                                                                          3)))
                                                                      #f))
                                                                  harr$305
                                                                  r$311
                                                                  c$319))
                                                               #f))
                                                           r$738))
                                                        #f))
                                                    harr$305
                                                    r$311
                                                    (Cyc-fast-sub c$319 1))))
                                               #t)))))
                                       #f))
                                   #f))
                                 #f))
                             #\/)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((make-cell
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             645
             #f
             #f
             2
             (490 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(645
                  (k$1149 reachable$505 id$504)
                  ((vector
                     k$1149
                     'cell
                     reachable$505
                     id$504
                     -1
                     #f
                     #f))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ((r$698 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 186 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$699 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 170 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ((cell:mark
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             637
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(637
                  (k$1128 o$495)
                  ((k$1128 (vector-ref o$495 5)))
                  #t)))
             0
             0
             #f
             #f
             #f)))
       (r$991 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  494
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$113$421
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(518
                        (k$993 r$422)
                        ((if (Cyc-fast-lt r$422 0)
                           (k$993 (Cyc-fast-lt r$422 0))
                           (#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(513
                                (i$424)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(512
                                      (lp$117$426)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(498
                                            (r$998)
                                            ((lp$117$426
                                               #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(497
                                                   (r$995)
                                                   ((lp$113$421
                                                      k$993
                                                      (Cyc-fast-sub r$422 1)))
                                                   #f))
                                               0
                                               i$424))
                                            #f))
                                        (set! lp$117$426
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(511
                                              (k$1000 c$428 i$427)
                                              ((if (Cyc-fast-eq c$428 ncols$417)
                                                 (k$1000
                                                   (Cyc-fast-eq
                                                     c$428
                                                     ncols$417))
                                                 (bitwise-and
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(505
                                                       (r$1009)
                                                       ((proc$416
                                                          #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(503
                                                              (r$1005)
                                                              ((#((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(502
                                                                    (r$1002)
                                                                    ((lp$117$426
                                                                       k$1000
                                                                       (Cyc-fast-plus
                                                                         c$428
                                                                         1)
                                                                       (Cyc-fast-plus
                                                                         i$427
                                                                         1)))
                                                                    #f))
                                                                (vector-set!
                                                                  v$419
                                                                  i$427
                                                                  r$1005)))
                                                              #f))
                                                          (Cyc-fast-mul 3 c$428)
                                                          (Cyc-fast-plus
                                                            (Cyc-fast-mul
                                                              2
                                                              r$422)
                                                            r$1009)))
                                                       #f))
                                                   c$428
                                                   1)))
                                              #t)))))
                                      #f))
                                  #f))
                                #f))
                            (Cyc-fast-mul r$422 ncols$417))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((max-len$372
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 384 #f #f #f 1 (379) #f #f 0 1 #f #f #f))))
      ()
      ((r$995 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 497 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ((r$998 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  498
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$117$426
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(511
                        (k$1000 c$428 i$427)
                        ((if (Cyc-fast-eq c$428 ncols$417)
                           (k$1000 (Cyc-fast-eq c$428 ncols$417))
                           (bitwise-and
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(505
                                 (r$1009)
                                 ((proc$416
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(503
                                        (r$1005)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(502
                                              (r$1002)
                                              ((lp$117$426
                                                 k$1000
                                                 (Cyc-fast-plus c$428 1)
                                                 (Cyc-fast-plus i$427 1)))
                                              #f))
                                          (vector-set! v$419 i$427 r$1005)))
                                        #f))
                                    (Cyc-fast-mul 3 c$428)
                                    (Cyc-fast-plus
                                      (Cyc-fast-mul 2 r$422)
                                      r$1009)))
                                 #f))
                             c$428
                             1)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f)))
       (max-len$377
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             377
             #f
             #f
             #f
             1
             (366)
             #f
             max-len$372
             0
             1
             #f
             #f
             #f))))
      ()
      ((t1$277
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 36 #f #f #f 1 (36) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((random-state$481
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 622 #f #f #f 1 (614) #f #f 0 1 #f #f #f))))
      ((x$281 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 68 #f #f #f 1 (68) #f #f 0 1 #t #f #f))))
      ((x$282 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 83 #f #f #f 1 (74) #f #f 0 1 #f #f #f))))
      ()
      ()
      ()
      ((x$286 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 81 #f #f #f 1 (81) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ((href .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 538
                 #f
                 #f
                 18
                 (292
                  305
                  313
                  324
                  329
                  335
                  442
                  446
                  451
                  457
                  401
                  402
                  405
                  409
                  416
                  419
                  425
                  -1)
                 #f
                 (#((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(538
                      (k$1020 ha$435 x$434 y$433)
                      ((div #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(537
                                (r$1021)
                                ((div #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(536
                                          (r$1022)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(535
                                                (r$437 c$436)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(534
                                                      (r$1023)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(533
                                                            (r$1026)
                                                            ((k$1020
                                                               (vector-ref
                                                                 r$1023
                                                                 (Cyc-fast-plus
                                                                   (Cyc-fast-mul
                                                                     r$1026
                                                                     r$437)
                                                                   c$436))))
                                                            #f))
                                                        (vector-ref ha$435 2)))
                                                      #f))
                                                  (vector-ref ha$435 3)))
                                                #f))
                                            r$1021
                                            r$1022))
                                          #f))
                                      x$434
                                      3))
                                #f))
                            y$433
                            2))
                      #t)))
                 17
                 0
                 #f
                 #f
                 #f))))
      ()
      ()
      ()
      ()
      ()
      ((k$907 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  428
                  #f
                  #f
                  #f
                  2
                  (428 395)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(394
                      (r$906)
                      ((k$899 (list->vector walls$392)))
                      #f))
                  1
                  1
                  #t
                  #f
                  #t))))
      ()
      ((k$1102
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 617 #f #f #f 2 (616 609) #f #f 1 1 #t #f #t))))
      ()
      ()
      ((max-len$382
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             375
             #f
             #f
             #f
             3
             (371 370 374)
             #f
             #f
             0
             3
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ((max-len$387
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             360
             #f
             #f
             #f
             1
             (360)
             #f
             (vector-ref result$384 0)
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$615 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 68 #f #f #f 1 (68) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$914 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 409 #f #f #f 2 (398 409) #f #f 1 1 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ((k$1113
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 635 #f #f #f 1 (623) #f #f 0 1 #t #f #t))))
      ()
      ()
      ()
      ((k$1117
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 630 #f #f #f 2 (630 626) #f #f 1 1 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ((write-ch
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             251
             #f
             #f
             24
             (112
              116
              120
              229
              233
              234
              238
              207
              208
              212
              213
              178
              150
              136
              143
              163
              164
              165
              190
              195
              196
              223
              224
              -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(251
                  (k$776 c$329)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(250 (r$777) ((k$776 (set! output r$777))) #f))
                    (cons c$329 output)))
                  #t)))
             23
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ((k$620 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 83 #f #f #f 1 (83) #f #f 0 1 #t #f #t))))
      ()
      ()
      ((k$623 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #t)))
       (proc$416
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 525 #f #f #f 1 (505) #f #f 1 0 #f #f #f))))
      ()
      ((k$625 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 82 #f #f #f 1 (76) #f #f 0 1 #f #f #t))))
      ()
      ()
      ((k$628 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  78
                  #f
                  #f
                  #f
                  2
                  (78 78)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(76 (r$627) ((values k$625 r$626 r$627)) #f))
                  2
                  0
                  #t
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$929 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  419
                  #f
                  #f
                  #f
                  2
                  (419 417)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(416
                      (r$926)
                      ((href #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(414
                                 (r$927)
                                 ((add-wall$396
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(413
                                        (r$910)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(410
                                              (lp$140$399)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(395
                                                    (r$912)
                                                    ((lp$140$399
                                                       k$907
                                                       (Cyc-fast-sub
                                                         (Cyc-fast-plus
                                                           3
                                                           (Cyc-fast-mul
                                                             6
                                                             r$933))
                                                         6)))
                                                    #f))
                                                (set! lp$140$399
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(409
                                                      (k$914 x$400)
                                                      ((if (Cyc-fast-lt x$400 3)
                                                         (k$914 (Cyc-fast-lt
                                                                  x$400
                                                                  3))
                                                         (href #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(405
                                                                   (r$922)
                                                                   ((href #((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(403
                                                                              (r$923)
                                                                              ((add-wall$396
                                                                                 #((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(402
                                                                                     (r$916)
                                                                                     ((href #((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(401
                                                                                                (r$919)
                                                                                                ((href #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(399
                                                                                                           (r$920)
                                                                                                           ((add-wall$396
                                                                                                              #((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(398
                                                                                                                  (r$917)
                                                                                                                  ((lp$140$399
                                                                                                                     k$914
                                                                                                                     (Cyc-fast-sub
                                                                                                                       x$400
                                                                                                                       6)))
                                                                                                                  #f))
                                                                                                              r$919
                                                                                                              r$920
                                                                                                              south-east))
                                                                                                           #f))
                                                                                                       harr$388
                                                                                                       (Cyc-fast-plus
                                                                                                         x$400
                                                                                                         3)
                                                                                                       0))
                                                                                                #f))
                                                                                            harr$388
                                                                                            x$400
                                                                                            1))
                                                                                     #f))
                                                                                 r$922
                                                                                 r$923
                                                                                 south-west))
                                                                              #f))
                                                                          harr$388
                                                                          (Cyc-fast-sub
                                                                            x$400
                                                                            3)
                                                                          0))
                                                                   #f))
                                                               harr$388
                                                               x$400
                                                               1)))
                                                      #t)))))
                                              #f))
                                          #f))
                                        #f))
                                    rmoc-hex$402
                                    r$927
                                    south-west))
                                 #f))
                             harr$388
                             (Cyc-fast-sub
                               (Cyc-fast-plus 3 (Cyc-fast-mul 6 r$933))
                               3)
                             0))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t))))
      ()
      ()
      ((k$1125
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 636 #f #f #f 1 (636) #f #f 1 0 #t #f #t))))
      ()
      ()
      ((k$1128
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 637 #f #f #f 1 (637) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((vector-ref
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             79
             (74
              125
              249
              247
              176
              155
              138
              256
              256
              256
              274
              274
              269
              356
              354
              346
              292
              292
              288
              297
              297
              297
              297
              305
              305
              301
              305
              313
              313
              309
              318
              318
              318
              318
              324
              324
              329
              329
              335
              335
              391
              390
              364
              364
              364
              487
              485
              530
              529
              528
              535
              534
              533
              539
              540
              541
              548
              561
              557
              567
              602
              602
              598
              598
              592
              592
              591
              586
              616
              612
              630
              637
              639
              641
              642
              643
              646
              647
              648)
             #f
             #f
             79
             0
             #t
             #f
             #f))))
      ()
      ((random-state
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             718
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(718
                  (k$1224 n$544)
                  ((k$1224 (cons n$544 #f)))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ((y$545 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  741
                  #f
                  #f
                  #f
                  13
                  (737
                   737
                   737
                   737
                   737
                   737
                   737
                   737
                   737
                   737
                   737
                   737
                   740)
                  #f
                  #f
                  0
                  13
                  #f
                  #f
                  #f))))
      ()
      ((k$631 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 81 #f #f #f 1 (81) #f #f 1 0 #t #f #t))))
      ()
      ()
      ((k$634 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 107 #f #f #f 1 (90) #f #f 0 1 #f #f #t)))
       (-1
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(? ? () #t)))))))
 */
/* 
"---------------- after cps optimizations (2):"
 */
/* 
((define bitwise-not
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(783
       (k$1272 x$560)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(782
             (r$1273)
             ((k$1272 (Cyc-fast-sub r$1273 1)))
             #f))
         (- x$560)))
       #t)))
 (define bitwise-and
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(781
       (k$1259 x$558 y$557)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(780
             (r$1260)
             ((if r$1260
                (k$1259 0)
                (#((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(779
                     (r$1261)
                     ((if r$1261
                        (k$1259 0)
                        (#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(778
                             (r$1262)
                             ((if r$1262
                                (k$1259 y$557)
                                (#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(777
                                     (r$1263)
                                     ((if r$1263
                                        (k$1259 x$558)
                                        (div #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(775
                                                 (r$1268)
                                                 ((div #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(774
                                                           (r$1269)
                                                           ((bitwise-and
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(772
                                                                  (z$559)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(771
                                                                        (k$1266)
                                                                        ((odd? #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(770
                                                                                   (r$1267)
                                                                                   ((if r$1267
                                                                                      (odd? k$1266
                                                                                            y$557)
                                                                                      (k$1266
                                                                                        #f)))
                                                                                   #f))
                                                                               x$558))
                                                                        #t))
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(769
                                                                        (r$1265)
                                                                        ((if r$1265
                                                                           (k$1259
                                                                             (+ z$559
                                                                                z$559
                                                                                1))
                                                                           (k$1259
                                                                             (Cyc-fast-plus
                                                                               z$559
                                                                               z$559))))
                                                                        #f))))
                                                                  #f))
                                                              r$1268
                                                              r$1269))
                                                           #f))
                                                       y$557
                                                       2))
                                                 #f))
                                             x$558
                                             2)))
                                     #f))
                                 (Cyc-fast-eq y$557 -1))))
                             #f))
                         (Cyc-fast-eq x$558 -1))))
                     #f))
                 (Cyc-fast-eq y$557 0))))
             #f))
         (Cyc-fast-eq x$558 0)))
       #t)))
 (define div
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(764
       (k$1243 x$552 y$551)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(763
             (k$1254)
             ((if (exact-integer?__inline__ x$552)
                (if (exact-integer?__inline__ y$551)
                  (k$1254 (Cyc-fast-gte x$552 0))
                  (k$1254 #f))
                (k$1254 #f)))
             #t))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(760
             (r$1244)
             ((if r$1244
                (k$1243 (quotient__inline__ x$552 y$551))
                (if (Cyc-fast-lt y$551 0)
                  (if (Cyc-fast-eq
                        (Cyc-fast-sub
                          x$552
                          (Cyc-fast-mul
                            (quotient__inline__ x$552 y$551)
                            y$551))
                        0)
                    (k$1243 (quotient__inline__ x$552 y$551))
                    (k$1243
                      (Cyc-fast-plus
                        (quotient__inline__ x$552 y$551)
                        1)))
                  (if (Cyc-fast-eq
                        (Cyc-fast-sub
                          x$552
                          (Cyc-fast-mul
                            (quotient__inline__ x$552 y$551)
                            y$551))
                        0)
                    (k$1243 (quotient__inline__ x$552 y$551))
                    (k$1243
                      (Cyc-fast-sub (quotient__inline__ x$552 y$551) 1))))))
             #f))))
       #t)))
 (define mod
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(741
       (k$1227 x$546 y$545)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(740
             (k$1238)
             ((if (exact-integer?__inline__ x$546)
                (if (exact-integer?__inline__ y$545)
                  (k$1238 (Cyc-fast-gte x$546 0))
                  (k$1238 #f))
                (k$1238 #f)))
             #t))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(737
             (r$1228)
             ((if r$1228
                (remainder k$1227 x$546 y$545)
                (if (Cyc-fast-lt y$545 0)
                  (if (Cyc-fast-eq
                        (Cyc-fast-sub
                          x$546
                          (Cyc-fast-mul
                            (quotient__inline__ x$546 y$545)
                            y$545))
                        0)
                    (k$1227 0)
                    (k$1227
                      (Cyc-fast-sub
                        (Cyc-fast-sub
                          x$546
                          (Cyc-fast-mul
                            (quotient__inline__ x$546 y$545)
                            y$545))
                        y$545)))
                  (if (Cyc-fast-eq
                        (Cyc-fast-sub
                          x$546
                          (Cyc-fast-mul
                            (quotient__inline__ x$546 y$545)
                            y$545))
                        0)
                    (k$1227 0)
                    (k$1227
                      (Cyc-fast-plus
                        (Cyc-fast-sub
                          x$546
                          (Cyc-fast-mul
                            (quotient__inline__ x$546 y$545)
                            y$545))
                        y$545))))))
             #f))))
       #t)))
 (define random-state
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(718
       (k$1224 n$544)
       ((k$1224 (cons n$544 #f)))
       #t)))
 (define rand
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(717
       (k$1211 state$534)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(715
             (seed$539)
             ((div #((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(713
                       (hi$540)
                       ((mod #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(711
                                 (lo$541)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(706
                                       (k$1218)
                                       ((if (Cyc-fast-gt
                                              (Cyc-fast-sub
                                                (Cyc-fast-mul 2813 lo$541)
                                                (Cyc-fast-mul 2699 hi$540))
                                              0)
                                          (k$1218
                                            (Cyc-fast-sub
                                              (Cyc-fast-mul 2813 lo$541)
                                              (Cyc-fast-mul 2699 hi$540)))
                                          (k$1218
                                            (Cyc-fast-plus
                                              (Cyc-fast-sub
                                                (Cyc-fast-mul 2813 lo$541)
                                                (Cyc-fast-mul 2699 hi$540))
                                              8388607))))
                                       #t))
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(703
                                       (val$543)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(701
                                             (r$1217)
                                             ((k$1211 val$543))
                                             #f))
                                         (set-car! state$534 val$543)))
                                       #f))))
                                 #f))
                             seed$539
                             2787))
                       #f))
                   seed$539
                   2787))
             #f))
         (car state$534)))
       #t)))
 (define random-int
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(700
       (k$1207 n$533 state$532)
       ((rand #((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(699 (r$1208) ((mod k$1207 r$1208 n$533)) #f))
              state$532))
       #t)))
 (define base-set
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(698
       (k$1203 nelts$531)
       ((k$1203 (cons nelts$531 '())))
       #t)))
 (define get-set-root
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(696
       (k$1186 s$522)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(695
             (r$523)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(694
                   (lp$524)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(673 (r$1187) ((lp$524 k$1186 r$523)) #f))
                     (set! lp$524
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(693
                           (k$1189 r$525)
                           ((if (pair? (cdr r$525))
                              (lp$524 k$1189 (cdr r$525))
                              (#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(688
                                   (k$1193)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(687
                                         (r$1194)
                                         ((if r$1194
                                            (k$1193 #f)
                                            (#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(686
                                                 (x$527)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(685
                                                       (lp$528)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(677
                                                             (r$1195)
                                                             ((lp$528
                                                                k$1193
                                                                x$527))
                                                             #f))
                                                         (set! lp$528
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(684
                                                               (k$1197 x$529)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(682
                                                                     (next$530)
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(681
                                                                           (r$1199)
                                                                           ((if r$1199
                                                                              (k$1197
                                                                                #f)
                                                                              (#((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(679
                                                                                   (r$1200)
                                                                                   ((lp$528
                                                                                      k$1197
                                                                                      next$530))
                                                                                   #f))
                                                                               (set-cdr!
                                                                                 x$529
                                                                                 r$525))))
                                                                           #f))
                                                                       (eq? r$525
                                                                            next$530)))
                                                                     #f))
                                                                 (cdr x$529)))
                                                               #t)))))
                                                       #f))
                                                   #f))
                                                 #f))
                                             s$522)))
                                         #f))
                                     (eq? r$525 s$522)))
                                   #t))
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(676 (r$1192) ((k$1189 r$525)) #f)))))
                           #t)))))
                   #f))
               #f))
             #f))
         s$522))
       #t)))
 (define set-equal?
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(672
       (k$1181 s1$521 s2$520)
       ((get-set-root
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(671
              (r$1182)
              ((get-set-root
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(670 (r$1183) ((k$1181 (eq? r$1182 r$1183))) #f))
                 s2$520))
              #f))
          s1$521))
       #t)))
 (define set-size
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(669
       (k$1177 s$519)
       ((get-set-root
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(668 (r$1178) ((k$1177 (car r$1178))) #f))
          s$519))
       #t)))
 (define union!
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(667
       (k$1166 s1$513 s2$512)
       ((get-set-root
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(665
              (r1$514)
              ((get-set-root
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(663
                     (r2$515)
                     ((set-size
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(661
                            (n1$516)
                            ((set-size
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(659
                                   (n2$517)
                                   ((if (Cyc-fast-gt n1$516 n2$517)
                                      (#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(651
                                           (r$1173)
                                           ((k$1166
                                              (set-car!
                                                r1$514
                                                (Cyc-fast-plus n1$516 n2$517))))
                                           #f))
                                       (set-cdr! r2$515 r1$514))
                                      (#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(653
                                           (r$1174)
                                           ((k$1166
                                              (set-car!
                                                r2$515
                                                (Cyc-fast-plus n1$516 n2$517))))
                                           #f))
                                       (set-cdr! r1$514 r2$515))))
                                   #f))
                               r2$515))
                            #f))
                        r1$514))
                     #f))
                 s2$512))
              #f))
          s1$513))
       #t)))
 (define make-wall
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(650
       (k$1162 owner$511 neighbor$510 bit$509)
       ((vector
          k$1162
          'wall
          owner$511
          neighbor$510
          bit$509))
       #t)))
 (define wall:owner
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(648
       (k$1159 o$508)
       ((k$1159 (vector-ref o$508 1)))
       #t)))
 (define wall:neighbor
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(647
       (k$1156 o$507)
       ((k$1156 (vector-ref o$507 2)))
       #t)))
 (define wall:bit
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(646
       (k$1153 o$506)
       ((k$1153 (vector-ref o$506 3)))
       #t)))
 (define make-cell
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(645
       (k$1149 reachable$505 id$504)
       ((vector
          k$1149
          'cell
          reachable$505
          id$504
          -1
          #f
          #f))
       #t)))
 (define cell:reachable
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(643
       (k$1146 o$503)
       ((k$1146 (vector-ref o$503 1)))
       #t)))
 (define cell:id
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(642
       (k$1143 o$502)
       ((k$1143 (vector-ref o$502 2)))
       #t)))
 (define cell:walls
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(641
       (k$1140 o$501)
       ((k$1140 (vector-ref o$501 3)))
       #t)))
 (define set-cell:walls
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(640
       (k$1137 o$500 v$499)
       ((k$1137 (vector-set! o$500 3 v$499)))
       #t)))
 (define cell:parent
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(639
       (k$1134 o$498)
       ((k$1134 (vector-ref o$498 4)))
       #t)))
 (define set-cell:parent
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(638
       (k$1131 o$497 v$496)
       ((k$1131 (vector-set! o$497 4 v$496)))
       #t)))
 (define cell:mark
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(637
       (k$1128 o$495)
       ((k$1128 (vector-ref o$495 5)))
       #t)))
 (define set-cell:mark
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(636
       (k$1125 o$494 v$493)
       ((k$1125 (vector-set! o$494 5 v$493)))
       #t)))
 (define vector-for-each-rev
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(635
       (k$1113 proc$489 v$488)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(631
             (lp$491)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(623
                   (r$1115)
                   ((lp$491
                      k$1113
                      (Cyc-fast-sub (vector-length v$488) 1)))
                   #f))
               (set! lp$491
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(630
                     (k$1117 i$492)
                     ((if (Cyc-fast-gte i$492 0)
                        (proc$489
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(626
                              (r$1119)
                              ((lp$491 k$1117 (Cyc-fast-sub i$492 1)))
                              #f))
                          (vector-ref v$488 i$492))
                        (k$1117 #f)))
                     #t)))))
             #f))
         #f))
       #t)))
 (define permute-vec!
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(622
       (k$1097 v$482 random-state$481)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(621
             (r$1110)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(618
                   (lp$484)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(606
                         (r$1100)
                         ((lp$484
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(605 (r$1098) ((k$1097 v$482)) #f))
                            (Cyc-fast-sub r$1110 1)))
                         #f))
                     (set! lp$484
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(617
                           (k$1102 i$485)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(616
                                 (r$1103)
                                 ((if r$1103
                                    (#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(614
                                         (r$1106)
                                         ((random-int
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(613
                                                (r$1107)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(612
                                                      (elt-i$487 j$486)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(611
                                                            (r$1109)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(610
                                                                  (r$1108)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(609
                                                                        (r$1104)
                                                                        ((lp$484
                                                                           k$1102
                                                                           (Cyc-fast-sub
                                                                             i$485
                                                                             1)))
                                                                        #f))
                                                                    (vector-set!
                                                                      v$482
                                                                      j$486
                                                                      elt-i$487)))
                                                                  #f))
                                                              (vector-set!
                                                                v$482
                                                                i$485
                                                                r$1109)))
                                                            #f))
                                                        (vector-ref
                                                          v$482
                                                          j$486)))
                                                      #f))
                                                  r$1106
                                                  r$1107))
                                                #f))
                                            i$485
                                            random-state$481))
                                         #f))
                                     (vector-ref v$482 i$485))
                                    (k$1102 #f)))
                                 #f))
                             (Cyc-fast-gt i$485 1)))
                           #t)))))
                   #f))
               #f))
             #f))
         (vector-length v$482)))
       #t)))
 (define dig-maze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(604
       (k$1077 walls$472 ncells$471)
       ((call-with-current-continuation
          k$1077
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(603
              (k$1079 quit$473)
              ((vector-for-each-rev
                 k$1079
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(602
                     (k$1081 wall$474)
                     ((set-equal?
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(592
                            (r$1086)
                            ((if r$1086
                               (k$1081 #f)
                               (bitwise-not
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(589
                                     (r$1088)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(588
                                           (walls$480 wall-mask$479)
                                           ((union!
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(587
                                                  (r$1089)
                                                  ((bitwise-and
                                                     #((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(586
                                                         (r$1093)
                                                         ((#((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(585
                                                               (r$1090)
                                                               ((set-size
                                                                  #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(584
                                                                      (r$1092)
                                                                      ((if (Cyc-fast-eq
                                                                             r$1092
                                                                             ncells$471)
                                                                         (quit$473
                                                                           k$1081
                                                                           #f)
                                                                         (k$1081
                                                                           #f)))
                                                                      #f))
                                                                  (vector-ref
                                                                    (vector-ref
                                                                      wall$474
                                                                      1)
                                                                    1)))
                                                               #f))
                                                           (vector-set!
                                                             (vector-ref
                                                               wall$474
                                                               1)
                                                             3
                                                             r$1093)))
                                                         #f))
                                                     walls$480
                                                     wall-mask$479))
                                                  #f))
                                              (vector-ref
                                                (vector-ref wall$474 1)
                                                1)
                                              (vector-ref
                                                (vector-ref wall$474 2)
                                                1)))
                                           #f))
                                       (vector-ref (vector-ref wall$474 1) 3)
                                       r$1088))
                                     #f))
                                 (vector-ref wall$474 3))))
                            #f))
                        (vector-ref (vector-ref wall$474 1) 1)
                        (vector-ref (vector-ref wall$474 2) 1)))
                     #t))
                 walls$472))
              #t))))
       #t)))
 (define dfs-maze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(580
       (k$1067 maze$464 root$463 do-children$462)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(579
             (node$466)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(578
                   (search$467)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(571
                         (r$1068)
                         ((search$467 k$1067 node$466 #f))
                         #f))
                     (set! search$467
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(577
                           (k$1070 node$469 parent$468)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(576
                                 (r$1071)
                                 ((do-children$462
                                    k$1070
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(575
                                        (k$1073 child$470)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(574
                                              (r$1074)
                                              ((if r$1074
                                                 (k$1073 #f)
                                                 (search$467
                                                   k$1073
                                                   child$470
                                                   node$469)))
                                              #f))
                                          (eq? child$470 parent$468)))
                                        #t))
                                    maze$464
                                    node$469))
                                 #f))
                             (vector-set! node$469 4 parent$468)))
                           #t)))))
                   #f))
               #f))
             #f))
         root$463))
       #t)))
 (define reroot-maze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(570
       (k$1059 new-root$455)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(569
             (node$457)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(568
                   (lp$458)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(562 (r$1060) ((lp$458 k$1059 node$457 #f)) #f))
                     (set! lp$458
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(567
                           (k$1062 node$460 new-parent$459)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(565
                                 (old-parent$461)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(564
                                       (r$1064)
                                       ((if old-parent$461
                                          (lp$458
                                            k$1062
                                            old-parent$461
                                            node$460)
                                          (k$1062 #f)))
                                       #f))
                                   (vector-set! node$460 4 new-parent$459)))
                                 #f))
                             (vector-ref node$460 4)))
                           #t)))))
                   #f))
               #f))
             #f))
         new-root$455))
       #t)))
 (define path-length
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(561
       (k$1050 cell$449)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(558
             (lp$105$452)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(553
                   (r$1052)
                   ((lp$105$452 k$1050 0 (vector-ref cell$449 4)))
                   #f))
               (set! lp$105$452
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(557
                     (k$1054 len$454 node$453)
                     ((if node$453
                        (lp$105$452
                          k$1054
                          (Cyc-fast-plus len$454 1)
                          (vector-ref node$453 4))
                        (k$1054 len$454)))
                     #t)))))
             #f))
         #f))
       #t)))
 (define mark-path
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(552
       (k$1042 node$444)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(551
             (node$445)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(550
                   (lp$446)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(544 (r$1043) ((lp$446 k$1042 node$445)) #f))
                     (set! lp$446
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(549
                           (k$1045 node$447)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(548
                                 (r$1046)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(546
                                       (tmp$111$448)
                                       ((if tmp$111$448
                                          (lp$446 k$1045 tmp$111$448)
                                          (k$1045 #f)))
                                       #f))
                                   (vector-ref node$447 4)))
                                 #f))
                             (vector-set! node$447 5 #t)))
                           #t)))))
                   #f))
               #f))
             #f))
         node$444))
       #t)))
 (define make-harr
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(543
       (k$1038 nrows$443 ncols$442 elts$441)
       ((vector
          k$1038
          'harr
          nrows$443
          ncols$442
          elts$441))
       #t)))
 (define harr:nrows
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(541
       (k$1035 o$440)
       ((k$1035 (vector-ref o$440 1)))
       #t)))
 (define harr:ncols
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(540
       (k$1032 o$439)
       ((k$1032 (vector-ref o$439 2)))
       #t)))
 (define harr:elts
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(539
       (k$1029 o$438)
       ((k$1029 (vector-ref o$438 3)))
       #t)))
 (define href
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(538
       (k$1020 ha$435 x$434 y$433)
       ((div #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(537
                 (r$1021)
                 ((div #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(536
                           (r$1022)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(535
                                 (r$437 c$436)
                                 ((k$1020
                                    (vector-ref
                                      (vector-ref ha$435 3)
                                      (Cyc-fast-plus
                                        (Cyc-fast-mul
                                          (vector-ref ha$435 2)
                                          r$437)
                                        c$436))))
                                 #f))
                             r$1021
                             r$1022))
                           #f))
                       x$434
                       3))
                 #f))
             y$433
             2))
       #t)))
 (define href/rc
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(530
       (k$1013 ha$432 r$431 c$430)
       ((k$1013
          (vector-ref
            (vector-ref ha$432 3)
            (Cyc-fast-plus
              (Cyc-fast-mul (vector-ref ha$432 2) r$431)
              c$430))))
       #t)))
 (define harr-tabulate
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(525
       (k$987 nrows$418 ncols$417 proc$416)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(522
             (v$419)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(519
                   (lp$113$421)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(494
                         (r$991)
                         ((lp$113$421
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(493
                                (r$989)
                                ((vector k$987 'harr nrows$418 ncols$417 v$419))
                                #f))
                            (Cyc-fast-sub nrows$418 1)))
                         #f))
                     (set! lp$113$421
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(518
                           (k$993 r$422)
                           ((if (Cyc-fast-lt r$422 0)
                              (k$993 (Cyc-fast-lt r$422 0))
                              (#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(513
                                   (i$424)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(512
                                         (lp$117$426)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(498
                                               (r$998)
                                               ((lp$117$426
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(497
                                                      (r$995)
                                                      ((lp$113$421
                                                         k$993
                                                         (Cyc-fast-sub
                                                           r$422
                                                           1)))
                                                      #f))
                                                  0
                                                  i$424))
                                               #f))
                                           (set! lp$117$426
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(511
                                                 (k$1000 c$428 i$427)
                                                 ((if (Cyc-fast-eq
                                                        c$428
                                                        ncols$417)
                                                    (k$1000
                                                      (Cyc-fast-eq
                                                        c$428
                                                        ncols$417))
                                                    (bitwise-and
                                                      #((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(505
                                                          (r$1009)
                                                          ((proc$416
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(503
                                                                 (r$1005)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(502
                                                                       (r$1002)
                                                                       ((lp$117$426
                                                                          k$1000
                                                                          (Cyc-fast-plus
                                                                            c$428
                                                                            1)
                                                                          (Cyc-fast-plus
                                                                            i$427
                                                                            1)))
                                                                       #f))
                                                                   (vector-set!
                                                                     v$419
                                                                     i$427
                                                                     r$1005)))
                                                                 #f))
                                                             (Cyc-fast-mul
                                                               3
                                                               c$428)
                                                             (Cyc-fast-plus
                                                               (Cyc-fast-mul
                                                                 2
                                                                 r$422)
                                                               r$1009)))
                                                          #f))
                                                      c$428
                                                      1)))
                                                 #t)))))
                                         #f))
                                     #f))
                                   #f))
                               (Cyc-fast-mul r$422 ncols$417))))
                           #t)))))
                   #f))
               #f))
             #f))
         (make-vector (Cyc-fast-mul nrows$418 ncols$417))))
       #t)))
 (define south-west 1)
 (define south 2)
 (define south-east 4)
 (define gen-maze-array
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(492
       (k$974 r$413 c$412)
       ((harr-tabulate
          k$974
          r$413
          c$412
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(491
              (k$976 x$415 y$414)
              ((vector
                 k$976
                 'cell
                 (cons 1 '())
                 (cons x$415 y$414)
                 -1
                 #f
                 #f))
              #t))))
       #t)))
 (define make-wall-vec
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(487
       (k$899 harr$388)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(478
             (walls$392)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(473
                   (add-wall$396)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(468
                         (lp$132$404)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(430
                               (r$936)
                               ((lp$132$404
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(429
                                      (r$905)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(428
                                            (k$907)
                                            ((if (Cyc-fast-gt
                                                   (vector-ref harr$388 2)
                                                   1)
                                               (div #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(425
                                                        (r$933)
                                                        ((href #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(420
                                                                   (rmoc-hex$402)
                                                                   ((#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(419
                                                                         (k$929)
                                                                         ((if (Cyc-fast-lt
                                                                                (Cyc-fast-plus
                                                                                  3
                                                                                  (Cyc-fast-mul
                                                                                    6
                                                                                    r$933))
                                                                                (Cyc-fast-mul
                                                                                  3
                                                                                  (Cyc-fast-sub
                                                                                    (vector-ref
                                                                                      harr$388
                                                                                      2)
                                                                                    1)))
                                                                            (href #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(417
                                                                                      (r$931)
                                                                                      ((add-wall$396
                                                                                         k$929
                                                                                         rmoc-hex$402
                                                                                         r$931
                                                                                         south-east))
                                                                                      #f))
                                                                                  harr$388
                                                                                  (Cyc-fast-mul
                                                                                    3
                                                                                    (Cyc-fast-sub
                                                                                      (vector-ref
                                                                                        harr$388
                                                                                        2)
                                                                                      1))
                                                                                  0)
                                                                            (k$929 #f)))
                                                                         #t))
                                                                     #((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(416
                                                                         (r$926)
                                                                         ((href #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(414
                                                                                    (r$927)
                                                                                    ((add-wall$396
                                                                                       #((record-marker)
                                                                                         #((record-marker)
                                                                                           #f
                                                                                           (id args
                                                                                               body
                                                                                               has-cont))
                                                                                         #(413
                                                                                           (r$910)
                                                                                           ((#((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(410
                                                                                                 (lp$140$399)
                                                                                                 ((#((record-marker)
                                                                                                     #((record-marker)
                                                                                                       #f
                                                                                                       (id args
                                                                                                           body
                                                                                                           has-cont))
                                                                                                     #(395
                                                                                                       (r$912)
                                                                                                       ((lp$140$399
                                                                                                          k$907
                                                                                                          (Cyc-fast-sub
                                                                                                            (Cyc-fast-plus
                                                                                                              3
                                                                                                              (Cyc-fast-mul
                                                                                                                6
                                                                                                                r$933))
                                                                                                            6)))
                                                                                                       #f))
                                                                                                   (set! lp$140$399
                                                                                                     #((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(409
                                                                                                         (k$914 x$400)
                                                                                                         ((if (Cyc-fast-lt
                                                                                                                x$400
                                                                                                                3)
                                                                                                            (k$914 (Cyc-fast-lt
                                                                                                                     x$400
                                                                                                                     3))
                                                                                                            (href #((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(405
                                                                                                                      (r$922)
                                                                                                                      ((href #((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(403
                                                                                                                                 (r$923)
                                                                                                                                 ((add-wall$396
                                                                                                                                    #((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(402
                                                                                                                                        (r$916)
                                                                                                                                        ((href #((record-marker)
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #f
                                                                                                                                                   (id args
                                                                                                                                                       body
                                                                                                                                                       has-cont))
                                                                                                                                                 #(401
                                                                                                                                                   (r$919)
                                                                                                                                                   ((href #((record-marker)
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #f
                                                                                                                                                              (id args
                                                                                                                                                                  body
                                                                                                                                                                  has-cont))
                                                                                                                                                            #(399
                                                                                                                                                              (r$920)
                                                                                                                                                              ((add-wall$396
                                                                                                                                                                 #((record-marker)
                                                                                                                                                                   #((record-marker)
                                                                                                                                                                     #f
                                                                                                                                                                     (id args
                                                                                                                                                                         body
                                                                                                                                                                         has-cont))
                                                                                                                                                                   #(398
                                                                                                                                                                     (r$917)
                                                                                                                                                                     ((lp$140$399
                                                                                                                                                                        k$914
                                                                                                                                                                        (Cyc-fast-sub
                                                                                                                                                                          x$400
                                                                                                                                                                          6)))
                                                                                                                                                                     #f))
                                                                                                                                                                 r$919
                                                                                                                                                                 r$920
                                                                                                                                                                 south-east))
                                                                                                                                                              #f))
                                                                                                                                                          harr$388
                                                                                                                                                          (Cyc-fast-plus
                                                                                                                                                            x$400
                                                                                                                                                            3)
                                                                                                                                                          0))
                                                                                                                                                   #f))
                                                                                                                                               harr$388
                                                                                                                                               x$400
                                                                                                                                               1))
                                                                                                                                        #f))
                                                                                                                                    r$922
                                                                                                                                    r$923
                                                                                                                                    south-west))
                                                                                                                                 #f))
                                                                                                                             harr$388
                                                                                                                             (Cyc-fast-sub
                                                                                                                               x$400
                                                                                                                               3)
                                                                                                                             0))
                                                                                                                      #f))
                                                                                                                  harr$388
                                                                                                                  x$400
                                                                                                                  1)))
                                                                                                         #t)))))
                                                                                                 #f))
                                                                                             #f))
                                                                                           #f))
                                                                                       rmoc-hex$402
                                                                                       r$927
                                                                                       south-west))
                                                                                    #f))
                                                                                harr$388
                                                                                (Cyc-fast-sub
                                                                                  (Cyc-fast-plus
                                                                                    3
                                                                                    (Cyc-fast-mul
                                                                                      6
                                                                                      r$933))
                                                                                  3)
                                                                                0))
                                                                         #f))))
                                                                   #f))
                                                               harr$388
                                                               (Cyc-fast-plus
                                                                 3
                                                                 (Cyc-fast-mul
                                                                   6
                                                                   r$933))
                                                               1))
                                                        #f))
                                                    (Cyc-fast-sub
                                                      (vector-ref harr$388 2)
                                                      2)
                                                    2)
                                               (k$907 #f)))
                                            #t))
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(394
                                            (r$906)
                                            ((k$899 (list->vector walls$392)))
                                            #f))))
                                      #f))
                                  (Cyc-fast-mul
                                    (Cyc-fast-sub (vector-ref harr$388 2) 1)
                                    3)))
                               #f))
                           (set! lp$132$404
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(467
                                 (k$938 x$405)
                                 ((if (Cyc-fast-lt x$405 0)
                                    (k$938 (Cyc-fast-lt x$405 0))
                                    (bitwise-and
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(461
                                          (r$965)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(458
                                                (lp$136$408)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(434
                                                      (r$943)
                                                      ((lp$136$408
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(433
                                                             (r$940)
                                                             ((lp$132$404
                                                                k$938
                                                                (Cyc-fast-sub
                                                                  x$405
                                                                  3)))
                                                             #f))
                                                         (Cyc-fast-plus
                                                           (Cyc-fast-mul
                                                             (Cyc-fast-sub
                                                               (vector-ref
                                                                 harr$388
                                                                 1)
                                                               1)
                                                             2)
                                                           r$965)))
                                                      #f))
                                                  (set! lp$136$408
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(457
                                                        (k$945 y$409)
                                                        ((if (Cyc-fast-lte
                                                               y$409
                                                               1)
                                                           (k$945 (Cyc-fast-lte
                                                                    y$409
                                                                    1))
                                                           (href #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(452
                                                                     (hex$411)
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(451
                                                                           (k$959)
                                                                           ((if (zero?__inline__
                                                                                  x$405)
                                                                              (k$959 #f)
                                                                              (href #((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(447
                                                                                        (r$961)
                                                                                        ((add-wall$396
                                                                                           k$959
                                                                                           hex$411
                                                                                           r$961
                                                                                           south-west))
                                                                                        #f))
                                                                                    harr$388
                                                                                    (Cyc-fast-sub
                                                                                      x$405
                                                                                      3)
                                                                                    (Cyc-fast-sub
                                                                                      y$409
                                                                                      1))))
                                                                           #t))
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(446
                                                                           (r$950)
                                                                           ((href #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(444
                                                                                      (r$957)
                                                                                      ((add-wall$396
                                                                                         #((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(443
                                                                                             (r$951)
                                                                                             ((#((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(442
                                                                                                   (k$952)
                                                                                                   ((if (Cyc-fast-lt
                                                                                                          x$405
                                                                                                          (Cyc-fast-mul
                                                                                                            3
                                                                                                            (Cyc-fast-sub
                                                                                                              (vector-ref
                                                                                                                harr$388
                                                                                                                2)
                                                                                                              1)))
                                                                                                      (href #((record-marker)
                                                                                                              #((record-marker)
                                                                                                                #f
                                                                                                                (id args
                                                                                                                    body
                                                                                                                    has-cont))
                                                                                                              #(438
                                                                                                                (r$954)
                                                                                                                ((add-wall$396
                                                                                                                   k$952
                                                                                                                   hex$411
                                                                                                                   r$954
                                                                                                                   south-east))
                                                                                                                #f))
                                                                                                            harr$388
                                                                                                            (Cyc-fast-plus
                                                                                                              x$405
                                                                                                              3)
                                                                                                            (Cyc-fast-sub
                                                                                                              y$409
                                                                                                              1))
                                                                                                      (k$952 #f)))
                                                                                                   #t))
                                                                                               #((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(437
                                                                                                   (r$947)
                                                                                                   ((lp$136$408
                                                                                                      k$945
                                                                                                      (Cyc-fast-sub
                                                                                                        y$409
                                                                                                        2)))
                                                                                                   #f))))
                                                                                             #f))
                                                                                         hex$411
                                                                                         r$957
                                                                                         south))
                                                                                      #f))
                                                                                  harr$388
                                                                                  x$405
                                                                                  (Cyc-fast-sub
                                                                                    y$409
                                                                                    2)))
                                                                           #f))))
                                                                     #f))
                                                                 harr$388
                                                                 x$405
                                                                 y$409)))
                                                        #t)))))
                                                #f))
                                            #f))
                                          #f))
                                      x$405
                                      1)))
                                 #t)))))
                         #f))
                     #f))
                   #f))
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(477
                   (k$968 o$395 n$394 b$393)
                   ((vector
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(476
                          (r$970)
                          ((#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(475
                                (r$969)
                                ((k$968 (set! walls$392 r$969)))
                                #f))
                            (cons r$970 walls$392)))
                          #f))
                      'wall
                      o$395
                      n$394
                      b$393))
                   #t))))
             #f))
         '()))
       #t)))
 (define pick-entrances
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(393
       (k$869 harr$361)
       ((href/rc
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(392
              (r$896)
              ((dfs-maze
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(391
                     (r$870)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(390
                           (r$871)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(389
                                 (r$872)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(388
                                       (nrows$363 ncols$362)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(385
                                             (tp-lp$368)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(357
                                                   (r$874)
                                                   ((tp-lp$368
                                                      k$869
                                                      -1
                                                      #f
                                                      #f
                                                      (Cyc-fast-sub
                                                        ncols$362
                                                        1)))
                                                   #f))
                                               (set! tp-lp$368
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(384
                                                     (k$876 max-len$372
                                                            entrance$371
                                                            exit$370
                                                            tcol$369)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(383
                                                           (r$877)
                                                           ((if r$877
                                                              (vector
                                                                k$876
                                                                entrance$371
                                                                exit$370)
                                                              (href/rc
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(380
                                                                    (top-cell$373)
                                                                    ((reroot-maze
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(379
                                                                           (r$879)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(377
                                                                                 (max-len$377
                                                                                   entrance$376
                                                                                   exit$375
                                                                                   bcol$374)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(376
                                                                                       (bt-lp$378)
                                                                                       ((#((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(366
                                                                                             (r$886)
                                                                                             ((bt-lp$378
                                                                                                #((record-marker)
                                                                                                  #((record-marker)
                                                                                                    #f
                                                                                                    (id args
                                                                                                        body
                                                                                                        has-cont))
                                                                                                  #(364
                                                                                                    (result$384)
                                                                                                    ((tp-lp$368
                                                                                                       k$876
                                                                                                       (vector-ref
                                                                                                         result$384
                                                                                                         0)
                                                                                                       (vector-ref
                                                                                                         result$384
                                                                                                         1)
                                                                                                       (vector-ref
                                                                                                         result$384
                                                                                                         2)
                                                                                                       (Cyc-fast-sub
                                                                                                         tcol$369
                                                                                                         1)))
                                                                                                    #f))
                                                                                                max-len$377
                                                                                                entrance$376
                                                                                                exit$375
                                                                                                bcol$374))
                                                                                             #f))
                                                                                         (set! bt-lp$378
                                                                                           #((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(375
                                                                                               (k$888 max-len$382
                                                                                                      entrance$381
                                                                                                      exit$380
                                                                                                      bcol$379)
                                                                                               ((#((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(374
                                                                                                     (r$889)
                                                                                                     ((if r$889
                                                                                                        (vector
                                                                                                          k$888
                                                                                                          max-len$382
                                                                                                          entrance$381
                                                                                                          exit$380)
                                                                                                        (href/rc
                                                                                                          #((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(373
                                                                                                              (r$894)
                                                                                                              ((path-length
                                                                                                                 #((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(371
                                                                                                                     (this-len$383)
                                                                                                                     ((#((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(370
                                                                                                                           (r$891)
                                                                                                                           ((if r$891
                                                                                                                              (#((record-marker)
                                                                                                                                 #((record-marker)
                                                                                                                                   #f
                                                                                                                                   (id args
                                                                                                                                       body
                                                                                                                                       has-cont))
                                                                                                                                 #(368
                                                                                                                                   (r$892)
                                                                                                                                   ((bt-lp$378
                                                                                                                                      k$888
                                                                                                                                      this-len$383
                                                                                                                                      tcol$369
                                                                                                                                      bcol$379
                                                                                                                                      r$892))
                                                                                                                                   #f))
                                                                                                                               (Cyc-fast-sub
                                                                                                                                 bcol$379
                                                                                                                                 1))
                                                                                                                              (bt-lp$378
                                                                                                                                k$888
                                                                                                                                max-len$382
                                                                                                                                entrance$381
                                                                                                                                exit$380
                                                                                                                                (Cyc-fast-sub
                                                                                                                                  bcol$379
                                                                                                                                  1))))
                                                                                                                           #f))
                                                                                                                       (Cyc-fast-gt
                                                                                                                         this-len$383
                                                                                                                         max-len$382)))
                                                                                                                     #f))
                                                                                                                 r$894))
                                                                                                              #f))
                                                                                                          harr$361
                                                                                                          0
                                                                                                          bcol$379)))
                                                                                                     #f))
                                                                                                 (Cyc-fast-lt
                                                                                                   bcol$379
                                                                                                   0)))
                                                                                               #t)))))
                                                                                       #f))
                                                                                   #f))
                                                                                 #f))
                                                                             max-len$372
                                                                             entrance$371
                                                                             exit$370
                                                                             (Cyc-fast-sub
                                                                               ncols$362
                                                                               1)))
                                                                           #f))
                                                                       top-cell$373))
                                                                    #f))
                                                                harr$361
                                                                (Cyc-fast-sub
                                                                  nrows$363
                                                                  1)
                                                                tcol$369)))
                                                           #f))
                                                       (Cyc-fast-lt
                                                         tcol$369
                                                         0)))
                                                     #t)))))
                                             #f))
                                         #f))
                                       #f))
                                   r$871
                                   r$872))
                                 #f))
                             (vector-ref harr$361 2)))
                           #f))
                       (vector-ref harr$361 1)))
                     #f))
                 harr$361
                 r$896
                 for-each-hex-child))
              #f))
          harr$361
          0
          0))
       #t)))
 (define for-each-hex-child
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(356
       (k$810 proc$347 harr$346 cell$345)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(336
             (k$860)
             ((bit-test
                #((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(335
                    (r$861)
                    ((if r$861
                       (k$860 #f)
                       (href #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(332 (r$862) ((proc$347 k$860 r$862)) #f))
                             harr$346
                             (Cyc-fast-sub (car (vector-ref cell$345 2)) 3)
                             (Cyc-fast-sub (cdr (vector-ref cell$345 2)) 1))))
                    #f))
                (vector-ref cell$345 3)
                south-west))
             #t))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(331
             (r$819)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(330
                   (k$856)
                   ((bit-test
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(329
                          (r$857)
                          ((if r$857
                             (k$856 #f)
                             (href #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(327 (r$858) ((proc$347 k$856 r$858)) #f))
                                   harr$346
                                   (car (vector-ref cell$345 2))
                                   (Cyc-fast-sub
                                     (cdr (vector-ref cell$345 2))
                                     2))))
                          #f))
                      (vector-ref cell$345 3)
                      south))
                   #t))
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(326
                   (r$820)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(325
                         (k$851)
                         ((bit-test
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(324
                                (r$852)
                                ((if r$852
                                   (k$851 #f)
                                   (href #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(321
                                             (r$853)
                                             ((proc$347 k$851 r$853))
                                             #f))
                                         harr$346
                                         (Cyc-fast-plus
                                           (car (vector-ref cell$345 2))
                                           3)
                                         (Cyc-fast-sub
                                           (cdr (vector-ref cell$345 2))
                                           1))))
                                #f))
                            (vector-ref cell$345 3)
                            south-east))
                         #t))
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(320
                         (r$821)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(319
                               (k$840)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(318
                                     (k$847)
                                     ((if (Cyc-fast-gt
                                            (car (vector-ref cell$345 2))
                                            0)
                                        (if (Cyc-fast-lte
                                              (cdr (vector-ref cell$345 2))
                                              (Cyc-fast-mul
                                                2
                                                (Cyc-fast-sub
                                                  (vector-ref harr$346 1)
                                                  1)))
                                          (k$847 (Cyc-fast-lte
                                                   (cdr (vector-ref cell$345 2))
                                                   (Cyc-fast-mul
                                                     2
                                                     (Cyc-fast-sub
                                                       (vector-ref harr$346 1)
                                                       1))))
                                          (mod #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(314
                                                   (r$850)
                                                   ((k$847 (zero?__inline__
                                                             r$850)))
                                                   #f))
                                               (car (vector-ref cell$345 2))
                                               6))
                                        (k$847 #f)))
                                     #t))
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(313
                                     (r$841)
                                     ((if r$841
                                        (href #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(309
                                                  (nw$359)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(308
                                                        (r$844)
                                                        ((bit-test
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(307
                                                               (r$843)
                                                               ((if r$843
                                                                  (k$840 #f)
                                                                  (proc$347
                                                                    k$840
                                                                    nw$359)))
                                                               #f))
                                                           r$844
                                                           south-east))
                                                        #f))
                                                    (vector-ref nw$359 3)))
                                                  #f))
                                              harr$346
                                              (Cyc-fast-sub
                                                (car (vector-ref cell$345 2))
                                                3)
                                              (Cyc-fast-plus
                                                (cdr (vector-ref cell$345 2))
                                                1))
                                        (k$840 #f)))
                                     #f))))
                               #t))
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(306
                               (r$822)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(305
                                     (k$834)
                                     ((if (Cyc-fast-lt
                                            (cdr (vector-ref cell$345 2))
                                            (Cyc-fast-mul
                                              2
                                              (Cyc-fast-sub
                                                (vector-ref harr$346 1)
                                                1)))
                                        (href #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(301
                                                  (n$358)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(300
                                                        (r$838)
                                                        ((bit-test
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(299
                                                               (r$837)
                                                               ((if r$837
                                                                  (k$834 #f)
                                                                  (proc$347
                                                                    k$834
                                                                    n$358)))
                                                               #f))
                                                           r$838
                                                           south))
                                                        #f))
                                                    (vector-ref n$358 3)))
                                                  #f))
                                              harr$346
                                              (car (vector-ref cell$345 2))
                                              (Cyc-fast-plus
                                                (cdr (vector-ref cell$345 2))
                                                2))
                                        (k$834 #f)))
                                     #t))
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(298
                                     (r$823)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(297
                                           (k$830)
                                           ((if (Cyc-fast-lt
                                                  (car (vector-ref cell$345 2))
                                                  (Cyc-fast-mul
                                                    3
                                                    (Cyc-fast-sub
                                                      (vector-ref harr$346 2)
                                                      1)))
                                              (if (Cyc-fast-lte
                                                    (cdr (vector-ref
                                                           cell$345
                                                           2))
                                                    (Cyc-fast-mul
                                                      2
                                                      (Cyc-fast-sub
                                                        (vector-ref harr$346 1)
                                                        1)))
                                                (k$830 (Cyc-fast-lte
                                                         (cdr (vector-ref
                                                                cell$345
                                                                2))
                                                         (Cyc-fast-mul
                                                           2
                                                           (Cyc-fast-sub
                                                             (vector-ref
                                                               harr$346
                                                               1)
                                                             1))))
                                                (mod #((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(293
                                                         (r$833)
                                                         ((k$830 (zero?__inline__
                                                                   r$833)))
                                                         #f))
                                                     (car (vector-ref
                                                            cell$345
                                                            2))
                                                     6))
                                              (k$830 #f)))
                                           #t))
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(292
                                           (r$824)
                                           ((if r$824
                                              (href #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(288
                                                        (ne$356)
                                                        ((#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(287
                                                              (r$827)
                                                              ((bit-test
                                                                 #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(286
                                                                     (r$826)
                                                                     ((if r$826
                                                                        (k$810 #f)
                                                                        (proc$347
                                                                          k$810
                                                                          ne$356)))
                                                                     #f))
                                                                 r$827
                                                                 south-west))
                                                              #f))
                                                          (vector-ref
                                                            ne$356
                                                            3)))
                                                        #f))
                                                    harr$346
                                                    (Cyc-fast-plus
                                                      (car (vector-ref
                                                             cell$345
                                                             2))
                                                      3)
                                                    (Cyc-fast-plus
                                                      (cdr (vector-ref
                                                             cell$345
                                                             2))
                                                      1))
                                              (k$810 #f)))
                                           #f))))
                                     #f))))
                               #f))))
                         #f))))
                   #f))))
             #f))))
       #t)))
 (define make-maze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(285
       (k$789 nrows$337 ncols$336)
       ((gen-maze-array
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(283
              (cells$338)
              ((make-wall-vec
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(282
                     (r$806)
                     ((permute-vec!
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(279
                            (walls$339)
                            ((dig-maze
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(276
                                   (r$792)
                                   ((pick-entrances
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(274
                                          (result$340)
                                          ((href/rc
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(269
                                                 (exit-cell$343)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(267
                                                       (walls$344)
                                                       ((href/rc
                                                          #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(264
                                                              (r$803)
                                                              ((reroot-maze
                                                                 #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(263
                                                                     (r$798)
                                                                     ((mark-path
                                                                        #((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(262
                                                                            (r$799)
                                                                            ((bitwise-not
                                                                               #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(261
                                                                                   (r$802)
                                                                                   ((bitwise-and
                                                                                      #((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(260
                                                                                          (r$801)
                                                                                          ((#((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(259
                                                                                                (r$800)
                                                                                                ((vector
                                                                                                   k$789
                                                                                                   cells$338
                                                                                                   (vector-ref
                                                                                                     result$340
                                                                                                     0)
                                                                                                   (vector-ref
                                                                                                     result$340
                                                                                                     1)))
                                                                                                #f))
                                                                                            (vector-set!
                                                                                              exit-cell$343
                                                                                              3
                                                                                              r$801)))
                                                                                          #f))
                                                                                      walls$344
                                                                                      r$802))
                                                                                   #f))
                                                                               south))
                                                                            #f))
                                                                        exit-cell$343))
                                                                     #f))
                                                                 r$803))
                                                              #f))
                                                          cells$338
                                                          (Cyc-fast-sub
                                                            nrows$337
                                                            1)
                                                          (vector-ref
                                                            result$340
                                                            0)))
                                                       #f))
                                                   (vector-ref
                                                     exit-cell$343
                                                     3)))
                                                 #f))
                                             cells$338
                                             0
                                             (vector-ref result$340 1)))
                                          #f))
                                      cells$338))
                                   #f))
                               walls$339
                               (Cyc-fast-mul nrows$337 ncols$336)))
                            #f))
                        r$806
                        (cons 20 #f)))
                     #f))
                 cells$338))
              #f))
          nrows$337
          ncols$336))
       #t)))
 (define pmaze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(258
       (k$782 nrows$331 ncols$330)
       ((make-maze
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(256
              (result$332)
              ((#((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(252
                    (cells$335 entrance$334 exit$333)
                    ((print-hexmaze k$782 cells$335 entrance$334))
                    #f))
                (vector-ref result$332 0)
                (vector-ref result$332 1)
                (vector-ref result$332 2)))
              #f))
          nrows$331
          ncols$330))
       #t)))
 (define output #f)
 (define write-ch
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(251
       (k$776 c$329)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(250 (r$777) ((k$776 (set! output r$777))) #f))
         (cons c$329 output)))
       #t)))
 (define print-hexmaze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(249
       (k$683 harr$305 entrance$304)
       ((div #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(244
                 (r$773)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(239
                       (lp$188$326)
                       ((#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(225
                             (r$761)
                             ((lp$188$326
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(224
                                    (r$687)
                                    ((write-ch
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(223
                                           (r$688)
                                           ((write-ch
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(222
                                                  (r$689)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(220
                                                        (lp$192$322)
                                                        ((#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(203
                                                              (r$746)
                                                              ((lp$192$322
                                                                 #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(202
                                                                     (r$690)
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(201
                                                                           (k$740)
                                                                           ((odd? #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(200
                                                                                      (r$741)
                                                                                      ((if r$741
                                                                                         (#((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(199
                                                                                              (k$743)
                                                                                              ((if (Cyc-fast-eq
                                                                                                     entrance$304
                                                                                                     (Cyc-fast-sub
                                                                                                       (vector-ref
                                                                                                         harr$305
                                                                                                         2)
                                                                                                       1))
                                                                                                 (k$743 #\space)
                                                                                                 (k$743 #\_)))
                                                                                              #t))
                                                                                          #((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(196
                                                                                              (r$742)
                                                                                              ((write-ch
                                                                                                 k$740
                                                                                                 r$742))
                                                                                              #f)))
                                                                                         (k$740 #f)))
                                                                                      #f))
                                                                                  (vector-ref
                                                                                    harr$305
                                                                                    2)))
                                                                           #t))
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(195
                                                                           (r$691)
                                                                           ((write-ch
                                                                              #((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(194
                                                                                  (r$692)
                                                                                  ((#((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(191
                                                                                        (lp$196$310)
                                                                                        ((#((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(132
                                                                                              (r$694)
                                                                                              ((lp$196$310
                                                                                                 k$683
                                                                                                 (Cyc-fast-sub
                                                                                                   (vector-ref
                                                                                                     harr$305
                                                                                                     1)
                                                                                                   1)))
                                                                                              #f))
                                                                                          (set! lp$196$310
                                                                                            #((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(190
                                                                                                (k$696 r$311)
                                                                                                ((if (Cyc-fast-lt
                                                                                                       r$311
                                                                                                       0)
                                                                                                   (k$696 (Cyc-fast-lt
                                                                                                            r$311
                                                                                                            0))
                                                                                                   (write-ch
                                                                                                     #((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(186
                                                                                                         (r$698)
                                                                                                         ((#((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(184
                                                                                                               (lp$200$318)
                                                                                                               ((#((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(171
                                                                                                                     (r$729)
                                                                                                                     ((lp$200$318
                                                                                                                        #((record-marker)
                                                                                                                          #((record-marker)
                                                                                                                            #f
                                                                                                                            (id args
                                                                                                                                body
                                                                                                                                has-cont))
                                                                                                                          #(170
                                                                                                                            (r$699)
                                                                                                                            ((#((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(169
                                                                                                                                  (k$724)
                                                                                                                                  ((odd? #((record-marker)
                                                                                                                                           #((record-marker)
                                                                                                                                             #f
                                                                                                                                             (id args
                                                                                                                                                 body
                                                                                                                                                 has-cont))
                                                                                                                                           #(168
                                                                                                                                             (r$725)
                                                                                                                                             ((if r$725
                                                                                                                                                (dot/space
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(165
                                                                                                                                                      (r$727)
                                                                                                                                                      ((write-ch
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #f
                                                                                                                                                             (id args
                                                                                                                                                                 body
                                                                                                                                                                 has-cont))
                                                                                                                                                           #(164
                                                                                                                                                             (r$726)
                                                                                                                                                             ((write-ch
                                                                                                                                                                k$724
                                                                                                                                                                #\\))
                                                                                                                                                             #f))
                                                                                                                                                         r$727))
                                                                                                                                                      #f))
                                                                                                                                                  harr$305
                                                                                                                                                  r$311
                                                                                                                                                  (Cyc-fast-sub
                                                                                                                                                    (vector-ref
                                                                                                                                                      harr$305
                                                                                                                                                      2)
                                                                                                                                                    1))
                                                                                                                                                (k$724 #f)))
                                                                                                                                             #f))
                                                                                                                                         (vector-ref
                                                                                                                                           harr$305
                                                                                                                                           2)))
                                                                                                                                  #t))
                                                                                                                              #((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(163
                                                                                                                                  (r$700)
                                                                                                                                  ((write-ch
                                                                                                                                     #((record-marker)
                                                                                                                                       #((record-marker)
                                                                                                                                         #f
                                                                                                                                         (id args
                                                                                                                                             body
                                                                                                                                             has-cont))
                                                                                                                                       #(162
                                                                                                                                         (r$701)
                                                                                                                                         ((#((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(160
                                                                                                                                               (lp$207$314)
                                                                                                                                               ((#((record-marker)
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #f
                                                                                                                                                     (id args
                                                                                                                                                         body
                                                                                                                                                         has-cont))
                                                                                                                                                   #(146
                                                                                                                                                     (r$712)
                                                                                                                                                     ((lp$207$314
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(145
                                                                                                                                                            (r$702)
                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(144
                                                                                                                                                                  (k$706)
                                                                                                                                                                  ((odd? #((record-marker)
                                                                                                                                                                           #((record-marker)
                                                                                                                                                                             #f
                                                                                                                                                                             (id args
                                                                                                                                                                                 body
                                                                                                                                                                                 has-cont))
                                                                                                                                                                           #(143
                                                                                                                                                                             (r$707)
                                                                                                                                                                             ((if r$707
                                                                                                                                                                                (href/rc
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                      #f
                                                                                                                                                                                      (id args
                                                                                                                                                                                          body
                                                                                                                                                                                          has-cont))
                                                                                                                                                                                    #(138
                                                                                                                                                                                      (r$709)
                                                                                                                                                                                      ((display-hexbottom
                                                                                                                                                                                         k$706
                                                                                                                                                                                         (vector-ref
                                                                                                                                                                                           r$709
                                                                                                                                                                                           3)))
                                                                                                                                                                                      #f))
                                                                                                                                                                                  harr$305
                                                                                                                                                                                  r$311
                                                                                                                                                                                  (Cyc-fast-sub
                                                                                                                                                                                    (vector-ref
                                                                                                                                                                                      harr$305
                                                                                                                                                                                      2)
                                                                                                                                                                                    1))
                                                                                                                                                                                (if (zero?__inline__
                                                                                                                                                                                      r$311)
                                                                                                                                                                                  (k$706 #f)
                                                                                                                                                                                  (write-ch
                                                                                                                                                                                    k$706
                                                                                                                                                                                    #\\))))
                                                                                                                                                                             #f))
                                                                                                                                                                         (vector-ref
                                                                                                                                                                           harr$305
                                                                                                                                                                           2)))
                                                                                                                                                                  #t))
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(136
                                                                                                                                                                  (r$703)
                                                                                                                                                                  ((write-ch
                                                                                                                                                                     #((record-marker)
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #f
                                                                                                                                                                         (id args
                                                                                                                                                                             body
                                                                                                                                                                             has-cont))
                                                                                                                                                                       #(135
                                                                                                                                                                         (r$704)
                                                                                                                                                                         ((lp$196$310
                                                                                                                                                                            k$696
                                                                                                                                                                            (Cyc-fast-sub
                                                                                                                                                                              r$311
                                                                                                                                                                              1)))
                                                                                                                                                                         #f))
                                                                                                                                                                     #\newline))
                                                                                                                                                                  #f))))
                                                                                                                                                            #f))
                                                                                                                                                        0))
                                                                                                                                                     #f))
                                                                                                                                                 (set! lp$207$314
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #f
                                                                                                                                                       (id args
                                                                                                                                                           body
                                                                                                                                                           has-cont))
                                                                                                                                                     #(159
                                                                                                                                                       (k$714 c$315)
                                                                                                                                                       ((if (Cyc-fast-gte
                                                                                                                                                              c$315
                                                                                                                                                              (Cyc-fast-mul
                                                                                                                                                                2
                                                                                                                                                                r$773))
                                                                                                                                                          (k$714 (Cyc-fast-gte
                                                                                                                                                                   c$315
                                                                                                                                                                   (Cyc-fast-mul
                                                                                                                                                                     2
                                                                                                                                                                     r$773)))
                                                                                                                                                          (href/rc
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #f
                                                                                                                                                                (id args
                                                                                                                                                                    body
                                                                                                                                                                    has-cont))
                                                                                                                                                              #(155
                                                                                                                                                                (r$723)
                                                                                                                                                                ((display-hexbottom
                                                                                                                                                                   #((record-marker)
                                                                                                                                                                     #((record-marker)
                                                                                                                                                                       #f
                                                                                                                                                                       (id args
                                                                                                                                                                           body
                                                                                                                                                                           has-cont))
                                                                                                                                                                     #(153
                                                                                                                                                                       (r$716)
                                                                                                                                                                       ((dot/space
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(150
                                                                                                                                                                              (r$719)
                                                                                                                                                                              ((write-ch
                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                     #f
                                                                                                                                                                                     (id args
                                                                                                                                                                                         body
                                                                                                                                                                                         has-cont))
                                                                                                                                                                                   #(149
                                                                                                                                                                                     (r$717)
                                                                                                                                                                                     ((lp$207$314
                                                                                                                                                                                        k$714
                                                                                                                                                                                        (Cyc-fast-plus
                                                                                                                                                                                          c$315
                                                                                                                                                                                          2)))
                                                                                                                                                                                     #f))
                                                                                                                                                                                 r$719))
                                                                                                                                                                              #f))
                                                                                                                                                                          harr$305
                                                                                                                                                                          (Cyc-fast-sub
                                                                                                                                                                            r$311
                                                                                                                                                                            1)
                                                                                                                                                                          (Cyc-fast-plus
                                                                                                                                                                            c$315
                                                                                                                                                                            1)))
                                                                                                                                                                       #f))
                                                                                                                                                                   (vector-ref
                                                                                                                                                                     r$723
                                                                                                                                                                     3)))
                                                                                                                                                                #f))
                                                                                                                                                            harr$305
                                                                                                                                                            r$311
                                                                                                                                                            c$315)))
                                                                                                                                                       #t)))))
                                                                                                                                               #f))
                                                                                                                                           #f))
                                                                                                                                         #f))
                                                                                                                                     #\newline))
                                                                                                                                  #f))))
                                                                                                                            #f))
                                                                                                                        1))
                                                                                                                     #f))
                                                                                                                 (set! lp$200$318
                                                                                                                   #((record-marker)
                                                                                                                     #((record-marker)
                                                                                                                       #f
                                                                                                                       (id args
                                                                                                                           body
                                                                                                                           has-cont))
                                                                                                                     #(183
                                                                                                                       (k$731 c$319)
                                                                                                                       ((if (Cyc-fast-gte
                                                                                                                              c$319
                                                                                                                              (Cyc-fast-mul
                                                                                                                                2
                                                                                                                                r$773))
                                                                                                                          (k$731 (Cyc-fast-gte
                                                                                                                                   c$319
                                                                                                                                   (Cyc-fast-mul
                                                                                                                                     2
                                                                                                                                     r$773)))
                                                                                                                          (dot/space
                                                                                                                            #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(178
                                                                                                                                (r$738)
                                                                                                                                ((write-ch
                                                                                                                                   #((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(177
                                                                                                                                       (r$733)
                                                                                                                                       ((href/rc
                                                                                                                                          #((record-marker)
                                                                                                                                            #((record-marker)
                                                                                                                                              #f
                                                                                                                                              (id args
                                                                                                                                                  body
                                                                                                                                                  has-cont))
                                                                                                                                            #(176
                                                                                                                                              (r$737)
                                                                                                                                              ((display-hexbottom
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #f
                                                                                                                                                     (id args
                                                                                                                                                         body
                                                                                                                                                         has-cont))
                                                                                                                                                   #(174
                                                                                                                                                     (r$734)
                                                                                                                                                     ((lp$200$318
                                                                                                                                                        k$731
                                                                                                                                                        (Cyc-fast-plus
                                                                                                                                                          c$319
                                                                                                                                                          2)))
                                                                                                                                                     #f))
                                                                                                                                                 (vector-ref
                                                                                                                                                   r$737
                                                                                                                                                   3)))
                                                                                                                                              #f))
                                                                                                                                          harr$305
                                                                                                                                          r$311
                                                                                                                                          c$319))
                                                                                                                                       #f))
                                                                                                                                   r$738))
                                                                                                                                #f))
                                                                                                                            harr$305
                                                                                                                            r$311
                                                                                                                            (Cyc-fast-sub
                                                                                                                              c$319
                                                                                                                              1))))
                                                                                                                       #t)))))
                                                                                                               #f))
                                                                                                           #f))
                                                                                                         #f))
                                                                                                     #\/)))
                                                                                                #t)))))
                                                                                        #f))
                                                                                    #f))
                                                                                  #f))
                                                                              #\newline))
                                                                           #f))))
                                                                     #f))
                                                                 0))
                                                              #f))
                                                          (set! lp$192$322
                                                            #((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(219
                                                                (k$748 c$323)
                                                                ((if (Cyc-fast-gte
                                                                       c$323
                                                                       (Cyc-fast-mul
                                                                         2
                                                                         r$773))
                                                                   (k$748 (Cyc-fast-gte
                                                                            c$323
                                                                            (Cyc-fast-mul
                                                                              2
                                                                              r$773)))
                                                                   (#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(215
                                                                        (k$759)
                                                                        ((if (Cyc-fast-eq
                                                                               c$323
                                                                               entrance$304)
                                                                           (k$759 #\space)
                                                                           (k$759 #\_)))
                                                                        #t))
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(213
                                                                        (r$758)
                                                                        ((write-ch
                                                                           #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(212
                                                                               (r$750)
                                                                               ((write-ch
                                                                                  #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(211
                                                                                      (r$751)
                                                                                      ((dot/space
                                                                                         #((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(208
                                                                                             (r$755)
                                                                                             ((write-ch
                                                                                                #((record-marker)
                                                                                                  #((record-marker)
                                                                                                    #f
                                                                                                    (id args
                                                                                                        body
                                                                                                        has-cont))
                                                                                                  #(207
                                                                                                    (r$752)
                                                                                                    ((write-ch
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(206
                                                                                                           (r$753)
                                                                                                           ((lp$192$322
                                                                                                              k$748
                                                                                                              (Cyc-fast-plus
                                                                                                                c$323
                                                                                                                2)))
                                                                                                           #f))
                                                                                                       #\\))
                                                                                                    #f))
                                                                                                r$755))
                                                                                             #f))
                                                                                         harr$305
                                                                                         (Cyc-fast-sub
                                                                                           (vector-ref
                                                                                             harr$305
                                                                                             1)
                                                                                           1)
                                                                                         (Cyc-fast-plus
                                                                                           c$323
                                                                                           1)))
                                                                                      #f))
                                                                                  #\/))
                                                                               #f))
                                                                           r$758))
                                                                        #f)))))
                                                                #t)))))
                                                        #f))
                                                    #f))
                                                  #f))
                                              #\space))
                                           #f))
                                       #\newline))
                                    #f))
                                1))
                             #f))
                         (set! lp$188$326
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(238
                               (k$763 c$327)
                               ((if (Cyc-fast-gte c$327 (vector-ref harr$305 2))
                                  (k$763 (Cyc-fast-gte
                                           c$327
                                           (vector-ref harr$305 2)))
                                  (write-ch
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(234
                                        (r$765)
                                        ((write-ch
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(233
                                               (r$766)
                                               ((write-ch
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(232
                                                      (r$767)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(231
                                                            (k$771)
                                                            ((if (Cyc-fast-eq
                                                                   c$327
                                                                   entrance$304)
                                                               (k$771 #\space)
                                                               (k$771 #\_)))
                                                            #t))
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(229
                                                            (r$770)
                                                            ((write-ch
                                                               #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(228
                                                                   (r$768)
                                                                   ((lp$188$326
                                                                      k$763
                                                                      (Cyc-fast-plus
                                                                        c$327
                                                                        2)))
                                                                   #f))
                                                               r$770))
                                                            #f))))
                                                      #f))
                                                  #\space))
                                               #f))
                                           #\space))
                                        #f))
                                    #\space)))
                               #t)))))
                       #f))
                   #f))
                 #f))
             (vector-ref harr$305 2)
             2))
       #t)))
 (define bit-test
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(131
       (k$678 j$303 bit$302)
       ((bitwise-and
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(130
              (r$680)
              ((k$678 (not__inline__ (zero?__inline__ r$680))))
              #f))
          j$303
          bit$302))
       #t)))
 (define dot/space
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(128
       (k$671 harr$301 r$300 c$299)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(127
             (k$673)
             ((if (Cyc-fast-gte r$300 0)
                (href/rc
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(125 (r$675) ((k$673 (vector-ref r$675 5))) #f))
                  harr$301
                  r$300
                  c$299)
                (k$673 #f)))
             #t))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(124
             (r$672)
             ((if r$672 (k$671 #\.) (k$671 #\space)))
             #f))))
       #t)))
 (define display-hexbottom
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(123
       (k$657 hexwalls$298)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(122
             (k$667)
             ((bit-test
                #((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(121
                    (r$668)
                    ((if r$668 (k$667 #\\) (k$667 #\space)))
                    #f))
                hexwalls$298
                south-west))
             #t))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(120
             (r$666)
             ((write-ch
                #((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(119
                    (r$658)
                    ((#((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(118
                          (k$664)
                          ((bit-test
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(117
                                 (r$665)
                                 ((if r$665 (k$664 #\_) (k$664 #\space)))
                                 #f))
                             hexwalls$298
                             south))
                          #t))
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(116
                          (r$663)
                          ((write-ch
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(115
                                 (r$659)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(114
                                       (k$661)
                                       ((bit-test
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(113
                                              (r$662)
                                              ((if r$662
                                                 (k$661 #\/)
                                                 (k$661 #\space)))
                                              #f))
                                          hexwalls$298
                                          south-east))
                                       #t))
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(112
                                       (r$660)
                                       ((write-ch k$657 r$660))
                                       #f))))
                                 #f))
                             r$663))
                          #f))))
                    #f))
                r$666))
             #f))))
       #t)))
 (define run
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(111
       (k$651 nrows$297 ncols$296)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(109
             (r$652)
             ((pmaze #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(108 (r$653) ((reverse k$651 output)) #f))
                     nrows$297
                     ncols$296))
             #f))
         (set! output '())))
       #t)))
 (define main
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(107
       (k$634)
       ((read #((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(105
                  (count$287)
                  ((read #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(103
                             (input1$288)
                             ((read #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(101
                                        (input2$289)
                                        ((read #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(99
                                                   (output$290)
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(97
                                                         (s3$291)
                                                         ((#((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(95
                                                               (s2$292)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(93
                                                                     (s1$293)
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(90
                                                                           (r$642)
                                                                           ((run-r7rs-benchmark
                                                                              k$634
                                                                              r$642
                                                                              count$287
                                                                              #((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(89
                                                                                  (k$646)
                                                                                  ((hide #((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(88
                                                                                             (r$647)
                                                                                             ((hide #((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(87
                                                                                                        (r$648)
                                                                                                        ((run k$646
                                                                                                              r$647
                                                                                                              r$648))
                                                                                                        #f))
                                                                                                    count$287
                                                                                                    input2$289))
                                                                                             #f))
                                                                                         count$287
                                                                                         input1$288))
                                                                                  #t))
                                                                              #((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(85
                                                                                  (k$645 result$295)
                                                                                  ((k$645 (equal?
                                                                                            result$295
                                                                                            output$290)))
                                                                                  #t))))
                                                                           #f))
                                                                       (string-append
                                                                         "maze"
                                                                         ":"
                                                                         s1$293
                                                                         ":"
                                                                         s2$292
                                                                         ":"
                                                                         s3$291)))
                                                                     #f))
                                                                 (number->string
                                                                   input1$288)))
                                                               #f))
                                                           (number->string
                                                             input2$289)))
                                                         #f))
                                                     (number->string
                                                       count$287)))
                                                   #f))))
                                        #f))))
                             #f))))
                  #f))))
       #t)))
 (define hide
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(83
       (k$620 r$283 x$282)
       ((call-with-values
          k$620
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(82
              (k$625)
              ((vector
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(79
                     (r$626)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(78
                           (k$628)
                           ((if (Cyc-fast-lt r$283 100) (k$628 0) (k$628 1)))
                           #t))
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(76 (r$627) ((values k$625 r$626 r$627)) #f))))
                     #f))
                 values
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(81 (k$631 x$286) ((k$631 x$286)) #t))))
              #t))
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(74
              (k$623 v$285 i$284)
              (((vector-ref v$285 i$284) k$623 x$282))
              #t))))
       #t)))
 (define run-r7rs-benchmark
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(71
       (k$568 name$264 count$263 thunk$262 ok?$261)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(70
             (rounded$266)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(64
                   (r$569)
                   ((display
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(63
                          (r$570)
                          ((display
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(62
                                 (r$571)
                                 ((newline
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(61
                                        (r$572)
                                        ((current-output-port
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(60
                                               (r$613)
                                               ((flush-output-port
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(59
                                                      (r$573)
                                                      ((jiffies-per-second
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(57
                                                             (j/s$268)
                                                             ((current-second
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(55
                                                                    (t0$269)
                                                                    ((current-jiffy
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(53
                                                                           (j0$270)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(50
                                                                                 (loop$273)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(5
                                                                                       (r$577)
                                                                                       ((loop$273
                                                                                          k$568
                                                                                          0
                                                                                          #f))
                                                                                       #f))
                                                                                   (set! loop$273
                                                                                     #((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(49
                                                                                         (k$579 i$275
                                                                                                result$274)
                                                                                         ((if (Cyc-fast-lt
                                                                                                i$275
                                                                                                count$263)
                                                                                            (thunk$262
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(7
                                                                                                  (r$582)
                                                                                                  ((loop$273
                                                                                                     k$579
                                                                                                     (Cyc-fast-plus
                                                                                                       i$275
                                                                                                       1)
                                                                                                     r$582))
                                                                                                  #f)))
                                                                                            (ok?$261
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(47
                                                                                                  (r$583)
                                                                                                  ((if r$583
                                                                                                     (current-jiffy
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(38
                                                                                                           (j1$276)
                                                                                                           ((current-second
                                                                                                              #((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(36
                                                                                                                  (t1$277)
                                                                                                                  ((rounded$266
                                                                                                                     #((record-marker)
                                                                                                                       #((record-marker)
                                                                                                                         #f
                                                                                                                         (id args
                                                                                                                             body
                                                                                                                             has-cont))
                                                                                                                       #(28
                                                                                                                         (secs2$280)
                                                                                                                         ((display
                                                                                                                            #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(26
                                                                                                                                (r$590)
                                                                                                                                ((write #((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(25
                                                                                                                                            (r$591)
                                                                                                                                            ((display
                                                                                                                                               #((record-marker)
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #f
                                                                                                                                                   (id args
                                                                                                                                                       body
                                                                                                                                                       has-cont))
                                                                                                                                                 #(24
                                                                                                                                                   (r$592)
                                                                                                                                                   ((write #((record-marker)
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #f
                                                                                                                                                               (id args
                                                                                                                                                                   body
                                                                                                                                                                   has-cont))
                                                                                                                                                             #(23
                                                                                                                                                               (r$593)
                                                                                                                                                               ((display
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #((record-marker)
                                                                                                                                                                      #f
                                                                                                                                                                      (id args
                                                                                                                                                                          body
                                                                                                                                                                          has-cont))
                                                                                                                                                                    #(22
                                                                                                                                                                      (r$594)
                                                                                                                                                                      ((display
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #((record-marker)
                                                                                                                                                                             #f
                                                                                                                                                                             (id args
                                                                                                                                                                                 body
                                                                                                                                                                                 has-cont))
                                                                                                                                                                           #(21
                                                                                                                                                                             (r$595)
                                                                                                                                                                             ((newline
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(20
                                                                                                                                                                                    (r$596)
                                                                                                                                                                                    ((display
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                           #f
                                                                                                                                                                                           (id args
                                                                                                                                                                                               body
                                                                                                                                                                                               has-cont))
                                                                                                                                                                                         #(19
                                                                                                                                                                                           (r$597)
                                                                                                                                                                                           ((this-scheme-implementation-name
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                  #f
                                                                                                                                                                                                  (id args
                                                                                                                                                                                                      body
                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                #(18
                                                                                                                                                                                                  (r$605)
                                                                                                                                                                                                  ((display
                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                         #f
                                                                                                                                                                                                         (id args
                                                                                                                                                                                                             body
                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                       #(17
                                                                                                                                                                                                         (r$598)
                                                                                                                                                                                                         ((display
                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                #f
                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                    body
                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                              #(16
                                                                                                                                                                                                                (r$599)
                                                                                                                                                                                                                ((display
                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                           body
                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                     #(15
                                                                                                                                                                                                                       (r$600)
                                                                                                                                                                                                                       ((display
                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                            #(14
                                                                                                                                                                                                                              (r$601)
                                                                                                                                                                                                                              ((display
                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                   #(13
                                                                                                                                                                                                                                     (r$602)
                                                                                                                                                                                                                                     ((newline
                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                          #(12
                                                                                                                                                                                                                                            (r$603)
                                                                                                                                                                                                                                            ((current-output-port
                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                 #(11
                                                                                                                                                                                                                                                   (r$604)
                                                                                                                                                                                                                                                   ((flush-output-port
                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                        #(10
                                                                                                                                                                                                                                                          (r$584)
                                                                                                                                                                                                                                                          ((k$579 result$274))
                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                      r$604))
                                                                                                                                                                                                                                                   #f))))
                                                                                                                                                                                                                                            #f))))
                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                 (inexact__inline__
                                                                                                                                                                                                                                   (Cyc-fast-div
                                                                                                                                                                                                                                     (Cyc-fast-sub
                                                                                                                                                                                                                                       j1$276
                                                                                                                                                                                                                                       j0$270)
                                                                                                                                                                                                                                     j/s$268))))
                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                          ","))
                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                   name$264))
                                                                                                                                                                                                                #f))
                                                                                                                                                                                                            ","))
                                                                                                                                                                                                         #f))
                                                                                                                                                                                                     r$605))
                                                                                                                                                                                                  #f))))
                                                                                                                                                                                           #f))
                                                                                                                                                                                       "+!CSVLINE!+"))
                                                                                                                                                                                    #f))))
                                                                                                                                                                             #f))
                                                                                                                                                                         name$264))
                                                                                                                                                                      #f))
                                                                                                                                                                  ") for "))
                                                                                                                                                               #f))
                                                                                                                                                           secs2$280))
                                                                                                                                                   #f))
                                                                                                                                               " seconds ("))
                                                                                                                                            #f))
                                                                                                                                        (inexact__inline__
                                                                                                                                          (Cyc-fast-div
                                                                                                                                            (Cyc-fast-sub
                                                                                                                                              j1$276
                                                                                                                                              j0$270)
                                                                                                                                            j/s$268))))
                                                                                                                                #f))
                                                                                                                            "Elapsed time: "))
                                                                                                                         #f))
                                                                                                                     (Cyc-fast-sub
                                                                                                                       t1$277
                                                                                                                       t0$269)))
                                                                                                                  #f))))
                                                                                                           #f)))
                                                                                                     (display
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(45
                                                                                                           (r$608)
                                                                                                           ((write #((record-marker)
                                                                                                                     #((record-marker)
                                                                                                                       #f
                                                                                                                       (id args
                                                                                                                           body
                                                                                                                           has-cont))
                                                                                                                     #(44
                                                                                                                       (r$609)
                                                                                                                       ((newline
                                                                                                                          #((record-marker)
                                                                                                                            #((record-marker)
                                                                                                                              #f
                                                                                                                              (id args
                                                                                                                                  body
                                                                                                                                  has-cont))
                                                                                                                            #(43
                                                                                                                              (r$610)
                                                                                                                              ((current-output-port
                                                                                                                                 #((record-marker)
                                                                                                                                   #((record-marker)
                                                                                                                                     #f
                                                                                                                                     (id args
                                                                                                                                         body
                                                                                                                                         has-cont))
                                                                                                                                   #(42
                                                                                                                                     (r$612)
                                                                                                                                     ((flush-output-port
                                                                                                                                        #((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(41
                                                                                                                                            (r$611)
                                                                                                                                            ((k$579 result$274))
                                                                                                                                            #f))
                                                                                                                                        r$612))
                                                                                                                                     #f))))
                                                                                                                              #f))))
                                                                                                                       #f))
                                                                                                                   result$274))
                                                                                                           #f))
                                                                                                       "ERROR: returned incorrect result: ")))
                                                                                                  #f))
                                                                                              result$274)))
                                                                                         #t)))))
                                                                                 #f))
                                                                             #f))
                                                                           #f))))
                                                                    #f))))
                                                             #f))))
                                                      #f))
                                                  r$613))
                                               #f))))
                                        #f))))
                                 #f))
                             name$264))
                          #f))
                      "Running "))
                   #f))
               (set! rounded$266
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(68
                     (k$615 x$281)
                     ((k$615 (Cyc-fast-div
                               (round__inline__ (Cyc-fast-mul 1000 x$281))
                               1000)))
                     #t)))))
             #f))
         #f))
       #t)))
 (define this-scheme-implementation-name
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(4
       (k$564)
       ((Cyc-version
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(3
              (r$565)
              ((k$564 (string-append "cyclone-" r$565)))
              #f))))
       #t)))
 (main %halt))
 */
/* 
"---------------- cps analysis db:"
 */
/* 
#((record-marker)
  #((record-marker)
    #f
    (size hash compare associate entries))
  #(1078
    #[procedure]
    #[procedure]
    #[procedure]
    #(()
      ()
      ()
      ((3
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((4
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((5
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((7
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((10
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((11
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((12
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((13
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$938 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 467 #f #f #f 2 (433 467) #f #f 1 1 #t #f #t)))
       (k$1131
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 638 #f #f #f 1 (638) #f #f 1 0 #t #f #t)))
       (14
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((15
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((16
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$1134
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 639 #f #f #f 1 (639) #f #f 1 0 #t #f #t)))
       (17
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((18
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((19
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$1137
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 640 #f #f #f 1 (640) #f #f 1 0 #t #f #t)))
       (20
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((21
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((path-length
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             561
             #f
             #f
             2
             (373 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(561
                  (k$1050 cell$449)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(558
                        (lp$105$452)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(553
                              (r$1052)
                              ((lp$105$452 k$1050 0 (vector-ref cell$449 4)))
                              #f))
                          (set! lp$105$452
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(557
                                (k$1054 len$454 node$453)
                                ((if node$453
                                   (lp$105$452
                                     k$1054
                                     (Cyc-fast-plus len$454 1)
                                     (vector-ref node$453 4))
                                   (k$1054 len$454)))
                                #t)))))
                        #f))
                    #f))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (22
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((23
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((24
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((25
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((26
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((y$551 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  764
                  #f
                  #f
                  #f
                  11
                  (760 760 760 760 760 760 760 760 760 760 763)
                  #f
                  #f
                  0
                  11
                  #t
                  #f
                  #f))))
      ((28
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ()
      ((y$557 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  781
                  #f
                  #f
                  #f
                  5
                  (780 778 775 770 778)
                  #f
                  #f
                  0
                  5
                  #f
                  #f
                  #f))))
      ()
      ((c$315 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  159
                  #f
                  #f
                  #f
                  5
                  (159 153 149 159 159)
                  #f
                  #f
                  0
                  5
                  #t
                  #f
                  #f))))
      ((36
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$645 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 85 #f #f #f 1 (85) #f #f 1 0 #t #f #t))))
      ((k$646 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 89 #f #f #f 1 (87) #f #f 0 1 #f #f #t)))
       (38
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((c$319 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  183
                  #f
                  #f
                  #f
                  5
                  (183 177 174 183 183)
                  #f
                  #f
                  0
                  5
                  #t
                  #f
                  #f))))
      ()
      ((41
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((42
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((43
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((dfs-maze
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             580
             #f
             #f
             2
             (392 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(580
                  (k$1067 maze$464 root$463 do-children$462)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(579
                        (node$466)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(578
                              (search$467)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(571
                                    (r$1068)
                                    ((search$467 k$1067 node$466 #f))
                                    #f))
                                (set! search$467
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(577
                                      (k$1070 node$469 parent$468)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(576
                                            (r$1071)
                                            ((do-children$462
                                               k$1070
                                               #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(575
                                                   (k$1073 child$470)
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(574
                                                         (r$1074)
                                                         ((if r$1074
                                                            (k$1073 #f)
                                                            (search$467
                                                              k$1073
                                                              child$470
                                                              node$469)))
                                                         #f))
                                                     (eq? child$470
                                                          parent$468)))
                                                   #t))
                                               maze$464
                                               node$469))
                                            #f))
                                        (vector-set! node$469 4 parent$468)))
                                      #t)))))
                              #f))
                          #f))
                        #f))
                    root$463))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (44
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((45
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((47
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$945 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 457 #f #f #f 2 (437 457) #f #f 1 1 #t #f #t))))
      ((49
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (loop$273) #f))))
      ((k$1140
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 641 #f #f #f 1 (641) #f #f 1 0 #t #f #t)))
       (50
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((k$1143
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 642 #f #f #f 1 (642) #f #f 1 0 #t #f #t)))
       (53
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((55
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (nrows$418
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             525
             #f
             #f
             #f
             3
             (525 494 493)
             #f
             #f
             0
             3
             #f
             #t
             #f))))
      ((k$1146
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 643 #f #f #f 1 (643) #f #f 1 0 #t #f #t)))
       (zero?__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             5
             (130 143 293 314 451)
             #f
             #f
             5
             0
             #t
             #f
             #f))))
      ((57
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((k$1149
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 645 #f #f #f 1 (645) #f #f 0 1 #t #f #t)))
       (59
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((60
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((61
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((62
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((63
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((64
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((68
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (rounded$266) #f))))
      ()
      ((k$651 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 111 #f #f #f 1 (108) #f #f 0 1 #f #f #t)))
       (70
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (c$323 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  219
                  #f
                  #f
                  #f
                  5
                  (211 206 215 219 219)
                  #f
                  #f
                  0
                  5
                  #t
                  #f
                  #f))))
      ((make-harr
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             543
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(543
                  (k$1038 nrows$443 ncols$442 elts$441)
                  ((vector
                     k$1038
                     'harr
                     nrows$443
                     ncols$442
                     elts$441))
                  #t)))
             0
             0
             #f
             #f
             #f)))
       (71
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((74
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (c$327 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  238
                  #f
                  #f
                  #f
                  4
                  (228 231 238 238)
                  #f
                  #f
                  0
                  4
                  #t
                  #f
                  #f))))
      ((thunk$262
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 71 #f #f #f 1 (49) #f #f 1 0 #f #f #f))))
      ((k$657 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 123 #f #f #f 1 (112) #f #f 0 1 #f #f #t)))
       (76
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$628) #f)))
       (c$329 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 251 #f #f #f 1 (251) #f #f 0 1 #t #f #f))))
      ()
      ((78
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((79
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((81
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$952 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  442
                  #f
                  #f
                  #f
                  2
                  (442 438)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(437
                      (r$947)
                      ((lp$136$408 k$945 (Cyc-fast-sub y$409 2)))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t)))
       (harr:ncols
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             540
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(540
                  (k$1032 o$439)
                  ((k$1032 (vector-ref o$439 2)))
                  #t)))
             0
             0
             #f
             #f
             #f)))
       (82
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((83
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((85
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((87
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((88
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (b$393 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 477 #f #f #f 1 (477) #f #f 0 1 #t #f #f))))
      ((89
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$959 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  451
                  #f
                  #f
                  #f
                  2
                  (447 451)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(446
                      (r$950)
                      ((href #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(444
                                 (r$957)
                                 ((add-wall$396
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(443
                                        (r$951)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(442
                                              (k$952)
                                              ((if (Cyc-fast-lt
                                                     x$405
                                                     (Cyc-fast-mul
                                                       3
                                                       (Cyc-fast-sub
                                                         (vector-ref harr$388 2)
                                                         1)))
                                                 (href #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(438
                                                           (r$954)
                                                           ((add-wall$396
                                                              k$952
                                                              hex$411
                                                              r$954
                                                              south-east))
                                                           #f))
                                                       harr$388
                                                       (Cyc-fast-plus x$405 3)
                                                       (Cyc-fast-sub y$409 1))
                                                 (k$952 #f)))
                                              #t))
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(437
                                              (r$947)
                                              ((lp$136$408
                                                 k$945
                                                 (Cyc-fast-sub y$409 2)))
                                              #f))))
                                        #f))
                                    hex$411
                                    r$957
                                    south))
                                 #f))
                             harr$388
                             x$405
                             (Cyc-fast-sub y$409 2)))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t))))
      ((90
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$1153
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 646 #f #f #f 1 (646) #f #f 1 0 #t #f #t))))
      ()
      ()
      ((93
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$1156
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 647 #f #f #f 1 (647) #f #f 1 0 #t #f #t)))
       (state$532
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 700 #f #f #f 1 (700) #f #f 0 1 #t #f #f))))
      ()
      ((95
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (state$534
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 717 #f #f #f 2 (717 703) #f #f 0 2 #f #t #f)))
       (v$482 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  622
                  #f
                  #f
                  #f
                  6
                  (622 616 612 611 610 605)
                  #f
                  #f
                  0
                  6
                  #f
                  #t
                  #f))))
      ((k$1159
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 648 #f #f #f 1 (648) #f #f 1 0 #t #f #t))))
      ((97
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((99
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((Cyc-version
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (4) #f #f 1 0 #f #f #f)))
       (101
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (get-set-root
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             696
             #f
             #f
             6
             (665 667 669 671 672 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(696
                  (k$1186 s$522)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(695
                        (r$523)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(694
                              (lp$524)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(673 (r$1187) ((lp$524 k$1186 r$523)) #f))
                                (set! lp$524
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(693
                                      (k$1189 r$525)
                                      ((if (pair? (cdr r$525))
                                         (lp$524 k$1189 (cdr r$525))
                                         (#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(688
                                              (k$1193)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(687
                                                    (r$1194)
                                                    ((if r$1194
                                                       (k$1193 #f)
                                                       (#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(686
                                                            (x$527)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(685
                                                                  (lp$528)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(677
                                                                        (r$1195)
                                                                        ((lp$528
                                                                           k$1193
                                                                           x$527))
                                                                        #f))
                                                                    (set! lp$528
                                                                      #((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(684
                                                                          (k$1197
                                                                            x$529)
                                                                          ((#((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(682
                                                                                (next$530)
                                                                                ((#((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(681
                                                                                      (r$1199)
                                                                                      ((if r$1199
                                                                                         (k$1197
                                                                                           #f)
                                                                                         (#((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(679
                                                                                              (r$1200)
                                                                                              ((lp$528
                                                                                                 k$1197
                                                                                                 next$530))
                                                                                              #f))
                                                                                          (set-cdr!
                                                                                            x$529
                                                                                            r$525))))
                                                                                      #f))
                                                                                  (eq? r$525
                                                                                       next$530)))
                                                                                #f))
                                                                            (cdr x$529)))
                                                                          #t)))))
                                                                  #f))
                                                              #f))
                                                            #f))
                                                        s$522)))
                                                    #f))
                                                (eq? r$525 s$522)))
                                              #t))
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(676
                                              (r$1192)
                                              ((k$1189 r$525))
                                              #f)))))
                                      #t)))))
                              #f))
                          #f))
                        #f))
                    s$522))
                  #t)))
             5
             0
             #f
             #f
             #f)))
       (v$488 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 635 #f #f #f 2 (630 623) #f #f 0 2 #t #f #f))))
      ()
      ((103
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((105
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((107
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$661 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  114
                  #f
                  #f
                  #f
                  2
                  (113 113)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(112 (r$660) ((write-ch k$657 r$660)) #f))
                  2
                  0
                  #f
                  #f
                  #t))))
      ((108
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((109
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$664 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  118
                  #f
                  #f
                  #f
                  2
                  (117 117)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(116
                      (r$663)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(115
                             (r$659)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(114
                                   (k$661)
                                   ((bit-test
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(113
                                          (r$662)
                                          ((if r$662
                                             (k$661 #\/)
                                             (k$661 #\space)))
                                          #f))
                                      hexwalls$298
                                      south-east))
                                   #t))
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(112 (r$660) ((write-ch k$657 r$660)) #f))))
                             #f))
                         r$663))
                      #f))
                  2
                  0
                  #f
                  #f
                  #t))))
      ((111
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((112
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$661) #t))))
      ((113
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$667 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  122
                  #f
                  #f
                  #f
                  2
                  (121 121)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(120
                      (r$666)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(119
                             (r$658)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(118
                                   (k$664)
                                   ((bit-test
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(117
                                          (r$665)
                                          ((if r$665
                                             (k$664 #\_)
                                             (k$664 #\space)))
                                          #f))
                                      hexwalls$298
                                      south))
                                   #t))
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(116
                                   (r$663)
                                   ((write-ch
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(115
                                          (r$659)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(114
                                                (k$661)
                                                ((bit-test
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(113
                                                       (r$662)
                                                       ((if r$662
                                                          (k$661 #\/)
                                                          (k$661 #\space)))
                                                       #f))
                                                   hexwalls$298
                                                   south-east))
                                                #t))
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(112
                                                (r$660)
                                                ((write-ch k$657 r$660))
                                                #f))))
                                          #f))
                                      r$663))
                                   #f))))
                             #f))
                         r$666))
                      #f))
                  2
                  0
                  #f
                  #f
                  #t))))
      ((114
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (exit-cell$343
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             269
             #f
             #f
             #f
             3
             (269 263 260)
             #f
             #f
             0
             3
             #f
             #t
             #f))))
      ((115
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((116
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$664) #t))))
      ((117
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((118
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (south-east
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             #f
             #f
             #f
             7
             (114 308 325 438 399 417 -1)
             #f
             (4)
             0
             6
             #f
             #f
             #f))))
      ((119
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((120
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$667) #t))))
      ((121
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((122
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (base-set
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             698
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(698
                  (k$1203 nelts$531)
                  ((k$1203 (cons nelts$531 '())))
                  #t)))
             0
             0
             #f
             #f
             #f)))
       (exit$333
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             252
             #f
             #f
             #f
             0
             ()
             #f
             (vector-ref result$332 2)
             0
             0
             #t
             #f
             #f))))
      ((123
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((124
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$673) #f))))
      ((125
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$968 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 477 #f #f #f 1 (475) #f #f 1 0 #t #f #t))))
      ((k$1162
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 650 #f #f #f 1 (650) #f #f 0 1 #t #f #t)))
       (rounded$266
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             70
             #f
             #f
             #f
             2
             (70 36)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(68
                 (k$615 x$281)
                 ((k$615 (Cyc-fast-div
                           (round__inline__ (Cyc-fast-mul 1000 x$281))
                           1000)))
                 #t))
             1
             0
             #t
             #f
             #f))))
      ((127
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((128
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((130
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$1166
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 667 #f #f #f 2 (653 651) #f #f 2 0 #t #f #t))))
      ((131
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((132
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((v$493 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 636 #f #f #f 1 (636) #f #f 0 1 #t #f #f))))
      ()
      ((135
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((136
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$706) #t)))
       (v$496 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 638 #f #f #f 1 (638) #f #f 0 1 #t #f #f))))
      ()
      ((138
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((v$499 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 640 #f #f #f 1 (640) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((143
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$671 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 128 #f #f #f 2 (124 124) #f #f 2 0 #t #f #t)))
       (144
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((145
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$673 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  127
                  #f
                  #f
                  #f
                  2
                  (127 125)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(124
                      (r$672)
                      ((if r$672 (k$671 #\.) (k$671 #\space)))
                      #f))
                  2
                  0
                  #t
                  #f
                  #t)))
       (146
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((print-hexmaze
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             249
             #f
             #f
             2
             (-1 252)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(249
                  (k$683 harr$305 entrance$304)
                  ((div #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(244
                            (r$773)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(239
                                  (lp$188$326)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(225
                                        (r$761)
                                        ((lp$188$326
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(224
                                               (r$687)
                                               ((write-ch
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(223
                                                      (r$688)
                                                      ((write-ch
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(222
                                                             (r$689)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(220
                                                                   (lp$192$322)
                                                                   ((#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(203
                                                                         (r$746)
                                                                         ((lp$192$322
                                                                            #((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(202
                                                                                (r$690)
                                                                                ((#((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(201
                                                                                      (k$740)
                                                                                      ((odd? #((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(200
                                                                                                 (r$741)
                                                                                                 ((if r$741
                                                                                                    (#((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(199
                                                                                                         (k$743)
                                                                                                         ((if (Cyc-fast-eq
                                                                                                                entrance$304
                                                                                                                (Cyc-fast-sub
                                                                                                                  (vector-ref
                                                                                                                    harr$305
                                                                                                                    2)
                                                                                                                  1))
                                                                                                            (k$743 #\space)
                                                                                                            (k$743 #\_)))
                                                                                                         #t))
                                                                                                     #((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(196
                                                                                                         (r$742)
                                                                                                         ((write-ch
                                                                                                            k$740
                                                                                                            r$742))
                                                                                                         #f)))
                                                                                                    (k$740 #f)))
                                                                                                 #f))
                                                                                             (vector-ref
                                                                                               harr$305
                                                                                               2)))
                                                                                      #t))
                                                                                  #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(195
                                                                                      (r$691)
                                                                                      ((write-ch
                                                                                         #((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(194
                                                                                             (r$692)
                                                                                             ((#((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(191
                                                                                                   (lp$196$310)
                                                                                                   ((#((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(132
                                                                                                         (r$694)
                                                                                                         ((lp$196$310
                                                                                                            k$683
                                                                                                            (Cyc-fast-sub
                                                                                                              (vector-ref
                                                                                                                harr$305
                                                                                                                1)
                                                                                                              1)))
                                                                                                         #f))
                                                                                                     (set! lp$196$310
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(190
                                                                                                           (k$696 r$311)
                                                                                                           ((if (Cyc-fast-lt
                                                                                                                  r$311
                                                                                                                  0)
                                                                                                              (k$696 (Cyc-fast-lt
                                                                                                                       r$311
                                                                                                                       0))
                                                                                                              (write-ch
                                                                                                                #((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(186
                                                                                                                    (r$698)
                                                                                                                    ((#((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(184
                                                                                                                          (lp$200$318)
                                                                                                                          ((#((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(171
                                                                                                                                (r$729)
                                                                                                                                ((lp$200$318
                                                                                                                                   #((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(170
                                                                                                                                       (r$699)
                                                                                                                                       ((#((record-marker)
                                                                                                                                           #((record-marker)
                                                                                                                                             #f
                                                                                                                                             (id args
                                                                                                                                                 body
                                                                                                                                                 has-cont))
                                                                                                                                           #(169
                                                                                                                                             (k$724)
                                                                                                                                             ((odd? #((record-marker)
                                                                                                                                                      #((record-marker)
                                                                                                                                                        #f
                                                                                                                                                        (id args
                                                                                                                                                            body
                                                                                                                                                            has-cont))
                                                                                                                                                      #(168
                                                                                                                                                        (r$725)
                                                                                                                                                        ((if r$725
                                                                                                                                                           (dot/space
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #((record-marker)
                                                                                                                                                                 #f
                                                                                                                                                                 (id args
                                                                                                                                                                     body
                                                                                                                                                                     has-cont))
                                                                                                                                                               #(165
                                                                                                                                                                 (r$727)
                                                                                                                                                                 ((write-ch
                                                                                                                                                                    #((record-marker)
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #f
                                                                                                                                                                        (id args
                                                                                                                                                                            body
                                                                                                                                                                            has-cont))
                                                                                                                                                                      #(164
                                                                                                                                                                        (r$726)
                                                                                                                                                                        ((write-ch
                                                                                                                                                                           k$724
                                                                                                                                                                           #\\))
                                                                                                                                                                        #f))
                                                                                                                                                                    r$727))
                                                                                                                                                                 #f))
                                                                                                                                                             harr$305
                                                                                                                                                             r$311
                                                                                                                                                             (Cyc-fast-sub
                                                                                                                                                               (vector-ref
                                                                                                                                                                 harr$305
                                                                                                                                                                 2)
                                                                                                                                                               1))
                                                                                                                                                           (k$724 #f)))
                                                                                                                                                        #f))
                                                                                                                                                    (vector-ref
                                                                                                                                                      harr$305
                                                                                                                                                      2)))
                                                                                                                                             #t))
                                                                                                                                         #((record-marker)
                                                                                                                                           #((record-marker)
                                                                                                                                             #f
                                                                                                                                             (id args
                                                                                                                                                 body
                                                                                                                                                 has-cont))
                                                                                                                                           #(163
                                                                                                                                             (r$700)
                                                                                                                                             ((write-ch
                                                                                                                                                #((record-marker)
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #f
                                                                                                                                                    (id args
                                                                                                                                                        body
                                                                                                                                                        has-cont))
                                                                                                                                                  #(162
                                                                                                                                                    (r$701)
                                                                                                                                                    ((#((record-marker)
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #f
                                                                                                                                                          (id args
                                                                                                                                                              body
                                                                                                                                                              has-cont))
                                                                                                                                                        #(160
                                                                                                                                                          (lp$207$314)
                                                                                                                                                          ((#((record-marker)
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #f
                                                                                                                                                                (id args
                                                                                                                                                                    body
                                                                                                                                                                    has-cont))
                                                                                                                                                              #(146
                                                                                                                                                                (r$712)
                                                                                                                                                                ((lp$207$314
                                                                                                                                                                   #((record-marker)
                                                                                                                                                                     #((record-marker)
                                                                                                                                                                       #f
                                                                                                                                                                       (id args
                                                                                                                                                                           body
                                                                                                                                                                           has-cont))
                                                                                                                                                                     #(145
                                                                                                                                                                       (r$702)
                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                           #((record-marker)
                                                                                                                                                                             #f
                                                                                                                                                                             (id args
                                                                                                                                                                                 body
                                                                                                                                                                                 has-cont))
                                                                                                                                                                           #(144
                                                                                                                                                                             (k$706)
                                                                                                                                                                             ((odd? #((record-marker)
                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                        #f
                                                                                                                                                                                        (id args
                                                                                                                                                                                            body
                                                                                                                                                                                            has-cont))
                                                                                                                                                                                      #(143
                                                                                                                                                                                        (r$707)
                                                                                                                                                                                        ((if r$707
                                                                                                                                                                                           (href/rc
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                 #f
                                                                                                                                                                                                 (id args
                                                                                                                                                                                                     body
                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                               #(138
                                                                                                                                                                                                 (r$709)
                                                                                                                                                                                                 ((display-hexbottom
                                                                                                                                                                                                    k$706
                                                                                                                                                                                                    (vector-ref
                                                                                                                                                                                                      r$709
                                                                                                                                                                                                      3)))
                                                                                                                                                                                                 #f))
                                                                                                                                                                                             harr$305
                                                                                                                                                                                             r$311
                                                                                                                                                                                             (Cyc-fast-sub
                                                                                                                                                                                               (vector-ref
                                                                                                                                                                                                 harr$305
                                                                                                                                                                                                 2)
                                                                                                                                                                                               1))
                                                                                                                                                                                           (if (zero?__inline__
                                                                                                                                                                                                 r$311)
                                                                                                                                                                                             (k$706 #f)
                                                                                                                                                                                             (write-ch
                                                                                                                                                                                               k$706
                                                                                                                                                                                               #\\))))
                                                                                                                                                                                        #f))
                                                                                                                                                                                    (vector-ref
                                                                                                                                                                                      harr$305
                                                                                                                                                                                      2)))
                                                                                                                                                                             #t))
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #((record-marker)
                                                                                                                                                                             #f
                                                                                                                                                                             (id args
                                                                                                                                                                                 body
                                                                                                                                                                                 has-cont))
                                                                                                                                                                           #(136
                                                                                                                                                                             (r$703)
                                                                                                                                                                             ((write-ch
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(135
                                                                                                                                                                                    (r$704)
                                                                                                                                                                                    ((lp$196$310
                                                                                                                                                                                       k$696
                                                                                                                                                                                       (Cyc-fast-sub
                                                                                                                                                                                         r$311
                                                                                                                                                                                         1)))
                                                                                                                                                                                    #f))
                                                                                                                                                                                #\newline))
                                                                                                                                                                             #f))))
                                                                                                                                                                       #f))
                                                                                                                                                                   0))
                                                                                                                                                                #f))
                                                                                                                                                            (set! lp$207$314
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(159
                                                                                                                                                                  (k$714 c$315)
                                                                                                                                                                  ((if (Cyc-fast-gte
                                                                                                                                                                         c$315
                                                                                                                                                                         (Cyc-fast-mul
                                                                                                                                                                           2
                                                                                                                                                                           r$773))
                                                                                                                                                                     (k$714 (Cyc-fast-gte
                                                                                                                                                                              c$315
                                                                                                                                                                              (Cyc-fast-mul
                                                                                                                                                                                2
                                                                                                                                                                                r$773)))
                                                                                                                                                                     (href/rc
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #f
                                                                                                                                                                           (id args
                                                                                                                                                                               body
                                                                                                                                                                               has-cont))
                                                                                                                                                                         #(155
                                                                                                                                                                           (r$723)
                                                                                                                                                                           ((display-hexbottom
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(153
                                                                                                                                                                                  (r$716)
                                                                                                                                                                                  ((dot/space
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(150
                                                                                                                                                                                         (r$719)
                                                                                                                                                                                         ((write-ch
                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #f
                                                                                                                                                                                                (id args
                                                                                                                                                                                                    body
                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                              #(149
                                                                                                                                                                                                (r$717)
                                                                                                                                                                                                ((lp$207$314
                                                                                                                                                                                                   k$714
                                                                                                                                                                                                   (Cyc-fast-plus
                                                                                                                                                                                                     c$315
                                                                                                                                                                                                     2)))
                                                                                                                                                                                                #f))
                                                                                                                                                                                            r$719))
                                                                                                                                                                                         #f))
                                                                                                                                                                                     harr$305
                                                                                                                                                                                     (Cyc-fast-sub
                                                                                                                                                                                       r$311
                                                                                                                                                                                       1)
                                                                                                                                                                                     (Cyc-fast-plus
                                                                                                                                                                                       c$315
                                                                                                                                                                                       1)))
                                                                                                                                                                                  #f))
                                                                                                                                                                              (vector-ref
                                                                                                                                                                                r$723
                                                                                                                                                                                3)))
                                                                                                                                                                           #f))
                                                                                                                                                                       harr$305
                                                                                                                                                                       r$311
                                                                                                                                                                       c$315)))
                                                                                                                                                                  #t)))))
                                                                                                                                                          #f))
                                                                                                                                                      #f))
                                                                                                                                                    #f))
                                                                                                                                                #\newline))
                                                                                                                                             #f))))
                                                                                                                                       #f))
                                                                                                                                   1))
                                                                                                                                #f))
                                                                                                                            (set! lp$200$318
                                                                                                                              #((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(183
                                                                                                                                  (k$731 c$319)
                                                                                                                                  ((if (Cyc-fast-gte
                                                                                                                                         c$319
                                                                                                                                         (Cyc-fast-mul
                                                                                                                                           2
                                                                                                                                           r$773))
                                                                                                                                     (k$731 (Cyc-fast-gte
                                                                                                                                              c$319
                                                                                                                                              (Cyc-fast-mul
                                                                                                                                                2
                                                                                                                                                r$773)))
                                                                                                                                     (dot/space
                                                                                                                                       #((record-marker)
                                                                                                                                         #((record-marker)
                                                                                                                                           #f
                                                                                                                                           (id args
                                                                                                                                               body
                                                                                                                                               has-cont))
                                                                                                                                         #(178
                                                                                                                                           (r$738)
                                                                                                                                           ((write-ch
                                                                                                                                              #((record-marker)
                                                                                                                                                #((record-marker)
                                                                                                                                                  #f
                                                                                                                                                  (id args
                                                                                                                                                      body
                                                                                                                                                      has-cont))
                                                                                                                                                #(177
                                                                                                                                                  (r$733)
                                                                                                                                                  ((href/rc
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #f
                                                                                                                                                         (id args
                                                                                                                                                             body
                                                                                                                                                             has-cont))
                                                                                                                                                       #(176
                                                                                                                                                         (r$737)
                                                                                                                                                         ((display-hexbottom
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #f
                                                                                                                                                                (id args
                                                                                                                                                                    body
                                                                                                                                                                    has-cont))
                                                                                                                                                              #(174
                                                                                                                                                                (r$734)
                                                                                                                                                                ((lp$200$318
                                                                                                                                                                   k$731
                                                                                                                                                                   (Cyc-fast-plus
                                                                                                                                                                     c$319
                                                                                                                                                                     2)))
                                                                                                                                                                #f))
                                                                                                                                                            (vector-ref
                                                                                                                                                              r$737
                                                                                                                                                              3)))
                                                                                                                                                         #f))
                                                                                                                                                     harr$305
                                                                                                                                                     r$311
                                                                                                                                                     c$319))
                                                                                                                                                  #f))
                                                                                                                                              r$738))
                                                                                                                                           #f))
                                                                                                                                       harr$305
                                                                                                                                       r$311
                                                                                                                                       (Cyc-fast-sub
                                                                                                                                         c$319
                                                                                                                                         1))))
                                                                                                                                  #t)))))
                                                                                                                          #f))
                                                                                                                      #f))
                                                                                                                    #f))
                                                                                                                #\/)))
                                                                                                           #t)))))
                                                                                                   #f))
                                                                                               #f))
                                                                                             #f))
                                                                                         #\newline))
                                                                                      #f))))
                                                                                #f))
                                                                            0))
                                                                         #f))
                                                                     (set! lp$192$322
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(219
                                                                           (k$748 c$323)
                                                                           ((if (Cyc-fast-gte
                                                                                  c$323
                                                                                  (Cyc-fast-mul
                                                                                    2
                                                                                    r$773))
                                                                              (k$748 (Cyc-fast-gte
                                                                                       c$323
                                                                                       (Cyc-fast-mul
                                                                                         2
                                                                                         r$773)))
                                                                              (#((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(215
                                                                                   (k$759)
                                                                                   ((if (Cyc-fast-eq
                                                                                          c$323
                                                                                          entrance$304)
                                                                                      (k$759 #\space)
                                                                                      (k$759 #\_)))
                                                                                   #t))
                                                                               #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(213
                                                                                   (r$758)
                                                                                   ((write-ch
                                                                                      #((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(212
                                                                                          (r$750)
                                                                                          ((write-ch
                                                                                             #((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(211
                                                                                                 (r$751)
                                                                                                 ((dot/space
                                                                                                    #((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(208
                                                                                                        (r$755)
                                                                                                        ((write-ch
                                                                                                           #((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(207
                                                                                                               (r$752)
                                                                                                               ((write-ch
                                                                                                                  #((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(206
                                                                                                                      (r$753)
                                                                                                                      ((lp$192$322
                                                                                                                         k$748
                                                                                                                         (Cyc-fast-plus
                                                                                                                           c$323
                                                                                                                           2)))
                                                                                                                      #f))
                                                                                                                  #\\))
                                                                                                               #f))
                                                                                                           r$755))
                                                                                                        #f))
                                                                                                    harr$305
                                                                                                    (Cyc-fast-sub
                                                                                                      (vector-ref
                                                                                                        harr$305
                                                                                                        1)
                                                                                                      1)
                                                                                                    (Cyc-fast-plus
                                                                                                      c$323
                                                                                                      1)))
                                                                                                 #f))
                                                                                             #\/))
                                                                                          #f))
                                                                                      r$758))
                                                                                   #f)))))
                                                                           #t)))))
                                                                   #f))
                                                               #f))
                                                             #f))
                                                         #\space))
                                                      #f))
                                                  #\newline))
                                               #f))
                                           1))
                                        #f))
                                    (set! lp$188$326
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(238
                                          (k$763 c$327)
                                          ((if (Cyc-fast-gte
                                                 c$327
                                                 (vector-ref harr$305 2))
                                             (k$763 (Cyc-fast-gte
                                                      c$327
                                                      (vector-ref harr$305 2)))
                                             (write-ch
                                               #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(234
                                                   (r$765)
                                                   ((write-ch
                                                      #((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(233
                                                          (r$766)
                                                          ((write-ch
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(232
                                                                 (r$767)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(231
                                                                       (k$771)
                                                                       ((if (Cyc-fast-eq
                                                                              c$327
                                                                              entrance$304)
                                                                          (k$771 #\space)
                                                                          (k$771 #\_)))
                                                                       #t))
                                                                   #((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(229
                                                                       (r$770)
                                                                       ((write-ch
                                                                          #((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(228
                                                                              (r$768)
                                                                              ((lp$188$326
                                                                                 k$763
                                                                                 (Cyc-fast-plus
                                                                                   c$327
                                                                                   2)))
                                                                              #f))
                                                                          r$770))
                                                                       #f))))
                                                                 #f))
                                                             #\space))
                                                          #f))
                                                      #\space))
                                                   #f))
                                               #\space)))
                                          #t)))))
                                  #f))
                              #f))
                            #f))
                        (vector-ref harr$305 2)
                        2))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((149
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((150
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$678 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 131 #f #f #f 1 (130) #f #f 1 0 #t #f #t))))
      ()
      ((153
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((155
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((rand .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 717
                 #f
                 #f
                 2
                 (700 -1)
                 #f
                 (#((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(717
                      (k$1211 state$534)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(715
                            (seed$539)
                            ((div #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(713
                                      (hi$540)
                                      ((mod #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(711
                                                (lo$541)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(706
                                                      (k$1218)
                                                      ((if (Cyc-fast-gt
                                                             (Cyc-fast-sub
                                                               (Cyc-fast-mul
                                                                 2813
                                                                 lo$541)
                                                               (Cyc-fast-mul
                                                                 2699
                                                                 hi$540))
                                                             0)
                                                         (k$1218
                                                           (Cyc-fast-sub
                                                             (Cyc-fast-mul
                                                               2813
                                                               lo$541)
                                                             (Cyc-fast-mul
                                                               2699
                                                               hi$540)))
                                                         (k$1218
                                                           (Cyc-fast-plus
                                                             (Cyc-fast-sub
                                                               (Cyc-fast-mul
                                                                 2813
                                                                 lo$541)
                                                               (Cyc-fast-mul
                                                                 2699
                                                                 hi$540))
                                                             8388607))))
                                                      #t))
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(703
                                                      (val$543)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(701
                                                            (r$1217)
                                                            ((k$1211 val$543))
                                                            #f))
                                                        (set-car!
                                                          state$534
                                                          val$543)))
                                                      #f))))
                                                #f))
                                            seed$539
                                            2787))
                                      #f))
                                  seed$539
                                  2787))
                            #f))
                        (car state$534)))
                      #t)))
                 1
                 0
                 #f
                 #f
                 #f))))
      ()
      ((k$974 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 492 #f #f #f 1 (492) #f #f 0 1 #t #f #t))))
      ((159
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$207$314) #t))))
      ((160
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$976 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 491 #f #f #f 1 (491) #f #f 0 1 #t #f #t))))
      ((nrows$443
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 543 #f #f #f 1 (543) #f #f 0 1 #t #f #f))))
      ((162
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((163
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$724) #t))))
      ((164
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((165
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((href/rc
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             530
             #f
             #f
             10
             (127 177 159 143 267 274 374 383 393 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(530
                  (k$1013 ha$432 r$431 c$430)
                  ((k$1013
                     (vector-ref
                       (vector-ref ha$432 3)
                       (Cyc-fast-plus
                         (Cyc-fast-mul (vector-ref ha$432 2) r$431)
                         c$430))))
                  #t)))
             9
             0
             #f
             #f
             #f))))
      ((168
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$1177
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 669 #f #f #f 1 (668) #f #f 1 0 #t #f #t))))
      ((169
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((170
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((171
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((174
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((176
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((177
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((178
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (dig-maze
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             604
             #f
             #f
             2
             (279 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(604
                  (k$1077 walls$472 ncells$471)
                  ((call-with-current-continuation
                     k$1077
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(603
                         (k$1079 quit$473)
                         ((vector-for-each-rev
                            k$1079
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(602
                                (k$1081 wall$474)
                                ((set-equal?
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(592
                                       (r$1086)
                                       ((if r$1086
                                          (k$1081 #f)
                                          (bitwise-not
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(589
                                                (r$1088)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(588
                                                      (walls$480 wall-mask$479)
                                                      ((union!
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(587
                                                             (r$1089)
                                                             ((bitwise-and
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(586
                                                                    (r$1093)
                                                                    ((#((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(585
                                                                          (r$1090)
                                                                          ((set-size
                                                                             #((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(584
                                                                                 (r$1092)
                                                                                 ((if (Cyc-fast-eq
                                                                                        r$1092
                                                                                        ncells$471)
                                                                                    (quit$473
                                                                                      k$1081
                                                                                      #f)
                                                                                    (k$1081
                                                                                      #f)))
                                                                                 #f))
                                                                             (vector-ref
                                                                               (vector-ref
                                                                                 wall$474
                                                                                 1)
                                                                               1)))
                                                                          #f))
                                                                      (vector-set!
                                                                        (vector-ref
                                                                          wall$474
                                                                          1)
                                                                        3
                                                                        r$1093)))
                                                                    #f))
                                                                walls$480
                                                                wall-mask$479))
                                                             #f))
                                                         (vector-ref
                                                           (vector-ref
                                                             wall$474
                                                             1)
                                                           1)
                                                         (vector-ref
                                                           (vector-ref
                                                             wall$474
                                                             2)
                                                           1)))
                                                      #f))
                                                  (vector-ref
                                                    (vector-ref wall$474 1)
                                                    3)
                                                  r$1088))
                                                #f))
                                            (vector-ref wall$474 3))))
                                       #f))
                                   (vector-ref (vector-ref wall$474 1) 1)
                                   (vector-ref (vector-ref wall$474 2) 1)))
                                #t))
                            walls$472))
                         #t))))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ((183
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$200$318) #t)))
       (k$683 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 249 #f #f #f 1 (132) #f #f 0 1 #f #f #t))))
      ((184
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((186
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((run .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                -1
                111
                #f
                #f
                2
                (87 -1)
                #f
                (#((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(111
                     (k$651 nrows$297 ncols$296)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(109
                           (r$652)
                           ((pmaze #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(108 (r$653) ((reverse k$651 output)) #f))
                                   nrows$297
                                   ncols$296))
                           #f))
                       (set! output '())))
                     #t)))
                1
                0
                #f
                #f
                #f)))
       (cell$449
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 561 #f #f #f 1 (553) #f #f 0 1 #t #f #f))))
      ()
      ((190
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$196$310) #t))))
      ((191
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((194
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((195
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$740) #t))))
      ((196
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$743) #t))))
      ((cell:parent
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             639
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(639
                  (k$1134 o$498)
                  ((k$1134 (vector-ref o$498 4)))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ((k$987 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 525 #f #f #f 1 (493) #f #f 0 1 #f #f #t))))
      ((199
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$1181
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 672 #f #f #f 1 (670) #f #f 1 0 #t #f #t))))
      ((200
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((201
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((202
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((203
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (vector
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             10
             (82 259 374 383 477 491 493 543 645 650)
             #f
             #f
             10
             0
             #f
             #f
             #f))))
      ((k$1186
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 696 #f #f #f 1 (673) #f #f 0 1 #f #f #t))))
      ((r$1200
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             679
             #f
             #f
             #f
             0
             ()
             #f
             (set-cdr! x$529 r$525)
             0
             0
             #t
             #f
             #f))))
      ((206
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((207
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$1189
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 693 #f #f #f 2 (676 693) #f #f 1 1 #t #f #t))))
      ((208
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((211
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((212
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((213
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$759) #t)))
       (r$1208
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 699 #f #f #f 1 (699) #f #f 0 1 #t #f #f)))
       (r$800 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  259
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (vector-set! exit-cell$343 3 r$801)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$801 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 260 #f #f #f 1 (260) #f #f 0 1 #t #f #f))))
      ((215
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$802 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 261 #f #f #f 1 (261) #f #f 0 1 #t #f #f))))
      ((r$803 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 264 #f #f #f 1 (264) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((219
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$192$322) #t)))
       (r$806 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 282 #f #f #f 1 (282) #f #f 0 1 #t #f #f))))
      ((220
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((222
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$696 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 190 #f #f #f 2 (135 190) #f #f 1 1 #t #f #t)))
       (223
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (proc$489
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 635 #f #f #f 1 (630) #f #f 1 0 #f #f #f))))
      ((224
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((225
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((228
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((229
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$771) #t))))
      ()
      ((231
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$993 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 518 #f #f #f 2 (497 518) #f #f 1 1 #t #f #t))))
      ((232
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (bit$302
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 131 #f #f #f 1 (131) #f #f 0 1 #t #f #f))))
      ((233
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((234
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((string-append
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (3 93) #f #f 2 0 #t #f #f))))
      ()
      ()
      ((238
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$188$326) #t)))
       (k$1193
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             688
             #f
             #f
             #f
             2
             (677 687)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(676 (r$1192) ((k$1189 r$525)) #f))
             1
             1
             #f
             #f
             #t))))
      ((239
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((k$1197
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 684 #f #f #f 2 (679 681) #f #f 1 1 #t #f #t))))
      ()
      ((244
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((set-car!
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             3
             (653 651 703)
             #f
             #f
             3
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((249
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1217
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             701
             #f
             #f
             #f
             0
             ()
             #f
             (set-car! state$534 val$543)
             0
             0
             #t
             #f
             #f))))
      ((250
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((251
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((252
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((256
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (set-cdr!
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             3
             (659 659 681)
             #f
             #f
             3
             0
             #t
             #f
             #f))))
      ()
      ((258
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((259
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$819 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 331 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((260
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((261
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r1$514
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             665
             #f
             #f
             #f
             4
             (663 659 659 651)
             #f
             #f
             0
             4
             #f
             #t
             #f))))
      ((262
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((263
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((264
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((267
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (exit$370
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 384 #f #f #f 2 (379 383) #f #f 0 2 #f #f #f))))
      ()
      ((269
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((exit$375
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             377
             #f
             #f
             #f
             1
             (366)
             #f
             exit$370
             0
             1
             #f
             #f
             #f))))
      ()
      ((274
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((276
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (z$559 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  772
                  #f
                  #f
                  #f
                  4
                  (769 769 769 769)
                  #f
                  #f
                  0
                  4
                  #t
                  #f
                  #f)))
       (quotient__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             11
             (737 737 737 737 760 760 760 760 760 760 760)
             #f
             #f
             11
             0
             #t
             #f
             #f))))
      ((o$438 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 539 #f #f #f 1 (539) #f #f 0 1 #t #f #f))))
      ((o$439 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 540 #f #f #f 1 (540) #f #f 0 1 #t #f #f))))
      ((279
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$523 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 695 #f #f #f 1 (673) #f s$522 0 1 #f #f #f)))
       (x$400 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  409
                  #f
                  #f
                  #f
                  7
                  (409 405 402 401 398 409 409)
                  #f
                  #f
                  0
                  7
                  #t
                  #f
                  #f))))
      ()
      ((r$525 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  693
                  #f
                  #f
                  #f
                  6
                  (676 688 682 681 693 693)
                  #f
                  #f
                  0
                  6
                  #t
                  #f
                  #f))))
      ((282
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((283
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((x$405 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  467
                  #f
                  #f
                  #f
                  10
                  (467 457 446 442 442 451 451 433 467 467)
                  #f
                  #f
                  0
                  10
                  #t
                  #f
                  #f)))
       (ncols$330
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 258 #f #f #f 1 (258) #f #f 0 1 #t #f #f))))
      ((285
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((286
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((287
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1228
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 737 #f #f #f 1 (737) #f #f 0 0 #t #f #f)))
       (tp-lp$368
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             385
             #f
             #f
             #f
             3
             (364 385 357)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(384
                 (k$876 max-len$372
                        entrance$371
                        exit$370
                        tcol$369)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(383
                       (r$877)
                       ((if r$877
                          (vector k$876 entrance$371 exit$370)
                          (href/rc
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(380
                                (top-cell$373)
                                ((reroot-maze
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(379
                                       (r$879)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(377
                                             (max-len$377
                                               entrance$376
                                               exit$375
                                               bcol$374)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(376
                                                   (bt-lp$378)
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(366
                                                         (r$886)
                                                         ((bt-lp$378
                                                            #((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(364
                                                                (result$384)
                                                                ((tp-lp$368
                                                                   k$876
                                                                   (vector-ref
                                                                     result$384
                                                                     0)
                                                                   (vector-ref
                                                                     result$384
                                                                     1)
                                                                   (vector-ref
                                                                     result$384
                                                                     2)
                                                                   (Cyc-fast-sub
                                                                     tcol$369
                                                                     1)))
                                                                #f))
                                                            max-len$377
                                                            entrance$376
                                                            exit$375
                                                            bcol$374))
                                                         #f))
                                                     (set! bt-lp$378
                                                       #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(375
                                                           (k$888 max-len$382
                                                                  entrance$381
                                                                  exit$380
                                                                  bcol$379)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(374
                                                                 (r$889)
                                                                 ((if r$889
                                                                    (vector
                                                                      k$888
                                                                      max-len$382
                                                                      entrance$381
                                                                      exit$380)
                                                                    (href/rc
                                                                      #((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(373
                                                                          (r$894)
                                                                          ((path-length
                                                                             #((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(371
                                                                                 (this-len$383)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(370
                                                                                       (r$891)
                                                                                       ((if r$891
                                                                                          (#((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(368
                                                                                               (r$892)
                                                                                               ((bt-lp$378
                                                                                                  k$888
                                                                                                  this-len$383
                                                                                                  tcol$369
                                                                                                  bcol$379
                                                                                                  r$892))
                                                                                               #f))
                                                                                           (Cyc-fast-sub
                                                                                             bcol$379
                                                                                             1))
                                                                                          (bt-lp$378
                                                                                            k$888
                                                                                            max-len$382
                                                                                            entrance$381
                                                                                            exit$380
                                                                                            (Cyc-fast-sub
                                                                                              bcol$379
                                                                                              1))))
                                                                                       #f))
                                                                                   (Cyc-fast-gt
                                                                                     this-len$383
                                                                                     max-len$382)))
                                                                                 #f))
                                                                             r$894))
                                                                          #f))
                                                                      harr$361
                                                                      0
                                                                      bcol$379)))
                                                                 #f))
                                                             (Cyc-fast-lt
                                                               bcol$379
                                                               0)))
                                                           #t)))))
                                                   #f))
                                               #f))
                                             #f))
                                         max-len$372
                                         entrance$371
                                         exit$370
                                         (Cyc-fast-sub ncols$362 1)))
                                       #f))
                                   top-cell$373))
                                #f))
                            harr$361
                            (Cyc-fast-sub nrows$363 1)
                            tcol$369)))
                       #f))
                   (Cyc-fast-lt tcol$369 0)))
                 #t))
             2
             0
             #f
             #f
             #f)))
       (r$820 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 326 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((pmaze .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  -1
                  258
                  #f
                  #f
                  2
                  (109 -1)
                  #f
                  (#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(258
                       (k$782 nrows$331 ncols$330)
                       ((make-maze
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(256
                              (result$332)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(252
                                    (cells$335 entrance$334 exit$333)
                                    ((print-hexmaze
                                       k$782
                                       cells$335
                                       entrance$334))
                                    #f))
                                (vector-ref result$332 0)
                                (vector-ref result$332 1)
                                (vector-ref result$332 2)))
                              #f))
                          nrows$331
                          ncols$330))
                       #t)))
                  1
                  0
                  #f
                  #f
                  #f)))
       (288
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$821 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 320 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$822 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 306 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$823 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 298 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (ncols$336
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 285 #f #f #f 2 (285 279) #f #f 0 2 #t #f #f))))
      ((reachable$505
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 645 #f #f #f 1 (645) #f #f 0 1 #t #f #f)))
       (r$824 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 292 #f #f #f 1 (292) #f #f 0 0 #t #f #f))))
      ((292
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$830) #f)))
       (lp$188$326
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             239
             #f
             #f
             #f
             3
             (228 239 225)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(238
                 (k$763 c$327)
                 ((if (Cyc-fast-gte c$327 (vector-ref harr$305 2))
                    (k$763 (Cyc-fast-gte c$327 (vector-ref harr$305 2)))
                    (write-ch
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(234
                          (r$765)
                          ((write-ch
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(233
                                 (r$766)
                                 ((write-ch
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(232
                                        (r$767)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(231
                                              (k$771)
                                              ((if (Cyc-fast-eq
                                                     c$327
                                                     entrance$304)
                                                 (k$771 #\space)
                                                 (k$771 #\_)))
                                              #t))
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(229
                                              (r$770)
                                              ((write-ch
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(228
                                                     (r$768)
                                                     ((lp$188$326
                                                        k$763
                                                        (Cyc-fast-plus
                                                          c$327
                                                          2)))
                                                     #f))
                                                 r$770))
                                              #f))))
                                        #f))
                                    #\space))
                                 #f))
                             #\space))
                          #f))
                      #\space)))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((293
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$826 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 286 #f #f #f 1 (286) #f #f 0 0 #t #f #f))))
      ((r$827 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  287
                  #f
                  #f
                  #f
                  1
                  (287)
                  #f
                  (vector-ref ne$356 3)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ((297
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((298
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$834) #f))))
      ((299
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((300
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((301
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((exit$380
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 375 #f #f #f 2 (370 374) #f #f 0 2 #f #f #f))))
      ((305
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((306
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$840) #f)))
       (o$440 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 541 #f #f #f 1 (541) #f #f 0 1 #t #f #f))))
      ((307
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((308
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((309
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ((313
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$847) #f))))
      ((314
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((reroot-maze
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             570
             #f
             #f
             3
             (264 380 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(570
                  (k$1059 new-root$455)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(569
                        (node$457)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(568
                              (lp$458)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(562
                                    (r$1060)
                                    ((lp$458 k$1059 node$457 #f))
                                    #f))
                                (set! lp$458
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(567
                                      (k$1062 node$460 new-parent$459)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(565
                                            (old-parent$461)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(564
                                                  (r$1064)
                                                  ((if old-parent$461
                                                     (lp$458
                                                       k$1062
                                                       old-parent$461
                                                       node$460)
                                                     (k$1062 #f)))
                                                  #f))
                                              (vector-set!
                                                node$460
                                                4
                                                new-parent$459)))
                                            #f))
                                        (vector-ref node$460 4)))
                                      #t)))))
                              #f))
                          #f))
                        #f))
                    new-root$455))
                  #t)))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ((318
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((319
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((320
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$851) #f))))
      ((321
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (x$415 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 491 #f #f #f 1 (491) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((324
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((325
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((326
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$856) #f))))
      ((327
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$833 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 293 #f #f #f 1 (293) #f #f 0 1 #t #f #f))))
      ()
      ((329
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((330
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((331
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$860) #f)))
       (r$837 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 299 #f #f #f 1 (299) #f #f 0 0 #t #f #f))))
      ((332
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$838 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  300
                  #f
                  #f
                  #f
                  1
                  (300)
                  #f
                  (vector-ref n$358 3)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ((i$275 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 49 #f #f #f 2 (7 49) #f #f 0 2 #t #f #f))))
      ((335
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((336
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((wall-mask$479
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 588 #f #f #f 1 (587) #f r$1088 0 1 #t #f #f))))
      ((quit$473
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 603 #f #f #f 1 (584) #f #f 1 0 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((356
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((357
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1244
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 760 #f #f #f 1 (760) #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ((r$841 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 313 #f #f #f 1 (313) #f #f 0 0 #t #f #f))))
      ()
      ((364
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$843 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 307 #f #f #f 1 (307) #f #f 0 0 #t #f #f))))
      ((r$844 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  308
                  #f
                  #f
                  #f
                  1
                  (308)
                  #f
                  (vector-ref nw$359 3)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((366
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((368
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((370
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (i$284 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #f))))
      ((371
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((373
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((374
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((375
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (bt-lp$378) #t))))
      ((376
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((377
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((this-len$383
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 371 #f #f #f 2 (371 368) #f #f 0 2 #f #f #f))))
      ((379
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((380
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((383
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((384
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (tp-lp$368) #t))))
      ((385
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((388
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((389
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((390
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((391
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((392
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((393
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((394
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$907) #f)))
       (x$434 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 538 #f #f #f 1 (537) #f #f 0 1 #t #f #f))))
      ((395
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((ncols$362
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             388
             #f
             #f
             #f
             2
             (379 357)
             #f
             r$872
             0
             2
             #t
             #f
             #f))))
      ((398
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$850 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 314 #f #f #f 1 (314) #f #f 0 1 #t #f #f))))
      ((399
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$852 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 324 #f #f #f 1 (324) #f #f 0 0 #t #f #f))))
      ((401
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$853 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 321 #f #f #f 1 (321) #f #f 0 1 #t #f #f))))
      ((402
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((403
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((405
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$857 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 329 #f #f #f 1 (329) #f #f 0 0 #t #f #f))))
      ((r$858 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 327 #f #f #f 1 (327) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((409
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$140$399) #f))))
      ((410
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((413
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((414
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (input1$288
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 103 #f #f #f 2 (95 89) #f #f 0 2 #t #f #f))))
      ()
      ((416
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$929) #t))))
      ((417
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((419
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((420
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ()
      ((425
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((r$1260
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             780
             #f
             #f
             #f
             1
             (780)
             #f
             (Cyc-fast-eq x$558 0)
             0
             0
             #t
             #f
             #f))))
      ((428
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1261
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             779
             #f
             #f
             #f
             1
             (779)
             #f
             (Cyc-fast-eq y$557 0)
             0
             0
             #t
             #f
             #f))))
      ((r$565 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 3 #f #f #f 1 (3) #f #f 0 1 #t #f #f)))
       (429
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1262
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             778
             #f
             #f
             #f
             1
             (778)
             #f
             (Cyc-fast-eq x$558 -1)
             0
             0
             #t
             #f
             #f))))
      ((430
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$1263
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             777
             #f
             #f
             #f
             1
             (777)
             #f
             (Cyc-fast-eq y$557 -1)
             0
             0
             #t
             #f
             #f)))
       (harr$301
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 128 #f #f #f 1 (127) #f #f 0 1 #t #f #f))))
      ()
      ((r$1265
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 769 #f #f #f 1 (769) #f #f 0 0 #t #f #f))))
      ((433
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$569 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  64
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rounded$266
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(68
                        (k$615 x$281)
                        ((k$615 (Cyc-fast-div
                                  (round__inline__ (Cyc-fast-mul 1000 x$281))
                                  1000)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((434
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$1267
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 770 #f #f #f 1 (770) #f #f 0 0 #t #f #f)))
       (harr$305
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             249
             #f
             #f
             #f
             18
             (249
              238
              238
              211
              211
              183
              177
              159
              153
              144
              143
              143
              169
              168
              168
              132
              201
              199)
             #f
             #f
             0
             18
             #t
             #f
             #f))))
      ((r$1268
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 775 #f #f #f 1 (774) #f #f 0 1 #t #f #f))))
      ((r$1269
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 774 #f #f #f 1 (774) #f #f 0 1 #t #f #f)))
       (r$861 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 335 #f #f #f 1 (335) #f #f 0 0 #t #f #f))))
      ((437
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$952) #f)))
       (r$862 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 332 #f #f #f 1 (332) #f #f 0 1 #t #f #f))))
      ((438
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (lp$117$426
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             512
             #f
             #f
             #f
             3
             (502 512 498)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(511
                 (k$1000 c$428 i$427)
                 ((if (Cyc-fast-eq c$428 ncols$417)
                    (k$1000 (Cyc-fast-eq c$428 ncols$417))
                    (bitwise-and
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(505
                          (r$1009)
                          ((proc$416
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(503
                                 (r$1005)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(502
                                       (r$1002)
                                       ((lp$117$426
                                          k$1000
                                          (Cyc-fast-plus c$428 1)
                                          (Cyc-fast-plus i$427 1)))
                                       #f))
                                   (vector-set! v$419 i$427 r$1005)))
                                 #f))
                             (Cyc-fast-mul 3 c$428)
                             (Cyc-fast-plus (Cyc-fast-mul 2 r$422) r$1009)))
                          #f))
                      c$428
                      1)))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((442
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((443
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((444
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((446
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$959) #f))))
      ((447
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ((451
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((452
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((south .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  -1
                  #f
                  #f
                  #f
                  6
                  (118 262 300 330 444 -1)
                  #f
                  (2)
                  0
                  5
                  #f
                  #f
                  #f))))
      ()
      ()
      ((457
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$136$408) #f))))
      ((458
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((r$570 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 63 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (461
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$571 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 62 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$572 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 61 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$573 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 59 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (hi$540
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             713
             #f
             #f
             #f
             3
             (706 706 706)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((cells$335
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             252
             #f
             #f
             #f
             1
             (252)
             #f
             (vector-ref result$332 0)
             0
             1
             #t
             #f
             #f))))
      ((result$332
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             256
             #f
             #f
             #f
             3
             (256 256 256)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((467
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$132$404) #t)))
       (r$1273
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             782
             #f
             #f
             #f
             1
             (782)
             #f
             (- x$560)
             0
             1
             #t
             #f
             #f))))
      ((r$577 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  5
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! loop$273
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(49
                        (k$579 i$275 result$274)
                        ((if (Cyc-fast-lt i$275 count$263)
                           (thunk$262
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(7
                                 (r$582)
                                 ((loop$273
                                    k$579
                                    (Cyc-fast-plus i$275 1)
                                    r$582))
                                 #f)))
                           (ok?$261
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(47
                                 (r$583)
                                 ((if r$583
                                    (current-jiffy
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(38
                                          (j1$276)
                                          ((current-second
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(36
                                                 (t1$277)
                                                 ((rounded$266
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(28
                                                        (secs2$280)
                                                        ((display
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(26
                                                               (r$590)
                                                               ((write #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(25
                                                                           (r$591)
                                                                           ((display
                                                                              #((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(24
                                                                                  (r$592)
                                                                                  ((write #((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(23
                                                                                              (r$593)
                                                                                              ((display
                                                                                                 #((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(22
                                                                                                     (r$594)
                                                                                                     ((display
                                                                                                        #((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(21
                                                                                                            (r$595)
                                                                                                            ((newline
                                                                                                               #((record-marker)
                                                                                                                 #((record-marker)
                                                                                                                   #f
                                                                                                                   (id args
                                                                                                                       body
                                                                                                                       has-cont))
                                                                                                                 #(20
                                                                                                                   (r$596)
                                                                                                                   ((display
                                                                                                                      #((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(19
                                                                                                                          (r$597)
                                                                                                                          ((this-scheme-implementation-name
                                                                                                                             #((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(18
                                                                                                                                 (r$605)
                                                                                                                                 ((display
                                                                                                                                    #((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(17
                                                                                                                                        (r$598)
                                                                                                                                        ((display
                                                                                                                                           #((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(16
                                                                                                                                               (r$599)
                                                                                                                                               ((display
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(15
                                                                                                                                                      (r$600)
                                                                                                                                                      ((display
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #f
                                                                                                                                                             (id args
                                                                                                                                                                 body
                                                                                                                                                                 has-cont))
                                                                                                                                                           #(14
                                                                                                                                                             (r$601)
                                                                                                                                                             ((display
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #f
                                                                                                                                                                    (id args
                                                                                                                                                                        body
                                                                                                                                                                        has-cont))
                                                                                                                                                                  #(13
                                                                                                                                                                    (r$602)
                                                                                                                                                                    ((newline
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #f
                                                                                                                                                                           (id args
                                                                                                                                                                               body
                                                                                                                                                                               has-cont))
                                                                                                                                                                         #(12
                                                                                                                                                                           (r$603)
                                                                                                                                                                           ((current-output-port
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(11
                                                                                                                                                                                  (r$604)
                                                                                                                                                                                  ((flush-output-port
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(10
                                                                                                                                                                                         (r$584)
                                                                                                                                                                                         ((k$579 result$274))
                                                                                                                                                                                         #f))
                                                                                                                                                                                     r$604))
                                                                                                                                                                                  #f))))
                                                                                                                                                                           #f))))
                                                                                                                                                                    #f))
                                                                                                                                                                (inexact__inline__
                                                                                                                                                                  (Cyc-fast-div
                                                                                                                                                                    (Cyc-fast-sub
                                                                                                                                                                      j1$276
                                                                                                                                                                      j0$270)
                                                                                                                                                                    j/s$268))))
                                                                                                                                                             #f))
                                                                                                                                                         ","))
                                                                                                                                                      #f))
                                                                                                                                                  name$264))
                                                                                                                                               #f))
                                                                                                                                           ","))
                                                                                                                                        #f))
                                                                                                                                    r$605))
                                                                                                                                 #f))))
                                                                                                                          #f))
                                                                                                                      "+!CSVLINE!+"))
                                                                                                                   #f))))
                                                                                                            #f))
                                                                                                        name$264))
                                                                                                     #f))
                                                                                                 ") for "))
                                                                                              #f))
                                                                                          secs2$280))
                                                                                  #f))
                                                                              " seconds ("))
                                                                           #f))
                                                                       (inexact__inline__
                                                                         (Cyc-fast-div
                                                                           (Cyc-fast-sub
                                                                             j1$276
                                                                             j0$270)
                                                                           j/s$268))))
                                                               #f))
                                                           "Elapsed time: "))
                                                        #f))
                                                    (Cyc-fast-sub
                                                      t1$277
                                                      t0$269)))
                                                 #f))))
                                          #f)))
                                    (display
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(45
                                          (r$608)
                                          ((write #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(44
                                                      (r$609)
                                                      ((newline
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(43
                                                             (r$610)
                                                             ((current-output-port
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(42
                                                                    (r$612)
                                                                    ((flush-output-port
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(41
                                                                           (r$611)
                                                                           ((k$579 result$274))
                                                                           #f))
                                                                       r$612))
                                                                    #f))))
                                                             #f))))
                                                      #f))
                                                  result$274))
                                          #f))
                                      "ERROR: returned incorrect result: ")))
                                 #f))
                             result$274)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f)))
       (468
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (cells$338
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             283
             #f
             #f
             #f
             5
             (283 276 274 267 259)
             #f
             #f
             0
             5
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((r$870 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 391 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((473
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$871 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  390
                  #f
                  #f
                  #f
                  1
                  (389)
                  #f
                  (vector-ref harr$361 1)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$872 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  389
                  #f
                  #f
                  #f
                  1
                  (389)
                  #f
                  (vector-ref harr$361 2)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((475
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((476
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (bitwise-not
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             783
             #f
             #f
             3
             (262 592 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(783
                  (k$1272 x$560)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(782
                        (r$1273)
                        ((k$1272 (Cyc-fast-sub r$1273 1)))
                        #f))
                    (- x$560)))
                  #t)))
             2
             0
             #f
             #f
             #f)))
       (harr:nrows
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             541
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(541
                  (k$1035 o$440)
                  ((k$1035 (vector-ref o$440 1)))
                  #t)))
             0
             0
             #f
             #f
             #f)))
       (r$874 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  357
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! tp-lp$368
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(384
                        (k$876 max-len$372
                               entrance$371
                               exit$370
                               tcol$369)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(383
                              (r$877)
                              ((if r$877
                                 (vector k$876 entrance$371 exit$370)
                                 (href/rc
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(380
                                       (top-cell$373)
                                       ((reroot-maze
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(379
                                              (r$879)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(377
                                                    (max-len$377
                                                      entrance$376
                                                      exit$375
                                                      bcol$374)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(376
                                                          (bt-lp$378)
                                                          ((#((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(366
                                                                (r$886)
                                                                ((bt-lp$378
                                                                   #((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(364
                                                                       (result$384)
                                                                       ((tp-lp$368
                                                                          k$876
                                                                          (vector-ref
                                                                            result$384
                                                                            0)
                                                                          (vector-ref
                                                                            result$384
                                                                            1)
                                                                          (vector-ref
                                                                            result$384
                                                                            2)
                                                                          (Cyc-fast-sub
                                                                            tcol$369
                                                                            1)))
                                                                       #f))
                                                                   max-len$377
                                                                   entrance$376
                                                                   exit$375
                                                                   bcol$374))
                                                                #f))
                                                            (set! bt-lp$378
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(375
                                                                  (k$888 max-len$382
                                                                         entrance$381
                                                                         exit$380
                                                                         bcol$379)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(374
                                                                        (r$889)
                                                                        ((if r$889
                                                                           (vector
                                                                             k$888
                                                                             max-len$382
                                                                             entrance$381
                                                                             exit$380)
                                                                           (href/rc
                                                                             #((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(373
                                                                                 (r$894)
                                                                                 ((path-length
                                                                                    #((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(371
                                                                                        (this-len$383)
                                                                                        ((#((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(370
                                                                                              (r$891)
                                                                                              ((if r$891
                                                                                                 (#((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(368
                                                                                                      (r$892)
                                                                                                      ((bt-lp$378
                                                                                                         k$888
                                                                                                         this-len$383
                                                                                                         tcol$369
                                                                                                         bcol$379
                                                                                                         r$892))
                                                                                                      #f))
                                                                                                  (Cyc-fast-sub
                                                                                                    bcol$379
                                                                                                    1))
                                                                                                 (bt-lp$378
                                                                                                   k$888
                                                                                                   max-len$382
                                                                                                   entrance$381
                                                                                                   exit$380
                                                                                                   (Cyc-fast-sub
                                                                                                     bcol$379
                                                                                                     1))))
                                                                                              #f))
                                                                                          (Cyc-fast-gt
                                                                                            this-len$383
                                                                                            max-len$382)))
                                                                                        #f))
                                                                                    r$894))
                                                                                 #f))
                                                                             harr$361
                                                                             0
                                                                             bcol$379)))
                                                                        #f))
                                                                    (Cyc-fast-lt
                                                                      bcol$379
                                                                      0)))
                                                                  #t)))))
                                                          #f))
                                                      #f))
                                                    #f))
                                                max-len$372
                                                entrance$371
                                                exit$370
                                                (Cyc-fast-sub ncols$362 1)))
                                              #f))
                                          top-cell$373))
                                       #f))
                                   harr$361
                                   (Cyc-fast-sub nrows$363 1)
                                   tcol$369)))
                              #f))
                          (Cyc-fast-lt tcol$369 0)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((477
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (add-wall$396) #t))))
      ((478
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$877 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  383
                  #f
                  #f
                  #f
                  1
                  (383)
                  #f
                  (Cyc-fast-lt tcol$369 0)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$879 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 379 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((487
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((s$519 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 669 #f #f #f 1 (669) #f #f 0 1 #t #f #f))))
      ((r$283 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 83 #f #f #f 1 (78) #f #f 0 1 #t #f #f))))
      ((491
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((492
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (lp$196$310
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             191
             #f
             #f
             #f
             3
             (135 191 132)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(190
                 (k$696 r$311)
                 ((if (Cyc-fast-lt r$311 0)
                    (k$696 (Cyc-fast-lt r$311 0))
                    (write-ch
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(186
                          (r$698)
                          ((#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(184
                                (lp$200$318)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(171
                                      (r$729)
                                      ((lp$200$318
                                         #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(170
                                             (r$699)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(169
                                                   (k$724)
                                                   ((odd? #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(168
                                                              (r$725)
                                                              ((if r$725
                                                                 (dot/space
                                                                   #((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(165
                                                                       (r$727)
                                                                       ((write-ch
                                                                          #((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(164
                                                                              (r$726)
                                                                              ((write-ch
                                                                                 k$724
                                                                                 #\\))
                                                                              #f))
                                                                          r$727))
                                                                       #f))
                                                                   harr$305
                                                                   r$311
                                                                   (Cyc-fast-sub
                                                                     (vector-ref
                                                                       harr$305
                                                                       2)
                                                                     1))
                                                                 (k$724 #f)))
                                                              #f))
                                                          (vector-ref
                                                            harr$305
                                                            2)))
                                                   #t))
                                               #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(163
                                                   (r$700)
                                                   ((write-ch
                                                      #((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(162
                                                          (r$701)
                                                          ((#((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(160
                                                                (lp$207$314)
                                                                ((#((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(146
                                                                      (r$712)
                                                                      ((lp$207$314
                                                                         #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(145
                                                                             (r$702)
                                                                             ((#((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(144
                                                                                   (k$706)
                                                                                   ((odd? #((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(143
                                                                                              (r$707)
                                                                                              ((if r$707
                                                                                                 (href/rc
                                                                                                   #((record-marker)
                                                                                                     #((record-marker)
                                                                                                       #f
                                                                                                       (id args
                                                                                                           body
                                                                                                           has-cont))
                                                                                                     #(138
                                                                                                       (r$709)
                                                                                                       ((display-hexbottom
                                                                                                          k$706
                                                                                                          (vector-ref
                                                                                                            r$709
                                                                                                            3)))
                                                                                                       #f))
                                                                                                   harr$305
                                                                                                   r$311
                                                                                                   (Cyc-fast-sub
                                                                                                     (vector-ref
                                                                                                       harr$305
                                                                                                       2)
                                                                                                     1))
                                                                                                 (if (zero?__inline__
                                                                                                       r$311)
                                                                                                   (k$706 #f)
                                                                                                   (write-ch
                                                                                                     k$706
                                                                                                     #\\))))
                                                                                              #f))
                                                                                          (vector-ref
                                                                                            harr$305
                                                                                            2)))
                                                                                   #t))
                                                                               #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(136
                                                                                   (r$703)
                                                                                   ((write-ch
                                                                                      #((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(135
                                                                                          (r$704)
                                                                                          ((lp$196$310
                                                                                             k$696
                                                                                             (Cyc-fast-sub
                                                                                               r$311
                                                                                               1)))
                                                                                          #f))
                                                                                      #\newline))
                                                                                   #f))))
                                                                             #f))
                                                                         0))
                                                                      #f))
                                                                  (set! lp$207$314
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(159
                                                                        (k$714 c$315)
                                                                        ((if (Cyc-fast-gte
                                                                               c$315
                                                                               (Cyc-fast-mul
                                                                                 2
                                                                                 r$773))
                                                                           (k$714 (Cyc-fast-gte
                                                                                    c$315
                                                                                    (Cyc-fast-mul
                                                                                      2
                                                                                      r$773)))
                                                                           (href/rc
                                                                             #((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(155
                                                                                 (r$723)
                                                                                 ((display-hexbottom
                                                                                    #((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(153
                                                                                        (r$716)
                                                                                        ((dot/space
                                                                                           #((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(150
                                                                                               (r$719)
                                                                                               ((write-ch
                                                                                                  #((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(149
                                                                                                      (r$717)
                                                                                                      ((lp$207$314
                                                                                                         k$714
                                                                                                         (Cyc-fast-plus
                                                                                                           c$315
                                                                                                           2)))
                                                                                                      #f))
                                                                                                  r$719))
                                                                                               #f))
                                                                                           harr$305
                                                                                           (Cyc-fast-sub
                                                                                             r$311
                                                                                             1)
                                                                                           (Cyc-fast-plus
                                                                                             c$315
                                                                                             1)))
                                                                                        #f))
                                                                                    (vector-ref
                                                                                      r$723
                                                                                      3)))
                                                                                 #f))
                                                                             harr$305
                                                                             r$311
                                                                             c$315)))
                                                                        #t)))))
                                                                #f))
                                                            #f))
                                                          #f))
                                                      #\newline))
                                                   #f))))
                                             #f))
                                         1))
                                      #f))
                                  (set! lp$200$318
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(183
                                        (k$731 c$319)
                                        ((if (Cyc-fast-gte
                                               c$319
                                               (Cyc-fast-mul 2 r$773))
                                           (k$731 (Cyc-fast-gte
                                                    c$319
                                                    (Cyc-fast-mul 2 r$773)))
                                           (dot/space
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(178
                                                 (r$738)
                                                 ((write-ch
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(177
                                                        (r$733)
                                                        ((href/rc
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(176
                                                               (r$737)
                                                               ((display-hexbottom
                                                                  #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(174
                                                                      (r$734)
                                                                      ((lp$200$318
                                                                         k$731
                                                                         (Cyc-fast-plus
                                                                           c$319
                                                                           2)))
                                                                      #f))
                                                                  (vector-ref
                                                                    r$737
                                                                    3)))
                                                               #f))
                                                           harr$305
                                                           r$311
                                                           c$319))
                                                        #f))
                                                    r$738))
                                                 #f))
                                             harr$305
                                             r$311
                                             (Cyc-fast-sub c$319 1))))
                                        #t)))))
                                #f))
                            #f))
                          #f))
                      #\/)))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((493
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((494
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((o$494 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 636 #f #f #f 1 (636) #f #f 0 1 #t #t #f))))
      ((o$495 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 637 #f #f #f 1 (637) #f #f 0 1 #t #f #f))))
      ((497
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((498
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (o$497 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 638 #f #f #f 1 (638) #f #f 0 1 #t #t #f))))
      ((random-int
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             700
             #f
             #f
             2
             (614 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(700
                  (k$1207 n$533 state$532)
                  ((rand #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(699 (r$1208) ((mod k$1207 r$1208 n$533)) #f))
                         state$532))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (o$498 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 639 #f #f #f 1 (639) #f #f 0 1 #t #f #f))))
      ((r$582 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 7 #f #f #f 1 (7) #f #f 0 1 #t #f #f))))
      ((r$583 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 47 #f #f #f 1 (47) #f #f 0 0 #t #f #f)))
       (result$340
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             274
             #f
             #f
             #f
             4
             (274 267 259 259)
             #f
             #f
             0
             4
             #t
             #f
             #f))))
      ((r$584 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 10 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (502
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((503
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r2$515
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             663
             #f
             #f
             #f
             4
             (661 659 653 659)
             #f
             #f
             0
             4
             #f
             #t
             #f))))
      ()
      ((505
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ()
      ()
      ((511
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$117$426) #t))))
      ((512
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((513
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((r$886 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  366
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! bt-lp$378
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(375
                        (k$888 max-len$382
                               entrance$381
                               exit$380
                               bcol$379)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(374
                              (r$889)
                              ((if r$889
                                 (vector
                                   k$888
                                   max-len$382
                                   entrance$381
                                   exit$380)
                                 (href/rc
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(373
                                       (r$894)
                                       ((path-length
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(371
                                              (this-len$383)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(370
                                                    (r$891)
                                                    ((if r$891
                                                       (#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(368
                                                            (r$892)
                                                            ((bt-lp$378
                                                               k$888
                                                               this-len$383
                                                               tcol$369
                                                               bcol$379
                                                               r$892))
                                                            #f))
                                                        (Cyc-fast-sub
                                                          bcol$379
                                                          1))
                                                       (bt-lp$378
                                                         k$888
                                                         max-len$382
                                                         entrance$381
                                                         exit$380
                                                         (Cyc-fast-sub
                                                           bcol$379
                                                           1))))
                                                    #f))
                                                (Cyc-fast-gt
                                                  this-len$383
                                                  max-len$382)))
                                              #f))
                                          r$894))
                                       #f))
                                   harr$361
                                   0
                                   bcol$379)))
                              #f))
                          (Cyc-fast-lt bcol$379 0)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ((518
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$113$421) #t)))
       (r$889 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  374
                  #f
                  #f
                  #f
                  1
                  (374)
                  #f
                  (Cyc-fast-lt bcol$379 0)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((519
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (s$522 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  696
                  #f
                  #f
                  #f
                  3
                  (696 688 687)
                  #f
                  #f
                  0
                  3
                  #f
                  #f
                  #f))))
      ()
      ()
      ((522
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((hexwalls$298
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             123
             #f
             #f
             #f
             3
             (114 118 122)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((525
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((set-cell:walls
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             640
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(640
                  (k$1137 o$500 v$499)
                  ((k$1137 (vector-set! o$500 3 v$499)))
                  #t)))
             0
             0
             #f
             #f
             #f)))
       (y$409 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  457
                  #f
                  #f
                  #f
                  7
                  (457 446 437 442 451 457 457)
                  #f
                  #f
                  0
                  7
                  #t
                  #f
                  #f))))
      ((530
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ()
      ((r$590 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 26 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (535
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$591 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 25 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (536
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (elts$441
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 543 #f #f #f 1 (543) #f #f 0 1 #t #f #f))))
      ((r$592 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 24 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (537
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$593 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 23 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (538
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$594 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 22 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (539
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$595 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 21 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (540
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$596 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 20 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (541
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$597 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 19 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$598 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 17 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (543
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$599 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 16 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (544
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((546
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$891 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  370
                  #f
                  #f
                  #f
                  1
                  (370)
                  #f
                  (Cyc-fast-gt this-len$383 max-len$382)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((548
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$892 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  368
                  #f
                  #f
                  #f
                  1
                  (368)
                  #f
                  (Cyc-fast-sub bcol$379 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((549
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$446) #t))))
      ((550
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$894 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 373 #f #f #f 1 (373) #f #f 0 1 #t #f #f))))
      ((551
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((552
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$896 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 392 #f #f #f 1 (392) #f #f 0 1 #t #f #f))))
      ((553
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((entrance$304
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             249
             #f
             #f
             #f
             3
             (231 215 199)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((557
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$105$452) #f))))
      ((558
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((561
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (y$414 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 491 #f #f #f 1 (491) #f #f 0 1 #t #f #f))))
      ((562
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((564
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((565
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((567
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$458) #t))))
      ((j0$270
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 53 #f #f #f 2 (26 14) #f #f 0 2 #t #f #f)))
       (568
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (walls$472
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 604 #f #f #f 1 (603) #f #f 0 1 #f #f #f))))
      ((569
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (node$444
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 552 #f #f #f 1 (552) #f #f 0 1 #t #f #f)))
       (lp$207$314
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             160
             #f
             #f
             #f
             3
             (149 160 146)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(159
                 (k$714 c$315)
                 ((if (Cyc-fast-gte c$315 (Cyc-fast-mul 2 r$773))
                    (k$714 (Cyc-fast-gte c$315 (Cyc-fast-mul 2 r$773)))
                    (href/rc
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(155
                          (r$723)
                          ((display-hexbottom
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(153
                                 (r$716)
                                 ((dot/space
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(150
                                        (r$719)
                                        ((write-ch
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(149
                                               (r$717)
                                               ((lp$207$314
                                                  k$714
                                                  (Cyc-fast-plus c$315 2)))
                                               #f))
                                           r$719))
                                        #f))
                                    harr$305
                                    (Cyc-fast-sub r$311 1)
                                    (Cyc-fast-plus c$315 1)))
                                 #f))
                             (vector-ref r$723 3)))
                          #f))
                      harr$305
                      r$311
                      c$315)))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((570
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (node$445
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             551
             #f
             #f
             #f
             1
             (544)
             #f
             node$444
             0
             1
             #f
             #f
             #f))))
      ((571
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((node$447
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 549 #f #f #f 2 (549 548) #f #f 0 2 #t #t #f))))
      ()
      ((574
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((575
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((576
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((577
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (search$467) #t))))
      ((578
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((579
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((580
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$1000
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 511 #f #f #f 2 (502 511) #f #f 1 1 #t #f #t))))
      ()
      ((harr$346
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             356
             #f
             #f
             #f
             12
             (292 297 297 297 305 305 313 318 318 324 329 335)
             #f
             #f
             0
             12
             #t
             #f
             #f))))
      ((584
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((585
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((586
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((587
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((588
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (count$263
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 71 #f #f #f 1 (49) #f #f 0 1 #t #f #f))))
      ((589
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((592
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ()
      ()
      ((Cyc-fast-div
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 3 (68 26 14) #f #f 3 0 #t #f #f))))
      ()
      ()
      ()
      ((602
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((603
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (walls$480
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             588
             #f
             #f
             #f
             1
             (587)
             #f
             (vector-ref (vector-ref wall$474 1) 3)
             0
             1
             #t
             #f
             #f))))
      ((604
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((605
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (node$453
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 557 #f #f #f 2 (557 557) #f #f 0 1 #t #f #f))))
      ((606
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((lp$132$404
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             468
             #f
             #f
             #f
             3
             (433 468 430)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(467
                 (k$938 x$405)
                 ((if (Cyc-fast-lt x$405 0)
                    (k$938 (Cyc-fast-lt x$405 0))
                    (bitwise-and
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(461
                          (r$965)
                          ((#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(458
                                (lp$136$408)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(434
                                      (r$943)
                                      ((lp$136$408
                                         #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(433
                                             (r$940)
                                             ((lp$132$404
                                                k$938
                                                (Cyc-fast-sub x$405 3)))
                                             #f))
                                         (Cyc-fast-plus
                                           (Cyc-fast-mul
                                             (Cyc-fast-sub
                                               (vector-ref harr$388 1)
                                               1)
                                             2)
                                           r$965)))
                                      #f))
                                  (set! lp$136$408
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(457
                                        (k$945 y$409)
                                        ((if (Cyc-fast-lte y$409 1)
                                           (k$945 (Cyc-fast-lte y$409 1))
                                           (href #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(452
                                                     (hex$411)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(451
                                                           (k$959)
                                                           ((if (zero?__inline__
                                                                  x$405)
                                                              (k$959 #f)
                                                              (href #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(447
                                                                        (r$961)
                                                                        ((add-wall$396
                                                                           k$959
                                                                           hex$411
                                                                           r$961
                                                                           south-west))
                                                                        #f))
                                                                    harr$388
                                                                    (Cyc-fast-sub
                                                                      x$405
                                                                      3)
                                                                    (Cyc-fast-sub
                                                                      y$409
                                                                      1))))
                                                           #t))
                                                       #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(446
                                                           (r$950)
                                                           ((href #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(444
                                                                      (r$957)
                                                                      ((add-wall$396
                                                                         #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(443
                                                                             (r$951)
                                                                             ((#((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(442
                                                                                   (k$952)
                                                                                   ((if (Cyc-fast-lt
                                                                                          x$405
                                                                                          (Cyc-fast-mul
                                                                                            3
                                                                                            (Cyc-fast-sub
                                                                                              (vector-ref
                                                                                                harr$388
                                                                                                2)
                                                                                              1)))
                                                                                      (href #((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(438
                                                                                                (r$954)
                                                                                                ((add-wall$396
                                                                                                   k$952
                                                                                                   hex$411
                                                                                                   r$954
                                                                                                   south-east))
                                                                                                #f))
                                                                                            harr$388
                                                                                            (Cyc-fast-plus
                                                                                              x$405
                                                                                              3)
                                                                                            (Cyc-fast-sub
                                                                                              y$409
                                                                                              1))
                                                                                      (k$952 #f)))
                                                                                   #t))
                                                                               #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(437
                                                                                   (r$947)
                                                                                   ((lp$136$408
                                                                                      k$945
                                                                                      (Cyc-fast-sub
                                                                                        y$409
                                                                                        2)))
                                                                                   #f))))
                                                                             #f))
                                                                         hex$411
                                                                         r$957
                                                                         south))
                                                                      #f))
                                                                  harr$388
                                                                  x$405
                                                                  (Cyc-fast-sub
                                                                    y$409
                                                                    2)))
                                                           #f))))
                                                     #f))
                                                 harr$388
                                                 x$405
                                                 y$409)))
                                        #t)))))
                                #f))
                            #f))
                          #f))
                      x$405
                      1)))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ((609
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (node$457
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             569
             #f
             #f
             #f
             1
             (562)
             #f
             new-root$455
             0
             1
             #f
             #f
             #f))))
      ((610
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$810 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  356
                  #f
                  #f
                  #f
                  3
                  (292 286 286)
                  #f
                  #f
                  2
                  1
                  #f
                  #f
                  #t)))
       (611
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((612
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((613
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((614
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((616
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((617
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$484) #t))))
      ((618
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((621
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$1013
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 530 #f #f #f 1 (530) #f #f 1 0 #t #f #t))))
      ((622
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((623
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((626
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((eq? .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                ?
                #f
                #f
                #f
                4
                (575 670 688 682)
                #f
                #f
                4
                0
                #t
                #f
                #f))))
      ((current-output-port
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 3 (43 12 61) #f #f 3 0 #f #f #f))))
      ((630
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$491) #f))))
      ((631
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((y$433 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 538 #f #f #f 1 (538) #f #f 0 1 #t #f #f))))
      ((635
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((636
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((637
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((638
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((639
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (node$460
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             567
             #f
             #f
             #f
             3
             (567 565 564)
             #f
             #f
             0
             3
             #f
             #t
             #f))))
      ((640
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((641
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((642
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((643
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((vector-length
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (622 623) #f #f 2 0 #t #f #f))))
      ((645
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (node$466
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             579
             #f
             #f
             #f
             1
             (571)
             #f
             root$463
             0
             1
             #f
             #f
             #f))))
      ((646
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((647
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((648
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (node$469
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             577
             #f
             #f
             #f
             3
             (577 576 574)
             #f
             #f
             0
             3
             #f
             #t
             #f))))
      ()
      ((650
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((651
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((harr$361
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             393
             #f
             #f
             #f
             6
             (393 392 391 390 383 374)
             #f
             #f
             0
             6
             #f
             #f
             #f))))
      ((653
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (result$384
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             364
             #f
             #f
             #f
             3
             (364 364 364)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ()
      ((k$1020
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 538 #f #f #f 1 (535) #f #f 1 0 #t #f #t))))
      ((input2$289
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 101 #f #f #f 2 (97 88) #f #f 0 2 #t #f #f))))
      ()
      ()
      ((659
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((newline
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             4
             (44 13 21 62)
             #f
             #f
             4
             0
             #f
             #f
             #f)))
       (661
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((663
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$1029
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 539 #f #f #f 1 (539) #f #f 1 0 #t #f #t))))
      ((665
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((count$287
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             105
             #f
             #f
             #f
             4
             (99 89 88 90)
             #f
             #f
             0
             4
             #f
             #f
             #f))))
      ((667
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (entrance$334
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             252
             #f
             #f
             #f
             1
             (252)
             #f
             (vector-ref result$332 1)
             0
             1
             #t
             #f
             #f))))
      ((main .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 107
                 #f
                 #f
                 2
                 (-1 -1)
                 #f
                 (#((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(107
                      (k$634)
                      ((read #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(105
                                 (count$287)
                                 ((read #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(103
                                            (input1$288)
                                            ((read #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(101
                                                       (input2$289)
                                                       ((read #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(99
                                                                  (output$290)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(97
                                                                        (s3$291)
                                                                        ((#((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(95
                                                                              (s2$292)
                                                                              ((#((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(93
                                                                                    (s1$293)
                                                                                    ((#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(90
                                                                                          (r$642)
                                                                                          ((run-r7rs-benchmark
                                                                                             k$634
                                                                                             r$642
                                                                                             count$287
                                                                                             #((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(89
                                                                                                 (k$646)
                                                                                                 ((hide #((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(88
                                                                                                            (r$647)
                                                                                                            ((hide #((record-marker)
                                                                                                                     #((record-marker)
                                                                                                                       #f
                                                                                                                       (id args
                                                                                                                           body
                                                                                                                           has-cont))
                                                                                                                     #(87
                                                                                                                       (r$648)
                                                                                                                       ((run k$646
                                                                                                                             r$647
                                                                                                                             r$648))
                                                                                                                       #f))
                                                                                                                   count$287
                                                                                                                   input2$289))
                                                                                                            #f))
                                                                                                        count$287
                                                                                                        input1$288))
                                                                                                 #t))
                                                                                             #((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(85
                                                                                                 (k$645 result$295)
                                                                                                 ((k$645 (equal?
                                                                                                           result$295
                                                                                                           output$290)))
                                                                                                 #t))))
                                                                                          #f))
                                                                                      (string-append
                                                                                        "maze"
                                                                                        ":"
                                                                                        s1$293
                                                                                        ":"
                                                                                        s2$292
                                                                                        ":"
                                                                                        s3$291)))
                                                                                    #f))
                                                                                (number->string
                                                                                  input1$288)))
                                                                              #f))
                                                                          (number->string
                                                                            input2$289)))
                                                                        #f))
                                                                    (number->string
                                                                      count$287)))
                                                                  #f))))
                                                       #f))))
                                            #f))))
                                 #f))))
                      #t)))
                 1
                 0
                 #f
                 #f
                 #f)))
       (668
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((669
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((670
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((671
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((672
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((673
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((676
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$1193) #f))))
      ((677
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((679
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((681
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((682
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((684
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$528) #t))))
      ((k$830 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  297
                  #f
                  #f
                  #f
                  3
                  (297 293 297)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(292
                      (r$824)
                      ((if r$824
                         (href #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(288
                                   (ne$356)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(287
                                         (r$827)
                                         ((bit-test
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(286
                                                (r$826)
                                                ((if r$826
                                                   (k$810 #f)
                                                   (proc$347 k$810 ne$356)))
                                                #f))
                                            r$827
                                            south-west))
                                         #f))
                                     (vector-ref ne$356 3)))
                                   #f))
                               harr$346
                               (Cyc-fast-plus (car (vector-ref cell$345 2)) 3)
                               (Cyc-fast-plus (cdr (vector-ref cell$345 2)) 1))
                         (k$810 #f)))
                      #f))
                  3
                  0
                  #t
                  #f
                  #t)))
       (685
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((686
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((687
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((688
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$834 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  305
                  #f
                  #f
                  #f
                  3
                  (305 299 299)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(298
                      (r$823)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(297
                            (k$830)
                            ((if (Cyc-fast-lt
                                   (car (vector-ref cell$345 2))
                                   (Cyc-fast-mul
                                     3
                                     (Cyc-fast-sub (vector-ref harr$346 2) 1)))
                               (if (Cyc-fast-lte
                                     (cdr (vector-ref cell$345 2))
                                     (Cyc-fast-mul
                                       2
                                       (Cyc-fast-sub
                                         (vector-ref harr$346 1)
                                         1)))
                                 (k$830 (Cyc-fast-lte
                                          (cdr (vector-ref cell$345 2))
                                          (Cyc-fast-mul
                                            2
                                            (Cyc-fast-sub
                                              (vector-ref harr$346 1)
                                              1))))
                                 (mod #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(293
                                          (r$833)
                                          ((k$830 (zero?__inline__ r$833)))
                                          #f))
                                      (car (vector-ref cell$345 2))
                                      6))
                               (k$830 #f)))
                            #t))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(292
                            (r$824)
                            ((if r$824
                               (href #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(288
                                         (ne$356)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(287
                                               (r$827)
                                               ((bit-test
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(286
                                                      (r$826)
                                                      ((if r$826
                                                         (k$810 #f)
                                                         (proc$347
                                                           k$810
                                                           ne$356)))
                                                      #f))
                                                  r$827
                                                  south-west))
                                               #f))
                                           (vector-ref ne$356 3)))
                                         #f))
                                     harr$346
                                     (Cyc-fast-plus
                                       (car (vector-ref cell$345 2))
                                       3)
                                     (Cyc-fast-plus
                                       (cdr (vector-ref cell$345 2))
                                       1))
                               (k$810 #f)))
                            #f))))
                      #f))
                  2
                  1
                  #f
                  #f
                  #t)))
       (remainder
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (737) #f #f 1 0 #f #f #f))))
      ()
      ((wall:bit
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             646
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(646
                  (k$1153 o$506)
                  ((k$1153 (vector-ref o$506 3)))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ()
      ((693
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$524) #t))))
      ((694
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$1032
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 540 #f #f #f 1 (540) #f #f 1 0 #t #f #t))))
      ((695
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((696
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$1035
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 541 #f #f #f 1 (541) #f #f 1 0 #t #f #t))))
      ((698
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((699
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((700
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$1038
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 543 #f #f #f 1 (543) #f #f 0 1 #t #f #t))))
      ((701
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((703
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$1218) #t))))
      ()
      ()
      ((706
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ()
      ((711
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((713
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((715
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((717
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (list->vector
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (394) #f #f 1 0 #t #f #f))))
      ((718
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (lo$541
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             711
             #f
             #f
             #f
             3
             (706 706 706)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((k$840 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  319
                  #f
                  #f
                  #f
                  3
                  (313 307 307)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(306
                      (r$822)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(305
                            (k$834)
                            ((if (Cyc-fast-lt
                                   (cdr (vector-ref cell$345 2))
                                   (Cyc-fast-mul
                                     2
                                     (Cyc-fast-sub (vector-ref harr$346 1) 1)))
                               (href #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(301
                                         (n$358)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(300
                                               (r$838)
                                               ((bit-test
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(299
                                                      (r$837)
                                                      ((if r$837
                                                         (k$834 #f)
                                                         (proc$347
                                                           k$834
                                                           n$358)))
                                                      #f))
                                                  r$838
                                                  south))
                                               #f))
                                           (vector-ref n$358 3)))
                                         #f))
                                     harr$346
                                     (car (vector-ref cell$345 2))
                                     (Cyc-fast-plus
                                       (cdr (vector-ref cell$345 2))
                                       2))
                               (k$834 #f)))
                            #t))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(298
                            (r$823)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(297
                                  (k$830)
                                  ((if (Cyc-fast-lt
                                         (car (vector-ref cell$345 2))
                                         (Cyc-fast-mul
                                           3
                                           (Cyc-fast-sub
                                             (vector-ref harr$346 2)
                                             1)))
                                     (if (Cyc-fast-lte
                                           (cdr (vector-ref cell$345 2))
                                           (Cyc-fast-mul
                                             2
                                             (Cyc-fast-sub
                                               (vector-ref harr$346 1)
                                               1)))
                                       (k$830 (Cyc-fast-lte
                                                (cdr (vector-ref cell$345 2))
                                                (Cyc-fast-mul
                                                  2
                                                  (Cyc-fast-sub
                                                    (vector-ref harr$346 1)
                                                    1))))
                                       (mod #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(293
                                                (r$833)
                                                ((k$830 (zero?__inline__
                                                          r$833)))
                                                #f))
                                            (car (vector-ref cell$345 2))
                                            6))
                                     (k$830 #f)))
                                  #t))
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(292
                                  (r$824)
                                  ((if r$824
                                     (href #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(288
                                               (ne$356)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(287
                                                     (r$827)
                                                     ((bit-test
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(286
                                                            (r$826)
                                                            ((if r$826
                                                               (k$810 #f)
                                                               (proc$347
                                                                 k$810
                                                                 ne$356)))
                                                            #f))
                                                        r$827
                                                        south-west))
                                                     #f))
                                                 (vector-ref ne$356 3)))
                                               #f))
                                           harr$346
                                           (Cyc-fast-plus
                                             (car (vector-ref cell$345 2))
                                             3)
                                           (Cyc-fast-plus
                                             (cdr (vector-ref cell$345 2))
                                             1))
                                     (k$810 #f)))
                                  #f))))
                            #f))))
                      #f))
                  2
                  1
                  #f
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$847 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  318
                  #f
                  #f
                  #f
                  3
                  (318 314 318)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(313
                      (r$841)
                      ((if r$841
                         (href #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(309
                                   (nw$359)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(308
                                         (r$844)
                                         ((bit-test
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(307
                                                (r$843)
                                                ((if r$843
                                                   (k$840 #f)
                                                   (proc$347 k$840 nw$359)))
                                                #f))
                                            r$844
                                            south-east))
                                         #f))
                                     (vector-ref nw$359 3)))
                                   #f))
                               harr$346
                               (Cyc-fast-sub (car (vector-ref cell$345 2)) 3)
                               (Cyc-fast-plus (cdr (vector-ref cell$345 2)) 1))
                         (k$840 #f)))
                      #f))
                  3
                  0
                  #t
                  #f
                  #t))))
      ()
      ((k$1042
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 552 #f #f #f 1 (544) #f #f 0 1 #f #f #t))))
      ()
      ((harr$388
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             487
             #f
             #f
             #f
             18
             (457
              446
              442
              442
              451
              434
              430
              428
              425
              416
              409
              405
              402
              401
              419
              419
              419
              428)
             #f
             #f
             0
             18
             #t
             #f
             #f))))
      ((k$1045
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 549 #f #f #f 2 (546 546) #f #f 1 1 #t #f #t))))
      ()
      ((wall:neighbor
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             647
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(647
                  (k$1156 o$507)
                  ((k$1156 (vector-ref o$507 2)))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ((737
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$1238) #f))))
      ()
      ()
      ((740
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((741
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((this-scheme-implementation-name
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             4
             #f
             #f
             2
             (-1 19)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(4
                  (k$564)
                  ((Cyc-version
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(3
                         (r$565)
                         ((k$564 (string-append "cyclone-" r$565)))
                         #f))))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ((cell:id
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             642
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(642
                  (k$1143 o$502)
                  ((k$1143 (vector-ref o$502 2)))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ((proc$347
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             356
             #f
             #f
             #f
             6
             (286 299 307 321 327 332)
             #f
             #f
             6
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$851 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  325
                  #f
                  #f
                  #f
                  2
                  (321 324)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(320
                      (r$821)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(319
                            (k$840)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(318
                                  (k$847)
                                  ((if (Cyc-fast-gt
                                         (car (vector-ref cell$345 2))
                                         0)
                                     (if (Cyc-fast-lte
                                           (cdr (vector-ref cell$345 2))
                                           (Cyc-fast-mul
                                             2
                                             (Cyc-fast-sub
                                               (vector-ref harr$346 1)
                                               1)))
                                       (k$847 (Cyc-fast-lte
                                                (cdr (vector-ref cell$345 2))
                                                (Cyc-fast-mul
                                                  2
                                                  (Cyc-fast-sub
                                                    (vector-ref harr$346 1)
                                                    1))))
                                       (mod #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(314
                                                (r$850)
                                                ((k$847 (zero?__inline__
                                                          r$850)))
                                                #f))
                                            (car (vector-ref cell$345 2))
                                            6))
                                     (k$847 #f)))
                                  #t))
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(313
                                  (r$841)
                                  ((if r$841
                                     (href #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(309
                                               (nw$359)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(308
                                                     (r$844)
                                                     ((bit-test
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(307
                                                            (r$843)
                                                            ((if r$843
                                                               (k$840 #f)
                                                               (proc$347
                                                                 k$840
                                                                 nw$359)))
                                                            #f))
                                                        r$844
                                                        south-east))
                                                     #f))
                                                 (vector-ref nw$359 3)))
                                               #f))
                                           harr$346
                                           (Cyc-fast-sub
                                             (car (vector-ref cell$345 2))
                                             3)
                                           (Cyc-fast-plus
                                             (cdr (vector-ref cell$345 2))
                                             1))
                                     (k$840 #f)))
                                  #f))))
                            #t))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(306
                            (r$822)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(305
                                  (k$834)
                                  ((if (Cyc-fast-lt
                                         (cdr (vector-ref cell$345 2))
                                         (Cyc-fast-mul
                                           2
                                           (Cyc-fast-sub
                                             (vector-ref harr$346 1)
                                             1)))
                                     (href #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(301
                                               (n$358)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(300
                                                     (r$838)
                                                     ((bit-test
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(299
                                                            (r$837)
                                                            ((if r$837
                                                               (k$834 #f)
                                                               (proc$347
                                                                 k$834
                                                                 n$358)))
                                                            #f))
                                                        r$838
                                                        south))
                                                     #f))
                                                 (vector-ref n$358 3)))
                                               #f))
                                           harr$346
                                           (car (vector-ref cell$345 2))
                                           (Cyc-fast-plus
                                             (cdr (vector-ref cell$345 2))
                                             2))
                                     (k$834 #f)))
                                  #t))
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(298
                                  (r$823)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(297
                                        (k$830)
                                        ((if (Cyc-fast-lt
                                               (car (vector-ref cell$345 2))
                                               (Cyc-fast-mul
                                                 3
                                                 (Cyc-fast-sub
                                                   (vector-ref harr$346 2)
                                                   1)))
                                           (if (Cyc-fast-lte
                                                 (cdr (vector-ref cell$345 2))
                                                 (Cyc-fast-mul
                                                   2
                                                   (Cyc-fast-sub
                                                     (vector-ref harr$346 1)
                                                     1)))
                                             (k$830 (Cyc-fast-lte
                                                      (cdr (vector-ref
                                                             cell$345
                                                             2))
                                                      (Cyc-fast-mul
                                                        2
                                                        (Cyc-fast-sub
                                                          (vector-ref
                                                            harr$346
                                                            1)
                                                          1))))
                                             (mod #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(293
                                                      (r$833)
                                                      ((k$830 (zero?__inline__
                                                                r$833)))
                                                      #f))
                                                  (car (vector-ref cell$345 2))
                                                  6))
                                           (k$830 #f)))
                                        #t))
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(292
                                        (r$824)
                                        ((if r$824
                                           (href #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(288
                                                     (ne$356)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(287
                                                           (r$827)
                                                           ((bit-test
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(286
                                                                  (r$826)
                                                                  ((if r$826
                                                                     (k$810 #f)
                                                                     (proc$347
                                                                       k$810
                                                                       ne$356)))
                                                                  #f))
                                                              r$827
                                                              south-west))
                                                           #f))
                                                       (vector-ref ne$356 3)))
                                                     #f))
                                                 harr$346
                                                 (Cyc-fast-plus
                                                   (car (vector-ref cell$345 2))
                                                   3)
                                                 (Cyc-fast-plus
                                                   (cdr (vector-ref cell$345 2))
                                                   1))
                                           (k$810 #f)))
                                        #f))))
                                  #f))))
                            #f))))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t)))
       (760
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$1254) #f)))
       (old-parent$461
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             565
             #f
             #f
             #f
             2
             (564 564)
             #f
             (vector-ref node$460 4)
             0
             1
             #f
             #f
             #f))))
      ((set-size
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             669
             #f
             #f
             4
             (585 661 663 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(669
                  (k$1177 s$519)
                  ((get-set-root
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(668 (r$1178) ((k$1177 (car r$1178))) #f))
                     s$519))
                  #t)))
             3
             0
             #f
             #f
             #f))))
      ()
      ((763
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((764
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$856 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  330
                  #f
                  #f
                  #f
                  2
                  (327 329)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(326
                      (r$820)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(325
                            (k$851)
                            ((bit-test
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(324
                                   (r$852)
                                   ((if r$852
                                      (k$851 #f)
                                      (href #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(321
                                                (r$853)
                                                ((proc$347 k$851 r$853))
                                                #f))
                                            harr$346
                                            (Cyc-fast-plus
                                              (car (vector-ref cell$345 2))
                                              3)
                                            (Cyc-fast-sub
                                              (cdr (vector-ref cell$345 2))
                                              1))))
                                   #f))
                               (vector-ref cell$345 3)
                               south-east))
                            #t))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(320
                            (r$821)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(319
                                  (k$840)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(318
                                        (k$847)
                                        ((if (Cyc-fast-gt
                                               (car (vector-ref cell$345 2))
                                               0)
                                           (if (Cyc-fast-lte
                                                 (cdr (vector-ref cell$345 2))
                                                 (Cyc-fast-mul
                                                   2
                                                   (Cyc-fast-sub
                                                     (vector-ref harr$346 1)
                                                     1)))
                                             (k$847 (Cyc-fast-lte
                                                      (cdr (vector-ref
                                                             cell$345
                                                             2))
                                                      (Cyc-fast-mul
                                                        2
                                                        (Cyc-fast-sub
                                                          (vector-ref
                                                            harr$346
                                                            1)
                                                          1))))
                                             (mod #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(314
                                                      (r$850)
                                                      ((k$847 (zero?__inline__
                                                                r$850)))
                                                      #f))
                                                  (car (vector-ref cell$345 2))
                                                  6))
                                           (k$847 #f)))
                                        #t))
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(313
                                        (r$841)
                                        ((if r$841
                                           (href #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(309
                                                     (nw$359)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(308
                                                           (r$844)
                                                           ((bit-test
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(307
                                                                  (r$843)
                                                                  ((if r$843
                                                                     (k$840 #f)
                                                                     (proc$347
                                                                       k$840
                                                                       nw$359)))
                                                                  #f))
                                                              r$844
                                                              south-east))
                                                           #f))
                                                       (vector-ref nw$359 3)))
                                                     #f))
                                                 harr$346
                                                 (Cyc-fast-sub
                                                   (car (vector-ref cell$345 2))
                                                   3)
                                                 (Cyc-fast-plus
                                                   (cdr (vector-ref cell$345 2))
                                                   1))
                                           (k$840 #f)))
                                        #f))))
                                  #t))
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(306
                                  (r$822)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(305
                                        (k$834)
                                        ((if (Cyc-fast-lt
                                               (cdr (vector-ref cell$345 2))
                                               (Cyc-fast-mul
                                                 2
                                                 (Cyc-fast-sub
                                                   (vector-ref harr$346 1)
                                                   1)))
                                           (href #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(301
                                                     (n$358)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(300
                                                           (r$838)
                                                           ((bit-test
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(299
                                                                  (r$837)
                                                                  ((if r$837
                                                                     (k$834 #f)
                                                                     (proc$347
                                                                       k$834
                                                                       n$358)))
                                                                  #f))
                                                              r$838
                                                              south))
                                                           #f))
                                                       (vector-ref n$358 3)))
                                                     #f))
                                                 harr$346
                                                 (car (vector-ref cell$345 2))
                                                 (Cyc-fast-plus
                                                   (cdr (vector-ref cell$345 2))
                                                   2))
                                           (k$834 #f)))
                                        #t))
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(298
                                        (r$823)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(297
                                              (k$830)
                                              ((if (Cyc-fast-lt
                                                     (car (vector-ref
                                                            cell$345
                                                            2))
                                                     (Cyc-fast-mul
                                                       3
                                                       (Cyc-fast-sub
                                                         (vector-ref harr$346 2)
                                                         1)))
                                                 (if (Cyc-fast-lte
                                                       (cdr (vector-ref
                                                              cell$345
                                                              2))
                                                       (Cyc-fast-mul
                                                         2
                                                         (Cyc-fast-sub
                                                           (vector-ref
                                                             harr$346
                                                             1)
                                                           1)))
                                                   (k$830 (Cyc-fast-lte
                                                            (cdr (vector-ref
                                                                   cell$345
                                                                   2))
                                                            (Cyc-fast-mul
                                                              2
                                                              (Cyc-fast-sub
                                                                (vector-ref
                                                                  harr$346
                                                                  1)
                                                                1))))
                                                   (mod #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(293
                                                            (r$833)
                                                            ((k$830 (zero?__inline__
                                                                      r$833)))
                                                            #f))
                                                        (car (vector-ref
                                                               cell$345
                                                               2))
                                                        6))
                                                 (k$830 #f)))
                                              #t))
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(292
                                              (r$824)
                                              ((if r$824
                                                 (href #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(288
                                                           (ne$356)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(287
                                                                 (r$827)
                                                                 ((bit-test
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(286
                                                                        (r$826)
                                                                        ((if r$826
                                                                           (k$810 #f)
                                                                           (proc$347
                                                                             k$810
                                                                             ne$356)))
                                                                        #f))
                                                                    r$827
                                                                    south-west))
                                                                 #f))
                                                             (vector-ref
                                                               ne$356
                                                               3)))
                                                           #f))
                                                       harr$346
                                                       (Cyc-fast-plus
                                                         (car (vector-ref
                                                                cell$345
                                                                2))
                                                         3)
                                                       (Cyc-fast-plus
                                                         (cdr (vector-ref
                                                                cell$345
                                                                2))
                                                         1))
                                                 (k$810 #f)))
                                              #f))))
                                        #f))))
                                  #f))))
                            #f))))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t))))
      ((k$1050
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 561 #f #f #f 1 (553) #f #f 0 1 #t #f #t))))
      ()
      ()
      ((769
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$1266) #f))))
      ((770
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$1054
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 557 #f #f #f 2 (557 557) #f #f 1 1 #t #f #t))))
      ((771
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((772
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (harr:elts
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             539
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(539
                  (k$1029 o$438)
                  ((k$1029 (vector-ref o$438 3)))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ()
      ((774
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((775
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$1059
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 570 #f #f #f 1 (562) #f #f 0 1 #f #f #t))))
      ()
      ((777
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((778
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((779
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((780
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((781
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((782
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((783
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ((new-parent$459
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 567 #f #f #f 1 (565) #f #f 0 1 #t #f #f))))
      ()
      ((k$564 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 4 #f #f #f 1 (3) #f #f 1 0 #t #f #t)))
       (n$358 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 301 #f #f #f 2 (301 299) #f #f 0 2 #f #f #f))))
      ()
      ()
      ()
      ((k$568 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 71 #f #f #f 1 (5) #f #f 0 1 #t #f #t))))
      ()
      ()
      ((k$860 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  336
                  #f
                  #f
                  #f
                  2
                  (332 335)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(331
                      (r$819)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(330
                            (k$856)
                            ((bit-test
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(329
                                   (r$857)
                                   ((if r$857
                                      (k$856 #f)
                                      (href #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(327
                                                (r$858)
                                                ((proc$347 k$856 r$858))
                                                #f))
                                            harr$346
                                            (car (vector-ref cell$345 2))
                                            (Cyc-fast-sub
                                              (cdr (vector-ref cell$345 2))
                                              2))))
                                   #f))
                               (vector-ref cell$345 3)
                               south))
                            #t))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(326
                            (r$820)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(325
                                  (k$851)
                                  ((bit-test
                                     #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(324
                                         (r$852)
                                         ((if r$852
                                            (k$851 #f)
                                            (href #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(321
                                                      (r$853)
                                                      ((proc$347 k$851 r$853))
                                                      #f))
                                                  harr$346
                                                  (Cyc-fast-plus
                                                    (car (vector-ref
                                                           cell$345
                                                           2))
                                                    3)
                                                  (Cyc-fast-sub
                                                    (cdr (vector-ref
                                                           cell$345
                                                           2))
                                                    1))))
                                         #f))
                                     (vector-ref cell$345 3)
                                     south-east))
                                  #t))
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(320
                                  (r$821)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(319
                                        (k$840)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(318
                                              (k$847)
                                              ((if (Cyc-fast-gt
                                                     (car (vector-ref
                                                            cell$345
                                                            2))
                                                     0)
                                                 (if (Cyc-fast-lte
                                                       (cdr (vector-ref
                                                              cell$345
                                                              2))
                                                       (Cyc-fast-mul
                                                         2
                                                         (Cyc-fast-sub
                                                           (vector-ref
                                                             harr$346
                                                             1)
                                                           1)))
                                                   (k$847 (Cyc-fast-lte
                                                            (cdr (vector-ref
                                                                   cell$345
                                                                   2))
                                                            (Cyc-fast-mul
                                                              2
                                                              (Cyc-fast-sub
                                                                (vector-ref
                                                                  harr$346
                                                                  1)
                                                                1))))
                                                   (mod #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(314
                                                            (r$850)
                                                            ((k$847 (zero?__inline__
                                                                      r$850)))
                                                            #f))
                                                        (car (vector-ref
                                                               cell$345
                                                               2))
                                                        6))
                                                 (k$847 #f)))
                                              #t))
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(313
                                              (r$841)
                                              ((if r$841
                                                 (href #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(309
                                                           (nw$359)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(308
                                                                 (r$844)
                                                                 ((bit-test
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(307
                                                                        (r$843)
                                                                        ((if r$843
                                                                           (k$840 #f)
                                                                           (proc$347
                                                                             k$840
                                                                             nw$359)))
                                                                        #f))
                                                                    r$844
                                                                    south-east))
                                                                 #f))
                                                             (vector-ref
                                                               nw$359
                                                               3)))
                                                           #f))
                                                       harr$346
                                                       (Cyc-fast-sub
                                                         (car (vector-ref
                                                                cell$345
                                                                2))
                                                         3)
                                                       (Cyc-fast-plus
                                                         (cdr (vector-ref
                                                                cell$345
                                                                2))
                                                         1))
                                                 (k$840 #f)))
                                              #f))))
                                        #t))
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(306
                                        (r$822)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(305
                                              (k$834)
                                              ((if (Cyc-fast-lt
                                                     (cdr (vector-ref
                                                            cell$345
                                                            2))
                                                     (Cyc-fast-mul
                                                       2
                                                       (Cyc-fast-sub
                                                         (vector-ref harr$346 1)
                                                         1)))
                                                 (href #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(301
                                                           (n$358)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(300
                                                                 (r$838)
                                                                 ((bit-test
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(299
                                                                        (r$837)
                                                                        ((if r$837
                                                                           (k$834 #f)
                                                                           (proc$347
                                                                             k$834
                                                                             n$358)))
                                                                        #f))
                                                                    r$838
                                                                    south))
                                                                 #f))
                                                             (vector-ref
                                                               n$358
                                                               3)))
                                                           #f))
                                                       harr$346
                                                       (car (vector-ref
                                                              cell$345
                                                              2))
                                                       (Cyc-fast-plus
                                                         (cdr (vector-ref
                                                                cell$345
                                                                2))
                                                         2))
                                                 (k$834 #f)))
                                              #t))
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(298
                                              (r$823)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(297
                                                    (k$830)
                                                    ((if (Cyc-fast-lt
                                                           (car (vector-ref
                                                                  cell$345
                                                                  2))
                                                           (Cyc-fast-mul
                                                             3
                                                             (Cyc-fast-sub
                                                               (vector-ref
                                                                 harr$346
                                                                 2)
                                                               1)))
                                                       (if (Cyc-fast-lte
                                                             (cdr (vector-ref
                                                                    cell$345
                                                                    2))
                                                             (Cyc-fast-mul
                                                               2
                                                               (Cyc-fast-sub
                                                                 (vector-ref
                                                                   harr$346
                                                                   1)
                                                                 1)))
                                                         (k$830 (Cyc-fast-lte
                                                                  (cdr (vector-ref
                                                                         cell$345
                                                                         2))
                                                                  (Cyc-fast-mul
                                                                    2
                                                                    (Cyc-fast-sub
                                                                      (vector-ref
                                                                        harr$346
                                                                        1)
                                                                      1))))
                                                         (mod #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(293
                                                                  (r$833)
                                                                  ((k$830 (zero?__inline__
                                                                            r$833)))
                                                                  #f))
                                                              (car (vector-ref
                                                                     cell$345
                                                                     2))
                                                              6))
                                                       (k$830 #f)))
                                                    #t))
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(292
                                                    (r$824)
                                                    ((if r$824
                                                       (href #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(288
                                                                 (ne$356)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(287
                                                                       (r$827)
                                                                       ((bit-test
                                                                          #((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(286
                                                                              (r$826)
                                                                              ((if r$826
                                                                                 (k$810 #f)
                                                                                 (proc$347
                                                                                   k$810
                                                                                   ne$356)))
                                                                              #f))
                                                                          r$827
                                                                          south-west))
                                                                       #f))
                                                                   (vector-ref
                                                                     ne$356
                                                                     3)))
                                                                 #f))
                                                             harr$346
                                                             (Cyc-fast-plus
                                                               (car (vector-ref
                                                                      cell$345
                                                                      2))
                                                               3)
                                                             (Cyc-fast-plus
                                                               (cdr (vector-ref
                                                                      cell$345
                                                                      2))
                                                               1))
                                                       (k$810 #f)))
                                                    #f))))
                                              #f))))
                                        #f))))
                                  #f))))
                            #f))))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ((nrows$331
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 258 #f #f #f 1 (258) #f #f 0 1 #t #f #f))))
      ()
      ((ok?$261
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 71 #f #f #f 1 (49) #f #f 1 0 #f #f #f))))
      ()
      ((k$869 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 393 #f #f #f 1 (357) #f #f 0 1 #f #f #t)))
       (k$1062
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 567 #f #f #f 2 (564 564) #f #f 1 1 #t #f #t))))
      ()
      ((nrows$337
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             285
             #f
             #f
             #f
             3
             (285 279 267)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ()
      ()
      ((k$1067
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 580 #f #f #f 1 (571) #f #f 0 1 #f #f #t))))
      ()
      ((entrance$371
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 384 #f #f #f 2 (379 383) #f #f 0 2 #f #f #f))))
      ()
      ((output
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             #f
             #f
             #f
             5
             (111 108 251 250 -1)
             #t
             '()
             0
             2
             #f
             #f
             #f))))
      ((j1$276
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 38 #f #f #f 2 (26 14) #f #f 0 2 #t #f #f))))
      ()
      ((entrance$376
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             377
             #f
             #f
             #f
             1
             (366)
             #f
             entrance$371
             0
             1
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((loop$273
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             50
             #f
             #f
             #f
             3
             (7 50 5)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(49
                 (k$579 i$275 result$274)
                 ((if (Cyc-fast-lt i$275 count$263)
                    (thunk$262
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(7
                          (r$582)
                          ((loop$273 k$579 (Cyc-fast-plus i$275 1) r$582))
                          #f)))
                    (ok?$261
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(47
                          (r$583)
                          ((if r$583
                             (current-jiffy
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(38
                                   (j1$276)
                                   ((current-second
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(36
                                          (t1$277)
                                          ((rounded$266
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(28
                                                 (secs2$280)
                                                 ((display
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(26
                                                        (r$590)
                                                        ((write #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(25
                                                                    (r$591)
                                                                    ((display
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(24
                                                                           (r$592)
                                                                           ((write #((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(23
                                                                                       (r$593)
                                                                                       ((display
                                                                                          #((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(22
                                                                                              (r$594)
                                                                                              ((display
                                                                                                 #((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(21
                                                                                                     (r$595)
                                                                                                     ((newline
                                                                                                        #((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(20
                                                                                                            (r$596)
                                                                                                            ((display
                                                                                                               #((record-marker)
                                                                                                                 #((record-marker)
                                                                                                                   #f
                                                                                                                   (id args
                                                                                                                       body
                                                                                                                       has-cont))
                                                                                                                 #(19
                                                                                                                   (r$597)
                                                                                                                   ((this-scheme-implementation-name
                                                                                                                      #((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(18
                                                                                                                          (r$605)
                                                                                                                          ((display
                                                                                                                             #((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(17
                                                                                                                                 (r$598)
                                                                                                                                 ((display
                                                                                                                                    #((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(16
                                                                                                                                        (r$599)
                                                                                                                                        ((display
                                                                                                                                           #((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(15
                                                                                                                                               (r$600)
                                                                                                                                               ((display
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(14
                                                                                                                                                      (r$601)
                                                                                                                                                      ((display
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #f
                                                                                                                                                             (id args
                                                                                                                                                                 body
                                                                                                                                                                 has-cont))
                                                                                                                                                           #(13
                                                                                                                                                             (r$602)
                                                                                                                                                             ((newline
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #f
                                                                                                                                                                    (id args
                                                                                                                                                                        body
                                                                                                                                                                        has-cont))
                                                                                                                                                                  #(12
                                                                                                                                                                    (r$603)
                                                                                                                                                                    ((current-output-port
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #f
                                                                                                                                                                           (id args
                                                                                                                                                                               body
                                                                                                                                                                               has-cont))
                                                                                                                                                                         #(11
                                                                                                                                                                           (r$604)
                                                                                                                                                                           ((flush-output-port
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(10
                                                                                                                                                                                  (r$584)
                                                                                                                                                                                  ((k$579 result$274))
                                                                                                                                                                                  #f))
                                                                                                                                                                              r$604))
                                                                                                                                                                           #f))))
                                                                                                                                                                    #f))))
                                                                                                                                                             #f))
                                                                                                                                                         (inexact__inline__
                                                                                                                                                           (Cyc-fast-div
                                                                                                                                                             (Cyc-fast-sub
                                                                                                                                                               j1$276
                                                                                                                                                               j0$270)
                                                                                                                                                             j/s$268))))
                                                                                                                                                      #f))
                                                                                                                                                  ","))
                                                                                                                                               #f))
                                                                                                                                           name$264))
                                                                                                                                        #f))
                                                                                                                                    ","))
                                                                                                                                 #f))
                                                                                                                             r$605))
                                                                                                                          #f))))
                                                                                                                   #f))
                                                                                                               "+!CSVLINE!+"))
                                                                                                            #f))))
                                                                                                     #f))
                                                                                                 name$264))
                                                                                              #f))
                                                                                          ") for "))
                                                                                       #f))
                                                                                   secs2$280))
                                                                           #f))
                                                                       " seconds ("))
                                                                    #f))
                                                                (inexact__inline__
                                                                  (Cyc-fast-div
                                                                    (Cyc-fast-sub
                                                                      j1$276
                                                                      j0$270)
                                                                    j/s$268))))
                                                        #f))
                                                    "Elapsed time: "))
                                                 #f))
                                             (Cyc-fast-sub t1$277 t0$269)))
                                          #f))))
                                   #f)))
                             (display
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(45
                                   (r$608)
                                   ((write #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(44
                                               (r$609)
                                               ((newline
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(43
                                                      (r$610)
                                                      ((current-output-port
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(42
                                                             (r$612)
                                                             ((flush-output-port
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(41
                                                                    (r$611)
                                                                    ((k$579 result$274))
                                                                    #f))
                                                                r$612))
                                                             #f))))
                                                      #f))))
                                               #f))
                                           result$274))
                                   #f))
                               "ERROR: returned incorrect result: ")))
                          #f))
                      result$274)))
                 #t))
             2
             0
             #t
             #f
             #f))))
      ()
      ()
      ((%halt .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(? ? #f #f #f 1 (-1) #f #f 0 1 #f #f #f))))
      ()
      ((k$579 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 49 #f #f #f 3 (41 10 7) #f #f 2 1 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((i$424 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  513
                  #f
                  #f
                  #f
                  1
                  (498)
                  #f
                  (Cyc-fast-mul r$422 ncols$417)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((k$876 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 384 #f #f #f 2 (364 383) #f #f 0 2 #f #f #t))))
      ((k$1070
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 577 #f #f #f 1 (576) #f #f 0 1 #f #f #t))))
      ((i$427 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 511 #f #f #f 2 (503 502) #f #f 0 2 #t #f #f))))
      ()
      ((k$1073
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 575 #f #f #f 2 (574 574) #f #f 1 1 #f #f #t))))
      ()
      ()
      ()
      ((k$1077
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 604 #f #f #f 1 (604) #f #f 0 1 #t #f #t))))
      ()
      ((k$1079
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 603 #f #f #f 1 (603) #f #f 0 1 #t #f #t)))
       (entrance$381
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 375 #f #f #f 2 (370 374) #f #f 0 2 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((cell$345
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             356
             #f
             #f
             #f
             24
             (292
              292
              297
              297
              297
              297
              305
              305
              305
              313
              313
              318
              318
              318
              318
              325
              324
              324
              330
              329
              329
              336
              335
              335)
             #f
             #f
             0
             24
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$888 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  375
                  #f
                  #f
                  #f
                  3
                  (370 368 374)
                  #f
                  #f
                  0
                  3
                  #f
                  #f
                  #t)))
       (k$1081
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             602
             #f
             #f
             #f
             3
             (584 584 592)
             #f
             #f
             2
             1
             #f
             #f
             #t))))
      ()
      ()
      ()
      ()
      ()
      ((r$1100
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             606
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$484
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(617
                   (k$1102 i$485)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(616
                         (r$1103)
                         ((if r$1103
                            (#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(614
                                 (r$1106)
                                 ((random-int
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(613
                                        (r$1107)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(612
                                              (elt-i$487 j$486)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(611
                                                    (r$1109)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(610
                                                          (r$1108)
                                                          ((#((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(609
                                                                (r$1104)
                                                                ((lp$484
                                                                   k$1102
                                                                   (Cyc-fast-sub
                                                                     i$485
                                                                     1)))
                                                                #f))
                                                            (vector-set!
                                                              v$482
                                                              j$486
                                                              elt-i$487)))
                                                          #f))
                                                      (vector-set!
                                                        v$482
                                                        i$485
                                                        r$1109)))
                                                    #f))
                                                (vector-ref v$482 j$486)))
                                              #f))
                                          r$1106
                                          r$1107))
                                        #f))
                                    i$485
                                    random-state$481))
                                 #f))
                             (vector-ref v$482 i$485))
                            (k$1102 #f)))
                         #f))
                     (Cyc-fast-gt i$485 1)))
                   #t)))
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ((r$1103
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             616
             #f
             #f
             #f
             1
             (616)
             #f
             (Cyc-fast-gt i$485 1)
             0
             0
             #t
             #f
             #f))))
      ((lp$524
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             694
             #f
             #f
             #f
             3
             (693 694 673)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(693
                 (k$1189 r$525)
                 ((if (pair? (cdr r$525))
                    (lp$524 k$1189 (cdr r$525))
                    (#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(688
                         (k$1193)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(687
                               (r$1194)
                               ((if r$1194
                                  (k$1193 #f)
                                  (#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(686
                                       (x$527)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(685
                                             (lp$528)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(677
                                                   (r$1195)
                                                   ((lp$528 k$1193 x$527))
                                                   #f))
                                               (set! lp$528
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(684
                                                     (k$1197 x$529)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(682
                                                           (next$530)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(681
                                                                 (r$1199)
                                                                 ((if r$1199
                                                                    (k$1197 #f)
                                                                    (#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(679
                                                                         (r$1200)
                                                                         ((lp$528
                                                                            k$1197
                                                                            next$530))
                                                                         #f))
                                                                     (set-cdr!
                                                                       x$529
                                                                       r$525))))
                                                                 #f))
                                                             (eq? r$525
                                                                  next$530)))
                                                           #f))
                                                       (cdr x$529)))
                                                     #t)))))
                                             #f))
                                         #f))
                                       #f))
                                   s$522)))
                               #f))
                           (eq? r$525 s$522)))
                         #t))
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(676 (r$1192) ((k$1189 r$525)) #f)))))
                 #t))
             2
             0
             #f
             #f
             #f)))
       (r$1104
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             609
             #f
             #f
             #f
             0
             ()
             #f
             (vector-set! v$482 j$486 elt-i$487)
             0
             0
             #t
             #f
             #f))))
      ()
      ((r$1106
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             614
             #f
             #f
             #f
             1
             (613)
             #f
             (vector-ref v$482 i$485)
             0
             1
             #f
             #f
             #f))))
      ((r$1107
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 613 #f #f #f 1 (613) #f #f 0 1 #t #f #f))))
      ((lp$528
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             685
             #f
             #f
             #f
             3
             (679 685 677)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(684
                 (k$1197 x$529)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(682
                       (next$530)
                       ((#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(681
                             (r$1199)
                             ((if r$1199
                                (k$1197 #f)
                                (#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(679
                                     (r$1200)
                                     ((lp$528 k$1197 next$530))
                                     #f))
                                 (set-cdr! x$529 r$525))))
                             #f))
                         (eq? r$525 next$530)))
                       #f))
                   (cdr x$529)))
                 #t))
             2
             0
             #f
             #f
             #f)))
       (r$1108
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             610
             #f
             #f
             #f
             0
             ()
             #f
             (vector-set! v$482 i$485 r$1109)
             0
             0
             #t
             #f
             #f)))
       (r$700 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 163 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$1109
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             611
             #f
             #f
             #f
             1
             (611)
             #f
             (vector-ref v$482 j$486)
             0
             1
             #t
             #f
             #f)))
       (r$701 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 162 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$702 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 145 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((bcol$374
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             377
             #f
             #f
             #f
             1
             (366)
             #f
             (Cyc-fast-sub ncols$362 1)
             0
             1
             #f
             #f
             #f)))
       (r$703 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 136 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$704 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 135 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ((r$707 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 143 #f #f #f 1 (143) #f #f 0 0 #t #f #f))))
      ((bcol$379
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             375
             #f
             #f
             #f
             5
             (375 374 370 370 368)
             #f
             #f
             0
             5
             #f
             #f
             #f))))
      ((r$709 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 138 #f #f #f 1 (138) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((round__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (68) #f #f 1 0 #t #f #f)))
       (nrows$363
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 388 #f #f #f 1 (383) #f r$871 0 1 #t #f #f))))
      ()
      ((k$899 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 487 #f #f #f 1 (394) #f #f 1 0 #t #f #t))))
      ()
      ((cons .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 7
                 (251 282 476 491 491 698 718)
                 #f
                 #f
                 7
                 0
                 #t
                 #f
                 #f)))
       (tcol$369
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             384
             #f
             #f
             #f
             4
             (384 383 368 364)
             #f
             #f
             0
             4
             #f
             #f
             #f))))
      ()
      ()
      ((k$1097
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 622 #f #f #f 1 (605) #f #f 1 0 #t #f #t)))
       (r$1110
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             621
             #f
             #f
             #f
             1
             (606)
             #f
             (vector-length v$482)
             0
             1
             #t
             #f
             #f)))
       (r$413 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 492 #f #f #f 1 (492) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ((r$1115
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             623
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$491
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(630
                   (k$1117 i$492)
                   ((if (Cyc-fast-gte i$492 0)
                      (proc$489
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(626
                            (r$1119)
                            ((lp$491 k$1117 (Cyc-fast-sub i$492 1)))
                            #f))
                        (vector-ref v$488 i$492))
                      (k$1117 #f)))
                   #t)))
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ((bit$509
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 650 #f #f #f 1 (650) #f #f 0 1 #t #f #f))))
      ((r$1119
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 626 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$712 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  146
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$207$314
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(159
                        (k$714 c$315)
                        ((if (Cyc-fast-gte c$315 (Cyc-fast-mul 2 r$773))
                           (k$714 (Cyc-fast-gte c$315 (Cyc-fast-mul 2 r$773)))
                           (href/rc
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(155
                                 (r$723)
                                 ((display-hexbottom
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(153
                                        (r$716)
                                        ((dot/space
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(150
                                               (r$719)
                                               ((write-ch
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(149
                                                      (r$717)
                                                      ((lp$207$314
                                                         k$714
                                                         (Cyc-fast-plus
                                                           c$315
                                                           2)))
                                                      #f))
                                                  r$719))
                                               #f))
                                           harr$305
                                           (Cyc-fast-sub r$311 1)
                                           (Cyc-fast-plus c$315 1)))
                                        #f))
                                    (vector-ref r$723 3)))
                                 #f))
                             harr$305
                             r$311
                             c$315)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((n$394 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 477 #f #f #f 1 (477) #f #f 0 1 #t #f #f))))
      ((lp$200$318
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             184
             #f
             #f
             #f
             3
             (174 184 171)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(183
                 (k$731 c$319)
                 ((if (Cyc-fast-gte c$319 (Cyc-fast-mul 2 r$773))
                    (k$731 (Cyc-fast-gte c$319 (Cyc-fast-mul 2 r$773)))
                    (dot/space
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(178
                          (r$738)
                          ((write-ch
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(177
                                 (r$733)
                                 ((href/rc
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(176
                                        (r$737)
                                        ((display-hexbottom
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(174
                                               (r$734)
                                               ((lp$200$318
                                                  k$731
                                                  (Cyc-fast-plus c$319 2)))
                                               #f))
                                           (vector-ref r$737 3)))
                                        #f))
                                    harr$305
                                    r$311
                                    c$319))
                                 #f))
                             r$738))
                          #f))
                      harr$305
                      r$311
                      (Cyc-fast-sub c$319 1))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((r$716 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 153 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((elt-i$487
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 612 #f #f #f 1 (610) #f r$1106 0 1 #t #f #f)))
       (r$717 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 149 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((r$719 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 150 #f #f #f 1 (150) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$422 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  518
                  #f
                  #f
                  #f
                  5
                  (518 505 497 518 518)
                  #f
                  #f
                  0
                  5
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$723 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 155 #f #f #f 1 (155) #f #f 0 1 #t #f #f))))
      ()
      ((r$725 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 168 #f #f #f 1 (168) #f #f 0 0 #t #f #f))))
      ((r$726 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 164 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$727 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 165 #f #f #f 1 (165) #f #f 0 1 #t #f #f))))
      ()
      ((r$729 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  171
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$200$318
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(183
                        (k$731 c$319)
                        ((if (Cyc-fast-gte c$319 (Cyc-fast-mul 2 r$773))
                           (k$731 (Cyc-fast-gte c$319 (Cyc-fast-mul 2 r$773)))
                           (dot/space
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(178
                                 (r$738)
                                 ((write-ch
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(177
                                        (r$733)
                                        ((href/rc
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(176
                                               (r$737)
                                               ((display-hexbottom
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(174
                                                      (r$734)
                                                      ((lp$200$318
                                                         k$731
                                                         (Cyc-fast-plus
                                                           c$319
                                                           2)))
                                                      #f))
                                                  (vector-ref r$737 3)))
                                               #f))
                                           harr$305
                                           r$311
                                           c$319))
                                        #f))
                                    r$738))
                                 #f))
                             harr$305
                             r$311
                             (Cyc-fast-sub c$319 1))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((inexact__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (26 14) #f #f 2 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((s1$513
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 667 #f #f #f 1 (667) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((jiffies-per-second
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (59) #f #f 1 0 #f #f #f))))
      ((r$431 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 530 #f #f #f 1 (530) #f #f 0 1 #t #f #f))))
      ((hex$411
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             452
             #f
             #f
             #f
             3
             (444 438 447)
             #f
             #f
             0
             3
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ((Cyc-fast-gte
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             12
             (127 238 238 219 219 183 183 159 159 630 740 763)
             #f
             #f
             12
             0
             #t
             #f
             #f)))
       (parent$468
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 577 #f #f #f 2 (577 575) #f #f 0 2 #t #f #f)))
       (r$437 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 535 #f #f #f 1 (535) #f r$1021 0 1 #t #f #f))))
      ((owner$511
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 650 #f #f #f 1 (650) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((r$733 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 177 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$734 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 174 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ((r$737 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 176 #f #f #f 1 (176) #f #f 0 1 #t #f #f))))
      ((r$738 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 178 #f #f #f 1 (178) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((c$299 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 128 #f #f #f 1 (127) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((exact-integer?__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             4
             (740 740 763 763)
             #f
             #f
             4
             0
             #t
             #f
             #f)))
       (s1$521
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 672 #f #f #f 1 (672) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$741 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 200 #f #f #f 1 (200) #f #f 0 0 #t #f #f))))
      ((r$742 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 196 #f #f #f 1 (196) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r$746 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  203
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$192$322
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(219
                        (k$748 c$323)
                        ((if (Cyc-fast-gte c$323 (Cyc-fast-mul 2 r$773))
                           (k$748 (Cyc-fast-gte c$323 (Cyc-fast-mul 2 r$773)))
                           (#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(215
                                (k$759)
                                ((if (Cyc-fast-eq c$323 entrance$304)
                                   (k$759 #\space)
                                   (k$759 #\_)))
                                #t))
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(213
                                (r$758)
                                ((write-ch
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(212
                                       (r$750)
                                       ((write-ch
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(211
                                              (r$751)
                                              ((dot/space
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(208
                                                     (r$755)
                                                     ((write-ch
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(207
                                                            (r$752)
                                                            ((write-ch
                                                               #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(206
                                                                   (r$753)
                                                                   ((lp$192$322
                                                                      k$748
                                                                      (Cyc-fast-plus
                                                                        c$323
                                                                        2)))
                                                                   #f))
                                                               #\\))
                                                            #f))
                                                        r$755))
                                                     #f))
                                                 harr$305
                                                 (Cyc-fast-sub
                                                   (vector-ref harr$305 1)
                                                   1)
                                                 (Cyc-fast-plus c$323 1)))
                                              #f))
                                          #\/))
                                       #f))
                                   r$758))
                                #f)))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((Cyc-fast-eq
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             14
             (231
              215
              199
              511
              511
              584
              737
              737
              760
              760
              781
              780
              779
              778)
             #f
             #f
             14
             0
             #t
             #f
             #f))))
      ()
      ((read .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 4
                 (101 103 105 107)
                 #f
                 #f
                 4
                 0
                 #f
                 #f
                 #f))))
      ()
      ()
      ((bitwise-and
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             781
             #f
             #f
             7
             (131 261 467 511 587 774 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(781
                  (k$1259 x$558 y$557)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(780
                        (r$1260)
                        ((if r$1260
                           (k$1259 0)
                           (#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(779
                                (r$1261)
                                ((if r$1261
                                   (k$1259 0)
                                   (#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(778
                                        (r$1262)
                                        ((if r$1262
                                           (k$1259 y$557)
                                           (#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(777
                                                (r$1263)
                                                ((if r$1263
                                                   (k$1259 x$558)
                                                   (div #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(775
                                                            (r$1268)
                                                            ((div #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(774
                                                                      (r$1269)
                                                                      ((bitwise-and
                                                                         #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(772
                                                                             (z$559)
                                                                             ((#((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(771
                                                                                   (k$1266)
                                                                                   ((odd? #((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(770
                                                                                              (r$1267)
                                                                                              ((if r$1267
                                                                                                 (odd? k$1266
                                                                                                       y$557)
                                                                                                 (k$1266
                                                                                                   #f)))
                                                                                              #f))
                                                                                          x$558))
                                                                                   #t))
                                                                               #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(769
                                                                                   (r$1265)
                                                                                   ((if r$1265
                                                                                      (k$1259
                                                                                        (+ z$559
                                                                                           z$559
                                                                                           1))
                                                                                      (k$1259
                                                                                        (Cyc-fast-plus
                                                                                          z$559
                                                                                          z$559))))
                                                                                   #f))))
                                                                             #f))
                                                                         r$1268
                                                                         r$1269))
                                                                      #f))
                                                                  y$557
                                                                  2))
                                                            #f))
                                                        x$558
                                                        2)))
                                                #f))
                                            (Cyc-fast-eq y$557 -1))))
                                        #f))
                                    (Cyc-fast-eq x$558 -1))))
                                #f))
                            (Cyc-fast-eq y$557 0))))
                        #f))
                    (Cyc-fast-eq x$558 0)))
                  #t)))
             6
             0
             #f
             #f
             #f))))
      ()
      ()
      ((i$485 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  617
                  #f
                  #f
                  #f
                  5
                  (617 616 614 611 609)
                  #f
                  #f
                  0
                  5
                  #f
                  #f
                  #f))))
      ((current-jiffy
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (47 55) #f #f 2 0 #f #f #f))))
      ()
      ()
      ((Cyc-fast-mul
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             41
             (68
              219
              219
              183
              183
              159
              159
              279
              297
              297
              297
              305
              318
              318
              442
              434
              430
              425
              416
              395
              419
              419
              419
              525
              518
              505
              505
              530
              535
              706
              706
              706
              706
              706
              706
              737
              737
              737
              737
              760
              760)
             #f
             #f
             41
             0
             #t
             #f
             #f))))
      ((div .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                -1
                764
                #f
                #f
                8
                (249 428 537 538 715 -1 775 777)
                #f
                (#((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(764
                     (k$1243 x$552 y$551)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(763
                           (k$1254)
                           ((if (exact-integer?__inline__ x$552)
                              (if (exact-integer?__inline__ y$551)
                                (k$1254 (Cyc-fast-gte x$552 0))
                                (k$1254 #f))
                              (k$1254 #f)))
                           #t))
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(760
                           (r$1244)
                           ((if r$1244
                              (k$1243 (quotient__inline__ x$552 y$551))
                              (if (Cyc-fast-lt y$551 0)
                                (if (Cyc-fast-eq
                                      (Cyc-fast-sub
                                        x$552
                                        (Cyc-fast-mul
                                          (quotient__inline__ x$552 y$551)
                                          y$551))
                                      0)
                                  (k$1243 (quotient__inline__ x$552 y$551))
                                  (k$1243
                                    (Cyc-fast-plus
                                      (quotient__inline__ x$552 y$551)
                                      1)))
                                (if (Cyc-fast-eq
                                      (Cyc-fast-sub
                                        x$552
                                        (Cyc-fast-mul
                                          (quotient__inline__ x$552 y$551)
                                          y$551))
                                      0)
                                  (k$1243 (quotient__inline__ x$552 y$551))
                                  (k$1243
                                    (Cyc-fast-sub
                                      (quotient__inline__ x$552 y$551)
                                      1))))))
                           #f))))
                     #t)))
                7
                0
                #f
                #f
                #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((Cyc-fast-sub
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             63
             (36
              26
              14
              211
              183
              153
              135
              143
              168
              132
              199
              267
              297
              297
              297
              305
              313
              318
              318
              324
              329
              335
              335
              383
              379
              370
              370
              364
              357
              446
              437
              442
              442
              451
              451
              434
              433
              430
              428
              416
              405
              398
              395
              419
              419
              497
              494
              609
              606
              626
              623
              706
              706
              706
              737
              737
              737
              737
              737
              760
              760
              760
              782)
             #f
             #f
             63
             0
             #t
             #f
             #f)))
       (r$750 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 212 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$751 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 211 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$752 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 207 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$753 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 206 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((r$755 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 208 #f #f #f 1 (208) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((wall$474
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             602
             #f
             #f
             #f
             8
             (602 602 592 589 588 588 586 585)
             #f
             #f
             0
             8
             #t
             #t
             #f)))
       (r$758 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 213 #f #f #f 1 (213) #f #f 0 1 #t #f #f))))
      ((pair? .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(? ? #f #f #f 1 (693) #f #f 1 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((i$492 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  630
                  #f
                  #f
                  #f
                  3
                  (630 626 630)
                  #f
                  #f
                  0
                  3
                  #t
                  #f
                  #f)))
       (make-vector
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (525) #f #f 1 0 #t #f #f))))
      ((root$463
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 580 #f #f #f 1 (580) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((walls$339
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 279 #f #f #f 1 (279) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$761 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  225
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$188$326
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(238
                        (k$763 c$327)
                        ((if (Cyc-fast-gte c$327 (vector-ref harr$305 2))
                           (k$763 (Cyc-fast-gte c$327 (vector-ref harr$305 2)))
                           (write-ch
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(234
                                 (r$765)
                                 ((write-ch
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(233
                                        (r$766)
                                        ((write-ch
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(232
                                               (r$767)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(231
                                                     (k$771)
                                                     ((if (Cyc-fast-eq
                                                            c$327
                                                            entrance$304)
                                                        (k$771 #\space)
                                                        (k$771 #\_)))
                                                     #t))
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(229
                                                     (r$770)
                                                     ((write-ch
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(228
                                                            (r$768)
                                                            ((lp$188$326
                                                               k$763
                                                               (Cyc-fast-plus
                                                                 c$327
                                                                 2)))
                                                            #f))
                                                        r$770))
                                                     #f))))
                                               #f))
                                           #\space))
                                        #f))
                                    #\space))
                                 #f))
                             #\space)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ((r$765 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 234 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$766 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 233 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$767 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 232 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$768 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 228 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((Cyc-fast-gt
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             6
             (318 371 428 617 659 706)
             #f
             #f
             6
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((child$470
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 575 #f #f #f 2 (575 574) #f #f 0 2 #f #f #f)))
       (walls$344
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             267
             #f
             #f
             #f
             1
             (261)
             #f
             (vector-ref exit-cell$343 3)
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$1173
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             651
             #f
             #f
             #f
             0
             ()
             #f
             (set-cdr! r2$515 r1$514)
             0
             0
             #t
             #f
             #f))))
      ((r$1174
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             653
             #f
             #f
             #f
             0
             ()
             #f
             (set-cdr! r1$514 r2$515)
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((r$1178
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 668 #f #f #f 1 (668) #f #f 0 1 #t #f #f)))
       (r$770 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 229 #f #f #f 1 (229) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((r$773 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  244
                  #f
                  #f
                  #f
                  6
                  (219 219 183 183 159 159)
                  #f
                  #f
                  0
                  6
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ((ne$356
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 288 #f #f #f 2 (288 286) #f #f 0 2 #f #f #f)))
       (r$777 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  250
                  #f
                  #f
                  #f
                  1
                  (250)
                  #f
                  (cons c$329 output)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ((seed$539
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             715
             #f
             #f
             #f
             2
             (715 713)
             #f
             (car state$534)
             0
             2
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((o$395 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 477 #f #f #f 1 (477) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$1182
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 671 #f #f #f 1 (670) #f #f 0 1 #t #f #f)))
       (output$290
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 99 #f #f #f 1 (85) #f #f 0 1 #t #f #f))))
      ((r$1183
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 670 #f #f #f 1 (670) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r$1187
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             673
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$524
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(693
                   (k$1189 r$525)
                   ((if (pair? (cdr r$525))
                      (lp$524 k$1189 (cdr r$525))
                      (#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(688
                           (k$1193)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(687
                                 (r$1194)
                                 ((if r$1194
                                    (k$1193 #f)
                                    (#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(686
                                         (x$527)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(685
                                               (lp$528)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(677
                                                     (r$1195)
                                                     ((lp$528 k$1193 x$527))
                                                     #f))
                                                 (set! lp$528
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(684
                                                       (k$1197 x$529)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(682
                                                             (next$530)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(681
                                                                   (r$1199)
                                                                   ((if r$1199
                                                                      (k$1197
                                                                        #f)
                                                                      (#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(679
                                                                           (r$1200)
                                                                           ((lp$528
                                                                              k$1197
                                                                              next$530))
                                                                           #f))
                                                                       (set-cdr!
                                                                         x$529
                                                                         r$525))))
                                                                   #f))
                                                               (eq? r$525
                                                                    next$530)))
                                                             #f))
                                                         (cdr x$529)))
                                                       #t)))))
                                               #f))
                                           #f))
                                         #f))
                                     s$522)))
                                 #f))
                             (eq? r$525 s$522)))
                           #t))
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(676 (r$1192) ((k$1189 r$525)) #f)))))
                   #t)))
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ((+ .
          #((record-marker)
            #((record-marker)
              #f
              (global
                defined-by
                defines-lambda-id
                const
                const-value
                ref-count
                ref-by
                reassigned
                assigned-value
                app-fnc-count
                app-arg-count
                inlinable
                mutated-indirectly
                cont))
            #(? ? #f #f #f 1 (769) #f #f 1 0 #t #f #f))))
      ((ncols$296
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 111 #f #f #f 1 (109) #f #f 0 1 #f #f #f))))
      ((- .
          #((record-marker)
            #((record-marker)
              #f
              (global
                defined-by
                defines-lambda-id
                const
                const-value
                ref-count
                ref-by
                reassigned
                assigned-value
                app-fnc-count
                app-arg-count
                inlinable
                mutated-indirectly
                cont))
            #(? ? #f #f #f 1 (783) #f #f 1 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((do-children$462
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 580 #f #f #f 1 (576) #f #f 1 0 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((current-second
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (38 57) #f #f 2 0 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$1192
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 676 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((bit-test
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             131
             #f
             #f
             10
             (114 118 122 -1 287 300 308 325 330 336)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(131
                  (k$678 j$303 bit$302)
                  ((bitwise-and
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(130
                         (r$680)
                         ((k$678 (not__inline__ (zero?__inline__ r$680))))
                         #f))
                     j$303
                     bit$302))
                  #t)))
             9
             0
             #f
             #f
             #f))))
      ((r$1194
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             687
             #f
             #f
             #f
             1
             (687)
             #f
             (eq? r$525 s$522)
             0
             0
             #t
             #f
             #f))))
      ((r$1195
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             677
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$528
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(684
                   (k$1197 x$529)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(682
                         (next$530)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(681
                               (r$1199)
                               ((if r$1199
                                  (k$1197 #f)
                                  (#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(679
                                       (r$1200)
                                       ((lp$528 k$1197 next$530))
                                       #f))
                                   (set-cdr! x$529 r$525))))
                               #f))
                           (eq? r$525 next$530)))
                         #f))
                     (cdr x$529)))
                   #t)))
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ((s2$512
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 667 #f #f #f 1 (665) #f #f 0 1 #f #f #f))))
      ((r$1199
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             681
             #f
             #f
             #f
             1
             (681)
             #f
             (eq? r$525 next$530)
             0
             0
             #t
             #f
             #f))))
      ((r$792 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 276 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((ha$432
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 530 #f #f #f 2 (530 530) #f #f 0 2 #t #f #f))))
      ()
      ()
      ((ha$435
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 538 #f #f #f 2 (535 535) #f #f 0 2 #t #f #f))))
      ((reverse
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (108) #f #f 1 0 #f #f #f))))
      ((r$798 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 263 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$799 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 262 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((call-with-values
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (83) #f #f 1 0 #f #f #f))))
      ()
      ()
      ()
      ((k$706 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  144
                  #f
                  #f
                  #f
                  3
                  (143 143 138)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(136
                      (r$703)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(135
                             (r$704)
                             ((lp$196$310 k$696 (Cyc-fast-sub r$311 1)))
                             #f))
                         #\newline))
                      #f))
                  1
                  2
                  #f
                  #f
                  #t))))
      ((s2$520
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 672 #f #f #f 1 (671) #f #f 0 1 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((s1$293
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             93
             #f
             #f
             #f
             1
             (93)
             #f
             (number->string input1$288)
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((k$1203
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 698 #f #f #f 1 (698) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ((k$1207
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 700 #f #f #f 1 (699) #f #f 0 1 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((secs2$280
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 28 #f #f #f 1 (24) #f #f 0 1 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$714 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 159 #f #f #f 2 (149 159) #f #f 1 1 #t #f #t))))
      ((result$274
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             49
             #f
             #f
             #f
             4
             (49 45 41 10)
             #f
             #f
             0
             4
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((mod .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                -1
                741
                #f
                #f
                5
                (297 318 699 713 -1)
                #f
                (#((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(741
                     (k$1227 x$546 y$545)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(740
                           (k$1238)
                           ((if (exact-integer?__inline__ x$546)
                              (if (exact-integer?__inline__ y$545)
                                (k$1238 (Cyc-fast-gte x$546 0))
                                (k$1238 #f))
                              (k$1238 #f)))
                           #t))
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(737
                           (r$1228)
                           ((if r$1228
                              (remainder k$1227 x$546 y$545)
                              (if (Cyc-fast-lt y$545 0)
                                (if (Cyc-fast-eq
                                      (Cyc-fast-sub
                                        x$546
                                        (Cyc-fast-mul
                                          (quotient__inline__ x$546 y$545)
                                          y$545))
                                      0)
                                  (k$1227 0)
                                  (k$1227
                                    (Cyc-fast-sub
                                      (Cyc-fast-sub
                                        x$546
                                        (Cyc-fast-mul
                                          (quotient__inline__ x$546 y$545)
                                          y$545))
                                      y$545)))
                                (if (Cyc-fast-eq
                                      (Cyc-fast-sub
                                        x$546
                                        (Cyc-fast-mul
                                          (quotient__inline__ x$546 y$545)
                                          y$545))
                                      0)
                                  (k$1227 0)
                                  (k$1227
                                    (Cyc-fast-plus
                                      (Cyc-fast-sub
                                        x$546
                                        (Cyc-fast-mul
                                          (quotient__inline__ x$546 y$545)
                                          y$545))
                                      y$545))))))
                           #f))))
                     #t)))
                4
                0
                #f
                #f
                #f)))
       (j$486 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  612
                  #f
                  #f
                  #f
                  2
                  (612 610)
                  #f
                  r$1107
                  0
                  2
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ((k$1211
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 717 #f #f #f 1 (701) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ((Cyc-fast-lt
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             18
             (49
              78
              190
              190
              297
              305
              384
              375
              442
              467
              467
              409
              409
              419
              518
              518
              737
              760)
             #f
             #f
             18
             0
             #t
             #f
             #f))))
      ((k$1218
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             706
             #f
             #f
             #f
             2
             (706 706)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(703
                 (val$543)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(701 (r$1217) ((k$1211 val$543)) #f))
                   (set-car! state$534 val$543)))
                 #f))
             2
             0
             #t
             #f
             #t))))
      ()
      ()
      ()
      ()
      ((walls$392
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             478
             #f
             #f
             #f
             3
             (476 475 394)
             #t
             r$969
             0
             2
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$724 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  169
                  #f
                  #f
                  #f
                  2
                  (168 164)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(163
                      (r$700)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(162
                             (r$701)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(160
                                   (lp$207$314)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(146
                                         (r$712)
                                         ((lp$207$314
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(145
                                                (r$702)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(144
                                                      (k$706)
                                                      ((odd? #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(143
                                                                 (r$707)
                                                                 ((if r$707
                                                                    (href/rc
                                                                      #((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(138
                                                                          (r$709)
                                                                          ((display-hexbottom
                                                                             k$706
                                                                             (vector-ref
                                                                               r$709
                                                                               3)))
                                                                          #f))
                                                                      harr$305
                                                                      r$311
                                                                      (Cyc-fast-sub
                                                                        (vector-ref
                                                                          harr$305
                                                                          2)
                                                                        1))
                                                                    (if (zero?__inline__
                                                                          r$311)
                                                                      (k$706 #f)
                                                                      (write-ch
                                                                        k$706
                                                                        #\\))))
                                                                 #f))
                                                             (vector-ref
                                                               harr$305
                                                               2)))
                                                      #t))
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(136
                                                      (r$703)
                                                      ((write-ch
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(135
                                                             (r$704)
                                                             ((lp$196$310
                                                                k$696
                                                                (Cyc-fast-sub
                                                                  r$311
                                                                  1)))
                                                             #f))
                                                         #\newline))
                                                      #f))))
                                                #f))
                                            0))
                                         #f))
                                     (set! lp$207$314
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(159
                                           (k$714 c$315)
                                           ((if (Cyc-fast-gte
                                                  c$315
                                                  (Cyc-fast-mul 2 r$773))
                                              (k$714 (Cyc-fast-gte
                                                       c$315
                                                       (Cyc-fast-mul 2 r$773)))
                                              (href/rc
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(155
                                                    (r$723)
                                                    ((display-hexbottom
                                                       #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(153
                                                           (r$716)
                                                           ((dot/space
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(150
                                                                  (r$719)
                                                                  ((write-ch
                                                                     #((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(149
                                                                         (r$717)
                                                                         ((lp$207$314
                                                                            k$714
                                                                            (Cyc-fast-plus
                                                                              c$315
                                                                              2)))
                                                                         #f))
                                                                     r$719))
                                                                  #f))
                                                              harr$305
                                                              (Cyc-fast-sub
                                                                r$311
                                                                1)
                                                              (Cyc-fast-plus
                                                                c$315
                                                                1)))
                                                           #f))
                                                       (vector-ref r$723 3)))
                                                    #f))
                                                harr$305
                                                r$311
                                                c$315)))
                                           #t)))))
                                   #f))
                               #f))
                             #f))
                         #\newline))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t))))
      ((dot/space
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             128
             #f
             #f
             5
             (-1 211 183 153 168)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(128
                  (k$671 harr$301 r$300 c$299)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(127
                        (k$673)
                        ((if (Cyc-fast-gte r$300 0)
                           (href/rc
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(125 (r$675) ((k$673 (vector-ref r$675 5))) #f))
                             harr$301
                             r$300
                             c$299)
                           (k$673 #f)))
                        #t))
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(124
                        (r$672)
                        ((if r$672 (k$671 #\.) (k$671 #\space)))
                        #f))))
                  #t)))
             4
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$1224
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 718 #f #f #f 1 (718) #f #f 1 0 #t #f #t))))
      ()
      ()
      ((k$1227
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             741
             #f
             #f
             #f
             5
             (737 737 737 737 737)
             #f
             #f
             4
             1
             #f
             #f
             #t))))
      ()
      ()
      ()
      ()
      ((Cyc-fast-plus
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             31
             (7
              228
              211
              206
              174
              153
              149
              292
              292
              305
              313
              324
              442
              434
              425
              416
              401
              395
              419
              505
              502
              502
              530
              535
              557
              653
              651
              706
              737
              760
              769)
             #f
             #f
             31
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$731 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 183 #f #f #f 2 (174 183) #f #f 1 1 #t #f #t))))
      ()
      ((make-wall-vec
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             487
             #f
             #f
             2
             (283 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(487
                  (k$899 harr$388)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(478
                        (walls$392)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(473
                              (add-wall$396)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(468
                                    (lp$132$404)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(430
                                          (r$936)
                                          ((lp$132$404
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(429
                                                 (r$905)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(428
                                                       (k$907)
                                                       ((if (Cyc-fast-gt
                                                              (vector-ref
                                                                harr$388
                                                                2)
                                                              1)
                                                          (div #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(425
                                                                   (r$933)
                                                                   ((href #((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(420
                                                                              (rmoc-hex$402)
                                                                              ((#((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(419
                                                                                    (k$929)
                                                                                    ((if (Cyc-fast-lt
                                                                                           (Cyc-fast-plus
                                                                                             3
                                                                                             (Cyc-fast-mul
                                                                                               6
                                                                                               r$933))
                                                                                           (Cyc-fast-mul
                                                                                             3
                                                                                             (Cyc-fast-sub
                                                                                               (vector-ref
                                                                                                 harr$388
                                                                                                 2)
                                                                                               1)))
                                                                                       (href #((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(417
                                                                                                 (r$931)
                                                                                                 ((add-wall$396
                                                                                                    k$929
                                                                                                    rmoc-hex$402
                                                                                                    r$931
                                                                                                    south-east))
                                                                                                 #f))
                                                                                             harr$388
                                                                                             (Cyc-fast-mul
                                                                                               3
                                                                                               (Cyc-fast-sub
                                                                                                 (vector-ref
                                                                                                   harr$388
                                                                                                   2)
                                                                                                 1))
                                                                                             0)
                                                                                       (k$929 #f)))
                                                                                    #t))
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(416
                                                                                    (r$926)
                                                                                    ((href #((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(414
                                                                                               (r$927)
                                                                                               ((add-wall$396
                                                                                                  #((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(413
                                                                                                      (r$910)
                                                                                                      ((#((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(410
                                                                                                            (lp$140$399)
                                                                                                            ((#((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(395
                                                                                                                  (r$912)
                                                                                                                  ((lp$140$399
                                                                                                                     k$907
                                                                                                                     (Cyc-fast-sub
                                                                                                                       (Cyc-fast-plus
                                                                                                                         3
                                                                                                                         (Cyc-fast-mul
                                                                                                                           6
                                                                                                                           r$933))
                                                                                                                       6)))
                                                                                                                  #f))
                                                                                                              (set! lp$140$399
                                                                                                                #((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(409
                                                                                                                    (k$914 x$400)
                                                                                                                    ((if (Cyc-fast-lt
                                                                                                                           x$400
                                                                                                                           3)
                                                                                                                       (k$914 (Cyc-fast-lt
                                                                                                                                x$400
                                                                                                                                3))
                                                                                                                       (href #((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(405
                                                                                                                                 (r$922)
                                                                                                                                 ((href #((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(403
                                                                                                                                            (r$923)
                                                                                                                                            ((add-wall$396
                                                                                                                                               #((record-marker)
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #f
                                                                                                                                                   (id args
                                                                                                                                                       body
                                                                                                                                                       has-cont))
                                                                                                                                                 #(402
                                                                                                                                                   (r$916)
                                                                                                                                                   ((href #((record-marker)
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #f
                                                                                                                                                              (id args
                                                                                                                                                                  body
                                                                                                                                                                  has-cont))
                                                                                                                                                            #(401
                                                                                                                                                              (r$919)
                                                                                                                                                              ((href #((record-marker)
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #f
                                                                                                                                                                         (id args
                                                                                                                                                                             body
                                                                                                                                                                             has-cont))
                                                                                                                                                                       #(399
                                                                                                                                                                         (r$920)
                                                                                                                                                                         ((add-wall$396
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #f
                                                                                                                                                                                (id args
                                                                                                                                                                                    body
                                                                                                                                                                                    has-cont))
                                                                                                                                                                              #(398
                                                                                                                                                                                (r$917)
                                                                                                                                                                                ((lp$140$399
                                                                                                                                                                                   k$914
                                                                                                                                                                                   (Cyc-fast-sub
                                                                                                                                                                                     x$400
                                                                                                                                                                                     6)))
                                                                                                                                                                                #f))
                                                                                                                                                                            r$919
                                                                                                                                                                            r$920
                                                                                                                                                                            south-east))
                                                                                                                                                                         #f))
                                                                                                                                                                     harr$388
                                                                                                                                                                     (Cyc-fast-plus
                                                                                                                                                                       x$400
                                                                                                                                                                       3)
                                                                                                                                                                     0))
                                                                                                                                                              #f))
                                                                                                                                                          harr$388
                                                                                                                                                          x$400
                                                                                                                                                          1))
                                                                                                                                                   #f))
                                                                                                                                               r$922
                                                                                                                                               r$923
                                                                                                                                               south-west))
                                                                                                                                            #f))
                                                                                                                                        harr$388
                                                                                                                                        (Cyc-fast-sub
                                                                                                                                          x$400
                                                                                                                                          3)
                                                                                                                                        0))
                                                                                                                                 #f))
                                                                                                                             harr$388
                                                                                                                             x$400
                                                                                                                             1)))
                                                                                                                    #t)))))
                                                                                                            #f))
                                                                                                        #f))
                                                                                                      #f))
                                                                                                  rmoc-hex$402
                                                                                                  r$927
                                                                                                  south-west))
                                                                                               #f))
                                                                                           harr$388
                                                                                           (Cyc-fast-sub
                                                                                             (Cyc-fast-plus
                                                                                               3
                                                                                               (Cyc-fast-mul
                                                                                                 6
                                                                                                 r$933))
                                                                                             3)
                                                                                           0))
                                                                                    #f))))
                                                                              #f))
                                                                          harr$388
                                                                          (Cyc-fast-plus
                                                                            3
                                                                            (Cyc-fast-mul
                                                                              6
                                                                              r$933))
                                                                          1))
                                                                   #f))
                                                               (Cyc-fast-sub
                                                                 (vector-ref
                                                                   harr$388
                                                                   2)
                                                                 2)
                                                               2)
                                                          (k$907 #f)))
                                                       #t))
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(394
                                                       (r$906)
                                                       ((k$899 (list->vector
                                                                 walls$392)))
                                                       #f))))
                                                 #f))
                                             (Cyc-fast-mul
                                               (Cyc-fast-sub
                                                 (vector-ref harr$388 2)
                                                 1)
                                               3)))
                                          #f))
                                      (set! lp$132$404
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(467
                                            (k$938 x$405)
                                            ((if (Cyc-fast-lt x$405 0)
                                               (k$938 (Cyc-fast-lt x$405 0))
                                               (bitwise-and
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(461
                                                     (r$965)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(458
                                                           (lp$136$408)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(434
                                                                 (r$943)
                                                                 ((lp$136$408
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(433
                                                                        (r$940)
                                                                        ((lp$132$404
                                                                           k$938
                                                                           (Cyc-fast-sub
                                                                             x$405
                                                                             3)))
                                                                        #f))
                                                                    (Cyc-fast-plus
                                                                      (Cyc-fast-mul
                                                                        (Cyc-fast-sub
                                                                          (vector-ref
                                                                            harr$388
                                                                            1)
                                                                          1)
                                                                        2)
                                                                      r$965)))
                                                                 #f))
                                                             (set! lp$136$408
                                                               #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(457
                                                                   (k$945 y$409)
                                                                   ((if (Cyc-fast-lte
                                                                          y$409
                                                                          1)
                                                                      (k$945 (Cyc-fast-lte
                                                                               y$409
                                                                               1))
                                                                      (href #((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(452
                                                                                (hex$411)
                                                                                ((#((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(451
                                                                                      (k$959)
                                                                                      ((if (zero?__inline__
                                                                                             x$405)
                                                                                         (k$959 #f)
                                                                                         (href #((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(447
                                                                                                   (r$961)
                                                                                                   ((add-wall$396
                                                                                                      k$959
                                                                                                      hex$411
                                                                                                      r$961
                                                                                                      south-west))
                                                                                                   #f))
                                                                                               harr$388
                                                                                               (Cyc-fast-sub
                                                                                                 x$405
                                                                                                 3)
                                                                                               (Cyc-fast-sub
                                                                                                 y$409
                                                                                                 1))))
                                                                                      #t))
                                                                                  #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(446
                                                                                      (r$950)
                                                                                      ((href #((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(444
                                                                                                 (r$957)
                                                                                                 ((add-wall$396
                                                                                                    #((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(443
                                                                                                        (r$951)
                                                                                                        ((#((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(442
                                                                                                              (k$952)
                                                                                                              ((if (Cyc-fast-lt
                                                                                                                     x$405
                                                                                                                     (Cyc-fast-mul
                                                                                                                       3
                                                                                                                       (Cyc-fast-sub
                                                                                                                         (vector-ref
                                                                                                                           harr$388
                                                                                                                           2)
                                                                                                                         1)))
                                                                                                                 (href #((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(438
                                                                                                                           (r$954)
                                                                                                                           ((add-wall$396
                                                                                                                              k$952
                                                                                                                              hex$411
                                                                                                                              r$954
                                                                                                                              south-east))
                                                                                                                           #f))
                                                                                                                       harr$388
                                                                                                                       (Cyc-fast-plus
                                                                                                                         x$405
                                                                                                                         3)
                                                                                                                       (Cyc-fast-sub
                                                                                                                         y$409
                                                                                                                         1))
                                                                                                                 (k$952 #f)))
                                                                                                              #t))
                                                                                                          #((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(437
                                                                                                              (r$947)
                                                                                                              ((lp$136$408
                                                                                                                 k$945
                                                                                                                 (Cyc-fast-sub
                                                                                                                   y$409
                                                                                                                   2)))
                                                                                                              #f))))
                                                                                                        #f))
                                                                                                    hex$411
                                                                                                    r$957
                                                                                                    south))
                                                                                                 #f))
                                                                                             harr$388
                                                                                             x$405
                                                                                             (Cyc-fast-sub
                                                                                               y$409
                                                                                               2)))
                                                                                      #f))))
                                                                                #f))
                                                                            harr$388
                                                                            x$405
                                                                            y$409)))
                                                                   #t)))))
                                                           #f))
                                                       #f))
                                                     #f))
                                                 x$405
                                                 1)))
                                            #t)))))
                                    #f))
                                #f))
                              #f))
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(477
                              (k$968 o$395 n$394 b$393)
                              ((vector
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(476
                                     (r$970)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(475
                                           (r$969)
                                           ((k$968 (set! walls$392 r$969)))
                                           #f))
                                       (cons r$970 walls$392)))
                                     #f))
                                 'wall
                                 o$395
                                 n$394
                                 b$393))
                              #t))))
                        #f))
                    '()))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ((result$295
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 85 #f #f #f 1 (85) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((cell:reachable
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             643
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(643
                  (k$1146 o$503)
                  ((k$1146 (vector-ref o$503 1)))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((flush-output-port
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 3 (42 11 60) #f #f 3 0 #f #f #f))))
      ((lp$105$452
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             558
             #f
             #f
             #f
             3
             (557 558 553)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(557
                 (k$1054 len$454 node$453)
                 ((if node$453
                    (lp$105$452
                      k$1054
                      (Cyc-fast-plus len$454 1)
                      (vector-ref node$453 4))
                    (k$1054 len$454)))
                 #t))
             2
             0
             #t
             #f
             #f))))
      ()
      ()
      ((run-r7rs-benchmark
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             71
             #f
             #f
             2
             (-1 90)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(71
                  (k$568 name$264 count$263 thunk$262 ok?$261)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(70
                        (rounded$266)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(64
                              (r$569)
                              ((display
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(63
                                     (r$570)
                                     ((display
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(62
                                            (r$571)
                                            ((newline
                                               #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(61
                                                   (r$572)
                                                   ((current-output-port
                                                      #((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(60
                                                          (r$613)
                                                          ((flush-output-port
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(59
                                                                 (r$573)
                                                                 ((jiffies-per-second
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(57
                                                                        (j/s$268)
                                                                        ((current-second
                                                                           #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(55
                                                                               (t0$269)
                                                                               ((current-jiffy
                                                                                  #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(53
                                                                                      (j0$270)
                                                                                      ((#((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(50
                                                                                            (loop$273)
                                                                                            ((#((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(5
                                                                                                  (r$577)
                                                                                                  ((loop$273
                                                                                                     k$568
                                                                                                     0
                                                                                                     #f))
                                                                                                  #f))
                                                                                              (set! loop$273
                                                                                                #((record-marker)
                                                                                                  #((record-marker)
                                                                                                    #f
                                                                                                    (id args
                                                                                                        body
                                                                                                        has-cont))
                                                                                                  #(49
                                                                                                    (k$579 i$275
                                                                                                           result$274)
                                                                                                    ((if (Cyc-fast-lt
                                                                                                           i$275
                                                                                                           count$263)
                                                                                                       (thunk$262
                                                                                                         #((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(7
                                                                                                             (r$582)
                                                                                                             ((loop$273
                                                                                                                k$579
                                                                                                                (Cyc-fast-plus
                                                                                                                  i$275
                                                                                                                  1)
                                                                                                                r$582))
                                                                                                             #f)))
                                                                                                       (ok?$261
                                                                                                         #((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(47
                                                                                                             (r$583)
                                                                                                             ((if r$583
                                                                                                                (current-jiffy
                                                                                                                  #((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(38
                                                                                                                      (j1$276)
                                                                                                                      ((current-second
                                                                                                                         #((record-marker)
                                                                                                                           #((record-marker)
                                                                                                                             #f
                                                                                                                             (id args
                                                                                                                                 body
                                                                                                                                 has-cont))
                                                                                                                           #(36
                                                                                                                             (t1$277)
                                                                                                                             ((rounded$266
                                                                                                                                #((record-marker)
                                                                                                                                  #((record-marker)
                                                                                                                                    #f
                                                                                                                                    (id args
                                                                                                                                        body
                                                                                                                                        has-cont))
                                                                                                                                  #(28
                                                                                                                                    (secs2$280)
                                                                                                                                    ((display
                                                                                                                                       #((record-marker)
                                                                                                                                         #((record-marker)
                                                                                                                                           #f
                                                                                                                                           (id args
                                                                                                                                               body
                                                                                                                                               has-cont))
                                                                                                                                         #(26
                                                                                                                                           (r$590)
                                                                                                                                           ((write #((record-marker)
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #f
                                                                                                                                                       (id args
                                                                                                                                                           body
                                                                                                                                                           has-cont))
                                                                                                                                                     #(25
                                                                                                                                                       (r$591)
                                                                                                                                                       ((display
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #f
                                                                                                                                                              (id args
                                                                                                                                                                  body
                                                                                                                                                                  has-cont))
                                                                                                                                                            #(24
                                                                                                                                                              (r$592)
                                                                                                                                                              ((write #((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(23
                                                                                                                                                                          (r$593)
                                                                                                                                                                          ((display
                                                                                                                                                                             #((record-marker)
                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                 #f
                                                                                                                                                                                 (id args
                                                                                                                                                                                     body
                                                                                                                                                                                     has-cont))
                                                                                                                                                                               #(22
                                                                                                                                                                                 (r$594)
                                                                                                                                                                                 ((display
                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                        #f
                                                                                                                                                                                        (id args
                                                                                                                                                                                            body
                                                                                                                                                                                            has-cont))
                                                                                                                                                                                      #(21
                                                                                                                                                                                        (r$595)
                                                                                                                                                                                        ((newline
                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #f
                                                                                                                                                                                               (id args
                                                                                                                                                                                                   body
                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                             #(20
                                                                                                                                                                                               (r$596)
                                                                                                                                                                                               ((display
                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #f
                                                                                                                                                                                                      (id args
                                                                                                                                                                                                          body
                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                    #(19
                                                                                                                                                                                                      (r$597)
                                                                                                                                                                                                      ((this-scheme-implementation-name
                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                             #f
                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                 body
                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                           #(18
                                                                                                                                                                                                             (r$605)
                                                                                                                                                                                                             ((display
                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                        body
                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                  #(17
                                                                                                                                                                                                                    (r$598)
                                                                                                                                                                                                                    ((display
                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                               body
                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                         #(16
                                                                                                                                                                                                                           (r$599)
                                                                                                                                                                                                                           ((display
                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                #(15
                                                                                                                                                                                                                                  (r$600)
                                                                                                                                                                                                                                  ((display
                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                       #(14
                                                                                                                                                                                                                                         (r$601)
                                                                                                                                                                                                                                         ((display
                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                              #(13
                                                                                                                                                                                                                                                (r$602)
                                                                                                                                                                                                                                                ((newline
                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                     #(12
                                                                                                                                                                                                                                                       (r$603)
                                                                                                                                                                                                                                                       ((current-output-port
                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                            #(11
                                                                                                                                                                                                                                                              (r$604)
                                                                                                                                                                                                                                                              ((flush-output-port
                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                   #(10
                                                                                                                                                                                                                                                                     (r$584)
                                                                                                                                                                                                                                                                     ((k$579 result$274))
                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                 r$604))
                                                                                                                                                                                                                                                              #f))))
                                                                                                                                                                                                                                                       #f))))
                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                            (inexact__inline__
                                                                                                                                                                                                                                              (Cyc-fast-div
                                                                                                                                                                                                                                                (Cyc-fast-sub
                                                                                                                                                                                                                                                  j1$276
                                                                                                                                                                                                                                                  j0$270)
                                                                                                                                                                                                                                                j/s$268))))
                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                     ","))
                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                              name$264))
                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                       ","))
                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                r$605))
                                                                                                                                                                                                             #f))))
                                                                                                                                                                                                      #f))
                                                                                                                                                                                                  "+!CSVLINE!+"))
                                                                                                                                                                                               #f))))
                                                                                                                                                                                        #f))
                                                                                                                                                                                    name$264))
                                                                                                                                                                                 #f))
                                                                                                                                                                             ") for "))
                                                                                                                                                                          #f))
                                                                                                                                                                      secs2$280))
                                                                                                                                                              #f))
                                                                                                                                                          " seconds ("))
                                                                                                                                                       #f))
                                                                                                                                                   (inexact__inline__
                                                                                                                                                     (Cyc-fast-div
                                                                                                                                                       (Cyc-fast-sub
                                                                                                                                                         j1$276
                                                                                                                                                         j0$270)
                                                                                                                                                       j/s$268))))
                                                                                                                                           #f))
                                                                                                                                       "Elapsed time: "))
                                                                                                                                    #f))
                                                                                                                                (Cyc-fast-sub
                                                                                                                                  t1$277
                                                                                                                                  t0$269)))
                                                                                                                             #f))))
                                                                                                                      #f)))
                                                                                                                (display
                                                                                                                  #((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(45
                                                                                                                      (r$608)
                                                                                                                      ((write #((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(44
                                                                                                                                  (r$609)
                                                                                                                                  ((newline
                                                                                                                                     #((record-marker)
                                                                                                                                       #((record-marker)
                                                                                                                                         #f
                                                                                                                                         (id args
                                                                                                                                             body
                                                                                                                                             has-cont))
                                                                                                                                       #(43
                                                                                                                                         (r$610)
                                                                                                                                         ((current-output-port
                                                                                                                                            #((record-marker)
                                                                                                                                              #((record-marker)
                                                                                                                                                #f
                                                                                                                                                (id args
                                                                                                                                                    body
                                                                                                                                                    has-cont))
                                                                                                                                              #(42
                                                                                                                                                (r$612)
                                                                                                                                                ((flush-output-port
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #f
                                                                                                                                                       (id args
                                                                                                                                                           body
                                                                                                                                                           has-cont))
                                                                                                                                                     #(41
                                                                                                                                                       (r$611)
                                                                                                                                                       ((k$579 result$274))
                                                                                                                                                       #f))
                                                                                                                                                   r$612))
                                                                                                                                                #f))))
                                                                                                                                         #f))))
                                                                                                                                  #f))
                                                                                                                              result$274))
                                                                                                                      #f))
                                                                                                                  "ERROR: returned incorrect result: ")))
                                                                                                             #f))
                                                                                                         result$274)))
                                                                                                    #t)))))
                                                                                            #f))
                                                                                        #f))
                                                                                      #f))))
                                                                               #f))))
                                                                        #f))))
                                                                 #f))
                                                             r$613))
                                                          #f))))
                                                   #f))))
                                            #f))
                                        name$264))
                                     #f))
                                 "Running "))
                              #f))
                          (set! rounded$266
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(68
                                (k$615 x$281)
                                ((k$615 (Cyc-fast-div
                                          (round__inline__
                                            (Cyc-fast-mul 1000 x$281))
                                          1000)))
                                #t)))))
                        #f))
                    #f))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((k$1238
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             740
             #f
             #f
             #f
             3
             (740 740 740)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(737
                 (r$1228)
                 ((if r$1228
                    (remainder k$1227 x$546 y$545)
                    (if (Cyc-fast-lt y$545 0)
                      (if (Cyc-fast-eq
                            (Cyc-fast-sub
                              x$546
                              (Cyc-fast-mul
                                (quotient__inline__ x$546 y$545)
                                y$545))
                            0)
                        (k$1227 0)
                        (k$1227
                          (Cyc-fast-sub
                            (Cyc-fast-sub
                              x$546
                              (Cyc-fast-mul
                                (quotient__inline__ x$546 y$545)
                                y$545))
                            y$545)))
                      (if (Cyc-fast-eq
                            (Cyc-fast-sub
                              x$546
                              (Cyc-fast-mul
                                (quotient__inline__ x$546 y$545)
                                y$545))
                            0)
                        (k$1227 0)
                        (k$1227
                          (Cyc-fast-plus
                            (Cyc-fast-sub
                              x$546
                              (Cyc-fast-mul
                                (quotient__inline__ x$546 y$545)
                                y$545))
                            y$545))))))
                 #f))
             3
             0
             #t
             #f
             #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((harr-tabulate
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             525
             #f
             #f
             2
             (492 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(525
                  (k$987 nrows$418 ncols$417 proc$416)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(522
                        (v$419)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(519
                              (lp$113$421)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(494
                                    (r$991)
                                    ((lp$113$421
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(493
                                           (r$989)
                                           ((vector
                                              k$987
                                              'harr
                                              nrows$418
                                              ncols$417
                                              v$419))
                                           #f))
                                       (Cyc-fast-sub nrows$418 1)))
                                    #f))
                                (set! lp$113$421
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(518
                                      (k$993 r$422)
                                      ((if (Cyc-fast-lt r$422 0)
                                         (k$993 (Cyc-fast-lt r$422 0))
                                         (#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(513
                                              (i$424)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(512
                                                    (lp$117$426)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(498
                                                          (r$998)
                                                          ((lp$117$426
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(497
                                                                 (r$995)
                                                                 ((lp$113$421
                                                                    k$993
                                                                    (Cyc-fast-sub
                                                                      r$422
                                                                      1)))
                                                                 #f))
                                                             0
                                                             i$424))
                                                          #f))
                                                      (set! lp$117$426
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(511
                                                            (k$1000 c$428 i$427)
                                                            ((if (Cyc-fast-eq
                                                                   c$428
                                                                   ncols$417)
                                                               (k$1000
                                                                 (Cyc-fast-eq
                                                                   c$428
                                                                   ncols$417))
                                                               (bitwise-and
                                                                 #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(505
                                                                     (r$1009)
                                                                     ((proc$416
                                                                        #((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(503
                                                                            (r$1005)
                                                                            ((#((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(502
                                                                                  (r$1002)
                                                                                  ((lp$117$426
                                                                                     k$1000
                                                                                     (Cyc-fast-plus
                                                                                       c$428
                                                                                       1)
                                                                                     (Cyc-fast-plus
                                                                                       i$427
                                                                                       1)))
                                                                                  #f))
                                                                              (vector-set!
                                                                                v$419
                                                                                i$427
                                                                                r$1005)))
                                                                            #f))
                                                                        (Cyc-fast-mul
                                                                          3
                                                                          c$428)
                                                                        (Cyc-fast-plus
                                                                          (Cyc-fast-mul
                                                                            2
                                                                            r$422)
                                                                          r$1009)))
                                                                     #f))
                                                                 c$428
                                                                 1)))
                                                            #t)))))
                                                    #f))
                                                #f))
                                              #f))
                                          (Cyc-fast-mul r$422 ncols$417))))
                                      #t)))))
                              #f))
                          #f))
                        #f))
                    (make-vector (Cyc-fast-mul nrows$418 ncols$417))))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ((n$533 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 700 #f #f #f 1 (699) #f #f 0 1 #t #f #f))))
      ((k$740 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  201
                  #f
                  #f
                  #f
                  2
                  (200 196)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(195
                      (r$691)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(194
                             (r$692)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(191
                                   (lp$196$310)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(132
                                         (r$694)
                                         ((lp$196$310
                                            k$683
                                            (Cyc-fast-sub
                                              (vector-ref harr$305 1)
                                              1)))
                                         #f))
                                     (set! lp$196$310
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(190
                                           (k$696 r$311)
                                           ((if (Cyc-fast-lt r$311 0)
                                              (k$696 (Cyc-fast-lt r$311 0))
                                              (write-ch
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(186
                                                    (r$698)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(184
                                                          (lp$200$318)
                                                          ((#((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(171
                                                                (r$729)
                                                                ((lp$200$318
                                                                   #((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(170
                                                                       (r$699)
                                                                       ((#((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(169
                                                                             (k$724)
                                                                             ((odd? #((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(168
                                                                                        (r$725)
                                                                                        ((if r$725
                                                                                           (dot/space
                                                                                             #((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(165
                                                                                                 (r$727)
                                                                                                 ((write-ch
                                                                                                    #((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(164
                                                                                                        (r$726)
                                                                                                        ((write-ch
                                                                                                           k$724
                                                                                                           #\\))
                                                                                                        #f))
                                                                                                    r$727))
                                                                                                 #f))
                                                                                             harr$305
                                                                                             r$311
                                                                                             (Cyc-fast-sub
                                                                                               (vector-ref
                                                                                                 harr$305
                                                                                                 2)
                                                                                               1))
                                                                                           (k$724 #f)))
                                                                                        #f))
                                                                                    (vector-ref
                                                                                      harr$305
                                                                                      2)))
                                                                             #t))
                                                                         #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(163
                                                                             (r$700)
                                                                             ((write-ch
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(162
                                                                                    (r$701)
                                                                                    ((#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(160
                                                                                          (lp$207$314)
                                                                                          ((#((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(146
                                                                                                (r$712)
                                                                                                ((lp$207$314
                                                                                                   #((record-marker)
                                                                                                     #((record-marker)
                                                                                                       #f
                                                                                                       (id args
                                                                                                           body
                                                                                                           has-cont))
                                                                                                     #(145
                                                                                                       (r$702)
                                                                                                       ((#((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(144
                                                                                                             (k$706)
                                                                                                             ((odd? #((record-marker)
                                                                                                                      #((record-marker)
                                                                                                                        #f
                                                                                                                        (id args
                                                                                                                            body
                                                                                                                            has-cont))
                                                                                                                      #(143
                                                                                                                        (r$707)
                                                                                                                        ((if r$707
                                                                                                                           (href/rc
                                                                                                                             #((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(138
                                                                                                                                 (r$709)
                                                                                                                                 ((display-hexbottom
                                                                                                                                    k$706
                                                                                                                                    (vector-ref
                                                                                                                                      r$709
                                                                                                                                      3)))
                                                                                                                                 #f))
                                                                                                                             harr$305
                                                                                                                             r$311
                                                                                                                             (Cyc-fast-sub
                                                                                                                               (vector-ref
                                                                                                                                 harr$305
                                                                                                                                 2)
                                                                                                                               1))
                                                                                                                           (if (zero?__inline__
                                                                                                                                 r$311)
                                                                                                                             (k$706 #f)
                                                                                                                             (write-ch
                                                                                                                               k$706
                                                                                                                               #\\))))
                                                                                                                        #f))
                                                                                                                    (vector-ref
                                                                                                                      harr$305
                                                                                                                      2)))
                                                                                                             #t))
                                                                                                         #((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(136
                                                                                                             (r$703)
                                                                                                             ((write-ch
                                                                                                                #((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(135
                                                                                                                    (r$704)
                                                                                                                    ((lp$196$310
                                                                                                                       k$696
                                                                                                                       (Cyc-fast-sub
                                                                                                                         r$311
                                                                                                                         1)))
                                                                                                                    #f))
                                                                                                                #\newline))
                                                                                                             #f))))
                                                                                                       #f))
                                                                                                   0))
                                                                                                #f))
                                                                                            (set! lp$207$314
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(159
                                                                                                  (k$714 c$315)
                                                                                                  ((if (Cyc-fast-gte
                                                                                                         c$315
                                                                                                         (Cyc-fast-mul
                                                                                                           2
                                                                                                           r$773))
                                                                                                     (k$714 (Cyc-fast-gte
                                                                                                              c$315
                                                                                                              (Cyc-fast-mul
                                                                                                                2
                                                                                                                r$773)))
                                                                                                     (href/rc
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(155
                                                                                                           (r$723)
                                                                                                           ((display-hexbottom
                                                                                                              #((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(153
                                                                                                                  (r$716)
                                                                                                                  ((dot/space
                                                                                                                     #((record-marker)
                                                                                                                       #((record-marker)
                                                                                                                         #f
                                                                                                                         (id args
                                                                                                                             body
                                                                                                                             has-cont))
                                                                                                                       #(150
                                                                                                                         (r$719)
                                                                                                                         ((write-ch
                                                                                                                            #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(149
                                                                                                                                (r$717)
                                                                                                                                ((lp$207$314
                                                                                                                                   k$714
                                                                                                                                   (Cyc-fast-plus
                                                                                                                                     c$315
                                                                                                                                     2)))
                                                                                                                                #f))
                                                                                                                            r$719))
                                                                                                                         #f))
                                                                                                                     harr$305
                                                                                                                     (Cyc-fast-sub
                                                                                                                       r$311
                                                                                                                       1)
                                                                                                                     (Cyc-fast-plus
                                                                                                                       c$315
                                                                                                                       1)))
                                                                                                                  #f))
                                                                                                              (vector-ref
                                                                                                                r$723
                                                                                                                3)))
                                                                                                           #f))
                                                                                                       harr$305
                                                                                                       r$311
                                                                                                       c$315)))
                                                                                                  #t)))))
                                                                                          #f))
                                                                                      #f))
                                                                                    #f))
                                                                                #\newline))
                                                                             #f))))
                                                                       #f))
                                                                   1))
                                                                #f))
                                                            (set! lp$200$318
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(183
                                                                  (k$731 c$319)
                                                                  ((if (Cyc-fast-gte
                                                                         c$319
                                                                         (Cyc-fast-mul
                                                                           2
                                                                           r$773))
                                                                     (k$731 (Cyc-fast-gte
                                                                              c$319
                                                                              (Cyc-fast-mul
                                                                                2
                                                                                r$773)))
                                                                     (dot/space
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(178
                                                                           (r$738)
                                                                           ((write-ch
                                                                              #((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(177
                                                                                  (r$733)
                                                                                  ((href/rc
                                                                                     #((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(176
                                                                                         (r$737)
                                                                                         ((display-hexbottom
                                                                                            #((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(174
                                                                                                (r$734)
                                                                                                ((lp$200$318
                                                                                                   k$731
                                                                                                   (Cyc-fast-plus
                                                                                                     c$319
                                                                                                     2)))
                                                                                                #f))
                                                                                            (vector-ref
                                                                                              r$737
                                                                                              3)))
                                                                                         #f))
                                                                                     harr$305
                                                                                     r$311
                                                                                     c$319))
                                                                                  #f))
                                                                              r$738))
                                                                           #f))
                                                                       harr$305
                                                                       r$311
                                                                       (Cyc-fast-sub
                                                                         c$319
                                                                         1))))
                                                                  #t)))))
                                                          #f))
                                                      #f))
                                                    #f))
                                                #\/)))
                                           #t)))))
                                   #f))
                               #f))
                             #f))
                         #\newline))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t)))
       (odd? .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 5
                 (144 169 201 770 771)
                 #f
                 #f
                 5
                 0
                 #f
                 #f
                 #f)))
       (c$412 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 492 #f #f #f 1 (492) #f #f 0 1 #t #f #f))))
      ()
      ((nw$359
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 309 #f #f #f 2 (309 307) #f #f 0 2 #f #f #f))))
      ((k$743 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  199
                  #f
                  #f
                  #f
                  2
                  (199 199)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(196 (r$742) ((write-ch k$740 r$742)) #f))
                  2
                  0
                  #t
                  #f
                  #t))))
      ()
      ()
      ()
      ((top-cell$373
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #f #f 1 (380) #f #f 0 1 #t #f #f))))
      ((k$748 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 219 #f #f #f 2 (206 219) #f #f 1 1 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((permute-vec!
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             622
             #f
             #f
             2
             (282 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(622
                  (k$1097 v$482 random-state$481)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(621
                        (r$1110)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(618
                              (lp$484)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(606
                                    (r$1100)
                                    ((lp$484
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(605 (r$1098) ((k$1097 v$482)) #f))
                                       (Cyc-fast-sub r$1110 1)))
                                    #f))
                                (set! lp$484
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(617
                                      (k$1102 i$485)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(616
                                            (r$1103)
                                            ((if r$1103
                                               (#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(614
                                                    (r$1106)
                                                    ((random-int
                                                       #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(613
                                                           (r$1107)
                                                           ((#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(612
                                                                 (elt-i$487
                                                                   j$486)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(611
                                                                       (r$1109)
                                                                       ((#((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(610
                                                                             (r$1108)
                                                                             ((#((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(609
                                                                                   (r$1104)
                                                                                   ((lp$484
                                                                                      k$1102
                                                                                      (Cyc-fast-sub
                                                                                        i$485
                                                                                        1)))
                                                                                   #f))
                                                                               (vector-set!
                                                                                 v$482
                                                                                 j$486
                                                                                 elt-i$487)))
                                                                             #f))
                                                                         (vector-set!
                                                                           v$482
                                                                           i$485
                                                                           r$1109)))
                                                                       #f))
                                                                   (vector-ref
                                                                     v$482
                                                                     j$486)))
                                                                 #f))
                                                             r$1106
                                                             r$1107))
                                                           #f))
                                                       i$485
                                                       random-state$481))
                                                    #f))
                                                (vector-ref v$482 i$485))
                                               (k$1102 #f)))
                                            #f))
                                        (Cyc-fast-gt i$485 1)))
                                      #t)))))
                              #f))
                          #f))
                        #f))
                    (vector-length v$482)))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (name$264
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 71 #f #f #f 3 (63 22 16) #f #f 0 3 #f #f #f))))
      ()
      ()
      ()
      ((k$1243
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             764
             #f
             #f
             #f
             5
             (760 760 760 760 760)
             #f
             #f
             5
             0
             #t
             #f
             #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((n$544 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 718 #f #f #f 1 (718) #f #f 0 1 #t #f #f))))
      ((set-cell:mark
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             636
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(636
                  (k$1125 o$494 v$493)
                  ((k$1125 (vector-set! o$494 5 v$493)))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ((c$428 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  511
                  #f
                  #f
                  #f
                  5
                  (511 505 502 511 511)
                  #f
                  #f
                  0
                  5
                  #t
                  #f
                  #f))))
      ((car .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                ?
                #f
                #f
                #f
                12
                (292 297 297 305 313 318 318 324 329 335 668 717)
                #f
                #f
                12
                0
                #t
                #f
                #f))))
      ()
      ((k$759 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  215
                  #f
                  #f
                  #f
                  2
                  (215 215)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(213
                      (r$758)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(212
                             (r$750)
                             ((write-ch
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(211
                                    (r$751)
                                    ((dot/space
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(208
                                           (r$755)
                                           ((write-ch
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(207
                                                  (r$752)
                                                  ((write-ch
                                                     #((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(206
                                                         (r$753)
                                                         ((lp$192$322
                                                            k$748
                                                            (Cyc-fast-plus
                                                              c$323
                                                              2)))
                                                         #f))
                                                     #\\))
                                                  #f))
                                              r$755))
                                           #f))
                                       harr$305
                                       (Cyc-fast-sub (vector-ref harr$305 1) 1)
                                       (Cyc-fast-plus c$323 1)))
                                    #f))
                                #\/))
                             #f))
                         r$758))
                      #f))
                  2
                  0
                  #t
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((n1$516
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             661
             #f
             #f
             #f
             3
             (653 651 659)
             #f
             #f
             0
             3
             #t
             #f
             #f)))
       (v$285 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #f))))
      ()
      ((add-wall$396
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             473
             #f
             #f
             #f
             7
             (438 444 447 399 403 414 417)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(477
                 (k$968 o$395 n$394 b$393)
                 ((vector
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(476
                        (r$970)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(475
                              (r$969)
                              ((k$968 (set! walls$392 r$969)))
                              #f))
                          (cons r$970 walls$392)))
                        #f))
                    'wall
                    o$395
                    n$394
                    b$393))
                 #t))
             7
             0
             #f
             #f
             #f))))
      ()
      ((k$1254
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             763
             #f
             #f
             #f
             3
             (763 763 763)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(760
                 (r$1244)
                 ((if r$1244
                    (k$1243 (quotient__inline__ x$552 y$551))
                    (if (Cyc-fast-lt y$551 0)
                      (if (Cyc-fast-eq
                            (Cyc-fast-sub
                              x$552
                              (Cyc-fast-mul
                                (quotient__inline__ x$552 y$551)
                                y$551))
                            0)
                        (k$1243 (quotient__inline__ x$552 y$551))
                        (k$1243
                          (Cyc-fast-plus
                            (quotient__inline__ x$552 y$551)
                            1)))
                      (if (Cyc-fast-eq
                            (Cyc-fast-sub
                              x$552
                              (Cyc-fast-mul
                                (quotient__inline__ x$552 y$551)
                                y$551))
                            0)
                        (k$1243 (quotient__inline__ x$552 y$551))
                        (k$1243
                          (Cyc-fast-sub (quotient__inline__ x$552 y$551) 1))))))
                 #f))
             3
             0
             #t
             #f
             #t)))
       (values
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (82 76) #f #f 1 1 #f #f #f))))
      ()
      ()
      ()
      ()
      ((k$1259
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             781
             #f
             #f
             #f
             6
             (769 769 777 778 779 780)
             #f
             #f
             6
             0
             #t
             #f
             #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((c$430 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 530 #f #f #f 1 (530) #f #f 0 1 #t #f #f))))
      ()
      ((rmoc-hex$402
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 420 #f #f #f 2 (414 417) #f #f 0 2 #f #f #f))))
      ()
      ()
      ((k$763 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 238 #f #f #f 2 (228 238) #f #f 1 1 #t #f #t))))
      ((c$436 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 535 #f #f #f 1 (535) #f r$1022 0 1 #t #f #f))))
      ((next$530
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             682
             #f
             #f
             #f
             2
             (682 679)
             #f
             (cdr x$529)
             0
             2
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$1266
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             771
             #f
             #f
             #f
             2
             (770 770)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(769
                 (r$1265)
                 ((if r$1265
                    (k$1259 (+ z$559 z$559 1))
                    (k$1259 (Cyc-fast-plus z$559 z$559))))
                 #f))
             1
             1
             #f
             #f
             #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((bt-lp$378
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             376
             #f
             #f
             #f
             4
             (370 368 376 366)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(375
                 (k$888 max-len$382
                        entrance$381
                        exit$380
                        bcol$379)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(374
                       (r$889)
                       ((if r$889
                          (vector k$888 max-len$382 entrance$381 exit$380)
                          (href/rc
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(373
                                (r$894)
                                ((path-length
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(371
                                       (this-len$383)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(370
                                             (r$891)
                                             ((if r$891
                                                (#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(368
                                                     (r$892)
                                                     ((bt-lp$378
                                                        k$888
                                                        this-len$383
                                                        tcol$369
                                                        bcol$379
                                                        r$892))
                                                     #f))
                                                 (Cyc-fast-sub bcol$379 1))
                                                (bt-lp$378
                                                  k$888
                                                  max-len$382
                                                  entrance$381
                                                  exit$380
                                                  (Cyc-fast-sub bcol$379 1))))
                                             #f))
                                         (Cyc-fast-gt
                                           this-len$383
                                           max-len$382)))
                                       #f))
                                   r$894))
                                #f))
                            harr$361
                            0
                            bcol$379)))
                       #f))
                   (Cyc-fast-lt bcol$379 0)))
                 #t))
             3
             0
             #f
             #f
             #f))))
      ()
      ((j/s$268
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 57 #f #f #f 2 (26 14) #f #f 0 2 #t #f #f))))
      ((s2$292
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             95
             #f
             #f
             #f
             1
             (93)
             #f
             (number->string input2$289)
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ((k$771 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  231
                  #f
                  #f
                  #f
                  2
                  (231 231)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(229
                      (r$770)
                      ((write-ch
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(228
                             (r$768)
                             ((lp$188$326 k$763 (Cyc-fast-plus c$327 2)))
                             #f))
                         r$770))
                      #f))
                  2
                  0
                  #t
                  #f
                  #t))))
      ()
      ()
      ()
      ((lp$113$421
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             519
             #f
             #f
             #f
             3
             (497 519 494)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(518
                 (k$993 r$422)
                 ((if (Cyc-fast-lt r$422 0)
                    (k$993 (Cyc-fast-lt r$422 0))
                    (#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(513
                         (i$424)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(512
                               (lp$117$426)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(498
                                     (r$998)
                                     ((lp$117$426
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(497
                                            (r$995)
                                            ((lp$113$421
                                               k$993
                                               (Cyc-fast-sub r$422 1)))
                                            #f))
                                        0
                                        i$424))
                                     #f))
                                 (set! lp$117$426
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(511
                                       (k$1000 c$428 i$427)
                                       ((if (Cyc-fast-eq c$428 ncols$417)
                                          (k$1000 (Cyc-fast-eq c$428 ncols$417))
                                          (bitwise-and
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(505
                                                (r$1009)
                                                ((proc$416
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(503
                                                       (r$1005)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(502
                                                             (r$1002)
                                                             ((lp$117$426
                                                                k$1000
                                                                (Cyc-fast-plus
                                                                  c$428
                                                                  1)
                                                                (Cyc-fast-plus
                                                                  i$427
                                                                  1)))
                                                             #f))
                                                         (vector-set!
                                                           v$419
                                                           i$427
                                                           r$1005)))
                                                       #f))
                                                   (Cyc-fast-mul 3 c$428)
                                                   (Cyc-fast-plus
                                                     (Cyc-fast-mul 2 r$422)
                                                     r$1009)))
                                                #f))
                                            c$428
                                            1)))
                                       #t)))))
                               #f))
                           #f))
                         #f))
                     (Cyc-fast-mul r$422 ncols$417))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((k$776 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 251 #f #f #f 1 (250) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ((maze$464
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 580 #f #f #f 1 (576) #f #f 0 1 #f #f #f))))
      ()
      ()
      ()
      ((o$500 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 640 #f #f #f 1 (640) #f #f 0 1 #t #t #f))))
      ((o$501 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 641 #f #f #f 1 (641) #f #f 0 1 #t #f #f)))
       (tmp$111$448
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             546
             #f
             #f
             #f
             2
             (546 546)
             #f
             (vector-ref node$447 4)
             0
             1
             #t
             #f
             #f))))
      ((o$502 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 642 #f #f #f 1 (642) #f #f 0 1 #t #f #f))))
      ((o$503 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 643 #f #f #f 1 (643) #f #f 0 1 #t #f #f))))
      ()
      ((k$1272
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 783 #f #f #f 1 (782) #f #f 1 0 #t #f #t))))
      ((o$506 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 646 #f #f #f 1 (646) #f #f 0 1 #t #f #f))))
      ((wall:owner
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             648
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(648
                  (k$1159 o$508)
                  ((k$1159 (vector-ref o$508 1)))
                  #t)))
             0
             0
             #f
             #f
             #f)))
       (o$507 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 647 #f #f #f 1 (647) #f #f 0 1 #t #f #f))))
      ((o$508 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 648 #f #f #f 1 (648) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$782 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 258 #f #f #f 1 (252) #f #f 0 1 #f #f #t))))
      ()
      ()
      ()
      ()
      ((cdr .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                ?
                #f
                #f
                #f
                14
                (292
                 297
                 297
                 305
                 305
                 313
                 318
                 318
                 324
                 329
                 335
                 684
                 693
                 693)
                #f
                #f
                14
                0
                #t
                #f
                #f))))
      ()
      ((k$789 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 285 #f #f #f 1 (259) #f #f 0 1 #f #f #t))))
      ()
      ((r$300 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 128 #f #f #f 2 (127 127) #f #f 0 2 #t #f #f))))
      ()
      ()
      ()
      ()
      ((r$1002
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             502
             #f
             #f
             #f
             0
             ()
             #f
             (vector-set! v$419 i$427 r$1005)
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ((r$1005
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 503 #f #f #f 1 (503) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((r$600 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 15 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$601 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 14 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (r$1009
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 505 #f #f #f 1 (505) #f #f 0 1 #t #f #f))))
      ((r$602 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 13 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$603 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 12 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$604 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 11 #f #f #f 1 (11) #f #f 0 1 #t #f #f)))
       (lp$136$408
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             458
             #f
             #f
             #f
             3
             (437 458 434)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(457
                 (k$945 y$409)
                 ((if (Cyc-fast-lte y$409 1)
                    (k$945 (Cyc-fast-lte y$409 1))
                    (href #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(452
                              (hex$411)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(451
                                    (k$959)
                                    ((if (zero?__inline__ x$405)
                                       (k$959 #f)
                                       (href #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(447
                                                 (r$961)
                                                 ((add-wall$396
                                                    k$959
                                                    hex$411
                                                    r$961
                                                    south-west))
                                                 #f))
                                             harr$388
                                             (Cyc-fast-sub x$405 3)
                                             (Cyc-fast-sub y$409 1))))
                                    #t))
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(446
                                    (r$950)
                                    ((href #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(444
                                               (r$957)
                                               ((add-wall$396
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(443
                                                      (r$951)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(442
                                                            (k$952)
                                                            ((if (Cyc-fast-lt
                                                                   x$405
                                                                   (Cyc-fast-mul
                                                                     3
                                                                     (Cyc-fast-sub
                                                                       (vector-ref
                                                                         harr$388
                                                                         2)
                                                                       1)))
                                                               (href #((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(438
                                                                         (r$954)
                                                                         ((add-wall$396
                                                                            k$952
                                                                            hex$411
                                                                            r$954
                                                                            south-east))
                                                                         #f))
                                                                     harr$388
                                                                     (Cyc-fast-plus
                                                                       x$405
                                                                       3)
                                                                     (Cyc-fast-sub
                                                                       y$409
                                                                       1))
                                                               (k$952 #f)))
                                                            #t))
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(437
                                                            (r$947)
                                                            ((lp$136$408
                                                               k$945
                                                               (Cyc-fast-sub
                                                                 y$409
                                                                 2)))
                                                            #f))))
                                                      #f))
                                                  hex$411
                                                  r$957
                                                  south))
                                               #f))
                                           harr$388
                                           x$405
                                           (Cyc-fast-sub y$409 2)))
                                    #f))))
                              #f))
                          harr$388
                          x$405
                          y$409)))
                 #t))
             2
             0
             #t
             #f
             #f))))
      ((r$605 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 18 #f #f #f 1 (18) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((r$608 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 45 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$609 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 44 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ((new-root$455
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 570 #f #f #f 1 (570) #f #f 0 1 #t #f #f))))
      ((nelts$531
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 698 #f #f #f 1 (698) #f #f 0 1 #t #f #f)))
       (ncols$417
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             525
             #f
             #f
             #f
             5
             (525 518 511 511 493)
             #f
             #f
             0
             5
             #f
             #t
             #f))))
      ((r$905 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 429 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$906 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 394 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((set-equal?
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             672
             #f
             #f
             2
             (602 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(672
                  (k$1181 s1$521 s2$520)
                  ((get-set-root
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(671
                         (r$1182)
                         ((get-set-root
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(670 (r$1183) ((k$1181 (eq? r$1182 r$1183))) #f))
                            s2$520))
                         #f))
                     s1$521))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (r$311 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  190
                  #f
                  #f
                  #f
                  10
                  (183 177 159 153 135 143 143 168 190 190)
                  #f
                  #f
                  0
                  10
                  #t
                  #f
                  #f))))
      ((call-with-current-continuation
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (604) #f #f 1 0 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$610 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 43 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$611 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 41 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$612 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 42 #f #f #f 1 (42) #f #f 0 1 #t #f #f))))
      ((r$613 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 60 #f #f #f 1 (60) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((lp$192$322
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             220
             #f
             #f
             #f
             3
             (206 220 203)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(219
                 (k$748 c$323)
                 ((if (Cyc-fast-gte c$323 (Cyc-fast-mul 2 r$773))
                    (k$748 (Cyc-fast-gte c$323 (Cyc-fast-mul 2 r$773)))
                    (#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(215
                         (k$759)
                         ((if (Cyc-fast-eq c$323 entrance$304)
                            (k$759 #\space)
                            (k$759 #\_)))
                         #t))
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(213
                         (r$758)
                         ((write-ch
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(212
                                (r$750)
                                ((write-ch
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(211
                                       (r$751)
                                       ((dot/space
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(208
                                              (r$755)
                                              ((write-ch
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(207
                                                     (r$752)
                                                     ((write-ch
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(206
                                                            (r$753)
                                                            ((lp$192$322
                                                               k$748
                                                               (Cyc-fast-plus
                                                                 c$323
                                                                 2)))
                                                            #f))
                                                        #\\))
                                                     #f))
                                                 r$755))
                                              #f))
                                          harr$305
                                          (Cyc-fast-sub
                                            (vector-ref harr$305 1)
                                            1)
                                          (Cyc-fast-plus c$323 1)))
                                       #f))
                                   #\/))
                                #f))
                            r$758))
                         #f)))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ((mark-path
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             552
             #f
             #f
             2
             (263 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(552
                  (k$1042 node$444)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(551
                        (node$445)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(550
                              (lp$446)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(544 (r$1043) ((lp$446 k$1042 node$445)) #f))
                                (set! lp$446
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(549
                                      (k$1045 node$447)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(548
                                            (r$1046)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(546
                                                  (tmp$111$448)
                                                  ((if tmp$111$448
                                                     (lp$446 k$1045 tmp$111$448)
                                                     (k$1045 #f)))
                                                  #f))
                                              (vector-ref node$447 4)))
                                            #f))
                                        (vector-set! node$447 5 #t)))
                                      #t)))))
                              #f))
                          #f))
                        #f))
                    node$444))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((r$910 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 413 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((r$912 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  395
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$140$399
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(409
                        (k$914 x$400)
                        ((if (Cyc-fast-lt x$400 3)
                           (k$914 (Cyc-fast-lt x$400 3))
                           (href #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(405
                                     (r$922)
                                     ((href #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(403
                                                (r$923)
                                                ((add-wall$396
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(402
                                                       (r$916)
                                                       ((href #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(401
                                                                  (r$919)
                                                                  ((href #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(399
                                                                             (r$920)
                                                                             ((add-wall$396
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(398
                                                                                    (r$917)
                                                                                    ((lp$140$399
                                                                                       k$914
                                                                                       (Cyc-fast-sub
                                                                                         x$400
                                                                                         6)))
                                                                                    #f))
                                                                                r$919
                                                                                r$920
                                                                                south-east))
                                                                             #f))
                                                                         harr$388
                                                                         (Cyc-fast-plus
                                                                           x$400
                                                                           3)
                                                                         0))
                                                                  #f))
                                                              harr$388
                                                              x$400
                                                              1))
                                                       #f))
                                                   r$922
                                                   r$923
                                                   south-west))
                                                #f))
                                            harr$388
                                            (Cyc-fast-sub x$400 3)
                                            0))
                                     #f))
                                 harr$388
                                 x$400
                                 1)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ((r$916 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 402 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$917 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 398 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((display-hexbottom
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             123
             #f
             #f
             4
             (-1 176 155 138)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(123
                  (k$657 hexwalls$298)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(122
                        (k$667)
                        ((bit-test
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(121
                               (r$668)
                               ((if r$668 (k$667 #\\) (k$667 #\space)))
                               #f))
                           hexwalls$298
                           south-west))
                        #t))
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(120
                        (r$666)
                        ((write-ch
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(119
                               (r$658)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(118
                                     (k$664)
                                     ((bit-test
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(117
                                            (r$665)
                                            ((if r$665
                                               (k$664 #\_)
                                               (k$664 #\space)))
                                            #f))
                                        hexwalls$298
                                        south))
                                     #t))
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(116
                                     (r$663)
                                     ((write-ch
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(115
                                            (r$659)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(114
                                                  (k$661)
                                                  ((bit-test
                                                     #((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(113
                                                         (r$662)
                                                         ((if r$662
                                                            (k$661 #\/)
                                                            (k$661 #\space)))
                                                         #f))
                                                     hexwalls$298
                                                     south-east))
                                                  #t))
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(112
                                                  (r$660)
                                                  ((write-ch k$657 r$660))
                                                  #f))))
                                            #f))
                                        r$663))
                                     #f))))
                               #f))
                           r$666))
                        #f))))
                  #t)))
             3
             0
             #f
             #f
             #f))))
      ((r$919 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 401 #f #f #f 1 (399) #f #f 0 1 #f #f #f))))
      ()
      ((set-cell:parent
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             638
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(638
                  (k$1131 o$497 v$496)
                  ((k$1131 (vector-set! o$497 4 v$496)))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$1021
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 537 #f #f #f 1 (536) #f #f 0 1 #f #f #f))))
      ((r$1022
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 536 #f #f #f 1 (536) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((union!
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             667
             #f
             #f
             2
             (588 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(667
                  (k$1166 s1$513 s2$512)
                  ((get-set-root
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(665
                         (r1$514)
                         ((get-set-root
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(663
                                (r2$515)
                                ((set-size
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(661
                                       (n1$516)
                                       ((set-size
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(659
                                              (n2$517)
                                              ((if (Cyc-fast-gt n1$516 n2$517)
                                                 (#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(651
                                                      (r$1173)
                                                      ((k$1166
                                                         (set-car!
                                                           r1$514
                                                           (Cyc-fast-plus
                                                             n1$516
                                                             n2$517))))
                                                      #f))
                                                  (set-cdr! r2$515 r1$514))
                                                 (#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(653
                                                      (r$1174)
                                                      ((k$1166
                                                         (set-car!
                                                           r2$515
                                                           (Cyc-fast-plus
                                                             n1$516
                                                             n2$517))))
                                                      #f))
                                                  (set-cdr! r1$514 r2$515))))
                                              #f))
                                          r2$515))
                                       #f))
                                   r1$514))
                                #f))
                            s2$512))
                         #f))
                     s1$513))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (neighbor$510
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 650 #f #f #f 1 (650) #f #f 0 1 #t #f #f))))
      ((lp$446
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             550
             #f
             #f
             #f
             3
             (546 550 544)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(549
                 (k$1045 node$447)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(548
                       (r$1046)
                       ((#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(546
                             (tmp$111$448)
                             ((if tmp$111$448
                                (lp$446 k$1045 tmp$111$448)
                                (k$1045 #f)))
                             #f))
                         (vector-ref node$447 4)))
                       #f))
                   (vector-set! node$447 5 #t)))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((vector-for-each-rev
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             635
             #f
             #f
             2
             (603 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(635
                  (k$1113 proc$489 v$488)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(631
                        (lp$491)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(623
                              (r$1115)
                              ((lp$491
                                 k$1113
                                 (Cyc-fast-sub (vector-length v$488) 1)))
                              #f))
                          (set! lp$491
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(630
                                (k$1117 i$492)
                                ((if (Cyc-fast-gte i$492 0)
                                   (proc$489
                                     #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(626
                                         (r$1119)
                                         ((lp$491
                                            k$1117
                                            (Cyc-fast-sub i$492 1)))
                                         #f))
                                     (vector-ref v$488 i$492))
                                   (k$1117 #f)))
                                #t)))))
                        #f))
                    #f))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (len$454
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 557 #f #f #f 2 (557 557) #f #f 0 2 #t #f #f))))
      ()
      ()
      ()
      ()
      ((t0$269
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 55 #f #f #f 1 (36) #f #f 0 1 #t #f #f))))
      ()
      ((r$626 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 79 #f #f #f 1 (76) #f #f 0 1 #f #f #f))))
      ((r$627 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 76 #f #f #f 1 (76) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r$920 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 399 #f #f #f 1 (399) #f #f 0 1 #t #f #f))))
      ()
      ((r$922 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 405 #f #f #f 1 (403) #f #f 0 1 #f #f #f))))
      ((r$923 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 403 #f #f #f 1 (403) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((r$926 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 416 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$927 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 414 #f #f #f 1 (414) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((lp$458
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             568
             #f
             #f
             #f
             3
             (564 568 562)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(567
                 (k$1062 node$460 new-parent$459)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(565
                       (old-parent$461)
                       ((#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(564
                             (r$1064)
                             ((if old-parent$461
                                (lp$458 k$1062 old-parent$461 node$460)
                                (k$1062 #f)))
                             #f))
                         (vector-set! node$460 4 new-parent$459)))
                       #f))
                   (vector-ref node$460 4)))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((j$303 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 131 #f #f #f 1 (131) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((ncols$442
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 543 #f #f #f 1 (543) #f #f 0 1 #t #f #f))))
      ()
      ((r$931 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 417 #f #f #f 1 (417) #f #f 0 1 #t #f #f))))
      ()
      ((r$933 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  425
                  #f
                  #f
                  #f
                  4
                  (425 416 395 419)
                  #f
                  #f
                  0
                  4
                  #t
                  #f
                  #f))))
      ()
      ((n2$517
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             659
             #f
             #f
             #f
             3
             (653 651 659)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((r$936 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  430
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$132$404
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(467
                        (k$938 x$405)
                        ((if (Cyc-fast-lt x$405 0)
                           (k$938 (Cyc-fast-lt x$405 0))
                           (bitwise-and
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(461
                                 (r$965)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(458
                                       (lp$136$408)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(434
                                             (r$943)
                                             ((lp$136$408
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(433
                                                    (r$940)
                                                    ((lp$132$404
                                                       k$938
                                                       (Cyc-fast-sub x$405 3)))
                                                    #f))
                                                (Cyc-fast-plus
                                                  (Cyc-fast-mul
                                                    (Cyc-fast-sub
                                                      (vector-ref harr$388 1)
                                                      1)
                                                    2)
                                                  r$965)))
                                             #f))
                                         (set! lp$136$408
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(457
                                               (k$945 y$409)
                                               ((if (Cyc-fast-lte y$409 1)
                                                  (k$945 (Cyc-fast-lte y$409 1))
                                                  (href #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(452
                                                            (hex$411)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(451
                                                                  (k$959)
                                                                  ((if (zero?__inline__
                                                                         x$405)
                                                                     (k$959 #f)
                                                                     (href #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(447
                                                                               (r$961)
                                                                               ((add-wall$396
                                                                                  k$959
                                                                                  hex$411
                                                                                  r$961
                                                                                  south-west))
                                                                               #f))
                                                                           harr$388
                                                                           (Cyc-fast-sub
                                                                             x$405
                                                                             3)
                                                                           (Cyc-fast-sub
                                                                             y$409
                                                                             1))))
                                                                  #t))
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(446
                                                                  (r$950)
                                                                  ((href #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(444
                                                                             (r$957)
                                                                             ((add-wall$396
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(443
                                                                                    (r$951)
                                                                                    ((#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(442
                                                                                          (k$952)
                                                                                          ((if (Cyc-fast-lt
                                                                                                 x$405
                                                                                                 (Cyc-fast-mul
                                                                                                   3
                                                                                                   (Cyc-fast-sub
                                                                                                     (vector-ref
                                                                                                       harr$388
                                                                                                       2)
                                                                                                     1)))
                                                                                             (href #((record-marker)
                                                                                                     #((record-marker)
                                                                                                       #f
                                                                                                       (id args
                                                                                                           body
                                                                                                           has-cont))
                                                                                                     #(438
                                                                                                       (r$954)
                                                                                                       ((add-wall$396
                                                                                                          k$952
                                                                                                          hex$411
                                                                                                          r$954
                                                                                                          south-east))
                                                                                                       #f))
                                                                                                   harr$388
                                                                                                   (Cyc-fast-plus
                                                                                                     x$405
                                                                                                     3)
                                                                                                   (Cyc-fast-sub
                                                                                                     y$409
                                                                                                     1))
                                                                                             (k$952 #f)))
                                                                                          #t))
                                                                                      #((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(437
                                                                                          (r$947)
                                                                                          ((lp$136$408
                                                                                             k$945
                                                                                             (Cyc-fast-sub
                                                                                               y$409
                                                                                               2)))
                                                                                          #f))))
                                                                                    #f))
                                                                                hex$411
                                                                                r$957
                                                                                south))
                                                                             #f))
                                                                         harr$388
                                                                         x$405
                                                                         (Cyc-fast-sub
                                                                           y$409
                                                                           2)))
                                                                  #f))))
                                                            #f))
                                                        harr$388
                                                        x$405
                                                        y$409)))
                                               #t)))))
                                       #f))
                                   #f))
                                 #f))
                             x$405
                             1)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((Cyc-fast-lte
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             6
             (297 297 318 318 457 457)
             #f
             #f
             6
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((nrows$297
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 111 #f #f #f 1 (109) #f #f 0 1 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((r$1043
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             544
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$446
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(549
                   (k$1045 node$447)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(548
                         (r$1046)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(546
                               (tmp$111$448)
                               ((if tmp$111$448
                                  (lp$446 k$1045 tmp$111$448)
                                  (k$1045 #f)))
                               #f))
                           (vector-ref node$447 4)))
                         #f))
                     (vector-set! node$447 5 #t)))
                   #t)))
             0
             0
             #t
             #f
             #f))))
      ((make-maze
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             285
             #f
             #f
             2
             (258 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(285
                  (k$789 nrows$337 ncols$336)
                  ((gen-maze-array
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(283
                         (cells$338)
                         ((make-wall-vec
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(282
                                (r$806)
                                ((permute-vec!
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(279
                                       (walls$339)
                                       ((dig-maze
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(276
                                              (r$792)
                                              ((pick-entrances
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(274
                                                     (result$340)
                                                     ((href/rc
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(269
                                                            (exit-cell$343)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(267
                                                                  (walls$344)
                                                                  ((href/rc
                                                                     #((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(264
                                                                         (r$803)
                                                                         ((reroot-maze
                                                                            #((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(263
                                                                                (r$798)
                                                                                ((mark-path
                                                                                   #((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(262
                                                                                       (r$799)
                                                                                       ((bitwise-not
                                                                                          #((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(261
                                                                                              (r$802)
                                                                                              ((bitwise-and
                                                                                                 #((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(260
                                                                                                     (r$801)
                                                                                                     ((#((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(259
                                                                                                           (r$800)
                                                                                                           ((vector
                                                                                                              k$789
                                                                                                              cells$338
                                                                                                              (vector-ref
                                                                                                                result$340
                                                                                                                0)
                                                                                                              (vector-ref
                                                                                                                result$340
                                                                                                                1)))
                                                                                                           #f))
                                                                                                       (vector-set!
                                                                                                         exit-cell$343
                                                                                                         3
                                                                                                         r$801)))
                                                                                                     #f))
                                                                                                 walls$344
                                                                                                 r$802))
                                                                                              #f))
                                                                                          south))
                                                                                       #f))
                                                                                   exit-cell$343))
                                                                                #f))
                                                                            r$803))
                                                                         #f))
                                                                     cells$338
                                                                     (Cyc-fast-sub
                                                                       nrows$337
                                                                       1)
                                                                     (vector-ref
                                                                       result$340
                                                                       0)))
                                                                  #f))
                                                              (vector-ref
                                                                exit-cell$343
                                                                3)))
                                                            #f))
                                                        cells$338
                                                        0
                                                        (vector-ref
                                                          result$340
                                                          1)))
                                                     #f))
                                                 cells$338))
                                              #f))
                                          walls$339
                                          (Cyc-fast-mul nrows$337 ncols$336)))
                                       #f))
                                   r$806
                                   (cons 20 #f)))
                                #f))
                            cells$338))
                         #f))
                     nrows$337
                     ncols$336))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ((r$1046
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             548
             #f
             #f
             #f
             0
             ()
             #f
             (vector-set! node$447 5 #t)
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((r$642 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  90
                  #f
                  #f
                  #f
                  1
                  (90)
                  #f
                  (string-append
                    "maze"
                    ":"
                    s1$293
                    ":"
                    s2$292
                    ":"
                    s3$291)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ((r$647 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 88 #f #f #f 1 (87) #f #f 0 1 #f #f #f))))
      ((r$648 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 87 #f #f #f 1 (87) #f #f 0 1 #t #f #f))))
      ()
      ((x$527 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 686 #f #f #f 1 (677) #f s$522 0 1 #f #f #f))))
      ((r$940 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 433 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((x$529 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 684 #f #f #f 2 (684 681) #f #f 0 2 #f #t #f))))
      ()
      ((r$943 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  434
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$136$408
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(457
                        (k$945 y$409)
                        ((if (Cyc-fast-lte y$409 1)
                           (k$945 (Cyc-fast-lte y$409 1))
                           (href #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(452
                                     (hex$411)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(451
                                           (k$959)
                                           ((if (zero?__inline__ x$405)
                                              (k$959 #f)
                                              (href #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(447
                                                        (r$961)
                                                        ((add-wall$396
                                                           k$959
                                                           hex$411
                                                           r$961
                                                           south-west))
                                                        #f))
                                                    harr$388
                                                    (Cyc-fast-sub x$405 3)
                                                    (Cyc-fast-sub y$409 1))))
                                           #t))
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(446
                                           (r$950)
                                           ((href #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(444
                                                      (r$957)
                                                      ((add-wall$396
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(443
                                                             (r$951)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(442
                                                                   (k$952)
                                                                   ((if (Cyc-fast-lt
                                                                          x$405
                                                                          (Cyc-fast-mul
                                                                            3
                                                                            (Cyc-fast-sub
                                                                              (vector-ref
                                                                                harr$388
                                                                                2)
                                                                              1)))
                                                                      (href #((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(438
                                                                                (r$954)
                                                                                ((add-wall$396
                                                                                   k$952
                                                                                   hex$411
                                                                                   r$954
                                                                                   south-east))
                                                                                #f))
                                                                            harr$388
                                                                            (Cyc-fast-plus
                                                                              x$405
                                                                              3)
                                                                            (Cyc-fast-sub
                                                                              y$409
                                                                              1))
                                                                      (k$952 #f)))
                                                                   #t))
                                                               #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(437
                                                                   (r$947)
                                                                   ((lp$136$408
                                                                      k$945
                                                                      (Cyc-fast-sub
                                                                        y$409
                                                                        2)))
                                                                   #f))))
                                                             #f))
                                                         hex$411
                                                         r$957
                                                         south))
                                                      #f))
                                                  harr$388
                                                  x$405
                                                  (Cyc-fast-sub y$409 2)))
                                           #f))))
                                     #f))
                                 harr$388
                                 x$405
                                 y$409)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ((r$947 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 437 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((val$543
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 703 #f #f #f 2 (703 701) #f #f 0 2 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((pick-entrances
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             393
             #f
             #f
             2
             (276 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(393
                  (k$869 harr$361)
                  ((href/rc
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(392
                         (r$896)
                         ((dfs-maze
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(391
                                (r$870)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(390
                                      (r$871)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(389
                                            (r$872)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(388
                                                  (nrows$363 ncols$362)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(385
                                                        (tp-lp$368)
                                                        ((#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(357
                                                              (r$874)
                                                              ((tp-lp$368
                                                                 k$869
                                                                 -1
                                                                 #f
                                                                 #f
                                                                 (Cyc-fast-sub
                                                                   ncols$362
                                                                   1)))
                                                              #f))
                                                          (set! tp-lp$368
                                                            #((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(384
                                                                (k$876 max-len$372
                                                                       entrance$371
                                                                       exit$370
                                                                       tcol$369)
                                                                ((#((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(383
                                                                      (r$877)
                                                                      ((if r$877
                                                                         (vector
                                                                           k$876
                                                                           entrance$371
                                                                           exit$370)
                                                                         (href/rc
                                                                           #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(380
                                                                               (top-cell$373)
                                                                               ((reroot-maze
                                                                                  #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(379
                                                                                      (r$879)
                                                                                      ((#((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(377
                                                                                            (max-len$377
                                                                                              entrance$376
                                                                                              exit$375
                                                                                              bcol$374)
                                                                                            ((#((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(376
                                                                                                  (bt-lp$378)
                                                                                                  ((#((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(366
                                                                                                        (r$886)
                                                                                                        ((bt-lp$378
                                                                                                           #((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(364
                                                                                                               (result$384)
                                                                                                               ((tp-lp$368
                                                                                                                  k$876
                                                                                                                  (vector-ref
                                                                                                                    result$384
                                                                                                                    0)
                                                                                                                  (vector-ref
                                                                                                                    result$384
                                                                                                                    1)
                                                                                                                  (vector-ref
                                                                                                                    result$384
                                                                                                                    2)
                                                                                                                  (Cyc-fast-sub
                                                                                                                    tcol$369
                                                                                                                    1)))
                                                                                                               #f))
                                                                                                           max-len$377
                                                                                                           entrance$376
                                                                                                           exit$375
                                                                                                           bcol$374))
                                                                                                        #f))
                                                                                                    (set! bt-lp$378
                                                                                                      #((record-marker)
                                                                                                        #((record-marker)
                                                                                                          #f
                                                                                                          (id args
                                                                                                              body
                                                                                                              has-cont))
                                                                                                        #(375
                                                                                                          (k$888 max-len$382
                                                                                                                 entrance$381
                                                                                                                 exit$380
                                                                                                                 bcol$379)
                                                                                                          ((#((record-marker)
                                                                                                              #((record-marker)
                                                                                                                #f
                                                                                                                (id args
                                                                                                                    body
                                                                                                                    has-cont))
                                                                                                              #(374
                                                                                                                (r$889)
                                                                                                                ((if r$889
                                                                                                                   (vector
                                                                                                                     k$888
                                                                                                                     max-len$382
                                                                                                                     entrance$381
                                                                                                                     exit$380)
                                                                                                                   (href/rc
                                                                                                                     #((record-marker)
                                                                                                                       #((record-marker)
                                                                                                                         #f
                                                                                                                         (id args
                                                                                                                             body
                                                                                                                             has-cont))
                                                                                                                       #(373
                                                                                                                         (r$894)
                                                                                                                         ((path-length
                                                                                                                            #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(371
                                                                                                                                (this-len$383)
                                                                                                                                ((#((record-marker)
                                                                                                                                    #((record-marker)
                                                                                                                                      #f
                                                                                                                                      (id args
                                                                                                                                          body
                                                                                                                                          has-cont))
                                                                                                                                    #(370
                                                                                                                                      (r$891)
                                                                                                                                      ((if r$891
                                                                                                                                         (#((record-marker)
                                                                                                                                            #((record-marker)
                                                                                                                                              #f
                                                                                                                                              (id args
                                                                                                                                                  body
                                                                                                                                                  has-cont))
                                                                                                                                            #(368
                                                                                                                                              (r$892)
                                                                                                                                              ((bt-lp$378
                                                                                                                                                 k$888
                                                                                                                                                 this-len$383
                                                                                                                                                 tcol$369
                                                                                                                                                 bcol$379
                                                                                                                                                 r$892))
                                                                                                                                              #f))
                                                                                                                                          (Cyc-fast-sub
                                                                                                                                            bcol$379
                                                                                                                                            1))
                                                                                                                                         (bt-lp$378
                                                                                                                                           k$888
                                                                                                                                           max-len$382
                                                                                                                                           entrance$381
                                                                                                                                           exit$380
                                                                                                                                           (Cyc-fast-sub
                                                                                                                                             bcol$379
                                                                                                                                             1))))
                                                                                                                                      #f))
                                                                                                                                  (Cyc-fast-gt
                                                                                                                                    this-len$383
                                                                                                                                    max-len$382)))
                                                                                                                                #f))
                                                                                                                            r$894))
                                                                                                                         #f))
                                                                                                                     harr$361
                                                                                                                     0
                                                                                                                     bcol$379)))
                                                                                                                #f))
                                                                                                            (Cyc-fast-lt
                                                                                                              bcol$379
                                                                                                              0)))
                                                                                                          #t)))))
                                                                                                  #f))
                                                                                              #f))
                                                                                            #f))
                                                                                        max-len$372
                                                                                        entrance$371
                                                                                        exit$370
                                                                                        (Cyc-fast-sub
                                                                                          ncols$362
                                                                                          1)))
                                                                                      #f))
                                                                                  top-cell$373))
                                                                               #f))
                                                                           harr$361
                                                                           (Cyc-fast-sub
                                                                             nrows$363
                                                                             1)
                                                                           tcol$369)))
                                                                      #f))
                                                                  (Cyc-fast-lt
                                                                    tcol$369
                                                                    0)))
                                                                #t)))))
                                                        #f))
                                                    #f))
                                                  #f))
                                              r$871
                                              r$872))
                                            #f))
                                        (vector-ref harr$361 2)))
                                      #f))
                                  (vector-ref harr$361 1)))
                                #f))
                            harr$361
                            r$896
                            for-each-hex-child))
                         #f))
                     harr$361
                     0
                     0))
                  #t)))
             1
             0
             #f
             #f
             #f)))
       (r$1052
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             553
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$105$452
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(557
                   (k$1054 len$454 node$453)
                   ((if node$453
                      (lp$105$452
                        k$1054
                        (Cyc-fast-plus len$454 1)
                        (vector-ref node$453 4))
                      (k$1054 len$454)))
                   #t)))
             0
             0
             #t
             #f
             #f)))
       (s3$291
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             97
             #f
             #f
             #f
             1
             (93)
             #f
             (number->string count$287)
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$652 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  109
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! output '())
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$653 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 108 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ((not__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (130) #f #f 1 0 #t #f #f)))
       (number->string
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 3 (99 97 95) #f #f 3 0 #t #f #f))))
      ((cell:walls
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             641
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(641
                  (k$1140 o$501)
                  ((k$1140 (vector-ref o$501 3)))
                  #t)))
             0
             0
             #f
             #f
             #f)))
       (r$658 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 119 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$659 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 115 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((r$950 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 446 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$951 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 443 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ((r$954 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 438 #f #f #f 1 (438) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((r$957 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 444 #f #f #f 1 (444) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((write .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(? ? #f #f #f 3 (45 24 26) #f #f 3 0 #f #f #f))))
      ((vector-set!
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             11
             (260 503 549 565 577 586 611 610 636 638 640)
             #f
             #f
             11
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((gen-maze-array
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             492
             #f
             #f
             2
             (285 -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(492
                  (k$974 r$413 c$412)
                  ((harr-tabulate
                     k$974
                     r$413
                     c$412
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(491
                         (k$976 x$415 y$414)
                         ((vector
                            k$976
                            'cell
                            (cons 1 '())
                            (cons x$415 y$414)
                            -1
                            #f
                            #f))
                         #t))))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ((r$1060
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             562
             #f
             #f
             #f
             0
             ()
             #f
             (set! lp$458
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(567
                   (k$1062 node$460 new-parent$459)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(565
                         (old-parent$461)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(564
                               (r$1064)
                               ((if old-parent$461
                                  (lp$458 k$1062 old-parent$461 node$460)
                                  (k$1062 #f)))
                               #f))
                           (vector-set! node$460 4 new-parent$459)))
                         #f))
                     (vector-ref node$460 4)))
                   #t)))
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((lp$484
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             618
             #f
             #f
             #f
             3
             (609 618 606)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(617
                 (k$1102 i$485)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(616
                       (r$1103)
                       ((if r$1103
                          (#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(614
                               (r$1106)
                               ((random-int
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(613
                                      (r$1107)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(612
                                            (elt-i$487 j$486)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(611
                                                  (r$1109)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(610
                                                        (r$1108)
                                                        ((#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(609
                                                              (r$1104)
                                                              ((lp$484
                                                                 k$1102
                                                                 (Cyc-fast-sub
                                                                   i$485
                                                                   1)))
                                                              #f))
                                                          (vector-set!
                                                            v$482
                                                            j$486
                                                            elt-i$487)))
                                                        #f))
                                                    (vector-set!
                                                      v$482
                                                      i$485
                                                      r$1109)))
                                                  #f))
                                              (vector-ref v$482 j$486)))
                                            #f))
                                        r$1106
                                        r$1107))
                                      #f))
                                  i$485
                                  random-state$481))
                               #f))
                           (vector-ref v$482 i$485))
                          (k$1102 #f)))
                       #f))
                   (Cyc-fast-gt i$485 1)))
                 #t))
             2
             0
             #f
             #f
             #f)))
       (r$1064
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             564
             #f
             #f
             #f
             0
             ()
             #f
             (vector-set! node$460 4 new-parent$459)
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((r$1068
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             571
             #f
             #f
             #f
             0
             ()
             #f
             (set! search$467
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(577
                   (k$1070 node$469 parent$468)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(576
                         (r$1071)
                         ((do-children$462
                            k$1070
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(575
                                (k$1073 child$470)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(574
                                      (r$1074)
                                      ((if r$1074
                                         (k$1073 #f)
                                         (search$467
                                           k$1073
                                           child$470
                                           node$469)))
                                      #f))
                                  (eq? child$470 parent$468)))
                                #t))
                            maze$464
                            node$469))
                         #f))
                     (vector-set! node$469 4 parent$468)))
                   #t)))
             0
             0
             #t
             #f
             #f)))
       (r$660 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 112 #f #f #f 1 (112) #f #f 0 1 #t #f #f))))
      ()
      ((r$662 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 113 #f #f #f 1 (113) #f #f 0 0 #t #f #f))))
      ((r$663 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 116 #f #f #f 1 (116) #f #f 0 1 #t #f #f))))
      ()
      ((r$665 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 117 #f #f #f 1 (117) #f #f 0 0 #t #f #f))))
      ((r$666 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 120 #f #f #f 1 (120) #f #f 0 1 #t #f #f))))
      ()
      ((r$668 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 121 #f #f #f 1 (121) #f #f 0 0 #t #f #f))))
      ((x$546 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  741
                  #f
                  #f
                  #f
                  11
                  (737 737 737 737 737 737 737 737 737 740 740)
                  #f
                  #f
                  0
                  11
                  #f
                  #f
                  #f))))
      ()
      ()
      ((r$961 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 447 #f #f #f 1 (447) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r$965 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 461 #f #f #f 1 (434) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r$969 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  475
                  #f
                  #f
                  #f
                  1
                  (475)
                  #f
                  (cons r$970 walls$392)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((lp$491
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             631
             #f
             #f
             #f
             3
             (626 631 623)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(630
                 (k$1117 i$492)
                 ((if (Cyc-fast-gte i$492 0)
                    (proc$489
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(626
                          (r$1119)
                          ((lp$491 k$1117 (Cyc-fast-sub i$492 1)))
                          #f))
                      (vector-ref v$488 i$492))
                    (k$1117 #f)))
                 #t))
             2
             0
             #t
             #f
             #f)))
       (r$1071
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             576
             #f
             #f
             #f
             0
             ()
             #f
             (vector-set! node$469 4 parent$468)
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ((r$1074
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             574
             #f
             #f
             #f
             1
             (574)
             #f
             (eq? child$470 parent$468)
             0
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ((r$672 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 124 #f #f #f 1 (124) #f #f 0 0 #t #f #f))))
      ()
      ()
      ((x$552 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  764
                  #f
                  #f
                  #f
                  11
                  (760 760 760 760 760 760 760 760 760 763 763)
                  #f
                  #f
                  0
                  11
                  #t
                  #f
                  #f)))
       (r$675 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 125 #f #f #f 1 (125) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((ncells$471
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 604 #f #f #f 1 (584) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((x$558 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  781
                  #f
                  #f
                  #f
                  5
                  (781 779 777 771 777)
                  #f
                  #f
                  0
                  5
                  #f
                  #f
                  #f)))
       (r$970 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 476 #f #f #f 1 (476) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((equal?
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (85) #f #f 1 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((for-each-hex-child
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             356
             #f
             #f
             2
             (-1 392)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(356
                  (k$810 proc$347 harr$346 cell$345)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(336
                        (k$860)
                        ((bit-test
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(335
                               (r$861)
                               ((if r$861
                                  (k$860 #f)
                                  (href #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(332
                                            (r$862)
                                            ((proc$347 k$860 r$862))
                                            #f))
                                        harr$346
                                        (Cyc-fast-sub
                                          (car (vector-ref cell$345 2))
                                          3)
                                        (Cyc-fast-sub
                                          (cdr (vector-ref cell$345 2))
                                          1))))
                               #f))
                           (vector-ref cell$345 3)
                           south-west))
                        #t))
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(331
                        (r$819)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(330
                              (k$856)
                              ((bit-test
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(329
                                     (r$857)
                                     ((if r$857
                                        (k$856 #f)
                                        (href #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(327
                                                  (r$858)
                                                  ((proc$347 k$856 r$858))
                                                  #f))
                                              harr$346
                                              (car (vector-ref cell$345 2))
                                              (Cyc-fast-sub
                                                (cdr (vector-ref cell$345 2))
                                                2))))
                                     #f))
                                 (vector-ref cell$345 3)
                                 south))
                              #t))
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(326
                              (r$820)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(325
                                    (k$851)
                                    ((bit-test
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(324
                                           (r$852)
                                           ((if r$852
                                              (k$851 #f)
                                              (href #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(321
                                                        (r$853)
                                                        ((proc$347 k$851 r$853))
                                                        #f))
                                                    harr$346
                                                    (Cyc-fast-plus
                                                      (car (vector-ref
                                                             cell$345
                                                             2))
                                                      3)
                                                    (Cyc-fast-sub
                                                      (cdr (vector-ref
                                                             cell$345
                                                             2))
                                                      1))))
                                           #f))
                                       (vector-ref cell$345 3)
                                       south-east))
                                    #t))
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(320
                                    (r$821)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(319
                                          (k$840)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(318
                                                (k$847)
                                                ((if (Cyc-fast-gt
                                                       (car (vector-ref
                                                              cell$345
                                                              2))
                                                       0)
                                                   (if (Cyc-fast-lte
                                                         (cdr (vector-ref
                                                                cell$345
                                                                2))
                                                         (Cyc-fast-mul
                                                           2
                                                           (Cyc-fast-sub
                                                             (vector-ref
                                                               harr$346
                                                               1)
                                                             1)))
                                                     (k$847 (Cyc-fast-lte
                                                              (cdr (vector-ref
                                                                     cell$345
                                                                     2))
                                                              (Cyc-fast-mul
                                                                2
                                                                (Cyc-fast-sub
                                                                  (vector-ref
                                                                    harr$346
                                                                    1)
                                                                  1))))
                                                     (mod #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(314
                                                              (r$850)
                                                              ((k$847 (zero?__inline__
                                                                        r$850)))
                                                              #f))
                                                          (car (vector-ref
                                                                 cell$345
                                                                 2))
                                                          6))
                                                   (k$847 #f)))
                                                #t))
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(313
                                                (r$841)
                                                ((if r$841
                                                   (href #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(309
                                                             (nw$359)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(308
                                                                   (r$844)
                                                                   ((bit-test
                                                                      #((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(307
                                                                          (r$843)
                                                                          ((if r$843
                                                                             (k$840 #f)
                                                                             (proc$347
                                                                               k$840
                                                                               nw$359)))
                                                                          #f))
                                                                      r$844
                                                                      south-east))
                                                                   #f))
                                                               (vector-ref
                                                                 nw$359
                                                                 3)))
                                                             #f))
                                                         harr$346
                                                         (Cyc-fast-sub
                                                           (car (vector-ref
                                                                  cell$345
                                                                  2))
                                                           3)
                                                         (Cyc-fast-plus
                                                           (cdr (vector-ref
                                                                  cell$345
                                                                  2))
                                                           1))
                                                   (k$840 #f)))
                                                #f))))
                                          #t))
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(306
                                          (r$822)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(305
                                                (k$834)
                                                ((if (Cyc-fast-lt
                                                       (cdr (vector-ref
                                                              cell$345
                                                              2))
                                                       (Cyc-fast-mul
                                                         2
                                                         (Cyc-fast-sub
                                                           (vector-ref
                                                             harr$346
                                                             1)
                                                           1)))
                                                   (href #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(301
                                                             (n$358)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(300
                                                                   (r$838)
                                                                   ((bit-test
                                                                      #((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(299
                                                                          (r$837)
                                                                          ((if r$837
                                                                             (k$834 #f)
                                                                             (proc$347
                                                                               k$834
                                                                               n$358)))
                                                                          #f))
                                                                      r$838
                                                                      south))
                                                                   #f))
                                                               (vector-ref
                                                                 n$358
                                                                 3)))
                                                             #f))
                                                         harr$346
                                                         (car (vector-ref
                                                                cell$345
                                                                2))
                                                         (Cyc-fast-plus
                                                           (cdr (vector-ref
                                                                  cell$345
                                                                  2))
                                                           2))
                                                   (k$834 #f)))
                                                #t))
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(298
                                                (r$823)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(297
                                                      (k$830)
                                                      ((if (Cyc-fast-lt
                                                             (car (vector-ref
                                                                    cell$345
                                                                    2))
                                                             (Cyc-fast-mul
                                                               3
                                                               (Cyc-fast-sub
                                                                 (vector-ref
                                                                   harr$346
                                                                   2)
                                                                 1)))
                                                         (if (Cyc-fast-lte
                                                               (cdr (vector-ref
                                                                      cell$345
                                                                      2))
                                                               (Cyc-fast-mul
                                                                 2
                                                                 (Cyc-fast-sub
                                                                   (vector-ref
                                                                     harr$346
                                                                     1)
                                                                   1)))
                                                           (k$830 (Cyc-fast-lte
                                                                    (cdr (vector-ref
                                                                           cell$345
                                                                           2))
                                                                    (Cyc-fast-mul
                                                                      2
                                                                      (Cyc-fast-sub
                                                                        (vector-ref
                                                                          harr$346
                                                                          1)
                                                                        1))))
                                                           (mod #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(293
                                                                    (r$833)
                                                                    ((k$830 (zero?__inline__
                                                                              r$833)))
                                                                    #f))
                                                                (car (vector-ref
                                                                       cell$345
                                                                       2))
                                                                6))
                                                         (k$830 #f)))
                                                      #t))
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(292
                                                      (r$824)
                                                      ((if r$824
                                                         (href #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(288
                                                                   (ne$356)
                                                                   ((#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(287
                                                                         (r$827)
                                                                         ((bit-test
                                                                            #((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(286
                                                                                (r$826)
                                                                                ((if r$826
                                                                                   (k$810 #f)
                                                                                   (proc$347
                                                                                     k$810
                                                                                     ne$356)))
                                                                                #f))
                                                                            r$827
                                                                            south-west))
                                                                         #f))
                                                                     (vector-ref
                                                                       ne$356
                                                                       3)))
                                                                   #f))
                                                               harr$346
                                                               (Cyc-fast-plus
                                                                 (car (vector-ref
                                                                        cell$345
                                                                        2))
                                                                 3)
                                                               (Cyc-fast-plus
                                                                 (cdr (vector-ref
                                                                        cell$345
                                                                        2))
                                                                 1))
                                                         (k$810 #f)))
                                                      #f))))
                                                #f))))
                                          #f))))
                                    #f))))
                              #f))))
                        #f))))
                  #t)))
             0
             1
             #f
             #f
             #f)))
       (r$1086
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 592 #f #f #f 1 (592) #f #f 0 0 #t #f #f))))
      ()
      ((r$1088
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 589 #f #f #f 1 (589) #f #f 0 1 #t #f #f)))
       (r$680 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 130 #f #f #f 1 (130) #f #f 0 1 #t #f #f))))
      ((r$1089
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 587 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((x$560 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 783 #f #f #f 1 (783) #f #f 0 1 #t #f #f)))
       (lp$140$399
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             410
             #f
             #f
             #f
             3
             (398 410 395)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(409
                 (k$914 x$400)
                 ((if (Cyc-fast-lt x$400 3)
                    (k$914 (Cyc-fast-lt x$400 3))
                    (href #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(405
                              (r$922)
                              ((href #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(403
                                         (r$923)
                                         ((add-wall$396
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(402
                                                (r$916)
                                                ((href #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(401
                                                           (r$919)
                                                           ((href #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(399
                                                                      (r$920)
                                                                      ((add-wall$396
                                                                         #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(398
                                                                             (r$917)
                                                                             ((lp$140$399
                                                                                k$914
                                                                                (Cyc-fast-sub
                                                                                  x$400
                                                                                  6)))
                                                                             #f))
                                                                         r$919
                                                                         r$920
                                                                         south-east))
                                                                      #f))
                                                                  harr$388
                                                                  (Cyc-fast-plus
                                                                    x$400
                                                                    3)
                                                                  0))
                                                           #f))
                                                       harr$388
                                                       x$400
                                                       1))
                                                #f))
                                            r$922
                                            r$923
                                            south-west))
                                         #f))
                                     harr$388
                                     (Cyc-fast-sub x$400 3)
                                     0))
                              #f))
                          harr$388
                          x$400
                          1)))
                 #t))
             2
             0
             #t
             #f
             #f))))
      ()
      ()
      ((hide .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 83
                 #f
                 #f
                 3
                 (-1 88 89)
                 #f
                 (#((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(83
                      (k$620 r$283 x$282)
                      ((call-with-values
                         k$620
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(82
                             (k$625)
                             ((vector
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(79
                                    (r$626)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(78
                                          (k$628)
                                          ((if (Cyc-fast-lt r$283 100)
                                             (k$628 0)
                                             (k$628 1)))
                                          #t))
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(76
                                          (r$627)
                                          ((values k$625 r$626 r$627))
                                          #f))))
                                    #f))
                                values
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(81 (k$631 x$286) ((k$631 x$286)) #t))))
                             #t))
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(74
                             (k$623 v$285 i$284)
                             (((vector-ref v$285 i$284) k$623 x$282))
                             #t))))
                      #t)))
                 2
                 0
                 #f
                 #f
                 #f))))
      ((r$687 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 224 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$688 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 223 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$689 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 222 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((make-wall
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             650
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(650
                  (k$1162 owner$511 neighbor$510 bit$509)
                  ((vector
                     k$1162
                     'wall
                     owner$511
                     neighbor$510
                     bit$509))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$989 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 493 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ((id$504
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 645 #f #f #f 1 (645) #f #f 0 1 #t #f #f)))
       (v$419 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  522
                  #f
                  #f
                  #f
                  2
                  (503 493)
                  #f
                  (make-vector (Cyc-fast-mul nrows$418 ncols$417))
                  0
                  2
                  #f
                  #f
                  #f))))
      ((search$467
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             578
             #f
             #f
             #f
             3
             (574 578 571)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(577
                 (k$1070 node$469 parent$468)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(576
                       (r$1071)
                       ((do-children$462
                          k$1070
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(575
                              (k$1073 child$470)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(574
                                    (r$1074)
                                    ((if r$1074
                                       (k$1073 #f)
                                       (search$467 k$1073 child$470 node$469)))
                                    #f))
                                (eq? child$470 parent$468)))
                              #t))
                          maze$464
                          node$469))
                       #f))
                   (vector-set! node$469 4 parent$468)))
                 #t))
             2
             0
             #f
             #f
             #f)))
       (south-west
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             #f
             #f
             #f
             7
             (122 287 336 447 414 403 -1)
             #f
             (1)
             0
             6
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((r$1090
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             585
             #f
             #f
             #f
             0
             ()
             #f
             (vector-set! (vector-ref wall$474 1) 3 r$1093)
             0
             0
             #t
             #f
             #f))))
      ()
      ((r$1092
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 584 #f #f #f 1 (584) #f #f 0 1 #t #f #f))))
      ((r$1093
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 586 #f #f #f 1 (586) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ((r$1098
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 605 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (r$690 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 202 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (display
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             13
             (47 14 15 16 17 18 20 22 23 25 28 63 64)
             #f
             #f
             13
             0
             #f
             #f
             #f))))
      ((r$691 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 195 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$692 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 194 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((r$694 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  132
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$196$310
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(190
                        (k$696 r$311)
                        ((if (Cyc-fast-lt r$311 0)
                           (k$696 (Cyc-fast-lt r$311 0))
                           (write-ch
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(186
                                 (r$698)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(184
                                       (lp$200$318)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(171
                                             (r$729)
                                             ((lp$200$318
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(170
                                                    (r$699)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(169
                                                          (k$724)
                                                          ((odd? #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(168
                                                                     (r$725)
                                                                     ((if r$725
                                                                        (dot/space
                                                                          #((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(165
                                                                              (r$727)
                                                                              ((write-ch
                                                                                 #((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(164
                                                                                     (r$726)
                                                                                     ((write-ch
                                                                                        k$724
                                                                                        #\\))
                                                                                     #f))
                                                                                 r$727))
                                                                              #f))
                                                                          harr$305
                                                                          r$311
                                                                          (Cyc-fast-sub
                                                                            (vector-ref
                                                                              harr$305
                                                                              2)
                                                                            1))
                                                                        (k$724 #f)))
                                                                     #f))
                                                                 (vector-ref
                                                                   harr$305
                                                                   2)))
                                                          #t))
                                                      #((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(163
                                                          (r$700)
                                                          ((write-ch
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(162
                                                                 (r$701)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(160
                                                                       (lp$207$314)
                                                                       ((#((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(146
                                                                             (r$712)
                                                                             ((lp$207$314
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(145
                                                                                    (r$702)
                                                                                    ((#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(144
                                                                                          (k$706)
                                                                                          ((odd? #((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(143
                                                                                                     (r$707)
                                                                                                     ((if r$707
                                                                                                        (href/rc
                                                                                                          #((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(138
                                                                                                              (r$709)
                                                                                                              ((display-hexbottom
                                                                                                                 k$706
                                                                                                                 (vector-ref
                                                                                                                   r$709
                                                                                                                   3)))
                                                                                                              #f))
                                                                                                          harr$305
                                                                                                          r$311
                                                                                                          (Cyc-fast-sub
                                                                                                            (vector-ref
                                                                                                              harr$305
                                                                                                              2)
                                                                                                            1))
                                                                                                        (if (zero?__inline__
                                                                                                              r$311)
                                                                                                          (k$706 #f)
                                                                                                          (write-ch
                                                                                                            k$706
                                                                                                            #\\))))
                                                                                                     #f))
                                                                                                 (vector-ref
                                                                                                   harr$305
                                                                                                   2)))
                                                                                          #t))
                                                                                      #((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(136
                                                                                          (r$703)
                                                                                          ((write-ch
                                                                                             #((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(135
                                                                                                 (r$704)
                                                                                                 ((lp$196$310
                                                                                                    k$696
                                                                                                    (Cyc-fast-sub
                                                                                                      r$311
                                                                                                      1)))
                                                                                                 #f))
                                                                                             #\newline))
                                                                                          #f))))
                                                                                    #f))
                                                                                0))
                                                                             #f))
                                                                         (set! lp$207$314
                                                                           #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(159
                                                                               (k$714 c$315)
                                                                               ((if (Cyc-fast-gte
                                                                                      c$315
                                                                                      (Cyc-fast-mul
                                                                                        2
                                                                                        r$773))
                                                                                  (k$714 (Cyc-fast-gte
                                                                                           c$315
                                                                                           (Cyc-fast-mul
                                                                                             2
                                                                                             r$773)))
                                                                                  (href/rc
                                                                                    #((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(155
                                                                                        (r$723)
                                                                                        ((display-hexbottom
                                                                                           #((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(153
                                                                                               (r$716)
                                                                                               ((dot/space
                                                                                                  #((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(150
                                                                                                      (r$719)
                                                                                                      ((write-ch
                                                                                                         #((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(149
                                                                                                             (r$717)
                                                                                                             ((lp$207$314
                                                                                                                k$714
                                                                                                                (Cyc-fast-plus
                                                                                                                  c$315
                                                                                                                  2)))
                                                                                                             #f))
                                                                                                         r$719))
                                                                                                      #f))
                                                                                                  harr$305
                                                                                                  (Cyc-fast-sub
                                                                                                    r$311
                                                                                                    1)
                                                                                                  (Cyc-fast-plus
                                                                                                    c$315
                                                                                                    1)))
                                                                                               #f))
                                                                                           (vector-ref
                                                                                             r$723
                                                                                             3)))
                                                                                        #f))
                                                                                    harr$305
                                                                                    r$311
                                                                                    c$315)))
                                                                               #t)))))
                                                                       #f))
                                                                   #f))
                                                                 #f))
                                                             #\newline))
                                                          #f))))
                                                    #f))
                                                1))
                                             #f))
                                         (set! lp$200$318
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(183
                                               (k$731 c$319)
                                               ((if (Cyc-fast-gte
                                                      c$319
                                                      (Cyc-fast-mul 2 r$773))
                                                  (k$731 (Cyc-fast-gte
                                                           c$319
                                                           (Cyc-fast-mul
                                                             2
                                                             r$773)))
                                                  (dot/space
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(178
                                                        (r$738)
                                                        ((write-ch
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(177
                                                               (r$733)
                                                               ((href/rc
                                                                  #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(176
                                                                      (r$737)
                                                                      ((display-hexbottom
                                                                         #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(174
                                                                             (r$734)
                                                                             ((lp$200$318
                                                                                k$731
                                                                                (Cyc-fast-plus
                                                                                  c$319
                                                                                  2)))
                                                                             #f))
                                                                         (vector-ref
                                                                           r$737
                                                                           3)))
                                                                      #f))
                                                                  harr$305
                                                                  r$311
                                                                  c$319))
                                                               #f))
                                                           r$738))
                                                        #f))
                                                    harr$305
                                                    r$311
                                                    (Cyc-fast-sub c$319 1))))
                                               #t)))))
                                       #f))
                                   #f))
                                 #f))
                             #\/)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((make-cell
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             645
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(645
                  (k$1149 reachable$505 id$504)
                  ((vector
                     k$1149
                     'cell
                     reachable$505
                     id$504
                     -1
                     #f
                     #f))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ()
      ((r$698 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 186 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$699 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 170 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ((cell:mark
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             637
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(637
                  (k$1128 o$495)
                  ((k$1128 (vector-ref o$495 5)))
                  #t)))
             0
             0
             #f
             #f
             #f)))
       (r$991 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  494
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$113$421
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(518
                        (k$993 r$422)
                        ((if (Cyc-fast-lt r$422 0)
                           (k$993 (Cyc-fast-lt r$422 0))
                           (#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(513
                                (i$424)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(512
                                      (lp$117$426)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(498
                                            (r$998)
                                            ((lp$117$426
                                               #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(497
                                                   (r$995)
                                                   ((lp$113$421
                                                      k$993
                                                      (Cyc-fast-sub r$422 1)))
                                                   #f))
                                               0
                                               i$424))
                                            #f))
                                        (set! lp$117$426
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(511
                                              (k$1000 c$428 i$427)
                                              ((if (Cyc-fast-eq c$428 ncols$417)
                                                 (k$1000
                                                   (Cyc-fast-eq
                                                     c$428
                                                     ncols$417))
                                                 (bitwise-and
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(505
                                                       (r$1009)
                                                       ((proc$416
                                                          #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(503
                                                              (r$1005)
                                                              ((#((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(502
                                                                    (r$1002)
                                                                    ((lp$117$426
                                                                       k$1000
                                                                       (Cyc-fast-plus
                                                                         c$428
                                                                         1)
                                                                       (Cyc-fast-plus
                                                                         i$427
                                                                         1)))
                                                                    #f))
                                                                (vector-set!
                                                                  v$419
                                                                  i$427
                                                                  r$1005)))
                                                              #f))
                                                          (Cyc-fast-mul 3 c$428)
                                                          (Cyc-fast-plus
                                                            (Cyc-fast-mul
                                                              2
                                                              r$422)
                                                            r$1009)))
                                                       #f))
                                                   c$428
                                                   1)))
                                              #t)))))
                                      #f))
                                  #f))
                                #f))
                            (Cyc-fast-mul r$422 ncols$417))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((max-len$372
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 384 #f #f #f 1 (379) #f #f 0 1 #f #f #f))))
      ()
      ((r$995 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 497 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ((r$998 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  498
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$117$426
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(511
                        (k$1000 c$428 i$427)
                        ((if (Cyc-fast-eq c$428 ncols$417)
                           (k$1000 (Cyc-fast-eq c$428 ncols$417))
                           (bitwise-and
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(505
                                 (r$1009)
                                 ((proc$416
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(503
                                        (r$1005)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(502
                                              (r$1002)
                                              ((lp$117$426
                                                 k$1000
                                                 (Cyc-fast-plus c$428 1)
                                                 (Cyc-fast-plus i$427 1)))
                                              #f))
                                          (vector-set! v$419 i$427 r$1005)))
                                        #f))
                                    (Cyc-fast-mul 3 c$428)
                                    (Cyc-fast-plus
                                      (Cyc-fast-mul 2 r$422)
                                      r$1009)))
                                 #f))
                             c$428
                             1)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f)))
       (max-len$377
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             377
             #f
             #f
             #f
             1
             (366)
             #f
             max-len$372
             0
             1
             #f
             #f
             #f))))
      ()
      ((t1$277
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 36 #f #f #f 1 (36) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((random-state$481
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 622 #f #f #f 1 (614) #f #f 0 1 #f #f #f))))
      ((x$281 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 68 #f #f #f 1 (68) #f #f 0 1 #t #f #f))))
      ((x$282 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 83 #f #f #f 1 (74) #f #f 0 1 #f #f #f))))
      ()
      ()
      ()
      ((x$286 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 81 #f #f #f 1 (81) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ((href .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 538
                 #f
                 #f
                 18
                 (292
                  305
                  313
                  324
                  329
                  335
                  442
                  446
                  451
                  457
                  401
                  402
                  405
                  409
                  416
                  419
                  425
                  -1)
                 #f
                 (#((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(538
                      (k$1020 ha$435 x$434 y$433)
                      ((div #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(537
                                (r$1021)
                                ((div #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(536
                                          (r$1022)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(535
                                                (r$437 c$436)
                                                ((k$1020
                                                   (vector-ref
                                                     (vector-ref ha$435 3)
                                                     (Cyc-fast-plus
                                                       (Cyc-fast-mul
                                                         (vector-ref ha$435 2)
                                                         r$437)
                                                       c$436))))
                                                #f))
                                            r$1021
                                            r$1022))
                                          #f))
                                      x$434
                                      3))
                                #f))
                            y$433
                            2))
                      #t)))
                 17
                 0
                 #f
                 #f
                 #f))))
      ()
      ()
      ()
      ()
      ()
      ((k$907 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  428
                  #f
                  #f
                  #f
                  2
                  (428 395)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(394
                      (r$906)
                      ((k$899 (list->vector walls$392)))
                      #f))
                  1
                  1
                  #t
                  #f
                  #t))))
      ()
      ((k$1102
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 617 #f #f #f 2 (616 609) #f #f 1 1 #t #f #t))))
      ()
      ()
      ((max-len$382
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             375
             #f
             #f
             #f
             3
             (371 370 374)
             #f
             #f
             0
             3
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$615 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 68 #f #f #f 1 (68) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$914 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 409 #f #f #f 2 (398 409) #f #f 1 1 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ((k$1113
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 635 #f #f #f 1 (623) #f #f 0 1 #t #f #t))))
      ()
      ()
      ()
      ((k$1117
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 630 #f #f #f 2 (630 626) #f #f 1 1 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ((write-ch
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             251
             #f
             #f
             24
             (112
              116
              120
              229
              233
              234
              238
              207
              208
              212
              213
              178
              150
              136
              143
              163
              164
              165
              190
              195
              196
              223
              224
              -1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(251
                  (k$776 c$329)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(250 (r$777) ((k$776 (set! output r$777))) #f))
                    (cons c$329 output)))
                  #t)))
             23
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ((k$620 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 83 #f #f #f 1 (83) #f #f 0 1 #t #f #t))))
      ()
      ()
      ((k$623 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #t)))
       (proc$416
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 525 #f #f #f 1 (505) #f #f 1 0 #f #f #f))))
      ()
      ((k$625 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 82 #f #f #f 1 (76) #f #f 0 1 #f #f #t))))
      ()
      ()
      ((k$628 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  78
                  #f
                  #f
                  #f
                  2
                  (78 78)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(76 (r$627) ((values k$625 r$626 r$627)) #f))
                  2
                  0
                  #t
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$929 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  419
                  #f
                  #f
                  #f
                  2
                  (419 417)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(416
                      (r$926)
                      ((href #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(414
                                 (r$927)
                                 ((add-wall$396
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(413
                                        (r$910)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(410
                                              (lp$140$399)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(395
                                                    (r$912)
                                                    ((lp$140$399
                                                       k$907
                                                       (Cyc-fast-sub
                                                         (Cyc-fast-plus
                                                           3
                                                           (Cyc-fast-mul
                                                             6
                                                             r$933))
                                                         6)))
                                                    #f))
                                                (set! lp$140$399
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(409
                                                      (k$914 x$400)
                                                      ((if (Cyc-fast-lt x$400 3)
                                                         (k$914 (Cyc-fast-lt
                                                                  x$400
                                                                  3))
                                                         (href #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(405
                                                                   (r$922)
                                                                   ((href #((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(403
                                                                              (r$923)
                                                                              ((add-wall$396
                                                                                 #((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(402
                                                                                     (r$916)
                                                                                     ((href #((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(401
                                                                                                (r$919)
                                                                                                ((href #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(399
                                                                                                           (r$920)
                                                                                                           ((add-wall$396
                                                                                                              #((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(398
                                                                                                                  (r$917)
                                                                                                                  ((lp$140$399
                                                                                                                     k$914
                                                                                                                     (Cyc-fast-sub
                                                                                                                       x$400
                                                                                                                       6)))
                                                                                                                  #f))
                                                                                                              r$919
                                                                                                              r$920
                                                                                                              south-east))
                                                                                                           #f))
                                                                                                       harr$388
                                                                                                       (Cyc-fast-plus
                                                                                                         x$400
                                                                                                         3)
                                                                                                       0))
                                                                                                #f))
                                                                                            harr$388
                                                                                            x$400
                                                                                            1))
                                                                                     #f))
                                                                                 r$922
                                                                                 r$923
                                                                                 south-west))
                                                                              #f))
                                                                          harr$388
                                                                          (Cyc-fast-sub
                                                                            x$400
                                                                            3)
                                                                          0))
                                                                   #f))
                                                               harr$388
                                                               x$400
                                                               1)))
                                                      #t)))))
                                              #f))
                                          #f))
                                        #f))
                                    rmoc-hex$402
                                    r$927
                                    south-west))
                                 #f))
                             harr$388
                             (Cyc-fast-sub
                               (Cyc-fast-plus 3 (Cyc-fast-mul 6 r$933))
                               3)
                             0))
                      #f))
                  1
                  1
                  #f
                  #f
                  #t))))
      ()
      ()
      ((k$1125
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 636 #f #f #f 1 (636) #f #f 1 0 #t #f #t))))
      ()
      ()
      ((k$1128
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 637 #f #f #f 1 (637) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((vector-ref
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             107
             (74
              125
              249
              238
              238
              211
              176
              155
              144
              143
              138
              169
              168
              132
              201
              199
              256
              256
              256
              274
              269
              267
              259
              259
              292
              292
              288
              297
              297
              297
              297
              297
              297
              297
              305
              305
              301
              305
              305
              313
              313
              309
              318
              318
              318
              318
              318
              318
              325
              324
              324
              330
              329
              329
              336
              335
              335
              391
              390
              364
              364
              364
              442
              434
              430
              428
              419
              419
              428
              530
              530
              530
              535
              535
              535
              539
              540
              541
              548
              557
              553
              567
              602
              602
              602
              602
              592
              589
              589
              588
              588
              588
              588
              586
              585
              585
              616
              612
              630
              637
              639
              641
              642
              643
              646
              647
              648)
             #f
             #f
             107
             0
             #t
             #f
             #f))))
      ()
      ((random-state
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             718
             #f
             #f
             1
             (-1)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(718
                  (k$1224 n$544)
                  ((k$1224 (cons n$544 #f)))
                  #t)))
             0
             0
             #f
             #f
             #f))))
      ((y$545 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  741
                  #f
                  #f
                  #f
                  13
                  (737
                   737
                   737
                   737
                   737
                   737
                   737
                   737
                   737
                   737
                   737
                   737
                   740)
                  #f
                  #f
                  0
                  13
                  #f
                  #f
                  #f))))
      ()
      ((k$631 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 81 #f #f #f 1 (81) #f #f 1 0 #t #f #t))))
      ()
      ()
      ((k$634 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 107 #f #f #f 1 (90) #f #f 0 1 #f #f #t)))
       (-1
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(? ? () #t)))))))
 */
/* 
"---------------- after cps optimizations (3):"
 */
/* 
((define bitwise-not
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(783
       (k$1272 x$560)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(782
             (r$1273)
             ((k$1272 (Cyc-fast-sub r$1273 1)))
             #f))
         (- x$560)))
       #t)))
 (define bitwise-and
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(781
       (k$1259 x$558 y$557)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(780
             (r$1260)
             ((if r$1260
                (k$1259 0)
                (#((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(779
                     (r$1261)
                     ((if r$1261
                        (k$1259 0)
                        (#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(778
                             (r$1262)
                             ((if r$1262
                                (k$1259 y$557)
                                (#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(777
                                     (r$1263)
                                     ((if r$1263
                                        (k$1259 x$558)
                                        (div #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(775
                                                 (r$1268)
                                                 ((div #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(774
                                                           (r$1269)
                                                           ((bitwise-and
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(772
                                                                  (z$559)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(771
                                                                        (k$1266)
                                                                        ((odd? #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(770
                                                                                   (r$1267)
                                                                                   ((if r$1267
                                                                                      (odd? k$1266
                                                                                            y$557)
                                                                                      (k$1266
                                                                                        #f)))
                                                                                   #f))
                                                                               x$558))
                                                                        #t))
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(769
                                                                        (r$1265)
                                                                        ((if r$1265
                                                                           (k$1259
                                                                             (+ z$559
                                                                                z$559
                                                                                1))
                                                                           (k$1259
                                                                             (Cyc-fast-plus
                                                                               z$559
                                                                               z$559))))
                                                                        #f))))
                                                                  #f))
                                                              r$1268
                                                              r$1269))
                                                           #f))
                                                       y$557
                                                       2))
                                                 #f))
                                             x$558
                                             2)))
                                     #f))
                                 (Cyc-fast-eq y$557 -1))))
                             #f))
                         (Cyc-fast-eq x$558 -1))))
                     #f))
                 (Cyc-fast-eq y$557 0))))
             #f))
         (Cyc-fast-eq x$558 0)))
       #t)))
 (define div
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(764
       (k$1243 x$552 y$551)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(763
             (k$1254)
             ((if (exact-integer?__inline__ x$552)
                (if (exact-integer?__inline__ y$551)
                  (k$1254 (Cyc-fast-gte x$552 0))
                  (k$1254 #f))
                (k$1254 #f)))
             #t))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(760
             (r$1244)
             ((if r$1244
                (k$1243 (quotient__inline__ x$552 y$551))
                (if (Cyc-fast-lt y$551 0)
                  (if (Cyc-fast-eq
                        (Cyc-fast-sub
                          x$552
                          (Cyc-fast-mul
                            (quotient__inline__ x$552 y$551)
                            y$551))
                        0)
                    (k$1243 (quotient__inline__ x$552 y$551))
                    (k$1243
                      (Cyc-fast-plus
                        (quotient__inline__ x$552 y$551)
                        1)))
                  (if (Cyc-fast-eq
                        (Cyc-fast-sub
                          x$552
                          (Cyc-fast-mul
                            (quotient__inline__ x$552 y$551)
                            y$551))
                        0)
                    (k$1243 (quotient__inline__ x$552 y$551))
                    (k$1243
                      (Cyc-fast-sub (quotient__inline__ x$552 y$551) 1))))))
             #f))))
       #t)))
 (define mod
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(741
       (k$1227 x$546 y$545)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(740
             (k$1238)
             ((if (exact-integer?__inline__ x$546)
                (if (exact-integer?__inline__ y$545)
                  (k$1238 (Cyc-fast-gte x$546 0))
                  (k$1238 #f))
                (k$1238 #f)))
             #t))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(737
             (r$1228)
             ((if r$1228
                (remainder k$1227 x$546 y$545)
                (if (Cyc-fast-lt y$545 0)
                  (if (Cyc-fast-eq
                        (Cyc-fast-sub
                          x$546
                          (Cyc-fast-mul
                            (quotient__inline__ x$546 y$545)
                            y$545))
                        0)
                    (k$1227 0)
                    (k$1227
                      (Cyc-fast-sub
                        (Cyc-fast-sub
                          x$546
                          (Cyc-fast-mul
                            (quotient__inline__ x$546 y$545)
                            y$545))
                        y$545)))
                  (if (Cyc-fast-eq
                        (Cyc-fast-sub
                          x$546
                          (Cyc-fast-mul
                            (quotient__inline__ x$546 y$545)
                            y$545))
                        0)
                    (k$1227 0)
                    (k$1227
                      (Cyc-fast-plus
                        (Cyc-fast-sub
                          x$546
                          (Cyc-fast-mul
                            (quotient__inline__ x$546 y$545)
                            y$545))
                        y$545))))))
             #f))))
       #t)))
 (define random-state
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(718
       (k$1224 n$544)
       ((k$1224 (cons n$544 #f)))
       #t)))
 (define rand
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(717
       (k$1211 state$534)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(715
             (seed$539)
             ((div #((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(713
                       (hi$540)
                       ((mod #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(711
                                 (lo$541)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(706
                                       (k$1218)
                                       ((if (Cyc-fast-gt
                                              (Cyc-fast-sub
                                                (Cyc-fast-mul 2813 lo$541)
                                                (Cyc-fast-mul 2699 hi$540))
                                              0)
                                          (k$1218
                                            (Cyc-fast-sub
                                              (Cyc-fast-mul 2813 lo$541)
                                              (Cyc-fast-mul 2699 hi$540)))
                                          (k$1218
                                            (Cyc-fast-plus
                                              (Cyc-fast-sub
                                                (Cyc-fast-mul 2813 lo$541)
                                                (Cyc-fast-mul 2699 hi$540))
                                              8388607))))
                                       #t))
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(703
                                       (val$543)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(701
                                             (r$1217)
                                             ((k$1211 val$543))
                                             #f))
                                         (set-car! state$534 val$543)))
                                       #f))))
                                 #f))
                             seed$539
                             2787))
                       #f))
                   seed$539
                   2787))
             #f))
         (car state$534)))
       #t)))
 (define random-int
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(700
       (k$1207 n$533 state$532)
       ((rand #((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(699 (r$1208) ((mod k$1207 r$1208 n$533)) #f))
              state$532))
       #t)))
 (define base-set
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(698
       (k$1203 nelts$531)
       ((k$1203 (cons nelts$531 '())))
       #t)))
 (define get-set-root
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(696
       (k$1186 s$522)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(695
             (r$523)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(694
                   (lp$524)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(673 (r$1187) ((lp$524 k$1186 r$523)) #f))
                     (set! lp$524
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(693
                           (k$1189 r$525)
                           ((if (pair? (cdr r$525))
                              (lp$524 k$1189 (cdr r$525))
                              (#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(688
                                   (k$1193)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(687
                                         (r$1194)
                                         ((if r$1194
                                            (k$1193 #f)
                                            (#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(686
                                                 (x$527)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(685
                                                       (lp$528)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(677
                                                             (r$1195)
                                                             ((lp$528
                                                                k$1193
                                                                x$527))
                                                             #f))
                                                         (set! lp$528
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(684
                                                               (k$1197 x$529)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(682
                                                                     (next$530)
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(681
                                                                           (r$1199)
                                                                           ((if r$1199
                                                                              (k$1197
                                                                                #f)
                                                                              (#((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(679
                                                                                   (r$1200)
                                                                                   ((lp$528
                                                                                      k$1197
                                                                                      next$530))
                                                                                   #f))
                                                                               (set-cdr!
                                                                                 x$529
                                                                                 r$525))))
                                                                           #f))
                                                                       (eq? r$525
                                                                            next$530)))
                                                                     #f))
                                                                 (cdr x$529)))
                                                               #t)))))
                                                       #f))
                                                   #f))
                                                 #f))
                                             s$522)))
                                         #f))
                                     (eq? r$525 s$522)))
                                   #t))
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(676 (r$1192) ((k$1189 r$525)) #f)))))
                           #t)))))
                   #f))
               #f))
             #f))
         s$522))
       #t)))
 (define set-equal?
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(672
       (k$1181 s1$521 s2$520)
       ((get-set-root
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(671
              (r$1182)
              ((get-set-root
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(670 (r$1183) ((k$1181 (eq? r$1182 r$1183))) #f))
                 s2$520))
              #f))
          s1$521))
       #t)))
 (define set-size
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(669
       (k$1177 s$519)
       ((get-set-root
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(668 (r$1178) ((k$1177 (car r$1178))) #f))
          s$519))
       #t)))
 (define union!
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(667
       (k$1166 s1$513 s2$512)
       ((get-set-root
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(665
              (r1$514)
              ((get-set-root
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(663
                     (r2$515)
                     ((set-size
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(661
                            (n1$516)
                            ((set-size
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(659
                                   (n2$517)
                                   ((if (Cyc-fast-gt n1$516 n2$517)
                                      (#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(651
                                           (r$1173)
                                           ((k$1166
                                              (set-car!
                                                r1$514
                                                (Cyc-fast-plus n1$516 n2$517))))
                                           #f))
                                       (set-cdr! r2$515 r1$514))
                                      (#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(653
                                           (r$1174)
                                           ((k$1166
                                              (set-car!
                                                r2$515
                                                (Cyc-fast-plus n1$516 n2$517))))
                                           #f))
                                       (set-cdr! r1$514 r2$515))))
                                   #f))
                               r2$515))
                            #f))
                        r1$514))
                     #f))
                 s2$512))
              #f))
          s1$513))
       #t)))
 (define make-wall
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(650
       (k$1162 owner$511 neighbor$510 bit$509)
       ((vector
          k$1162
          'wall
          owner$511
          neighbor$510
          bit$509))
       #t)))
 (define wall:owner
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(648
       (k$1159 o$508)
       ((k$1159 (vector-ref o$508 1)))
       #t)))
 (define wall:neighbor
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(647
       (k$1156 o$507)
       ((k$1156 (vector-ref o$507 2)))
       #t)))
 (define wall:bit
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(646
       (k$1153 o$506)
       ((k$1153 (vector-ref o$506 3)))
       #t)))
 (define make-cell
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(645
       (k$1149 reachable$505 id$504)
       ((vector
          k$1149
          'cell
          reachable$505
          id$504
          -1
          #f
          #f))
       #t)))
 (define cell:reachable
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(643
       (k$1146 o$503)
       ((k$1146 (vector-ref o$503 1)))
       #t)))
 (define cell:id
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(642
       (k$1143 o$502)
       ((k$1143 (vector-ref o$502 2)))
       #t)))
 (define cell:walls
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(641
       (k$1140 o$501)
       ((k$1140 (vector-ref o$501 3)))
       #t)))
 (define set-cell:walls
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(640
       (k$1137 o$500 v$499)
       ((k$1137 (vector-set! o$500 3 v$499)))
       #t)))
 (define cell:parent
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(639
       (k$1134 o$498)
       ((k$1134 (vector-ref o$498 4)))
       #t)))
 (define set-cell:parent
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(638
       (k$1131 o$497 v$496)
       ((k$1131 (vector-set! o$497 4 v$496)))
       #t)))
 (define cell:mark
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(637
       (k$1128 o$495)
       ((k$1128 (vector-ref o$495 5)))
       #t)))
 (define set-cell:mark
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(636
       (k$1125 o$494 v$493)
       ((k$1125 (vector-set! o$494 5 v$493)))
       #t)))
 (define vector-for-each-rev
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(635
       (k$1113 proc$489 v$488)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(631
             (lp$491)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(623
                   (r$1115)
                   ((lp$491
                      k$1113
                      (Cyc-fast-sub (vector-length v$488) 1)))
                   #f))
               (set! lp$491
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(630
                     (k$1117 i$492)
                     ((if (Cyc-fast-gte i$492 0)
                        (proc$489
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(626
                              (r$1119)
                              ((lp$491 k$1117 (Cyc-fast-sub i$492 1)))
                              #f))
                          (vector-ref v$488 i$492))
                        (k$1117 #f)))
                     #t)))))
             #f))
         #f))
       #t)))
 (define permute-vec!
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(622
       (k$1097 v$482 random-state$481)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(621
             (r$1110)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(618
                   (lp$484)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(606
                         (r$1100)
                         ((lp$484
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(605 (r$1098) ((k$1097 v$482)) #f))
                            (Cyc-fast-sub r$1110 1)))
                         #f))
                     (set! lp$484
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(617
                           (k$1102 i$485)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(616
                                 (r$1103)
                                 ((if r$1103
                                    (#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(614
                                         (r$1106)
                                         ((random-int
                                            #((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(613
                                                (r$1107)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(612
                                                      (elt-i$487 j$486)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(611
                                                            (r$1109)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(610
                                                                  (r$1108)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(609
                                                                        (r$1104)
                                                                        ((lp$484
                                                                           k$1102
                                                                           (Cyc-fast-sub
                                                                             i$485
                                                                             1)))
                                                                        #f))
                                                                    (vector-set!
                                                                      v$482
                                                                      j$486
                                                                      elt-i$487)))
                                                                  #f))
                                                              (vector-set!
                                                                v$482
                                                                i$485
                                                                r$1109)))
                                                            #f))
                                                        (vector-ref
                                                          v$482
                                                          j$486)))
                                                      #f))
                                                  r$1106
                                                  r$1107))
                                                #f))
                                            i$485
                                            random-state$481))
                                         #f))
                                     (vector-ref v$482 i$485))
                                    (k$1102 #f)))
                                 #f))
                             (Cyc-fast-gt i$485 1)))
                           #t)))))
                   #f))
               #f))
             #f))
         (vector-length v$482)))
       #t)))
 (define dig-maze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(604
       (k$1077 walls$472 ncells$471)
       ((call-with-current-continuation
          k$1077
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(603
              (k$1079 quit$473)
              ((vector-for-each-rev
                 k$1079
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(602
                     (k$1081 wall$474)
                     ((set-equal?
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(592
                            (r$1086)
                            ((if r$1086
                               (k$1081 #f)
                               (bitwise-not
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(589
                                     (r$1088)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(588
                                           (walls$480 wall-mask$479)
                                           ((union!
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(587
                                                  (r$1089)
                                                  ((bitwise-and
                                                     #((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(586
                                                         (r$1093)
                                                         ((#((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(585
                                                               (r$1090)
                                                               ((set-size
                                                                  #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(584
                                                                      (r$1092)
                                                                      ((if (Cyc-fast-eq
                                                                             r$1092
                                                                             ncells$471)
                                                                         (quit$473
                                                                           k$1081
                                                                           #f)
                                                                         (k$1081
                                                                           #f)))
                                                                      #f))
                                                                  (vector-ref
                                                                    (vector-ref
                                                                      wall$474
                                                                      1)
                                                                    1)))
                                                               #f))
                                                           (vector-set!
                                                             (vector-ref
                                                               wall$474
                                                               1)
                                                             3
                                                             r$1093)))
                                                         #f))
                                                     walls$480
                                                     wall-mask$479))
                                                  #f))
                                              (vector-ref
                                                (vector-ref wall$474 1)
                                                1)
                                              (vector-ref
                                                (vector-ref wall$474 2)
                                                1)))
                                           #f))
                                       (vector-ref (vector-ref wall$474 1) 3)
                                       r$1088))
                                     #f))
                                 (vector-ref wall$474 3))))
                            #f))
                        (vector-ref (vector-ref wall$474 1) 1)
                        (vector-ref (vector-ref wall$474 2) 1)))
                     #t))
                 walls$472))
              #t))))
       #t)))
 (define dfs-maze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(580
       (k$1067 maze$464 root$463 do-children$462)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(579
             (node$466)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(578
                   (search$467)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(571
                         (r$1068)
                         ((search$467 k$1067 node$466 #f))
                         #f))
                     (set! search$467
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(577
                           (k$1070 node$469 parent$468)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(576
                                 (r$1071)
                                 ((do-children$462
                                    k$1070
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(575
                                        (k$1073 child$470)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(574
                                              (r$1074)
                                              ((if r$1074
                                                 (k$1073 #f)
                                                 (search$467
                                                   k$1073
                                                   child$470
                                                   node$469)))
                                              #f))
                                          (eq? child$470 parent$468)))
                                        #t))
                                    maze$464
                                    node$469))
                                 #f))
                             (vector-set! node$469 4 parent$468)))
                           #t)))))
                   #f))
               #f))
             #f))
         root$463))
       #t)))
 (define reroot-maze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(570
       (k$1059 new-root$455)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(569
             (node$457)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(568
                   (lp$458)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(562 (r$1060) ((lp$458 k$1059 node$457 #f)) #f))
                     (set! lp$458
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(567
                           (k$1062 node$460 new-parent$459)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(565
                                 (old-parent$461)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(564
                                       (r$1064)
                                       ((if old-parent$461
                                          (lp$458
                                            k$1062
                                            old-parent$461
                                            node$460)
                                          (k$1062 #f)))
                                       #f))
                                   (vector-set! node$460 4 new-parent$459)))
                                 #f))
                             (vector-ref node$460 4)))
                           #t)))))
                   #f))
               #f))
             #f))
         new-root$455))
       #t)))
 (define path-length
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(561
       (k$1050 cell$449)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(558
             (lp$105$452)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(553
                   (r$1052)
                   ((lp$105$452 k$1050 0 (vector-ref cell$449 4)))
                   #f))
               (set! lp$105$452
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(557
                     (k$1054 len$454 node$453)
                     ((if node$453
                        (lp$105$452
                          k$1054
                          (Cyc-fast-plus len$454 1)
                          (vector-ref node$453 4))
                        (k$1054 len$454)))
                     #t)))))
             #f))
         #f))
       #t)))
 (define mark-path
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(552
       (k$1042 node$444)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(551
             (node$445)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(550
                   (lp$446)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(544 (r$1043) ((lp$446 k$1042 node$445)) #f))
                     (set! lp$446
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(549
                           (k$1045 node$447)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(548
                                 (r$1046)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(546
                                       (tmp$111$448)
                                       ((if tmp$111$448
                                          (lp$446 k$1045 tmp$111$448)
                                          (k$1045 #f)))
                                       #f))
                                   (vector-ref node$447 4)))
                                 #f))
                             (vector-set! node$447 5 #t)))
                           #t)))))
                   #f))
               #f))
             #f))
         node$444))
       #t)))
 (define make-harr
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(543
       (k$1038 nrows$443 ncols$442 elts$441)
       ((vector
          k$1038
          'harr
          nrows$443
          ncols$442
          elts$441))
       #t)))
 (define harr:nrows
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(541
       (k$1035 o$440)
       ((k$1035 (vector-ref o$440 1)))
       #t)))
 (define harr:ncols
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(540
       (k$1032 o$439)
       ((k$1032 (vector-ref o$439 2)))
       #t)))
 (define harr:elts
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(539
       (k$1029 o$438)
       ((k$1029 (vector-ref o$438 3)))
       #t)))
 (define href
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(538
       (k$1020 ha$435 x$434 y$433)
       ((div #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(537
                 (r$1021)
                 ((div #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(536
                           (r$1022)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(535
                                 (r$437 c$436)
                                 ((k$1020
                                    (vector-ref
                                      (vector-ref ha$435 3)
                                      (Cyc-fast-plus
                                        (Cyc-fast-mul
                                          (vector-ref ha$435 2)
                                          r$437)
                                        c$436))))
                                 #f))
                             r$1021
                             r$1022))
                           #f))
                       x$434
                       3))
                 #f))
             y$433
             2))
       #t)))
 (define href/rc
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(530
       (k$1013 ha$432 r$431 c$430)
       ((k$1013
          (vector-ref
            (vector-ref ha$432 3)
            (Cyc-fast-plus
              (Cyc-fast-mul (vector-ref ha$432 2) r$431)
              c$430))))
       #t)))
 (define harr-tabulate
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(525
       (k$987 nrows$418 ncols$417 proc$416)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(522
             (v$419)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(519
                   (lp$113$421)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(494
                         (r$991)
                         ((lp$113$421
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(493
                                (r$989)
                                ((vector k$987 'harr nrows$418 ncols$417 v$419))
                                #f))
                            (Cyc-fast-sub nrows$418 1)))
                         #f))
                     (set! lp$113$421
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(518
                           (k$993 r$422)
                           ((if (Cyc-fast-lt r$422 0)
                              (k$993 (Cyc-fast-lt r$422 0))
                              (#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(513
                                   (i$424)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(512
                                         (lp$117$426)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(498
                                               (r$998)
                                               ((lp$117$426
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(497
                                                      (r$995)
                                                      ((lp$113$421
                                                         k$993
                                                         (Cyc-fast-sub
                                                           r$422
                                                           1)))
                                                      #f))
                                                  0
                                                  i$424))
                                               #f))
                                           (set! lp$117$426
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(511
                                                 (k$1000 c$428 i$427)
                                                 ((if (Cyc-fast-eq
                                                        c$428
                                                        ncols$417)
                                                    (k$1000
                                                      (Cyc-fast-eq
                                                        c$428
                                                        ncols$417))
                                                    (bitwise-and
                                                      #((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(505
                                                          (r$1009)
                                                          ((proc$416
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(503
                                                                 (r$1005)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(502
                                                                       (r$1002)
                                                                       ((lp$117$426
                                                                          k$1000
                                                                          (Cyc-fast-plus
                                                                            c$428
                                                                            1)
                                                                          (Cyc-fast-plus
                                                                            i$427
                                                                            1)))
                                                                       #f))
                                                                   (vector-set!
                                                                     v$419
                                                                     i$427
                                                                     r$1005)))
                                                                 #f))
                                                             (Cyc-fast-mul
                                                               3
                                                               c$428)
                                                             (Cyc-fast-plus
                                                               (Cyc-fast-mul
                                                                 2
                                                                 r$422)
                                                               r$1009)))
                                                          #f))
                                                      c$428
                                                      1)))
                                                 #t)))))
                                         #f))
                                     #f))
                                   #f))
                               (Cyc-fast-mul r$422 ncols$417))))
                           #t)))))
                   #f))
               #f))
             #f))
         (make-vector (Cyc-fast-mul nrows$418 ncols$417))))
       #t)))
 (define south-west 1)
 (define south 2)
 (define south-east 4)
 (define gen-maze-array
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(492
       (k$974 r$413 c$412)
       ((harr-tabulate
          k$974
          r$413
          c$412
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(491
              (k$976 x$415 y$414)
              ((vector
                 k$976
                 'cell
                 (cons 1 '())
                 (cons x$415 y$414)
                 -1
                 #f
                 #f))
              #t))))
       #t)))
 (define make-wall-vec
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(487
       (k$899 harr$388)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(478
             (walls$392)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(473
                   (add-wall$396)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(468
                         (lp$132$404)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(430
                               (r$936)
                               ((lp$132$404
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(429
                                      (r$905)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(428
                                            (k$907)
                                            ((if (Cyc-fast-gt
                                                   (vector-ref harr$388 2)
                                                   1)
                                               (div #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(425
                                                        (r$933)
                                                        ((href #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(420
                                                                   (rmoc-hex$402)
                                                                   ((#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(419
                                                                         (k$929)
                                                                         ((if (Cyc-fast-lt
                                                                                (Cyc-fast-plus
                                                                                  3
                                                                                  (Cyc-fast-mul
                                                                                    6
                                                                                    r$933))
                                                                                (Cyc-fast-mul
                                                                                  3
                                                                                  (Cyc-fast-sub
                                                                                    (vector-ref
                                                                                      harr$388
                                                                                      2)
                                                                                    1)))
                                                                            (href #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(417
                                                                                      (r$931)
                                                                                      ((add-wall$396
                                                                                         k$929
                                                                                         rmoc-hex$402
                                                                                         r$931
                                                                                         south-east))
                                                                                      #f))
                                                                                  harr$388
                                                                                  (Cyc-fast-mul
                                                                                    3
                                                                                    (Cyc-fast-sub
                                                                                      (vector-ref
                                                                                        harr$388
                                                                                        2)
                                                                                      1))
                                                                                  0)
                                                                            (k$929 #f)))
                                                                         #t))
                                                                     #((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(416
                                                                         (r$926)
                                                                         ((href #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(414
                                                                                    (r$927)
                                                                                    ((add-wall$396
                                                                                       #((record-marker)
                                                                                         #((record-marker)
                                                                                           #f
                                                                                           (id args
                                                                                               body
                                                                                               has-cont))
                                                                                         #(413
                                                                                           (r$910)
                                                                                           ((#((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(410
                                                                                                 (lp$140$399)
                                                                                                 ((#((record-marker)
                                                                                                     #((record-marker)
                                                                                                       #f
                                                                                                       (id args
                                                                                                           body
                                                                                                           has-cont))
                                                                                                     #(395
                                                                                                       (r$912)
                                                                                                       ((lp$140$399
                                                                                                          k$907
                                                                                                          (Cyc-fast-sub
                                                                                                            (Cyc-fast-plus
                                                                                                              3
                                                                                                              (Cyc-fast-mul
                                                                                                                6
                                                                                                                r$933))
                                                                                                            6)))
                                                                                                       #f))
                                                                                                   (set! lp$140$399
                                                                                                     #((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(409
                                                                                                         (k$914 x$400)
                                                                                                         ((if (Cyc-fast-lt
                                                                                                                x$400
                                                                                                                3)
                                                                                                            (k$914 (Cyc-fast-lt
                                                                                                                     x$400
                                                                                                                     3))
                                                                                                            (href #((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(405
                                                                                                                      (r$922)
                                                                                                                      ((href #((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(403
                                                                                                                                 (r$923)
                                                                                                                                 ((add-wall$396
                                                                                                                                    #((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(402
                                                                                                                                        (r$916)
                                                                                                                                        ((href #((record-marker)
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #f
                                                                                                                                                   (id args
                                                                                                                                                       body
                                                                                                                                                       has-cont))
                                                                                                                                                 #(401
                                                                                                                                                   (r$919)
                                                                                                                                                   ((href #((record-marker)
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #f
                                                                                                                                                              (id args
                                                                                                                                                                  body
                                                                                                                                                                  has-cont))
                                                                                                                                                            #(399
                                                                                                                                                              (r$920)
                                                                                                                                                              ((add-wall$396
                                                                                                                                                                 #((record-marker)
                                                                                                                                                                   #((record-marker)
                                                                                                                                                                     #f
                                                                                                                                                                     (id args
                                                                                                                                                                         body
                                                                                                                                                                         has-cont))
                                                                                                                                                                   #(398
                                                                                                                                                                     (r$917)
                                                                                                                                                                     ((lp$140$399
                                                                                                                                                                        k$914
                                                                                                                                                                        (Cyc-fast-sub
                                                                                                                                                                          x$400
                                                                                                                                                                          6)))
                                                                                                                                                                     #f))
                                                                                                                                                                 r$919
                                                                                                                                                                 r$920
                                                                                                                                                                 south-east))
                                                                                                                                                              #f))
                                                                                                                                                          harr$388
                                                                                                                                                          (Cyc-fast-plus
                                                                                                                                                            x$400
                                                                                                                                                            3)
                                                                                                                                                          0))
                                                                                                                                                   #f))
                                                                                                                                               harr$388
                                                                                                                                               x$400
                                                                                                                                               1))
                                                                                                                                        #f))
                                                                                                                                    r$922
                                                                                                                                    r$923
                                                                                                                                    south-west))
                                                                                                                                 #f))
                                                                                                                             harr$388
                                                                                                                             (Cyc-fast-sub
                                                                                                                               x$400
                                                                                                                               3)
                                                                                                                             0))
                                                                                                                      #f))
                                                                                                                  harr$388
                                                                                                                  x$400
                                                                                                                  1)))
                                                                                                         #t)))))
                                                                                                 #f))
                                                                                             #f))
                                                                                           #f))
                                                                                       rmoc-hex$402
                                                                                       r$927
                                                                                       south-west))
                                                                                    #f))
                                                                                harr$388
                                                                                (Cyc-fast-sub
                                                                                  (Cyc-fast-plus
                                                                                    3
                                                                                    (Cyc-fast-mul
                                                                                      6
                                                                                      r$933))
                                                                                  3)
                                                                                0))
                                                                         #f))))
                                                                   #f))
                                                               harr$388
                                                               (Cyc-fast-plus
                                                                 3
                                                                 (Cyc-fast-mul
                                                                   6
                                                                   r$933))
                                                               1))
                                                        #f))
                                                    (Cyc-fast-sub
                                                      (vector-ref harr$388 2)
                                                      2)
                                                    2)
                                               (k$907 #f)))
                                            #t))
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(394
                                            (r$906)
                                            ((k$899 (list->vector walls$392)))
                                            #f))))
                                      #f))
                                  (Cyc-fast-mul
                                    (Cyc-fast-sub (vector-ref harr$388 2) 1)
                                    3)))
                               #f))
                           (set! lp$132$404
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(467
                                 (k$938 x$405)
                                 ((if (Cyc-fast-lt x$405 0)
                                    (k$938 (Cyc-fast-lt x$405 0))
                                    (bitwise-and
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(461
                                          (r$965)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(458
                                                (lp$136$408)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(434
                                                      (r$943)
                                                      ((lp$136$408
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(433
                                                             (r$940)
                                                             ((lp$132$404
                                                                k$938
                                                                (Cyc-fast-sub
                                                                  x$405
                                                                  3)))
                                                             #f))
                                                         (Cyc-fast-plus
                                                           (Cyc-fast-mul
                                                             (Cyc-fast-sub
                                                               (vector-ref
                                                                 harr$388
                                                                 1)
                                                               1)
                                                             2)
                                                           r$965)))
                                                      #f))
                                                  (set! lp$136$408
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(457
                                                        (k$945 y$409)
                                                        ((if (Cyc-fast-lte
                                                               y$409
                                                               1)
                                                           (k$945 (Cyc-fast-lte
                                                                    y$409
                                                                    1))
                                                           (href #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(452
                                                                     (hex$411)
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(451
                                                                           (k$959)
                                                                           ((if (zero?__inline__
                                                                                  x$405)
                                                                              (k$959 #f)
                                                                              (href #((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(447
                                                                                        (r$961)
                                                                                        ((add-wall$396
                                                                                           k$959
                                                                                           hex$411
                                                                                           r$961
                                                                                           south-west))
                                                                                        #f))
                                                                                    harr$388
                                                                                    (Cyc-fast-sub
                                                                                      x$405
                                                                                      3)
                                                                                    (Cyc-fast-sub
                                                                                      y$409
                                                                                      1))))
                                                                           #t))
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(446
                                                                           (r$950)
                                                                           ((href #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(444
                                                                                      (r$957)
                                                                                      ((add-wall$396
                                                                                         #((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(443
                                                                                             (r$951)
                                                                                             ((#((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(442
                                                                                                   (k$952)
                                                                                                   ((if (Cyc-fast-lt
                                                                                                          x$405
                                                                                                          (Cyc-fast-mul
                                                                                                            3
                                                                                                            (Cyc-fast-sub
                                                                                                              (vector-ref
                                                                                                                harr$388
                                                                                                                2)
                                                                                                              1)))
                                                                                                      (href #((record-marker)
                                                                                                              #((record-marker)
                                                                                                                #f
                                                                                                                (id args
                                                                                                                    body
                                                                                                                    has-cont))
                                                                                                              #(438
                                                                                                                (r$954)
                                                                                                                ((add-wall$396
                                                                                                                   k$952
                                                                                                                   hex$411
                                                                                                                   r$954
                                                                                                                   south-east))
                                                                                                                #f))
                                                                                                            harr$388
                                                                                                            (Cyc-fast-plus
                                                                                                              x$405
                                                                                                              3)
                                                                                                            (Cyc-fast-sub
                                                                                                              y$409
                                                                                                              1))
                                                                                                      (k$952 #f)))
                                                                                                   #t))
                                                                                               #((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(437
                                                                                                   (r$947)
                                                                                                   ((lp$136$408
                                                                                                      k$945
                                                                                                      (Cyc-fast-sub
                                                                                                        y$409
                                                                                                        2)))
                                                                                                   #f))))
                                                                                             #f))
                                                                                         hex$411
                                                                                         r$957
                                                                                         south))
                                                                                      #f))
                                                                                  harr$388
                                                                                  x$405
                                                                                  (Cyc-fast-sub
                                                                                    y$409
                                                                                    2)))
                                                                           #f))))
                                                                     #f))
                                                                 harr$388
                                                                 x$405
                                                                 y$409)))
                                                        #t)))))
                                                #f))
                                            #f))
                                          #f))
                                      x$405
                                      1)))
                                 #t)))))
                         #f))
                     #f))
                   #f))
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(477
                   (k$968 o$395 n$394 b$393)
                   ((vector
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(476
                          (r$970)
                          ((#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(475
                                (r$969)
                                ((k$968 (set! walls$392 r$969)))
                                #f))
                            (cons r$970 walls$392)))
                          #f))
                      'wall
                      o$395
                      n$394
                      b$393))
                   #t))))
             #f))
         '()))
       #t)))
 (define pick-entrances
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(393
       (k$869 harr$361)
       ((href/rc
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(392
              (r$896)
              ((dfs-maze
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(391
                     (r$870)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(390
                           (r$871)
                           ((#((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(389
                                 (r$872)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(388
                                       (nrows$363 ncols$362)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(385
                                             (tp-lp$368)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(357
                                                   (r$874)
                                                   ((tp-lp$368
                                                      k$869
                                                      -1
                                                      #f
                                                      #f
                                                      (Cyc-fast-sub
                                                        ncols$362
                                                        1)))
                                                   #f))
                                               (set! tp-lp$368
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(384
                                                     (k$876 max-len$372
                                                            entrance$371
                                                            exit$370
                                                            tcol$369)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(383
                                                           (r$877)
                                                           ((if r$877
                                                              (vector
                                                                k$876
                                                                entrance$371
                                                                exit$370)
                                                              (href/rc
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(380
                                                                    (top-cell$373)
                                                                    ((reroot-maze
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(379
                                                                           (r$879)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(377
                                                                                 (max-len$377
                                                                                   entrance$376
                                                                                   exit$375
                                                                                   bcol$374)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(376
                                                                                       (bt-lp$378)
                                                                                       ((#((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(366
                                                                                             (r$886)
                                                                                             ((bt-lp$378
                                                                                                #((record-marker)
                                                                                                  #((record-marker)
                                                                                                    #f
                                                                                                    (id args
                                                                                                        body
                                                                                                        has-cont))
                                                                                                  #(364
                                                                                                    (result$384)
                                                                                                    ((tp-lp$368
                                                                                                       k$876
                                                                                                       (vector-ref
                                                                                                         result$384
                                                                                                         0)
                                                                                                       (vector-ref
                                                                                                         result$384
                                                                                                         1)
                                                                                                       (vector-ref
                                                                                                         result$384
                                                                                                         2)
                                                                                                       (Cyc-fast-sub
                                                                                                         tcol$369
                                                                                                         1)))
                                                                                                    #f))
                                                                                                max-len$377
                                                                                                entrance$376
                                                                                                exit$375
                                                                                                bcol$374))
                                                                                             #f))
                                                                                         (set! bt-lp$378
                                                                                           #((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(375
                                                                                               (k$888 max-len$382
                                                                                                      entrance$381
                                                                                                      exit$380
                                                                                                      bcol$379)
                                                                                               ((#((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(374
                                                                                                     (r$889)
                                                                                                     ((if r$889
                                                                                                        (vector
                                                                                                          k$888
                                                                                                          max-len$382
                                                                                                          entrance$381
                                                                                                          exit$380)
                                                                                                        (href/rc
                                                                                                          #((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(373
                                                                                                              (r$894)
                                                                                                              ((path-length
                                                                                                                 #((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(371
                                                                                                                     (this-len$383)
                                                                                                                     ((#((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(370
                                                                                                                           (r$891)
                                                                                                                           ((if r$891
                                                                                                                              (#((record-marker)
                                                                                                                                 #((record-marker)
                                                                                                                                   #f
                                                                                                                                   (id args
                                                                                                                                       body
                                                                                                                                       has-cont))
                                                                                                                                 #(368
                                                                                                                                   (r$892)
                                                                                                                                   ((bt-lp$378
                                                                                                                                      k$888
                                                                                                                                      this-len$383
                                                                                                                                      tcol$369
                                                                                                                                      bcol$379
                                                                                                                                      r$892))
                                                                                                                                   #f))
                                                                                                                               (Cyc-fast-sub
                                                                                                                                 bcol$379
                                                                                                                                 1))
                                                                                                                              (bt-lp$378
                                                                                                                                k$888
                                                                                                                                max-len$382
                                                                                                                                entrance$381
                                                                                                                                exit$380
                                                                                                                                (Cyc-fast-sub
                                                                                                                                  bcol$379
                                                                                                                                  1))))
                                                                                                                           #f))
                                                                                                                       (Cyc-fast-gt
                                                                                                                         this-len$383
                                                                                                                         max-len$382)))
                                                                                                                     #f))
                                                                                                                 r$894))
                                                                                                              #f))
                                                                                                          harr$361
                                                                                                          0
                                                                                                          bcol$379)))
                                                                                                     #f))
                                                                                                 (Cyc-fast-lt
                                                                                                   bcol$379
                                                                                                   0)))
                                                                                               #t)))))
                                                                                       #f))
                                                                                   #f))
                                                                                 #f))
                                                                             max-len$372
                                                                             entrance$371
                                                                             exit$370
                                                                             (Cyc-fast-sub
                                                                               ncols$362
                                                                               1)))
                                                                           #f))
                                                                       top-cell$373))
                                                                    #f))
                                                                harr$361
                                                                (Cyc-fast-sub
                                                                  nrows$363
                                                                  1)
                                                                tcol$369)))
                                                           #f))
                                                       (Cyc-fast-lt
                                                         tcol$369
                                                         0)))
                                                     #t)))))
                                             #f))
                                         #f))
                                       #f))
                                   r$871
                                   r$872))
                                 #f))
                             (vector-ref harr$361 2)))
                           #f))
                       (vector-ref harr$361 1)))
                     #f))
                 harr$361
                 r$896
                 for-each-hex-child))
              #f))
          harr$361
          0
          0))
       #t)))
 (define for-each-hex-child
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(356
       (k$810 proc$347 harr$346 cell$345)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(336
             (k$860)
             ((bit-test
                #((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(335
                    (r$861)
                    ((if r$861
                       (k$860 #f)
                       (href #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(332 (r$862) ((proc$347 k$860 r$862)) #f))
                             harr$346
                             (Cyc-fast-sub (car (vector-ref cell$345 2)) 3)
                             (Cyc-fast-sub (cdr (vector-ref cell$345 2)) 1))))
                    #f))
                (vector-ref cell$345 3)
                south-west))
             #t))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(331
             (r$819)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(330
                   (k$856)
                   ((bit-test
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(329
                          (r$857)
                          ((if r$857
                             (k$856 #f)
                             (href #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(327 (r$858) ((proc$347 k$856 r$858)) #f))
                                   harr$346
                                   (car (vector-ref cell$345 2))
                                   (Cyc-fast-sub
                                     (cdr (vector-ref cell$345 2))
                                     2))))
                          #f))
                      (vector-ref cell$345 3)
                      south))
                   #t))
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(326
                   (r$820)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(325
                         (k$851)
                         ((bit-test
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(324
                                (r$852)
                                ((if r$852
                                   (k$851 #f)
                                   (href #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(321
                                             (r$853)
                                             ((proc$347 k$851 r$853))
                                             #f))
                                         harr$346
                                         (Cyc-fast-plus
                                           (car (vector-ref cell$345 2))
                                           3)
                                         (Cyc-fast-sub
                                           (cdr (vector-ref cell$345 2))
                                           1))))
                                #f))
                            (vector-ref cell$345 3)
                            south-east))
                         #t))
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(320
                         (r$821)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(319
                               (k$840)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(318
                                     (k$847)
                                     ((if (Cyc-fast-gt
                                            (car (vector-ref cell$345 2))
                                            0)
                                        (if (Cyc-fast-lte
                                              (cdr (vector-ref cell$345 2))
                                              (Cyc-fast-mul
                                                2
                                                (Cyc-fast-sub
                                                  (vector-ref harr$346 1)
                                                  1)))
                                          (k$847 (Cyc-fast-lte
                                                   (cdr (vector-ref cell$345 2))
                                                   (Cyc-fast-mul
                                                     2
                                                     (Cyc-fast-sub
                                                       (vector-ref harr$346 1)
                                                       1))))
                                          (mod #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(314
                                                   (r$850)
                                                   ((k$847 (zero?__inline__
                                                             r$850)))
                                                   #f))
                                               (car (vector-ref cell$345 2))
                                               6))
                                        (k$847 #f)))
                                     #t))
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(313
                                     (r$841)
                                     ((if r$841
                                        (href #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(309
                                                  (nw$359)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(308
                                                        (r$844)
                                                        ((bit-test
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(307
                                                               (r$843)
                                                               ((if r$843
                                                                  (k$840 #f)
                                                                  (proc$347
                                                                    k$840
                                                                    nw$359)))
                                                               #f))
                                                           r$844
                                                           south-east))
                                                        #f))
                                                    (vector-ref nw$359 3)))
                                                  #f))
                                              harr$346
                                              (Cyc-fast-sub
                                                (car (vector-ref cell$345 2))
                                                3)
                                              (Cyc-fast-plus
                                                (cdr (vector-ref cell$345 2))
                                                1))
                                        (k$840 #f)))
                                     #f))))
                               #t))
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(306
                               (r$822)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(305
                                     (k$834)
                                     ((if (Cyc-fast-lt
                                            (cdr (vector-ref cell$345 2))
                                            (Cyc-fast-mul
                                              2
                                              (Cyc-fast-sub
                                                (vector-ref harr$346 1)
                                                1)))
                                        (href #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(301
                                                  (n$358)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(300
                                                        (r$838)
                                                        ((bit-test
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(299
                                                               (r$837)
                                                               ((if r$837
                                                                  (k$834 #f)
                                                                  (proc$347
                                                                    k$834
                                                                    n$358)))
                                                               #f))
                                                           r$838
                                                           south))
                                                        #f))
                                                    (vector-ref n$358 3)))
                                                  #f))
                                              harr$346
                                              (car (vector-ref cell$345 2))
                                              (Cyc-fast-plus
                                                (cdr (vector-ref cell$345 2))
                                                2))
                                        (k$834 #f)))
                                     #t))
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(298
                                     (r$823)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(297
                                           (k$830)
                                           ((if (Cyc-fast-lt
                                                  (car (vector-ref cell$345 2))
                                                  (Cyc-fast-mul
                                                    3
                                                    (Cyc-fast-sub
                                                      (vector-ref harr$346 2)
                                                      1)))
                                              (if (Cyc-fast-lte
                                                    (cdr (vector-ref
                                                           cell$345
                                                           2))
                                                    (Cyc-fast-mul
                                                      2
                                                      (Cyc-fast-sub
                                                        (vector-ref harr$346 1)
                                                        1)))
                                                (k$830 (Cyc-fast-lte
                                                         (cdr (vector-ref
                                                                cell$345
                                                                2))
                                                         (Cyc-fast-mul
                                                           2
                                                           (Cyc-fast-sub
                                                             (vector-ref
                                                               harr$346
                                                               1)
                                                             1))))
                                                (mod #((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(293
                                                         (r$833)
                                                         ((k$830 (zero?__inline__
                                                                   r$833)))
                                                         #f))
                                                     (car (vector-ref
                                                            cell$345
                                                            2))
                                                     6))
                                              (k$830 #f)))
                                           #t))
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(292
                                           (r$824)
                                           ((if r$824
                                              (href #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(288
                                                        (ne$356)
                                                        ((#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(287
                                                              (r$827)
                                                              ((bit-test
                                                                 #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(286
                                                                     (r$826)
                                                                     ((if r$826
                                                                        (k$810 #f)
                                                                        (proc$347
                                                                          k$810
                                                                          ne$356)))
                                                                     #f))
                                                                 r$827
                                                                 south-west))
                                                              #f))
                                                          (vector-ref
                                                            ne$356
                                                            3)))
                                                        #f))
                                                    harr$346
                                                    (Cyc-fast-plus
                                                      (car (vector-ref
                                                             cell$345
                                                             2))
                                                      3)
                                                    (Cyc-fast-plus
                                                      (cdr (vector-ref
                                                             cell$345
                                                             2))
                                                      1))
                                              (k$810 #f)))
                                           #f))))
                                     #f))))
                               #f))))
                         #f))))
                   #f))))
             #f))))
       #t)))
 (define make-maze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(285
       (k$789 nrows$337 ncols$336)
       ((gen-maze-array
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(283
              (cells$338)
              ((make-wall-vec
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(282
                     (r$806)
                     ((permute-vec!
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(279
                            (walls$339)
                            ((dig-maze
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(276
                                   (r$792)
                                   ((pick-entrances
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(274
                                          (result$340)
                                          ((href/rc
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(269
                                                 (exit-cell$343)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(267
                                                       (walls$344)
                                                       ((href/rc
                                                          #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(264
                                                              (r$803)
                                                              ((reroot-maze
                                                                 #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(263
                                                                     (r$798)
                                                                     ((mark-path
                                                                        #((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(262
                                                                            (r$799)
                                                                            ((bitwise-not
                                                                               #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(261
                                                                                   (r$802)
                                                                                   ((bitwise-and
                                                                                      #((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(260
                                                                                          (r$801)
                                                                                          ((#((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(259
                                                                                                (r$800)
                                                                                                ((vector
                                                                                                   k$789
                                                                                                   cells$338
                                                                                                   (vector-ref
                                                                                                     result$340
                                                                                                     0)
                                                                                                   (vector-ref
                                                                                                     result$340
                                                                                                     1)))
                                                                                                #f))
                                                                                            (vector-set!
                                                                                              exit-cell$343
                                                                                              3
                                                                                              r$801)))
                                                                                          #f))
                                                                                      walls$344
                                                                                      r$802))
                                                                                   #f))
                                                                               south))
                                                                            #f))
                                                                        exit-cell$343))
                                                                     #f))
                                                                 r$803))
                                                              #f))
                                                          cells$338
                                                          (Cyc-fast-sub
                                                            nrows$337
                                                            1)
                                                          (vector-ref
                                                            result$340
                                                            0)))
                                                       #f))
                                                   (vector-ref
                                                     exit-cell$343
                                                     3)))
                                                 #f))
                                             cells$338
                                             0
                                             (vector-ref result$340 1)))
                                          #f))
                                      cells$338))
                                   #f))
                               walls$339
                               (Cyc-fast-mul nrows$337 ncols$336)))
                            #f))
                        r$806
                        (cons 20 #f)))
                     #f))
                 cells$338))
              #f))
          nrows$337
          ncols$336))
       #t)))
 (define pmaze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(258
       (k$782 nrows$331 ncols$330)
       ((make-maze
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(256
              (result$332)
              ((#((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(252
                    (cells$335 entrance$334 exit$333)
                    ((print-hexmaze k$782 cells$335 entrance$334))
                    #f))
                (vector-ref result$332 0)
                (vector-ref result$332 1)
                (vector-ref result$332 2)))
              #f))
          nrows$331
          ncols$330))
       #t)))
 (define output #f)
 (define write-ch
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(251
       (k$776 c$329)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(250 (r$777) ((k$776 (set! output r$777))) #f))
         (cons c$329 output)))
       #t)))
 (define print-hexmaze
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(249
       (k$683 harr$305 entrance$304)
       ((div #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(244
                 (r$773)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(239
                       (lp$188$326)
                       ((#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(225
                             (r$761)
                             ((lp$188$326
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(224
                                    (r$687)
                                    ((write-ch
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(223
                                           (r$688)
                                           ((write-ch
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(222
                                                  (r$689)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(220
                                                        (lp$192$322)
                                                        ((#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(203
                                                              (r$746)
                                                              ((lp$192$322
                                                                 #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(202
                                                                     (r$690)
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(201
                                                                           (k$740)
                                                                           ((odd? #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(200
                                                                                      (r$741)
                                                                                      ((if r$741
                                                                                         (#((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(199
                                                                                              (k$743)
                                                                                              ((if (Cyc-fast-eq
                                                                                                     entrance$304
                                                                                                     (Cyc-fast-sub
                                                                                                       (vector-ref
                                                                                                         harr$305
                                                                                                         2)
                                                                                                       1))
                                                                                                 (k$743 #\space)
                                                                                                 (k$743 #\_)))
                                                                                              #t))
                                                                                          #((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(196
                                                                                              (r$742)
                                                                                              ((write-ch
                                                                                                 k$740
                                                                                                 r$742))
                                                                                              #f)))
                                                                                         (k$740 #f)))
                                                                                      #f))
                                                                                  (vector-ref
                                                                                    harr$305
                                                                                    2)))
                                                                           #t))
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(195
                                                                           (r$691)
                                                                           ((write-ch
                                                                              #((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(194
                                                                                  (r$692)
                                                                                  ((#((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(191
                                                                                        (lp$196$310)
                                                                                        ((#((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(132
                                                                                              (r$694)
                                                                                              ((lp$196$310
                                                                                                 k$683
                                                                                                 (Cyc-fast-sub
                                                                                                   (vector-ref
                                                                                                     harr$305
                                                                                                     1)
                                                                                                   1)))
                                                                                              #f))
                                                                                          (set! lp$196$310
                                                                                            #((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(190
                                                                                                (k$696 r$311)
                                                                                                ((if (Cyc-fast-lt
                                                                                                       r$311
                                                                                                       0)
                                                                                                   (k$696 (Cyc-fast-lt
                                                                                                            r$311
                                                                                                            0))
                                                                                                   (write-ch
                                                                                                     #((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(186
                                                                                                         (r$698)
                                                                                                         ((#((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(184
                                                                                                               (lp$200$318)
                                                                                                               ((#((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(171
                                                                                                                     (r$729)
                                                                                                                     ((lp$200$318
                                                                                                                        #((record-marker)
                                                                                                                          #((record-marker)
                                                                                                                            #f
                                                                                                                            (id args
                                                                                                                                body
                                                                                                                                has-cont))
                                                                                                                          #(170
                                                                                                                            (r$699)
                                                                                                                            ((#((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(169
                                                                                                                                  (k$724)
                                                                                                                                  ((odd? #((record-marker)
                                                                                                                                           #((record-marker)
                                                                                                                                             #f
                                                                                                                                             (id args
                                                                                                                                                 body
                                                                                                                                                 has-cont))
                                                                                                                                           #(168
                                                                                                                                             (r$725)
                                                                                                                                             ((if r$725
                                                                                                                                                (dot/space
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(165
                                                                                                                                                      (r$727)
                                                                                                                                                      ((write-ch
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #f
                                                                                                                                                             (id args
                                                                                                                                                                 body
                                                                                                                                                                 has-cont))
                                                                                                                                                           #(164
                                                                                                                                                             (r$726)
                                                                                                                                                             ((write-ch
                                                                                                                                                                k$724
                                                                                                                                                                #\\))
                                                                                                                                                             #f))
                                                                                                                                                         r$727))
                                                                                                                                                      #f))
                                                                                                                                                  harr$305
                                                                                                                                                  r$311
                                                                                                                                                  (Cyc-fast-sub
                                                                                                                                                    (vector-ref
                                                                                                                                                      harr$305
                                                                                                                                                      2)
                                                                                                                                                    1))
                                                                                                                                                (k$724 #f)))
                                                                                                                                             #f))
                                                                                                                                         (vector-ref
                                                                                                                                           harr$305
                                                                                                                                           2)))
                                                                                                                                  #t))
                                                                                                                              #((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(163
                                                                                                                                  (r$700)
                                                                                                                                  ((write-ch
                                                                                                                                     #((record-marker)
                                                                                                                                       #((record-marker)
                                                                                                                                         #f
                                                                                                                                         (id args
                                                                                                                                             body
                                                                                                                                             has-cont))
                                                                                                                                       #(162
                                                                                                                                         (r$701)
                                                                                                                                         ((#((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(160
                                                                                                                                               (lp$207$314)
                                                                                                                                               ((#((record-marker)
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #f
                                                                                                                                                     (id args
                                                                                                                                                         body
                                                                                                                                                         has-cont))
                                                                                                                                                   #(146
                                                                                                                                                     (r$712)
                                                                                                                                                     ((lp$207$314
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(145
                                                                                                                                                            (r$702)
                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(144
                                                                                                                                                                  (k$706)
                                                                                                                                                                  ((odd? #((record-marker)
                                                                                                                                                                           #((record-marker)
                                                                                                                                                                             #f
                                                                                                                                                                             (id args
                                                                                                                                                                                 body
                                                                                                                                                                                 has-cont))
                                                                                                                                                                           #(143
                                                                                                                                                                             (r$707)
                                                                                                                                                                             ((if r$707
                                                                                                                                                                                (href/rc
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                      #f
                                                                                                                                                                                      (id args
                                                                                                                                                                                          body
                                                                                                                                                                                          has-cont))
                                                                                                                                                                                    #(138
                                                                                                                                                                                      (r$709)
                                                                                                                                                                                      ((display-hexbottom
                                                                                                                                                                                         k$706
                                                                                                                                                                                         (vector-ref
                                                                                                                                                                                           r$709
                                                                                                                                                                                           3)))
                                                                                                                                                                                      #f))
                                                                                                                                                                                  harr$305
                                                                                                                                                                                  r$311
                                                                                                                                                                                  (Cyc-fast-sub
                                                                                                                                                                                    (vector-ref
                                                                                                                                                                                      harr$305
                                                                                                                                                                                      2)
                                                                                                                                                                                    1))
                                                                                                                                                                                (if (zero?__inline__
                                                                                                                                                                                      r$311)
                                                                                                                                                                                  (k$706 #f)
                                                                                                                                                                                  (write-ch
                                                                                                                                                                                    k$706
                                                                                                                                                                                    #\\))))
                                                                                                                                                                             #f))
                                                                                                                                                                         (vector-ref
                                                                                                                                                                           harr$305
                                                                                                                                                                           2)))
                                                                                                                                                                  #t))
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(136
                                                                                                                                                                  (r$703)
                                                                                                                                                                  ((write-ch
                                                                                                                                                                     #((record-marker)
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #f
                                                                                                                                                                         (id args
                                                                                                                                                                             body
                                                                                                                                                                             has-cont))
                                                                                                                                                                       #(135
                                                                                                                                                                         (r$704)
                                                                                                                                                                         ((lp$196$310
                                                                                                                                                                            k$696
                                                                                                                                                                            (Cyc-fast-sub
                                                                                                                                                                              r$311
                                                                                                                                                                              1)))
                                                                                                                                                                         #f))
                                                                                                                                                                     #\newline))
                                                                                                                                                                  #f))))
                                                                                                                                                            #f))
                                                                                                                                                        0))
                                                                                                                                                     #f))
                                                                                                                                                 (set! lp$207$314
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #f
                                                                                                                                                       (id args
                                                                                                                                                           body
                                                                                                                                                           has-cont))
                                                                                                                                                     #(159
                                                                                                                                                       (k$714 c$315)
                                                                                                                                                       ((if (Cyc-fast-gte
                                                                                                                                                              c$315
                                                                                                                                                              (Cyc-fast-mul
                                                                                                                                                                2
                                                                                                                                                                r$773))
                                                                                                                                                          (k$714 (Cyc-fast-gte
                                                                                                                                                                   c$315
                                                                                                                                                                   (Cyc-fast-mul
                                                                                                                                                                     2
                                                                                                                                                                     r$773)))
                                                                                                                                                          (href/rc
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #f
                                                                                                                                                                (id args
                                                                                                                                                                    body
                                                                                                                                                                    has-cont))
                                                                                                                                                              #(155
                                                                                                                                                                (r$723)
                                                                                                                                                                ((display-hexbottom
                                                                                                                                                                   #((record-marker)
                                                                                                                                                                     #((record-marker)
                                                                                                                                                                       #f
                                                                                                                                                                       (id args
                                                                                                                                                                           body
                                                                                                                                                                           has-cont))
                                                                                                                                                                     #(153
                                                                                                                                                                       (r$716)
                                                                                                                                                                       ((dot/space
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(150
                                                                                                                                                                              (r$719)
                                                                                                                                                                              ((write-ch
                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                     #f
                                                                                                                                                                                     (id args
                                                                                                                                                                                         body
                                                                                                                                                                                         has-cont))
                                                                                                                                                                                   #(149
                                                                                                                                                                                     (r$717)
                                                                                                                                                                                     ((lp$207$314
                                                                                                                                                                                        k$714
                                                                                                                                                                                        (Cyc-fast-plus
                                                                                                                                                                                          c$315
                                                                                                                                                                                          2)))
                                                                                                                                                                                     #f))
                                                                                                                                                                                 r$719))
                                                                                                                                                                              #f))
                                                                                                                                                                          harr$305
                                                                                                                                                                          (Cyc-fast-sub
                                                                                                                                                                            r$311
                                                                                                                                                                            1)
                                                                                                                                                                          (Cyc-fast-plus
                                                                                                                                                                            c$315
                                                                                                                                                                            1)))
                                                                                                                                                                       #f))
                                                                                                                                                                   (vector-ref
                                                                                                                                                                     r$723
                                                                                                                                                                     3)))
                                                                                                                                                                #f))
                                                                                                                                                            harr$305
                                                                                                                                                            r$311
                                                                                                                                                            c$315)))
                                                                                                                                                       #t)))))
                                                                                                                                               #f))
                                                                                                                                           #f))
                                                                                                                                         #f))
                                                                                                                                     #\newline))
                                                                                                                                  #f))))
                                                                                                                            #f))
                                                                                                                        1))
                                                                                                                     #f))
                                                                                                                 (set! lp$200$318
                                                                                                                   #((record-marker)
                                                                                                                     #((record-marker)
                                                                                                                       #f
                                                                                                                       (id args
                                                                                                                           body
                                                                                                                           has-cont))
                                                                                                                     #(183
                                                                                                                       (k$731 c$319)
                                                                                                                       ((if (Cyc-fast-gte
                                                                                                                              c$319
                                                                                                                              (Cyc-fast-mul
                                                                                                                                2
                                                                                                                                r$773))
                                                                                                                          (k$731 (Cyc-fast-gte
                                                                                                                                   c$319
                                                                                                                                   (Cyc-fast-mul
                                                                                                                                     2
                                                                                                                                     r$773)))
                                                                                                                          (dot/space
                                                                                                                            #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(178
                                                                                                                                (r$738)
                                                                                                                                ((write-ch
                                                                                                                                   #((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(177
                                                                                                                                       (r$733)
                                                                                                                                       ((href/rc
                                                                                                                                          #((record-marker)
                                                                                                                                            #((record-marker)
                                                                                                                                              #f
                                                                                                                                              (id args
                                                                                                                                                  body
                                                                                                                                                  has-cont))
                                                                                                                                            #(176
                                                                                                                                              (r$737)
                                                                                                                                              ((display-hexbottom
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #f
                                                                                                                                                     (id args
                                                                                                                                                         body
                                                                                                                                                         has-cont))
                                                                                                                                                   #(174
                                                                                                                                                     (r$734)
                                                                                                                                                     ((lp$200$318
                                                                                                                                                        k$731
                                                                                                                                                        (Cyc-fast-plus
                                                                                                                                                          c$319
                                                                                                                                                          2)))
                                                                                                                                                     #f))
                                                                                                                                                 (vector-ref
                                                                                                                                                   r$737
                                                                                                                                                   3)))
                                                                                                                                              #f))
                                                                                                                                          harr$305
                                                                                                                                          r$311
                                                                                                                                          c$319))
                                                                                                                                       #f))
                                                                                                                                   r$738))
                                                                                                                                #f))
                                                                                                                            harr$305
                                                                                                                            r$311
                                                                                                                            (Cyc-fast-sub
                                                                                                                              c$319
                                                                                                                              1))))
                                                                                                                       #t)))))
                                                                                                               #f))
                                                                                                           #f))
                                                                                                         #f))
                                                                                                     #\/)))
                                                                                                #t)))))
                                                                                        #f))
                                                                                    #f))
                                                                                  #f))
                                                                              #\newline))
                                                                           #f))))
                                                                     #f))
                                                                 0))
                                                              #f))
                                                          (set! lp$192$322
                                                            #((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(219
                                                                (k$748 c$323)
                                                                ((if (Cyc-fast-gte
                                                                       c$323
                                                                       (Cyc-fast-mul
                                                                         2
                                                                         r$773))
                                                                   (k$748 (Cyc-fast-gte
                                                                            c$323
                                                                            (Cyc-fast-mul
                                                                              2
                                                                              r$773)))
                                                                   (#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(215
                                                                        (k$759)
                                                                        ((if (Cyc-fast-eq
                                                                               c$323
                                                                               entrance$304)
                                                                           (k$759 #\space)
                                                                           (k$759 #\_)))
                                                                        #t))
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(213
                                                                        (r$758)
                                                                        ((write-ch
                                                                           #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(212
                                                                               (r$750)
                                                                               ((write-ch
                                                                                  #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(211
                                                                                      (r$751)
                                                                                      ((dot/space
                                                                                         #((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(208
                                                                                             (r$755)
                                                                                             ((write-ch
                                                                                                #((record-marker)
                                                                                                  #((record-marker)
                                                                                                    #f
                                                                                                    (id args
                                                                                                        body
                                                                                                        has-cont))
                                                                                                  #(207
                                                                                                    (r$752)
                                                                                                    ((write-ch
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(206
                                                                                                           (r$753)
                                                                                                           ((lp$192$322
                                                                                                              k$748
                                                                                                              (Cyc-fast-plus
                                                                                                                c$323
                                                                                                                2)))
                                                                                                           #f))
                                                                                                       #\\))
                                                                                                    #f))
                                                                                                r$755))
                                                                                             #f))
                                                                                         harr$305
                                                                                         (Cyc-fast-sub
                                                                                           (vector-ref
                                                                                             harr$305
                                                                                             1)
                                                                                           1)
                                                                                         (Cyc-fast-plus
                                                                                           c$323
                                                                                           1)))
                                                                                      #f))
                                                                                  #\/))
                                                                               #f))
                                                                           r$758))
                                                                        #f)))))
                                                                #t)))))
                                                        #f))
                                                    #f))
                                                  #f))
                                              #\space))
                                           #f))
                                       #\newline))
                                    #f))
                                1))
                             #f))
                         (set! lp$188$326
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(238
                               (k$763 c$327)
                               ((if (Cyc-fast-gte c$327 (vector-ref harr$305 2))
                                  (k$763 (Cyc-fast-gte
                                           c$327
                                           (vector-ref harr$305 2)))
                                  (write-ch
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(234
                                        (r$765)
                                        ((write-ch
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(233
                                               (r$766)
                                               ((write-ch
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(232
                                                      (r$767)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(231
                                                            (k$771)
                                                            ((if (Cyc-fast-eq
                                                                   c$327
                                                                   entrance$304)
                                                               (k$771 #\space)
                                                               (k$771 #\_)))
                                                            #t))
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(229
                                                            (r$770)
                                                            ((write-ch
                                                               #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(228
                                                                   (r$768)
                                                                   ((lp$188$326
                                                                      k$763
                                                                      (Cyc-fast-plus
                                                                        c$327
                                                                        2)))
                                                                   #f))
                                                               r$770))
                                                            #f))))
                                                      #f))
                                                  #\space))
                                               #f))
                                           #\space))
                                        #f))
                                    #\space)))
                               #t)))))
                       #f))
                   #f))
                 #f))
             (vector-ref harr$305 2)
             2))
       #t)))
 (define bit-test
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(131
       (k$678 j$303 bit$302)
       ((bitwise-and
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(130
              (r$680)
              ((k$678 (not__inline__ (zero?__inline__ r$680))))
              #f))
          j$303
          bit$302))
       #t)))
 (define dot/space
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(128
       (k$671 harr$301 r$300 c$299)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(127
             (k$673)
             ((if (Cyc-fast-gte r$300 0)
                (href/rc
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(125 (r$675) ((k$673 (vector-ref r$675 5))) #f))
                  harr$301
                  r$300
                  c$299)
                (k$673 #f)))
             #t))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(124
             (r$672)
             ((if r$672 (k$671 #\.) (k$671 #\space)))
             #f))))
       #t)))
 (define display-hexbottom
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(123
       (k$657 hexwalls$298)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(122
             (k$667)
             ((bit-test
                #((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(121
                    (r$668)
                    ((if r$668 (k$667 #\\) (k$667 #\space)))
                    #f))
                hexwalls$298
                south-west))
             #t))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(120
             (r$666)
             ((write-ch
                #((record-marker)
                  #((record-marker) #f (id args body has-cont))
                  #(119
                    (r$658)
                    ((#((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(118
                          (k$664)
                          ((bit-test
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(117
                                 (r$665)
                                 ((if r$665 (k$664 #\_) (k$664 #\space)))
                                 #f))
                             hexwalls$298
                             south))
                          #t))
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(116
                          (r$663)
                          ((write-ch
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(115
                                 (r$659)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(114
                                       (k$661)
                                       ((bit-test
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(113
                                              (r$662)
                                              ((if r$662
                                                 (k$661 #\/)
                                                 (k$661 #\space)))
                                              #f))
                                          hexwalls$298
                                          south-east))
                                       #t))
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(112
                                       (r$660)
                                       ((write-ch k$657 r$660))
                                       #f))))
                                 #f))
                             r$663))
                          #f))))
                    #f))
                r$666))
             #f))))
       #t)))
 (define run
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(111
       (k$651 nrows$297 ncols$296)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(109
             (r$652)
             ((pmaze #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(108 (r$653) ((reverse k$651 output)) #f))
                     nrows$297
                     ncols$296))
             #f))
         (set! output '())))
       #t)))
 (define main
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(107
       (k$634)
       ((read #((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(105
                  (count$287)
                  ((read #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(103
                             (input1$288)
                             ((read #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(101
                                        (input2$289)
                                        ((read #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(99
                                                   (output$290)
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(97
                                                         (s3$291)
                                                         ((#((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(95
                                                               (s2$292)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(93
                                                                     (s1$293)
                                                                     ((#((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(90
                                                                           (r$642)
                                                                           ((run-r7rs-benchmark
                                                                              k$634
                                                                              r$642
                                                                              count$287
                                                                              #((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(89
                                                                                  (k$646)
                                                                                  ((hide #((record-marker)
                                                                                           #((record-marker)
                                                                                             #f
                                                                                             (id args
                                                                                                 body
                                                                                                 has-cont))
                                                                                           #(88
                                                                                             (r$647)
                                                                                             ((hide #((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(87
                                                                                                        (r$648)
                                                                                                        ((run k$646
                                                                                                              r$647
                                                                                                              r$648))
                                                                                                        #f))
                                                                                                    count$287
                                                                                                    input2$289))
                                                                                             #f))
                                                                                         count$287
                                                                                         input1$288))
                                                                                  #t))
                                                                              #((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(85
                                                                                  (k$645 result$295)
                                                                                  ((k$645 (equal?
                                                                                            result$295
                                                                                            output$290)))
                                                                                  #t))))
                                                                           #f))
                                                                       (string-append
                                                                         "maze"
                                                                         ":"
                                                                         s1$293
                                                                         ":"
                                                                         s2$292
                                                                         ":"
                                                                         s3$291)))
                                                                     #f))
                                                                 (number->string
                                                                   input1$288)))
                                                               #f))
                                                           (number->string
                                                             input2$289)))
                                                         #f))
                                                     (number->string
                                                       count$287)))
                                                   #f))))
                                        #f))))
                             #f))))
                  #f))))
       #t)))
 (define hide
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(83
       (k$620 r$283 x$282)
       ((call-with-values
          k$620
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(82
              (k$625)
              ((vector
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(79
                     (r$626)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(78
                           (k$628)
                           ((if (Cyc-fast-lt r$283 100) (k$628 0) (k$628 1)))
                           #t))
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(76 (r$627) ((values k$625 r$626 r$627)) #f))))
                     #f))
                 values
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(81 (k$631 x$286) ((k$631 x$286)) #t))))
              #t))
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(74
              (k$623 v$285 i$284)
              (((vector-ref v$285 i$284) k$623 x$282))
              #t))))
       #t)))
 (define run-r7rs-benchmark
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(71
       (k$568 name$264 count$263 thunk$262 ok?$261)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(70
             (rounded$266)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(64
                   (r$569)
                   ((display
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(63
                          (r$570)
                          ((display
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(62
                                 (r$571)
                                 ((newline
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(61
                                        (r$572)
                                        ((current-output-port
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(60
                                               (r$613)
                                               ((flush-output-port
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(59
                                                      (r$573)
                                                      ((jiffies-per-second
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(57
                                                             (j/s$268)
                                                             ((current-second
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(55
                                                                    (t0$269)
                                                                    ((current-jiffy
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(53
                                                                           (j0$270)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(50
                                                                                 (loop$273)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(5
                                                                                       (r$577)
                                                                                       ((loop$273
                                                                                          k$568
                                                                                          0
                                                                                          #f))
                                                                                       #f))
                                                                                   (set! loop$273
                                                                                     #((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(49
                                                                                         (k$579 i$275
                                                                                                result$274)
                                                                                         ((if (Cyc-fast-lt
                                                                                                i$275
                                                                                                count$263)
                                                                                            (thunk$262
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(7
                                                                                                  (r$582)
                                                                                                  ((loop$273
                                                                                                     k$579
                                                                                                     (Cyc-fast-plus
                                                                                                       i$275
                                                                                                       1)
                                                                                                     r$582))
                                                                                                  #f)))
                                                                                            (ok?$261
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(47
                                                                                                  (r$583)
                                                                                                  ((if r$583
                                                                                                     (current-jiffy
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(38
                                                                                                           (j1$276)
                                                                                                           ((current-second
                                                                                                              #((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(36
                                                                                                                  (t1$277)
                                                                                                                  ((rounded$266
                                                                                                                     #((record-marker)
                                                                                                                       #((record-marker)
                                                                                                                         #f
                                                                                                                         (id args
                                                                                                                             body
                                                                                                                             has-cont))
                                                                                                                       #(28
                                                                                                                         (secs2$280)
                                                                                                                         ((display
                                                                                                                            #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(26
                                                                                                                                (r$590)
                                                                                                                                ((write #((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(25
                                                                                                                                            (r$591)
                                                                                                                                            ((display
                                                                                                                                               #((record-marker)
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #f
                                                                                                                                                   (id args
                                                                                                                                                       body
                                                                                                                                                       has-cont))
                                                                                                                                                 #(24
                                                                                                                                                   (r$592)
                                                                                                                                                   ((write #((record-marker)
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #f
                                                                                                                                                               (id args
                                                                                                                                                                   body
                                                                                                                                                                   has-cont))
                                                                                                                                                             #(23
                                                                                                                                                               (r$593)
                                                                                                                                                               ((display
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #((record-marker)
                                                                                                                                                                      #f
                                                                                                                                                                      (id args
                                                                                                                                                                          body
                                                                                                                                                                          has-cont))
                                                                                                                                                                    #(22
                                                                                                                                                                      (r$594)
                                                                                                                                                                      ((display
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #((record-marker)
                                                                                                                                                                             #f
                                                                                                                                                                             (id args
                                                                                                                                                                                 body
                                                                                                                                                                                 has-cont))
                                                                                                                                                                           #(21
                                                                                                                                                                             (r$595)
                                                                                                                                                                             ((newline
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(20
                                                                                                                                                                                    (r$596)
                                                                                                                                                                                    ((display
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                           #f
                                                                                                                                                                                           (id args
                                                                                                                                                                                               body
                                                                                                                                                                                               has-cont))
                                                                                                                                                                                         #(19
                                                                                                                                                                                           (r$597)
                                                                                                                                                                                           ((this-scheme-implementation-name
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                  #f
                                                                                                                                                                                                  (id args
                                                                                                                                                                                                      body
                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                #(18
                                                                                                                                                                                                  (r$605)
                                                                                                                                                                                                  ((display
                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                         #f
                                                                                                                                                                                                         (id args
                                                                                                                                                                                                             body
                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                       #(17
                                                                                                                                                                                                         (r$598)
                                                                                                                                                                                                         ((display
                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                #f
                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                    body
                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                              #(16
                                                                                                                                                                                                                (r$599)
                                                                                                                                                                                                                ((display
                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                           body
                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                     #(15
                                                                                                                                                                                                                       (r$600)
                                                                                                                                                                                                                       ((display
                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                            #(14
                                                                                                                                                                                                                              (r$601)
                                                                                                                                                                                                                              ((display
                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                   #(13
                                                                                                                                                                                                                                     (r$602)
                                                                                                                                                                                                                                     ((newline
                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                          #(12
                                                                                                                                                                                                                                            (r$603)
                                                                                                                                                                                                                                            ((current-output-port
                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                 #(11
                                                                                                                                                                                                                                                   (r$604)
                                                                                                                                                                                                                                                   ((flush-output-port
                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                        #(10
                                                                                                                                                                                                                                                          (r$584)
                                                                                                                                                                                                                                                          ((k$579 result$274))
                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                      r$604))
                                                                                                                                                                                                                                                   #f))))
                                                                                                                                                                                                                                            #f))))
                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                 (inexact__inline__
                                                                                                                                                                                                                                   (Cyc-fast-div
                                                                                                                                                                                                                                     (Cyc-fast-sub
                                                                                                                                                                                                                                       j1$276
                                                                                                                                                                                                                                       j0$270)
                                                                                                                                                                                                                                     j/s$268))))
                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                          ","))
                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                   name$264))
                                                                                                                                                                                                                #f))
                                                                                                                                                                                                            ","))
                                                                                                                                                                                                         #f))
                                                                                                                                                                                                     r$605))
                                                                                                                                                                                                  #f))))
                                                                                                                                                                                           #f))
                                                                                                                                                                                       "+!CSVLINE!+"))
                                                                                                                                                                                    #f))))
                                                                                                                                                                             #f))
                                                                                                                                                                         name$264))
                                                                                                                                                                      #f))
                                                                                                                                                                  ") for "))
                                                                                                                                                               #f))
                                                                                                                                                           secs2$280))
                                                                                                                                                   #f))
                                                                                                                                               " seconds ("))
                                                                                                                                            #f))
                                                                                                                                        (inexact__inline__
                                                                                                                                          (Cyc-fast-div
                                                                                                                                            (Cyc-fast-sub
                                                                                                                                              j1$276
                                                                                                                                              j0$270)
                                                                                                                                            j/s$268))))
                                                                                                                                #f))
                                                                                                                            "Elapsed time: "))
                                                                                                                         #f))
                                                                                                                     (Cyc-fast-sub
                                                                                                                       t1$277
                                                                                                                       t0$269)))
                                                                                                                  #f))))
                                                                                                           #f)))
                                                                                                     (display
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(45
                                                                                                           (r$608)
                                                                                                           ((write #((record-marker)
                                                                                                                     #((record-marker)
                                                                                                                       #f
                                                                                                                       (id args
                                                                                                                           body
                                                                                                                           has-cont))
                                                                                                                     #(44
                                                                                                                       (r$609)
                                                                                                                       ((newline
                                                                                                                          #((record-marker)
                                                                                                                            #((record-marker)
                                                                                                                              #f
                                                                                                                              (id args
                                                                                                                                  body
                                                                                                                                  has-cont))
                                                                                                                            #(43
                                                                                                                              (r$610)
                                                                                                                              ((current-output-port
                                                                                                                                 #((record-marker)
                                                                                                                                   #((record-marker)
                                                                                                                                     #f
                                                                                                                                     (id args
                                                                                                                                         body
                                                                                                                                         has-cont))
                                                                                                                                   #(42
                                                                                                                                     (r$612)
                                                                                                                                     ((flush-output-port
                                                                                                                                        #((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(41
                                                                                                                                            (r$611)
                                                                                                                                            ((k$579 result$274))
                                                                                                                                            #f))
                                                                                                                                        r$612))
                                                                                                                                     #f))))
                                                                                                                              #f))))
                                                                                                                       #f))
                                                                                                                   result$274))
                                                                                                           #f))
                                                                                                       "ERROR: returned incorrect result: ")))
                                                                                                  #f))
                                                                                              result$274)))
                                                                                         #t)))))
                                                                                 #f))
                                                                             #f))
                                                                           #f))))
                                                                    #f))))
                                                             #f))))
                                                      #f))
                                                  r$613))
                                               #f))))
                                        #f))))
                                 #f))
                             name$264))
                          #f))
                      "Running "))
                   #f))
               (set! rounded$266
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(68
                     (k$615 x$281)
                     ((k$615 (Cyc-fast-div
                               (round__inline__ (Cyc-fast-mul 1000 x$281))
                               1000)))
                     #t)))))
             #f))
         #f))
       #t)))
 (define this-scheme-implementation-name
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(4
       (k$564)
       ((Cyc-version
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(3
              (r$565)
              ((k$564 (string-append "cyclone-" r$565)))
              #f))))
       #t)))
 (main %halt))
 */
/* 
"---------------- after wrap-mutables:"
 */
/* 
((define bitwise-not
   (lambda (k$1272 x$560)
     ((lambda (r$1273)
        (k$1272 (Cyc-fast-sub r$1273 1)))
      (- x$560))))
 (define bitwise-and
   (lambda (k$1259 x$558 y$557)
     ((lambda (r$1260)
        (if r$1260
          (k$1259 0)
          ((lambda (r$1261)
             (if r$1261
               (k$1259 0)
               ((lambda (r$1262)
                  (if r$1262
                    (k$1259 y$557)
                    ((lambda (r$1263)
                       (if r$1263
                         (k$1259 x$558)
                         (div (lambda (r$1268)
                                (div (lambda (r$1269)
                                       (bitwise-and
                                         (lambda (z$559)
                                           ((lambda (k$1266)
                                              (odd? (lambda (r$1267)
                                                      (if r$1267
                                                        (odd? k$1266 y$557)
                                                        (k$1266 #f)))
                                                    x$558))
                                            (lambda (r$1265)
                                              (if r$1265
                                                (k$1259 (+ z$559 z$559 1))
                                                (k$1259
                                                  (Cyc-fast-plus
                                                    z$559
                                                    z$559))))))
                                         r$1268
                                         r$1269))
                                     y$557
                                     2))
                              x$558
                              2)))
                     (Cyc-fast-eq y$557 -1))))
                (Cyc-fast-eq x$558 -1))))
           (Cyc-fast-eq y$557 0))))
      (Cyc-fast-eq x$558 0))))
 (define div
   (lambda (k$1243 x$552 y$551)
     ((lambda (k$1254)
        (if (exact-integer?__inline__ x$552)
          (if (exact-integer?__inline__ y$551)
            (k$1254 (Cyc-fast-gte x$552 0))
            (k$1254 #f))
          (k$1254 #f)))
      (lambda (r$1244)
        (if r$1244
          (k$1243 (quotient__inline__ x$552 y$551))
          (if (Cyc-fast-lt y$551 0)
            (if (Cyc-fast-eq
                  (Cyc-fast-sub
                    x$552
                    (Cyc-fast-mul
                      (quotient__inline__ x$552 y$551)
                      y$551))
                  0)
              (k$1243 (quotient__inline__ x$552 y$551))
              (k$1243
                (Cyc-fast-plus
                  (quotient__inline__ x$552 y$551)
                  1)))
            (if (Cyc-fast-eq
                  (Cyc-fast-sub
                    x$552
                    (Cyc-fast-mul
                      (quotient__inline__ x$552 y$551)
                      y$551))
                  0)
              (k$1243 (quotient__inline__ x$552 y$551))
              (k$1243
                (Cyc-fast-sub (quotient__inline__ x$552 y$551) 1)))))))))
 (define mod
   (lambda (k$1227 x$546 y$545)
     ((lambda (k$1238)
        (if (exact-integer?__inline__ x$546)
          (if (exact-integer?__inline__ y$545)
            (k$1238 (Cyc-fast-gte x$546 0))
            (k$1238 #f))
          (k$1238 #f)))
      (lambda (r$1228)
        (if r$1228
          (remainder k$1227 x$546 y$545)
          (if (Cyc-fast-lt y$545 0)
            (if (Cyc-fast-eq
                  (Cyc-fast-sub
                    x$546
                    (Cyc-fast-mul
                      (quotient__inline__ x$546 y$545)
                      y$545))
                  0)
              (k$1227 0)
              (k$1227
                (Cyc-fast-sub
                  (Cyc-fast-sub
                    x$546
                    (Cyc-fast-mul
                      (quotient__inline__ x$546 y$545)
                      y$545))
                  y$545)))
            (if (Cyc-fast-eq
                  (Cyc-fast-sub
                    x$546
                    (Cyc-fast-mul
                      (quotient__inline__ x$546 y$545)
                      y$545))
                  0)
              (k$1227 0)
              (k$1227
                (Cyc-fast-plus
                  (Cyc-fast-sub
                    x$546
                    (Cyc-fast-mul
                      (quotient__inline__ x$546 y$545)
                      y$545))
                  y$545)))))))))
 (define random-state
   (lambda (k$1224 n$544) (k$1224 (cons n$544 #f))))
 (define rand
   (lambda (k$1211 state$534)
     ((lambda (seed$539)
        (div (lambda (hi$540)
               (mod (lambda (lo$541)
                      ((lambda (k$1218)
                         (if (Cyc-fast-gt
                               (Cyc-fast-sub
                                 (Cyc-fast-mul 2813 lo$541)
                                 (Cyc-fast-mul 2699 hi$540))
                               0)
                           (k$1218
                             (Cyc-fast-sub
                               (Cyc-fast-mul 2813 lo$541)
                               (Cyc-fast-mul 2699 hi$540)))
                           (k$1218
                             (Cyc-fast-plus
                               (Cyc-fast-sub
                                 (Cyc-fast-mul 2813 lo$541)
                                 (Cyc-fast-mul 2699 hi$540))
                               8388607))))
                       (lambda (val$543)
                         ((lambda (r$1217) (k$1211 val$543))
                          (set-car! state$534 val$543)))))
                    seed$539
                    2787))
             seed$539
             2787))
      (car state$534))))
 (define random-int
   (lambda (k$1207 n$533 state$532)
     (rand (lambda (r$1208) (mod k$1207 r$1208 n$533))
           state$532)))
 (define base-set
   (lambda (k$1203 nelts$531)
     (k$1203 (cons nelts$531 '()))))
 (define get-set-root
   (lambda (k$1186 s$522)
     ((lambda (r$523)
        ((lambda (lp$524)
           ((lambda (lp$524)
              ((lambda (r$1187)
                 ((cell-get lp$524) k$1186 r$523))
               (set-cell!
                 lp$524
                 (lambda (k$1189 r$525)
                   (if (pair? (cdr r$525))
                     ((cell-get lp$524) k$1189 (cdr r$525))
                     ((lambda (k$1193)
                        ((lambda (r$1194)
                           (if r$1194
                             (k$1193 #f)
                             ((lambda (x$527)
                                ((lambda (lp$528)
                                   ((lambda (lp$528)
                                      ((lambda (r$1195)
                                         ((cell-get lp$528) k$1193 x$527))
                                       (set-cell!
                                         lp$528
                                         (lambda (k$1197 x$529)
                                           ((lambda (next$530)
                                              ((lambda (r$1199)
                                                 (if r$1199
                                                   (k$1197 #f)
                                                   ((lambda (r$1200)
                                                      ((cell-get lp$528)
                                                       k$1197
                                                       next$530))
                                                    (set-cdr! x$529 r$525))))
                                               (eq? r$525 next$530)))
                                            (cdr x$529))))))
                                    (cell lp$528)))
                                 #f))
                              s$522)))
                         (eq? r$525 s$522)))
                      (lambda (r$1192) (k$1189 r$525))))))))
            (cell lp$524)))
         #f))
      s$522)))
 (define set-equal?
   (lambda (k$1181 s1$521 s2$520)
     (get-set-root
       (lambda (r$1182)
         (get-set-root
           (lambda (r$1183) (k$1181 (eq? r$1182 r$1183)))
           s2$520))
       s1$521)))
 (define set-size
   (lambda (k$1177 s$519)
     (get-set-root
       (lambda (r$1178) (k$1177 (car r$1178)))
       s$519)))
 (define union!
   (lambda (k$1166 s1$513 s2$512)
     (get-set-root
       (lambda (r1$514)
         (get-set-root
           (lambda (r2$515)
             (set-size
               (lambda (n1$516)
                 (set-size
                   (lambda (n2$517)
                     (if (Cyc-fast-gt n1$516 n2$517)
                       ((lambda (r$1173)
                          (k$1166
                            (set-car! r1$514 (Cyc-fast-plus n1$516 n2$517))))
                        (set-cdr! r2$515 r1$514))
                       ((lambda (r$1174)
                          (k$1166
                            (set-car! r2$515 (Cyc-fast-plus n1$516 n2$517))))
                        (set-cdr! r1$514 r2$515))))
                   r2$515))
               r1$514))
           s2$512))
       s1$513)))
 (define make-wall
   (lambda (k$1162 owner$511 neighbor$510 bit$509)
     (vector
       k$1162
       'wall
       owner$511
       neighbor$510
       bit$509)))
 (define wall:owner
   (lambda (k$1159 o$508)
     (k$1159 (vector-ref o$508 1))))
 (define wall:neighbor
   (lambda (k$1156 o$507)
     (k$1156 (vector-ref o$507 2))))
 (define wall:bit
   (lambda (k$1153 o$506)
     (k$1153 (vector-ref o$506 3))))
 (define make-cell
   (lambda (k$1149 reachable$505 id$504)
     (vector
       k$1149
       'cell
       reachable$505
       id$504
       -1
       #f
       #f)))
 (define cell:reachable
   (lambda (k$1146 o$503)
     (k$1146 (vector-ref o$503 1))))
 (define cell:id
   (lambda (k$1143 o$502)
     (k$1143 (vector-ref o$502 2))))
 (define cell:walls
   (lambda (k$1140 o$501)
     (k$1140 (vector-ref o$501 3))))
 (define set-cell:walls
   (lambda (k$1137 o$500 v$499)
     (k$1137 (vector-set! o$500 3 v$499))))
 (define cell:parent
   (lambda (k$1134 o$498)
     (k$1134 (vector-ref o$498 4))))
 (define set-cell:parent
   (lambda (k$1131 o$497 v$496)
     (k$1131 (vector-set! o$497 4 v$496))))
 (define cell:mark
   (lambda (k$1128 o$495)
     (k$1128 (vector-ref o$495 5))))
 (define set-cell:mark
   (lambda (k$1125 o$494 v$493)
     (k$1125 (vector-set! o$494 5 v$493))))
 (define vector-for-each-rev
   (lambda (k$1113 proc$489 v$488)
     ((lambda (lp$491)
        ((lambda (lp$491)
           ((lambda (r$1115)
              ((cell-get lp$491)
               k$1113
               (Cyc-fast-sub (vector-length v$488) 1)))
            (set-cell!
              lp$491
              (lambda (k$1117 i$492)
                (if (Cyc-fast-gte i$492 0)
                  (proc$489
                    (lambda (r$1119)
                      ((cell-get lp$491) k$1117 (Cyc-fast-sub i$492 1)))
                    (vector-ref v$488 i$492))
                  (k$1117 #f))))))
         (cell lp$491)))
      #f)))
 (define permute-vec!
   (lambda (k$1097 v$482 random-state$481)
     ((lambda (r$1110)
        ((lambda (lp$484)
           ((lambda (lp$484)
              ((lambda (r$1100)
                 ((cell-get lp$484)
                  (lambda (r$1098) (k$1097 v$482))
                  (Cyc-fast-sub r$1110 1)))
               (set-cell!
                 lp$484
                 (lambda (k$1102 i$485)
                   ((lambda (r$1103)
                      (if r$1103
                        ((lambda (r$1106)
                           (random-int
                             (lambda (r$1107)
                               ((lambda (elt-i$487 j$486)
                                  ((lambda (r$1109)
                                     ((lambda (r$1108)
                                        ((lambda (r$1104)
                                           ((cell-get lp$484)
                                            k$1102
                                            (Cyc-fast-sub i$485 1)))
                                         (vector-set! v$482 j$486 elt-i$487)))
                                      (vector-set! v$482 i$485 r$1109)))
                                   (vector-ref v$482 j$486)))
                                r$1106
                                r$1107))
                             i$485
                             random-state$481))
                         (vector-ref v$482 i$485))
                        (k$1102 #f)))
                    (Cyc-fast-gt i$485 1))))))
            (cell lp$484)))
         #f))
      (vector-length v$482))))
 (define dig-maze
   (lambda (k$1077 walls$472 ncells$471)
     (call-with-current-continuation
       k$1077
       (lambda (k$1079 quit$473)
         (vector-for-each-rev
           k$1079
           (lambda (k$1081 wall$474)
             (set-equal?
               (lambda (r$1086)
                 (if r$1086
                   (k$1081 #f)
                   (bitwise-not
                     (lambda (r$1088)
                       ((lambda (walls$480 wall-mask$479)
                          (union!
                            (lambda (r$1089)
                              (bitwise-and
                                (lambda (r$1093)
                                  ((lambda (r$1090)
                                     (set-size
                                       (lambda (r$1092)
                                         (if (Cyc-fast-eq r$1092 ncells$471)
                                           (quit$473 k$1081 #f)
                                           (k$1081 #f)))
                                       (vector-ref (vector-ref wall$474 1) 1)))
                                   (vector-set!
                                     (vector-ref wall$474 1)
                                     3
                                     r$1093)))
                                walls$480
                                wall-mask$479))
                            (vector-ref (vector-ref wall$474 1) 1)
                            (vector-ref (vector-ref wall$474 2) 1)))
                        (vector-ref (vector-ref wall$474 1) 3)
                        r$1088))
                     (vector-ref wall$474 3))))
               (vector-ref (vector-ref wall$474 1) 1)
               (vector-ref (vector-ref wall$474 2) 1)))
           walls$472)))))
 (define dfs-maze
   (lambda (k$1067 maze$464 root$463 do-children$462)
     ((lambda (node$466)
        ((lambda (search$467)
           ((lambda (search$467)
              ((lambda (r$1068)
                 ((cell-get search$467) k$1067 node$466 #f))
               (set-cell!
                 search$467
                 (lambda (k$1070 node$469 parent$468)
                   ((lambda (r$1071)
                      (do-children$462
                        k$1070
                        (lambda (k$1073 child$470)
                          ((lambda (r$1074)
                             (if r$1074
                               (k$1073 #f)
                               ((cell-get search$467)
                                k$1073
                                child$470
                                node$469)))
                           (eq? child$470 parent$468)))
                        maze$464
                        node$469))
                    (vector-set! node$469 4 parent$468))))))
            (cell search$467)))
         #f))
      root$463)))
 (define reroot-maze
   (lambda (k$1059 new-root$455)
     ((lambda (node$457)
        ((lambda (lp$458)
           ((lambda (lp$458)
              ((lambda (r$1060)
                 ((cell-get lp$458) k$1059 node$457 #f))
               (set-cell!
                 lp$458
                 (lambda (k$1062 node$460 new-parent$459)
                   ((lambda (old-parent$461)
                      ((lambda (r$1064)
                         (if old-parent$461
                           ((cell-get lp$458)
                            k$1062
                            old-parent$461
                            node$460)
                           (k$1062 #f)))
                       (vector-set! node$460 4 new-parent$459)))
                    (vector-ref node$460 4))))))
            (cell lp$458)))
         #f))
      new-root$455)))
 (define path-length
   (lambda (k$1050 cell$449)
     ((lambda (lp$105$452)
        ((lambda (lp$105$452)
           ((lambda (r$1052)
              ((cell-get lp$105$452)
               k$1050
               0
               (vector-ref cell$449 4)))
            (set-cell!
              lp$105$452
              (lambda (k$1054 len$454 node$453)
                (if node$453
                  ((cell-get lp$105$452)
                   k$1054
                   (Cyc-fast-plus len$454 1)
                   (vector-ref node$453 4))
                  (k$1054 len$454))))))
         (cell lp$105$452)))
      #f)))
 (define mark-path
   (lambda (k$1042 node$444)
     ((lambda (node$445)
        ((lambda (lp$446)
           ((lambda (lp$446)
              ((lambda (r$1043)
                 ((cell-get lp$446) k$1042 node$445))
               (set-cell!
                 lp$446
                 (lambda (k$1045 node$447)
                   ((lambda (r$1046)
                      ((lambda (tmp$111$448)
                         (if tmp$111$448
                           ((cell-get lp$446) k$1045 tmp$111$448)
                           (k$1045 #f)))
                       (vector-ref node$447 4)))
                    (vector-set! node$447 5 #t))))))
            (cell lp$446)))
         #f))
      node$444)))
 (define make-harr
   (lambda (k$1038 nrows$443 ncols$442 elts$441)
     (vector
       k$1038
       'harr
       nrows$443
       ncols$442
       elts$441)))
 (define harr:nrows
   (lambda (k$1035 o$440)
     (k$1035 (vector-ref o$440 1))))
 (define harr:ncols
   (lambda (k$1032 o$439)
     (k$1032 (vector-ref o$439 2))))
 (define harr:elts
   (lambda (k$1029 o$438)
     (k$1029 (vector-ref o$438 3))))
 (define href
   (lambda (k$1020 ha$435 x$434 y$433)
     (div (lambda (r$1021)
            (div (lambda (r$1022)
                   ((lambda (r$437 c$436)
                      (k$1020
                        (vector-ref
                          (vector-ref ha$435 3)
                          (Cyc-fast-plus
                            (Cyc-fast-mul (vector-ref ha$435 2) r$437)
                            c$436))))
                    r$1021
                    r$1022))
                 x$434
                 3))
          y$433
          2)))
 (define href/rc
   (lambda (k$1013 ha$432 r$431 c$430)
     (k$1013
       (vector-ref
         (vector-ref ha$432 3)
         (Cyc-fast-plus
           (Cyc-fast-mul (vector-ref ha$432 2) r$431)
           c$430)))))
 (define harr-tabulate
   (lambda (k$987 nrows$418 ncols$417 proc$416)
     ((lambda (v$419)
        ((lambda (lp$113$421)
           ((lambda (lp$113$421)
              ((lambda (r$991)
                 ((cell-get lp$113$421)
                  (lambda (r$989)
                    (vector k$987 'harr nrows$418 ncols$417 v$419))
                  (Cyc-fast-sub nrows$418 1)))
               (set-cell!
                 lp$113$421
                 (lambda (k$993 r$422)
                   (if (Cyc-fast-lt r$422 0)
                     (k$993 (Cyc-fast-lt r$422 0))
                     ((lambda (i$424)
                        ((lambda (lp$117$426)
                           ((lambda (lp$117$426)
                              ((lambda (r$998)
                                 ((cell-get lp$117$426)
                                  (lambda (r$995)
                                    ((cell-get lp$113$421)
                                     k$993
                                     (Cyc-fast-sub r$422 1)))
                                  0
                                  i$424))
                               (set-cell!
                                 lp$117$426
                                 (lambda (k$1000 c$428 i$427)
                                   (if (Cyc-fast-eq c$428 ncols$417)
                                     (k$1000 (Cyc-fast-eq c$428 ncols$417))
                                     (bitwise-and
                                       (lambda (r$1009)
                                         (proc$416
                                           (lambda (r$1005)
                                             ((lambda (r$1002)
                                                ((cell-get lp$117$426)
                                                 k$1000
                                                 (Cyc-fast-plus c$428 1)
                                                 (Cyc-fast-plus i$427 1)))
                                              (vector-set! v$419 i$427 r$1005)))
                                           (Cyc-fast-mul 3 c$428)
                                           (Cyc-fast-plus
                                             (Cyc-fast-mul 2 r$422)
                                             r$1009)))
                                       c$428
                                       1))))))
                            (cell lp$117$426)))
                         #f))
                      (Cyc-fast-mul r$422 ncols$417)))))))
            (cell lp$113$421)))
         #f))
      (make-vector (Cyc-fast-mul nrows$418 ncols$417)))))
 (define south-west 1)
 (define south 2)
 (define south-east 4)
 (define gen-maze-array
   (lambda (k$974 r$413 c$412)
     (harr-tabulate
       k$974
       r$413
       c$412
       (lambda (k$976 x$415 y$414)
         (vector
           k$976
           'cell
           (cons 1 '())
           (cons x$415 y$414)
           -1
           #f
           #f)))))
 (define make-wall-vec
   (lambda (k$899 harr$388)
     ((lambda (walls$392)
        ((lambda (walls$392)
           ((lambda (add-wall$396)
              ((lambda (lp$132$404)
                 ((lambda (lp$132$404)
                    ((lambda (r$936)
                       ((cell-get lp$132$404)
                        (lambda (r$905)
                          ((lambda (k$907)
                             (if (Cyc-fast-gt (vector-ref harr$388 2) 1)
                               (div (lambda (r$933)
                                      (href (lambda (rmoc-hex$402)
                                              ((lambda (k$929)
                                                 (if (Cyc-fast-lt
                                                       (Cyc-fast-plus
                                                         3
                                                         (Cyc-fast-mul 6 r$933))
                                                       (Cyc-fast-mul
                                                         3
                                                         (Cyc-fast-sub
                                                           (vector-ref
                                                             harr$388
                                                             2)
                                                           1)))
                                                   (href (lambda (r$931)
                                                           (add-wall$396
                                                             k$929
                                                             rmoc-hex$402
                                                             r$931
                                                             south-east))
                                                         harr$388
                                                         (Cyc-fast-mul
                                                           3
                                                           (Cyc-fast-sub
                                                             (vector-ref
                                                               harr$388
                                                               2)
                                                             1))
                                                         0)
                                                   (k$929 #f)))
                                               (lambda (r$926)
                                                 (href (lambda (r$927)
                                                         (add-wall$396
                                                           (lambda (r$910)
                                                             ((lambda (lp$140$399)
                                                                ((lambda (lp$140$399)
                                                                   ((lambda (r$912)
                                                                      ((cell-get
                                                                         lp$140$399)
                                                                       k$907
                                                                       (Cyc-fast-sub
                                                                         (Cyc-fast-plus
                                                                           3
                                                                           (Cyc-fast-mul
                                                                             6
                                                                             r$933))
                                                                         6)))
                                                                    (set-cell!
                                                                      lp$140$399
                                                                      (lambda (k$914
                                                                               x$400)
                                                                        (if (Cyc-fast-lt
                                                                              x$400
                                                                              3)
                                                                          (k$914 (Cyc-fast-lt
                                                                                   x$400
                                                                                   3))
                                                                          (href (lambda (r$922)
                                                                                  (href (lambda (r$923)
                                                                                          (add-wall$396
                                                                                            (lambda (r$916)
                                                                                              (href (lambda (r$919)
                                                                                                      (href (lambda (r$920)
                                                                                                              (add-wall$396
                                                                                                                (lambda (r$917)
                                                                                                                  ((cell-get
                                                                                                                     lp$140$399)
                                                                                                                   k$914
                                                                                                                   (Cyc-fast-sub
                                                                                                                     x$400
                                                                                                                     6)))
                                                                                                                r$919
                                                                                                                r$920
                                                                                                                south-east))
                                                                                                            harr$388
                                                                                                            (Cyc-fast-plus
                                                                                                              x$400
                                                                                                              3)
                                                                                                            0))
                                                                                                    harr$388
                                                                                                    x$400
                                                                                                    1))
                                                                                            r$922
                                                                                            r$923
                                                                                            south-west))
                                                                                        harr$388
                                                                                        (Cyc-fast-sub
                                                                                          x$400
                                                                                          3)
                                                                                        0))
                                                                                harr$388
                                                                                x$400
                                                                                1))))))
                                                                 (cell lp$140$399)))
                                                              #f))
                                                           rmoc-hex$402
                                                           r$927
                                                           south-west))
                                                       harr$388
                                                       (Cyc-fast-sub
                                                         (Cyc-fast-plus
                                                           3
                                                           (Cyc-fast-mul
                                                             6
                                                             r$933))
                                                         3)
                                                       0))))
                                            harr$388
                                            (Cyc-fast-plus
                                              3
                                              (Cyc-fast-mul 6 r$933))
                                            1))
                                    (Cyc-fast-sub (vector-ref harr$388 2) 2)
                                    2)
                               (k$907 #f)))
                           (lambda (r$906)
                             (k$899 (list->vector (cell-get walls$392))))))
                        (Cyc-fast-mul
                          (Cyc-fast-sub (vector-ref harr$388 2) 1)
                          3)))
                     (set-cell!
                       lp$132$404
                       (lambda (k$938 x$405)
                         (if (Cyc-fast-lt x$405 0)
                           (k$938 (Cyc-fast-lt x$405 0))
                           (bitwise-and
                             (lambda (r$965)
                               ((lambda (lp$136$408)
                                  ((lambda (lp$136$408)
                                     ((lambda (r$943)
                                        ((cell-get lp$136$408)
                                         (lambda (r$940)
                                           ((cell-get lp$132$404)
                                            k$938
                                            (Cyc-fast-sub x$405 3)))
                                         (Cyc-fast-plus
                                           (Cyc-fast-mul
                                             (Cyc-fast-sub
                                               (vector-ref harr$388 1)
                                               1)
                                             2)
                                           r$965)))
                                      (set-cell!
                                        lp$136$408
                                        (lambda (k$945 y$409)
                                          (if (Cyc-fast-lte y$409 1)
                                            (k$945 (Cyc-fast-lte y$409 1))
                                            (href (lambda (hex$411)
                                                    ((lambda (k$959)
                                                       (if (zero?__inline__
                                                             x$405)
                                                         (k$959 #f)
                                                         (href (lambda (r$961)
                                                                 (add-wall$396
                                                                   k$959
                                                                   hex$411
                                                                   r$961
                                                                   south-west))
                                                               harr$388
                                                               (Cyc-fast-sub
                                                                 x$405
                                                                 3)
                                                               (Cyc-fast-sub
                                                                 y$409
                                                                 1))))
                                                     (lambda (r$950)
                                                       (href (lambda (r$957)
                                                               (add-wall$396
                                                                 (lambda (r$951)
                                                                   ((lambda (k$952)
                                                                      (if (Cyc-fast-lt
                                                                            x$405
                                                                            (Cyc-fast-mul
                                                                              3
                                                                              (Cyc-fast-sub
                                                                                (vector-ref
                                                                                  harr$388
                                                                                  2)
                                                                                1)))
                                                                        (href (lambda (r$954)
                                                                                (add-wall$396
                                                                                  k$952
                                                                                  hex$411
                                                                                  r$954
                                                                                  south-east))
                                                                              harr$388
                                                                              (Cyc-fast-plus
                                                                                x$405
                                                                                3)
                                                                              (Cyc-fast-sub
                                                                                y$409
                                                                                1))
                                                                        (k$952 #f)))
                                                                    (lambda (r$947)
                                                                      ((cell-get
                                                                         lp$136$408)
                                                                       k$945
                                                                       (Cyc-fast-sub
                                                                         y$409
                                                                         2)))))
                                                                 hex$411
                                                                 r$957
                                                                 south))
                                                             harr$388
                                                             x$405
                                                             (Cyc-fast-sub
                                                               y$409
                                                               2)))))
                                                  harr$388
                                                  x$405
                                                  y$409))))))
                                   (cell lp$136$408)))
                                #f))
                             x$405
                             1))))))
                  (cell lp$132$404)))
               #f))
            (lambda (k$968 o$395 n$394 b$393)
              (vector
                (lambda (r$970)
                  ((lambda (r$969)
                     (k$968 (set-cell! walls$392 r$969)))
                   (cons r$970 (cell-get walls$392))))
                'wall
                o$395
                n$394
                b$393))))
         (cell walls$392)))
      '())))
 (define pick-entrances
   (lambda (k$869 harr$361)
     (href/rc
       (lambda (r$896)
         (dfs-maze
           (lambda (r$870)
             ((lambda (r$871)
                ((lambda (r$872)
                   ((lambda (nrows$363 ncols$362)
                      ((lambda (tp-lp$368)
                         ((lambda (tp-lp$368)
                            ((lambda (r$874)
                               ((cell-get tp-lp$368)
                                k$869
                                -1
                                #f
                                #f
                                (Cyc-fast-sub ncols$362 1)))
                             (set-cell!
                               tp-lp$368
                               (lambda (k$876
                                        max-len$372
                                        entrance$371
                                        exit$370
                                        tcol$369)
                                 ((lambda (r$877)
                                    (if r$877
                                      (vector k$876 entrance$371 exit$370)
                                      (href/rc
                                        (lambda (top-cell$373)
                                          (reroot-maze
                                            (lambda (r$879)
                                              ((lambda (max-len$377
                                                        entrance$376
                                                        exit$375
                                                        bcol$374)
                                                 ((lambda (bt-lp$378)
                                                    ((lambda (bt-lp$378)
                                                       ((lambda (r$886)
                                                          ((cell-get bt-lp$378)
                                                           (lambda (result$384)
                                                             ((cell-get
                                                                tp-lp$368)
                                                              k$876
                                                              (vector-ref
                                                                result$384
                                                                0)
                                                              (vector-ref
                                                                result$384
                                                                1)
                                                              (vector-ref
                                                                result$384
                                                                2)
                                                              (Cyc-fast-sub
                                                                tcol$369
                                                                1)))
                                                           max-len$377
                                                           entrance$376
                                                           exit$375
                                                           bcol$374))
                                                        (set-cell!
                                                          bt-lp$378
                                                          (lambda (k$888
                                                                   max-len$382
                                                                   entrance$381
                                                                   exit$380
                                                                   bcol$379)
                                                            ((lambda (r$889)
                                                               (if r$889
                                                                 (vector
                                                                   k$888
                                                                   max-len$382
                                                                   entrance$381
                                                                   exit$380)
                                                                 (href/rc
                                                                   (lambda (r$894)
                                                                     (path-length
                                                                       (lambda (this-len$383)
                                                                         ((lambda (r$891)
                                                                            (if r$891
                                                                              ((lambda (r$892)
                                                                                 ((cell-get
                                                                                    bt-lp$378)
                                                                                  k$888
                                                                                  this-len$383
                                                                                  tcol$369
                                                                                  bcol$379
                                                                                  r$892))
                                                                               (Cyc-fast-sub
                                                                                 bcol$379
                                                                                 1))
                                                                              ((cell-get
                                                                                 bt-lp$378)
                                                                               k$888
                                                                               max-len$382
                                                                               entrance$381
                                                                               exit$380
                                                                               (Cyc-fast-sub
                                                                                 bcol$379
                                                                                 1))))
                                                                          (Cyc-fast-gt
                                                                            this-len$383
                                                                            max-len$382)))
                                                                       r$894))
                                                                   harr$361
                                                                   0
                                                                   bcol$379)))
                                                             (Cyc-fast-lt
                                                               bcol$379
                                                               0))))))
                                                     (cell bt-lp$378)))
                                                  #f))
                                               max-len$372
                                               entrance$371
                                               exit$370
                                               (Cyc-fast-sub ncols$362 1)))
                                            top-cell$373))
                                        harr$361
                                        (Cyc-fast-sub nrows$363 1)
                                        tcol$369)))
                                  (Cyc-fast-lt tcol$369 0))))))
                          (cell tp-lp$368)))
                       #f))
                    r$871
                    r$872))
                 (vector-ref harr$361 2)))
              (vector-ref harr$361 1)))
           harr$361
           r$896
           for-each-hex-child))
       harr$361
       0
       0)))
 (define for-each-hex-child
   (lambda (k$810 proc$347 harr$346 cell$345)
     ((lambda (k$860)
        (bit-test
          (lambda (r$861)
            (if r$861
              (k$860 #f)
              (href (lambda (r$862) (proc$347 k$860 r$862))
                    harr$346
                    (Cyc-fast-sub (car (vector-ref cell$345 2)) 3)
                    (Cyc-fast-sub (cdr (vector-ref cell$345 2)) 1))))
          (vector-ref cell$345 3)
          south-west))
      (lambda (r$819)
        ((lambda (k$856)
           (bit-test
             (lambda (r$857)
               (if r$857
                 (k$856 #f)
                 (href (lambda (r$858) (proc$347 k$856 r$858))
                       harr$346
                       (car (vector-ref cell$345 2))
                       (Cyc-fast-sub (cdr (vector-ref cell$345 2)) 2))))
             (vector-ref cell$345 3)
             south))
         (lambda (r$820)
           ((lambda (k$851)
              (bit-test
                (lambda (r$852)
                  (if r$852
                    (k$851 #f)
                    (href (lambda (r$853) (proc$347 k$851 r$853))
                          harr$346
                          (Cyc-fast-plus (car (vector-ref cell$345 2)) 3)
                          (Cyc-fast-sub (cdr (vector-ref cell$345 2)) 1))))
                (vector-ref cell$345 3)
                south-east))
            (lambda (r$821)
              ((lambda (k$840)
                 ((lambda (k$847)
                    (if (Cyc-fast-gt (car (vector-ref cell$345 2)) 0)
                      (if (Cyc-fast-lte
                            (cdr (vector-ref cell$345 2))
                            (Cyc-fast-mul
                              2
                              (Cyc-fast-sub (vector-ref harr$346 1) 1)))
                        (k$847 (Cyc-fast-lte
                                 (cdr (vector-ref cell$345 2))
                                 (Cyc-fast-mul
                                   2
                                   (Cyc-fast-sub (vector-ref harr$346 1) 1))))
                        (mod (lambda (r$850) (k$847 (zero?__inline__ r$850)))
                             (car (vector-ref cell$345 2))
                             6))
                      (k$847 #f)))
                  (lambda (r$841)
                    (if r$841
                      (href (lambda (nw$359)
                              ((lambda (r$844)
                                 (bit-test
                                   (lambda (r$843)
                                     (if r$843
                                       (k$840 #f)
                                       (proc$347 k$840 nw$359)))
                                   r$844
                                   south-east))
                               (vector-ref nw$359 3)))
                            harr$346
                            (Cyc-fast-sub (car (vector-ref cell$345 2)) 3)
                            (Cyc-fast-plus (cdr (vector-ref cell$345 2)) 1))
                      (k$840 #f)))))
               (lambda (r$822)
                 ((lambda (k$834)
                    (if (Cyc-fast-lt
                          (cdr (vector-ref cell$345 2))
                          (Cyc-fast-mul
                            2
                            (Cyc-fast-sub (vector-ref harr$346 1) 1)))
                      (href (lambda (n$358)
                              ((lambda (r$838)
                                 (bit-test
                                   (lambda (r$837)
                                     (if r$837
                                       (k$834 #f)
                                       (proc$347 k$834 n$358)))
                                   r$838
                                   south))
                               (vector-ref n$358 3)))
                            harr$346
                            (car (vector-ref cell$345 2))
                            (Cyc-fast-plus (cdr (vector-ref cell$345 2)) 2))
                      (k$834 #f)))
                  (lambda (r$823)
                    ((lambda (k$830)
                       (if (Cyc-fast-lt
                             (car (vector-ref cell$345 2))
                             (Cyc-fast-mul
                               3
                               (Cyc-fast-sub (vector-ref harr$346 2) 1)))
                         (if (Cyc-fast-lte
                               (cdr (vector-ref cell$345 2))
                               (Cyc-fast-mul
                                 2
                                 (Cyc-fast-sub (vector-ref harr$346 1) 1)))
                           (k$830 (Cyc-fast-lte
                                    (cdr (vector-ref cell$345 2))
                                    (Cyc-fast-mul
                                      2
                                      (Cyc-fast-sub
                                        (vector-ref harr$346 1)
                                        1))))
                           (mod (lambda (r$833) (k$830 (zero?__inline__ r$833)))
                                (car (vector-ref cell$345 2))
                                6))
                         (k$830 #f)))
                     (lambda (r$824)
                       (if r$824
                         (href (lambda (ne$356)
                                 ((lambda (r$827)
                                    (bit-test
                                      (lambda (r$826)
                                        (if r$826
                                          (k$810 #f)
                                          (proc$347 k$810 ne$356)))
                                      r$827
                                      south-west))
                                  (vector-ref ne$356 3)))
                               harr$346
                               (Cyc-fast-plus (car (vector-ref cell$345 2)) 3)
                               (Cyc-fast-plus (cdr (vector-ref cell$345 2)) 1))
                         (k$810 #f))))))))))))))))
 (define make-maze
   (lambda (k$789 nrows$337 ncols$336)
     (gen-maze-array
       (lambda (cells$338)
         (make-wall-vec
           (lambda (r$806)
             (permute-vec!
               (lambda (walls$339)
                 (dig-maze
                   (lambda (r$792)
                     (pick-entrances
                       (lambda (result$340)
                         (href/rc
                           (lambda (exit-cell$343)
                             ((lambda (walls$344)
                                (href/rc
                                  (lambda (r$803)
                                    (reroot-maze
                                      (lambda (r$798)
                                        (mark-path
                                          (lambda (r$799)
                                            (bitwise-not
                                              (lambda (r$802)
                                                (bitwise-and
                                                  (lambda (r$801)
                                                    ((lambda (r$800)
                                                       (vector
                                                         k$789
                                                         cells$338
                                                         (vector-ref
                                                           result$340
                                                           0)
                                                         (vector-ref
                                                           result$340
                                                           1)))
                                                     (vector-set!
                                                       exit-cell$343
                                                       3
                                                       r$801)))
                                                  walls$344
                                                  r$802))
                                              south))
                                          exit-cell$343))
                                      r$803))
                                  cells$338
                                  (Cyc-fast-sub nrows$337 1)
                                  (vector-ref result$340 0)))
                              (vector-ref exit-cell$343 3)))
                           cells$338
                           0
                           (vector-ref result$340 1)))
                       cells$338))
                   walls$339
                   (Cyc-fast-mul nrows$337 ncols$336)))
               r$806
               (cons 20 #f)))
           cells$338))
       nrows$337
       ncols$336)))
 (define pmaze
   (lambda (k$782 nrows$331 ncols$330)
     (make-maze
       (lambda (result$332)
         ((lambda (cells$335 entrance$334 exit$333)
            (print-hexmaze k$782 cells$335 entrance$334))
          (vector-ref result$332 0)
          (vector-ref result$332 1)
          (vector-ref result$332 2)))
       nrows$331
       ncols$330)))
 (define output #f)
 (define write-ch
   (lambda (k$776 c$329)
     ((lambda (r$777)
        (k$776 (set-global! output r$777)))
      (cons c$329 output))))
 (define print-hexmaze
   (lambda (k$683 harr$305 entrance$304)
     (div (lambda (r$773)
            ((lambda (lp$188$326)
               ((lambda (lp$188$326)
                  ((lambda (r$761)
                     ((cell-get lp$188$326)
                      (lambda (r$687)
                        (write-ch
                          (lambda (r$688)
                            (write-ch
                              (lambda (r$689)
                                ((lambda (lp$192$322)
                                   ((lambda (lp$192$322)
                                      ((lambda (r$746)
                                         ((cell-get lp$192$322)
                                          (lambda (r$690)
                                            ((lambda (k$740)
                                               (odd? (lambda (r$741)
                                                       (if r$741
                                                         ((lambda (k$743)
                                                            (if (Cyc-fast-eq
                                                                  entrance$304
                                                                  (Cyc-fast-sub
                                                                    (vector-ref
                                                                      harr$305
                                                                      2)
                                                                    1))
                                                              (k$743 #\space)
                                                              (k$743 #\_)))
                                                          (lambda (r$742)
                                                            (write-ch
                                                              k$740
                                                              r$742)))
                                                         (k$740 #f)))
                                                     (vector-ref harr$305 2)))
                                             (lambda (r$691)
                                               (write-ch
                                                 (lambda (r$692)
                                                   ((lambda (lp$196$310)
                                                      ((lambda (lp$196$310)
                                                         ((lambda (r$694)
                                                            ((cell-get
                                                               lp$196$310)
                                                             k$683
                                                             (Cyc-fast-sub
                                                               (vector-ref
                                                                 harr$305
                                                                 1)
                                                               1)))
                                                          (set-cell!
                                                            lp$196$310
                                                            (lambda (k$696
                                                                     r$311)
                                                              (if (Cyc-fast-lt
                                                                    r$311
                                                                    0)
                                                                (k$696 (Cyc-fast-lt
                                                                         r$311
                                                                         0))
                                                                (write-ch
                                                                  (lambda (r$698)
                                                                    ((lambda (lp$200$318)
                                                                       ((lambda (lp$200$318)
                                                                          ((lambda (r$729)
                                                                             ((cell-get
                                                                                lp$200$318)
                                                                              (lambda (r$699)
                                                                                ((lambda (k$724)
                                                                                   (odd? (lambda (r$725)
                                                                                           (if r$725
                                                                                             (dot/space
                                                                                               (lambda (r$727)
                                                                                                 (write-ch
                                                                                                   (lambda (r$726)
                                                                                                     (write-ch
                                                                                                       k$724
                                                                                                       #\\))
                                                                                                   r$727))
                                                                                               harr$305
                                                                                               r$311
                                                                                               (Cyc-fast-sub
                                                                                                 (vector-ref
                                                                                                   harr$305
                                                                                                   2)
                                                                                                 1))
                                                                                             (k$724 #f)))
                                                                                         (vector-ref
                                                                                           harr$305
                                                                                           2)))
                                                                                 (lambda (r$700)
                                                                                   (write-ch
                                                                                     (lambda (r$701)
                                                                                       ((lambda (lp$207$314)
                                                                                          ((lambda (lp$207$314)
                                                                                             ((lambda (r$712)
                                                                                                ((cell-get
                                                                                                   lp$207$314)
                                                                                                 (lambda (r$702)
                                                                                                   ((lambda (k$706)
                                                                                                      (odd? (lambda (r$707)
                                                                                                              (if r$707
                                                                                                                (href/rc
                                                                                                                  (lambda (r$709)
                                                                                                                    (display-hexbottom
                                                                                                                      k$706
                                                                                                                      (vector-ref
                                                                                                                        r$709
                                                                                                                        3)))
                                                                                                                  harr$305
                                                                                                                  r$311
                                                                                                                  (Cyc-fast-sub
                                                                                                                    (vector-ref
                                                                                                                      harr$305
                                                                                                                      2)
                                                                                                                    1))
                                                                                                                (if (zero?__inline__
                                                                                                                      r$311)
                                                                                                                  (k$706 #f)
                                                                                                                  (write-ch
                                                                                                                    k$706
                                                                                                                    #\\))))
                                                                                                            (vector-ref
                                                                                                              harr$305
                                                                                                              2)))
                                                                                                    (lambda (r$703)
                                                                                                      (write-ch
                                                                                                        (lambda (r$704)
                                                                                                          ((cell-get
                                                                                                             lp$196$310)
                                                                                                           k$696
                                                                                                           (Cyc-fast-sub
                                                                                                             r$311
                                                                                                             1)))
                                                                                                        #\newline))))
                                                                                                 0))
                                                                                              (set-cell!
                                                                                                lp$207$314
                                                                                                (lambda (k$714
                                                                                                         c$315)
                                                                                                  (if (Cyc-fast-gte
                                                                                                        c$315
                                                                                                        (Cyc-fast-mul
                                                                                                          2
                                                                                                          r$773))
                                                                                                    (k$714 (Cyc-fast-gte
                                                                                                             c$315
                                                                                                             (Cyc-fast-mul
                                                                                                               2
                                                                                                               r$773)))
                                                                                                    (href/rc
                                                                                                      (lambda (r$723)
                                                                                                        (display-hexbottom
                                                                                                          (lambda (r$716)
                                                                                                            (dot/space
                                                                                                              (lambda (r$719)
                                                                                                                (write-ch
                                                                                                                  (lambda (r$717)
                                                                                                                    ((cell-get
                                                                                                                       lp$207$314)
                                                                                                                     k$714
                                                                                                                     (Cyc-fast-plus
                                                                                                                       c$315
                                                                                                                       2)))
                                                                                                                  r$719))
                                                                                                              harr$305
                                                                                                              (Cyc-fast-sub
                                                                                                                r$311
                                                                                                                1)
                                                                                                              (Cyc-fast-plus
                                                                                                                c$315
                                                                                                                1)))
                                                                                                          (vector-ref
                                                                                                            r$723
                                                                                                            3)))
                                                                                                      harr$305
                                                                                                      r$311
                                                                                                      c$315))))))
                                                                                           (cell lp$207$314)))
                                                                                        #f))
                                                                                     #\newline))))
                                                                              1))
                                                                           (set-cell!
                                                                             lp$200$318
                                                                             (lambda (k$731
                                                                                      c$319)
                                                                               (if (Cyc-fast-gte
                                                                                     c$319
                                                                                     (Cyc-fast-mul
                                                                                       2
                                                                                       r$773))
                                                                                 (k$731 (Cyc-fast-gte
                                                                                          c$319
                                                                                          (Cyc-fast-mul
                                                                                            2
                                                                                            r$773)))
                                                                                 (dot/space
                                                                                   (lambda (r$738)
                                                                                     (write-ch
                                                                                       (lambda (r$733)
                                                                                         (href/rc
                                                                                           (lambda (r$737)
                                                                                             (display-hexbottom
                                                                                               (lambda (r$734)
                                                                                                 ((cell-get
                                                                                                    lp$200$318)
                                                                                                  k$731
                                                                                                  (Cyc-fast-plus
                                                                                                    c$319
                                                                                                    2)))
                                                                                               (vector-ref
                                                                                                 r$737
                                                                                                 3)))
                                                                                           harr$305
                                                                                           r$311
                                                                                           c$319))
                                                                                       r$738))
                                                                                   harr$305
                                                                                   r$311
                                                                                   (Cyc-fast-sub
                                                                                     c$319
                                                                                     1)))))))
                                                                        (cell lp$200$318)))
                                                                     #f))
                                                                  #\/))))))
                                                       (cell lp$196$310)))
                                                    #f))
                                                 #\newline))))
                                          0))
                                       (set-cell!
                                         lp$192$322
                                         (lambda (k$748 c$323)
                                           (if (Cyc-fast-gte
                                                 c$323
                                                 (Cyc-fast-mul 2 r$773))
                                             (k$748 (Cyc-fast-gte
                                                      c$323
                                                      (Cyc-fast-mul 2 r$773)))
                                             ((lambda (k$759)
                                                (if (Cyc-fast-eq
                                                      c$323
                                                      entrance$304)
                                                  (k$759 #\space)
                                                  (k$759 #\_)))
                                              (lambda (r$758)
                                                (write-ch
                                                  (lambda (r$750)
                                                    (write-ch
                                                      (lambda (r$751)
                                                        (dot/space
                                                          (lambda (r$755)
                                                            (write-ch
                                                              (lambda (r$752)
                                                                (write-ch
                                                                  (lambda (r$753)
                                                                    ((cell-get
                                                                       lp$192$322)
                                                                     k$748
                                                                     (Cyc-fast-plus
                                                                       c$323
                                                                       2)))
                                                                  #\\))
                                                              r$755))
                                                          harr$305
                                                          (Cyc-fast-sub
                                                            (vector-ref
                                                              harr$305
                                                              1)
                                                            1)
                                                          (Cyc-fast-plus
                                                            c$323
                                                            1)))
                                                      #\/))
                                                  r$758))))))))
                                    (cell lp$192$322)))
                                 #f))
                              #\space))
                          #\newline))
                      1))
                   (set-cell!
                     lp$188$326
                     (lambda (k$763 c$327)
                       (if (Cyc-fast-gte c$327 (vector-ref harr$305 2))
                         (k$763 (Cyc-fast-gte c$327 (vector-ref harr$305 2)))
                         (write-ch
                           (lambda (r$765)
                             (write-ch
                               (lambda (r$766)
                                 (write-ch
                                   (lambda (r$767)
                                     ((lambda (k$771)
                                        (if (Cyc-fast-eq c$327 entrance$304)
                                          (k$771 #\space)
                                          (k$771 #\_)))
                                      (lambda (r$770)
                                        (write-ch
                                          (lambda (r$768)
                                            ((cell-get lp$188$326)
                                             k$763
                                             (Cyc-fast-plus c$327 2)))
                                          r$770))))
                                   #\space))
                               #\space))
                           #\space))))))
                (cell lp$188$326)))
             #f))
          (vector-ref harr$305 2)
          2)))
 (define bit-test
   (lambda (k$678 j$303 bit$302)
     (bitwise-and
       (lambda (r$680)
         (k$678 (not__inline__ (zero?__inline__ r$680))))
       j$303
       bit$302)))
 (define dot/space
   (lambda (k$671 harr$301 r$300 c$299)
     ((lambda (k$673)
        (if (Cyc-fast-gte r$300 0)
          (href/rc
            (lambda (r$675) (k$673 (vector-ref r$675 5)))
            harr$301
            r$300
            c$299)
          (k$673 #f)))
      (lambda (r$672)
        (if r$672 (k$671 #\.) (k$671 #\space))))))
 (define display-hexbottom
   (lambda (k$657 hexwalls$298)
     ((lambda (k$667)
        (bit-test
          (lambda (r$668)
            (if r$668 (k$667 #\\) (k$667 #\space)))
          hexwalls$298
          south-west))
      (lambda (r$666)
        (write-ch
          (lambda (r$658)
            ((lambda (k$664)
               (bit-test
                 (lambda (r$665)
                   (if r$665 (k$664 #\_) (k$664 #\space)))
                 hexwalls$298
                 south))
             (lambda (r$663)
               (write-ch
                 (lambda (r$659)
                   ((lambda (k$661)
                      (bit-test
                        (lambda (r$662)
                          (if r$662 (k$661 #\/) (k$661 #\space)))
                        hexwalls$298
                        south-east))
                    (lambda (r$660) (write-ch k$657 r$660))))
                 r$663))))
          r$666)))))
 (define run
   (lambda (k$651 nrows$297 ncols$296)
     ((lambda (r$652)
        (pmaze (lambda (r$653) (reverse k$651 output))
               nrows$297
               ncols$296))
      (set-global! output '()))))
 (define main
   (lambda (k$634)
     (read (lambda (count$287)
             (read (lambda (input1$288)
                     (read (lambda (input2$289)
                             (read (lambda (output$290)
                                     ((lambda (s3$291)
                                        ((lambda (s2$292)
                                           ((lambda (s1$293)
                                              ((lambda (r$642)
                                                 (run-r7rs-benchmark
                                                   k$634
                                                   r$642
                                                   count$287
                                                   (lambda (k$646)
                                                     (hide (lambda (r$647)
                                                             (hide (lambda (r$648)
                                                                     (run k$646
                                                                          r$647
                                                                          r$648))
                                                                   count$287
                                                                   input2$289))
                                                           count$287
                                                           input1$288))
                                                   (lambda (k$645 result$295)
                                                     (k$645 (equal?
                                                              result$295
                                                              output$290)))))
                                               (string-append
                                                 "maze"
                                                 ":"
                                                 s1$293
                                                 ":"
                                                 s2$292
                                                 ":"
                                                 s3$291)))
                                            (number->string input1$288)))
                                         (number->string input2$289)))
                                      (number->string count$287))))))))))))
 (define hide
   (lambda (k$620 r$283 x$282)
     (call-with-values
       k$620
       (lambda (k$625)
         (vector
           (lambda (r$626)
             ((lambda (k$628)
                (if (Cyc-fast-lt r$283 100) (k$628 0) (k$628 1)))
              (lambda (r$627) (values k$625 r$626 r$627))))
           values
           (lambda (k$631 x$286) (k$631 x$286))))
       (lambda (k$623 v$285 i$284)
         ((vector-ref v$285 i$284) k$623 x$282)))))
 (define run-r7rs-benchmark
   (lambda (k$568 name$264 count$263 thunk$262 ok?$261)
     ((lambda (rounded$266)
        ((lambda (rounded$266)
           ((lambda (r$569)
              (display
                (lambda (r$570)
                  (display
                    (lambda (r$571)
                      (newline
                        (lambda (r$572)
                          (current-output-port
                            (lambda (r$613)
                              (flush-output-port
                                (lambda (r$573)
                                  (jiffies-per-second
                                    (lambda (j/s$268)
                                      (current-second
                                        (lambda (t0$269)
                                          (current-jiffy
                                            (lambda (j0$270)
                                              ((lambda (loop$273)
                                                 ((lambda (loop$273)
                                                    ((lambda (r$577)
                                                       ((cell-get loop$273)
                                                        k$568
                                                        0
                                                        #f))
                                                     (set-cell!
                                                       loop$273
                                                       (lambda (k$579
                                                                i$275
                                                                result$274)
                                                         (if (Cyc-fast-lt
                                                               i$275
                                                               count$263)
                                                           (thunk$262
                                                             (lambda (r$582)
                                                               ((cell-get
                                                                  loop$273)
                                                                k$579
                                                                (Cyc-fast-plus
                                                                  i$275
                                                                  1)
                                                                r$582)))
                                                           (ok?$261
                                                             (lambda (r$583)
                                                               (if r$583
                                                                 (current-jiffy
                                                                   (lambda (j1$276)
                                                                     (current-second
                                                                       (lambda (t1$277)
                                                                         ((cell-get
                                                                            rounded$266)
                                                                          (lambda (secs2$280)
                                                                            (display
                                                                              (lambda (r$590)
                                                                                (write (lambda (r$591)
                                                                                         (display
                                                                                           (lambda (r$592)
                                                                                             (write (lambda (r$593)
                                                                                                      (display
                                                                                                        (lambda (r$594)
                                                                                                          (display
                                                                                                            (lambda (r$595)
                                                                                                              (newline
                                                                                                                (lambda (r$596)
                                                                                                                  (display
                                                                                                                    (lambda (r$597)
                                                                                                                      (this-scheme-implementation-name
                                                                                                                        (lambda (r$605)
                                                                                                                          (display
                                                                                                                            (lambda (r$598)
                                                                                                                              (display
                                                                                                                                (lambda (r$599)
                                                                                                                                  (display
                                                                                                                                    (lambda (r$600)
                                                                                                                                      (display
                                                                                                                                        (lambda (r$601)
                                                                                                                                          (display
                                                                                                                                            (lambda (r$602)
                                                                                                                                              (newline
                                                                                                                                                (lambda (r$603)
                                                                                                                                                  (current-output-port
                                                                                                                                                    (lambda (r$604)
                                                                                                                                                      (flush-output-port
                                                                                                                                                        (lambda (r$584)
                                                                                                                                                          (k$579 result$274))
                                                                                                                                                        r$604))))))
                                                                                                                                            (inexact__inline__
                                                                                                                                              (Cyc-fast-div
                                                                                                                                                (Cyc-fast-sub
                                                                                                                                                  j1$276
                                                                                                                                                  j0$270)
                                                                                                                                                j/s$268))))
                                                                                                                                        ","))
                                                                                                                                    name$264))
                                                                                                                                ","))
                                                                                                                            r$605))))
                                                                                                                    "+!CSVLINE!+"))))
                                                                                                            name$264))
                                                                                                        ") for "))
                                                                                                    secs2$280))
                                                                                           " seconds ("))
                                                                                       (inexact__inline__
                                                                                         (Cyc-fast-div
                                                                                           (Cyc-fast-sub
                                                                                             j1$276
                                                                                             j0$270)
                                                                                           j/s$268))))
                                                                              "Elapsed time: "))
                                                                          (Cyc-fast-sub
                                                                            t1$277
                                                                            t0$269))))))
                                                                 (display
                                                                   (lambda (r$608)
                                                                     (write (lambda (r$609)
                                                                              (newline
                                                                                (lambda (r$610)
                                                                                  (current-output-port
                                                                                    (lambda (r$612)
                                                                                      (flush-output-port
                                                                                        (lambda (r$611)
                                                                                          (k$579 result$274))
                                                                                        r$612))))))
                                                                            result$274))
                                                                   "ERROR: returned incorrect result: ")))
                                                             result$274))))))
                                                  (cell loop$273)))
                                               #f))))))))
                                r$613))))))
                    name$264))
                "Running "))
            (set-cell!
              rounded$266
              (lambda (k$615 x$281)
                (k$615 (Cyc-fast-div
                         (round__inline__ (Cyc-fast-mul 1000 x$281))
                         1000))))))
         (cell rounded$266)))
      #f)))
 (define this-scheme-implementation-name
   (lambda (k$564)
     (Cyc-version
       (lambda (r$565)
         (k$564 (string-append "cyclone-" r$565))))))
 (main %halt))
 */
/* 
"---------------- after closure-convert:"
 */
/* 
((define bitwise-not
   (lambda (k$1272 x$560)
     ((%closure
        (lambda (self$1652 r$1273)
          ((%closure-ref (%closure-ref self$1652 1) 0)
           (%closure-ref self$1652 1)
           (Cyc-fast-sub r$1273 1)))
        k$1272)
      (- x$560))))
 (define bitwise-and
   (lambda (k$1259 x$558 y$557)
     ((%closure
        (lambda (self$1642 r$1260)
          (if r$1260
            ((%closure-ref (%closure-ref self$1642 1) 0)
             (%closure-ref self$1642 1)
             0)
            ((%closure
               (lambda (self$1643 r$1261)
                 (if r$1261
                   ((%closure-ref (%closure-ref self$1643 1) 0)
                    (%closure-ref self$1643 1)
                    0)
                   ((%closure
                      (lambda (self$1644 r$1262)
                        (if r$1262
                          ((%closure-ref (%closure-ref self$1644 1) 0)
                           (%closure-ref self$1644 1)
                           (%closure-ref self$1644 3))
                          ((%closure
                             (lambda (self$1645 r$1263)
                               (if r$1263
                                 ((%closure-ref (%closure-ref self$1645 1) 0)
                                  (%closure-ref self$1645 1)
                                  (%closure-ref self$1645 2))
                                 ((%closure-ref div 0)
                                  div
                                  (%closure
                                    (lambda (self$1646 r$1268)
                                      ((%closure-ref div 0)
                                       div
                                       (%closure
                                         (lambda (self$1647 r$1269)
                                           ((%closure-ref bitwise-and 0)
                                            bitwise-and
                                            (%closure
                                              (lambda (self$1648 z$559)
                                                ((%closure
                                                   (lambda (self$1650 k$1266)
                                                     ((%closure-ref odd? 0)
                                                      odd?
                                                      (%closure
                                                        (lambda (self$1651
                                                                 r$1267)
                                                          (if r$1267
                                                            ((%closure-ref
                                                               odd?
                                                               0)
                                                             odd?
                                                             (%closure-ref
                                                               self$1651
                                                               1)
                                                             (%closure-ref
                                                               self$1651
                                                               2))
                                                            ((%closure-ref
                                                               (%closure-ref
                                                                 self$1651
                                                                 1)
                                                               0)
                                                             (%closure-ref
                                                               self$1651
                                                               1)
                                                             #f)))
                                                        k$1266
                                                        (%closure-ref
                                                          self$1650
                                                          2))
                                                      (%closure-ref
                                                        self$1650
                                                        1)))
                                                   (%closure-ref self$1648 2)
                                                   (%closure-ref self$1648 3))
                                                 (%closure
                                                   (lambda (self$1649 r$1265)
                                                     (if r$1265
                                                       ((%closure-ref
                                                          (%closure-ref
                                                            self$1649
                                                            1)
                                                          0)
                                                        (%closure-ref
                                                          self$1649
                                                          1)
                                                        (+ (%closure-ref
                                                             self$1649
                                                             2)
                                                           (%closure-ref
                                                             self$1649
                                                             2)
                                                           1))
                                                       ((%closure-ref
                                                          (%closure-ref
                                                            self$1649
                                                            1)
                                                          0)
                                                        (%closure-ref
                                                          self$1649
                                                          1)
                                                        (Cyc-fast-plus
                                                          (%closure-ref
                                                            self$1649
                                                            2)
                                                          (%closure-ref
                                                            self$1649
                                                            2)))))
                                                   (%closure-ref self$1648 1)
                                                   z$559)))
                                              (%closure-ref self$1647 1)
                                              (%closure-ref self$1647 3)
                                              (%closure-ref self$1647 4))
                                            (%closure-ref self$1647 2)
                                            r$1269))
                                         (%closure-ref self$1646 1)
                                         r$1268
                                         (%closure-ref self$1646 2)
                                         (%closure-ref self$1646 3))
                                       (%closure-ref self$1646 3)
                                       2))
                                    (%closure-ref self$1645 1)
                                    (%closure-ref self$1645 2)
                                    (%closure-ref self$1645 3))
                                  (%closure-ref self$1645 2)
                                  2)))
                             (%closure-ref self$1644 1)
                             (%closure-ref self$1644 2)
                             (%closure-ref self$1644 3))
                           (Cyc-fast-eq (%closure-ref self$1644 3) -1))))
                      (%closure-ref self$1643 1)
                      (%closure-ref self$1643 2)
                      (%closure-ref self$1643 3))
                    (Cyc-fast-eq (%closure-ref self$1643 2) -1))))
               (%closure-ref self$1642 1)
               (%closure-ref self$1642 2)
               (%closure-ref self$1642 3))
             (Cyc-fast-eq (%closure-ref self$1642 3) 0))))
        k$1259
        x$558
        y$557)
      (Cyc-fast-eq x$558 0))))
 (define div
   (lambda (k$1243 x$552 y$551)
     ((%closure
        (lambda (self$1641 k$1254)
          (if (exact-integer?__inline__
                (%closure-ref self$1641 1))
            (if (exact-integer?__inline__
                  (%closure-ref self$1641 2))
              ((%closure-ref k$1254 0)
               k$1254
               (Cyc-fast-gte (%closure-ref self$1641 1) 0))
              ((%closure-ref k$1254 0) k$1254 #f))
            ((%closure-ref k$1254 0) k$1254 #f)))
        x$552
        y$551)
      (%closure
        (lambda (self$1640 r$1244)
          (if r$1244
            ((%closure-ref (%closure-ref self$1640 1) 0)
             (%closure-ref self$1640 1)
             (quotient__inline__
               (%closure-ref self$1640 2)
               (%closure-ref self$1640 3)))
            (if (Cyc-fast-lt (%closure-ref self$1640 3) 0)
              (if (Cyc-fast-eq
                    (Cyc-fast-sub
                      (%closure-ref self$1640 2)
                      (Cyc-fast-mul
                        (quotient__inline__
                          (%closure-ref self$1640 2)
                          (%closure-ref self$1640 3))
                        (%closure-ref self$1640 3)))
                    0)
                ((%closure-ref (%closure-ref self$1640 1) 0)
                 (%closure-ref self$1640 1)
                 (quotient__inline__
                   (%closure-ref self$1640 2)
                   (%closure-ref self$1640 3)))
                ((%closure-ref (%closure-ref self$1640 1) 0)
                 (%closure-ref self$1640 1)
                 (Cyc-fast-plus
                   (quotient__inline__
                     (%closure-ref self$1640 2)
                     (%closure-ref self$1640 3))
                   1)))
              (if (Cyc-fast-eq
                    (Cyc-fast-sub
                      (%closure-ref self$1640 2)
                      (Cyc-fast-mul
                        (quotient__inline__
                          (%closure-ref self$1640 2)
                          (%closure-ref self$1640 3))
                        (%closure-ref self$1640 3)))
                    0)
                ((%closure-ref (%closure-ref self$1640 1) 0)
                 (%closure-ref self$1640 1)
                 (quotient__inline__
                   (%closure-ref self$1640 2)
                   (%closure-ref self$1640 3)))
                ((%closure-ref (%closure-ref self$1640 1) 0)
                 (%closure-ref self$1640 1)
                 (Cyc-fast-sub
                   (quotient__inline__
                     (%closure-ref self$1640 2)
                     (%closure-ref self$1640 3))
                   1))))))
        k$1243
        x$552
        y$551))))
 (define mod
   (lambda (k$1227 x$546 y$545)
     ((%closure
        (lambda (self$1639 k$1238)
          (if (exact-integer?__inline__
                (%closure-ref self$1639 1))
            (if (exact-integer?__inline__
                  (%closure-ref self$1639 2))
              ((%closure-ref k$1238 0)
               k$1238
               (Cyc-fast-gte (%closure-ref self$1639 1) 0))
              ((%closure-ref k$1238 0) k$1238 #f))
            ((%closure-ref k$1238 0) k$1238 #f)))
        x$546
        y$545)
      (%closure
        (lambda (self$1638 r$1228)
          (if r$1228
            ((%closure-ref remainder 0)
             remainder
             (%closure-ref self$1638 1)
             (%closure-ref self$1638 2)
             (%closure-ref self$1638 3))
            (if (Cyc-fast-lt (%closure-ref self$1638 3) 0)
              (if (Cyc-fast-eq
                    (Cyc-fast-sub
                      (%closure-ref self$1638 2)
                      (Cyc-fast-mul
                        (quotient__inline__
                          (%closure-ref self$1638 2)
                          (%closure-ref self$1638 3))
                        (%closure-ref self$1638 3)))
                    0)
                ((%closure-ref (%closure-ref self$1638 1) 0)
                 (%closure-ref self$1638 1)
                 0)
                ((%closure-ref (%closure-ref self$1638 1) 0)
                 (%closure-ref self$1638 1)
                 (Cyc-fast-sub
                   (Cyc-fast-sub
                     (%closure-ref self$1638 2)
                     (Cyc-fast-mul
                       (quotient__inline__
                         (%closure-ref self$1638 2)
                         (%closure-ref self$1638 3))
                       (%closure-ref self$1638 3)))
                   (%closure-ref self$1638 3))))
              (if (Cyc-fast-eq
                    (Cyc-fast-sub
                      (%closure-ref self$1638 2)
                      (Cyc-fast-mul
                        (quotient__inline__
                          (%closure-ref self$1638 2)
                          (%closure-ref self$1638 3))
                        (%closure-ref self$1638 3)))
                    0)
                ((%closure-ref (%closure-ref self$1638 1) 0)
                 (%closure-ref self$1638 1)
                 0)
                ((%closure-ref (%closure-ref self$1638 1) 0)
                 (%closure-ref self$1638 1)
                 (Cyc-fast-plus
                   (Cyc-fast-sub
                     (%closure-ref self$1638 2)
                     (Cyc-fast-mul
                       (quotient__inline__
                         (%closure-ref self$1638 2)
                         (%closure-ref self$1638 3))
                       (%closure-ref self$1638 3)))
                   (%closure-ref self$1638 3)))))))
        k$1227
        x$546
        y$545))))
 (define random-state
   (lambda (k$1224 n$544)
     ((%closure-ref k$1224 0) k$1224 (cons n$544 #f))))
 (define rand
   (lambda (k$1211 state$534)
     ((%closure
        (lambda (self$1632 seed$539)
          ((%closure-ref div 0)
           div
           (%closure
             (lambda (self$1633 hi$540)
               ((%closure-ref mod 0)
                mod
                (%closure
                  (lambda (self$1634 lo$541)
                    ((%closure
                       (lambda (self$1637 k$1218)
                         (if (Cyc-fast-gt
                               (Cyc-fast-sub
                                 (Cyc-fast-mul 2813 (%closure-ref self$1637 2))
                                 (Cyc-fast-mul 2699 (%closure-ref self$1637 1)))
                               0)
                           ((%closure-ref k$1218 0)
                            k$1218
                            (Cyc-fast-sub
                              (Cyc-fast-mul 2813 (%closure-ref self$1637 2))
                              (Cyc-fast-mul 2699 (%closure-ref self$1637 1))))
                           ((%closure-ref k$1218 0)
                            k$1218
                            (Cyc-fast-plus
                              (Cyc-fast-sub
                                (Cyc-fast-mul 2813 (%closure-ref self$1637 2))
                                (Cyc-fast-mul 2699 (%closure-ref self$1637 1)))
                              8388607))))
                       (%closure-ref self$1634 1)
                       lo$541)
                     (%closure
                       (lambda (self$1635 val$543)
                         ((%closure
                            (lambda (self$1636 r$1217)
                              ((%closure-ref (%closure-ref self$1636 1) 0)
                               (%closure-ref self$1636 1)
                               (%closure-ref self$1636 2)))
                            (%closure-ref self$1635 1)
                            val$543)
                          (set-car! (%closure-ref self$1635 2) val$543)))
                       (%closure-ref self$1634 2)
                       (%closure-ref self$1634 3))))
                  hi$540
                  (%closure-ref self$1633 1)
                  (%closure-ref self$1633 3))
                (%closure-ref self$1633 2)
                2787))
             (%closure-ref self$1632 1)
             seed$539
             (%closure-ref self$1632 2))
           seed$539
           2787))
        k$1211
        state$534)
      (car state$534))))
 (define random-int
   (lambda (k$1207 n$533 state$532)
     ((%closure-ref rand 0)
      rand
      (%closure
        (lambda (self$1631 r$1208)
          ((%closure-ref mod 0)
           mod
           (%closure-ref self$1631 1)
           r$1208
           (%closure-ref self$1631 2)))
        k$1207
        n$533)
      state$532)))
 (define base-set
   (lambda (k$1203 nelts$531)
     ((%closure-ref k$1203 0)
      k$1203
      (cons nelts$531 '()))))
 (define get-set-root
   (lambda (k$1186 s$522)
     ((%closure
        (lambda (self$1615 r$523)
          ((%closure
             (lambda (self$1616 lp$524)
               ((%closure
                  (lambda (self$1617 lp$524)
                    ((%closure
                       (lambda (self$1630 r$1187)
                         ((%closure-ref
                            (cell-get (%closure-ref self$1630 2))
                            0)
                          (cell-get (%closure-ref self$1630 2))
                          (%closure-ref self$1630 1)
                          (%closure-ref self$1630 3)))
                       (%closure-ref self$1617 1)
                       lp$524
                       (%closure-ref self$1617 2))
                     (set-cell!
                       lp$524
                       (%closure
                         (lambda (self$1618 k$1189 r$525)
                           (if (pair? (cdr r$525))
                             ((%closure-ref
                                (cell-get (%closure-ref self$1618 1))
                                0)
                              (cell-get (%closure-ref self$1618 1))
                              k$1189
                              (cdr r$525))
                             ((%closure
                                (lambda (self$1620 k$1193)
                                  ((%closure
                                     (lambda (self$1621 r$1194)
                                       (if r$1194
                                         ((%closure-ref
                                            (%closure-ref self$1621 1)
                                            0)
                                          (%closure-ref self$1621 1)
                                          #f)
                                         ((%closure
                                            (lambda (self$1622 x$527)
                                              ((%closure
                                                 (lambda (self$1623 lp$528)
                                                   ((%closure
                                                      (lambda (self$1624 lp$528)
                                                        ((%closure
                                                           (lambda (self$1629
                                                                    r$1195)
                                                             ((%closure-ref
                                                                (cell-get
                                                                  (%closure-ref
                                                                    self$1629
                                                                    2))
                                                                0)
                                                              (cell-get
                                                                (%closure-ref
                                                                  self$1629
                                                                  2))
                                                              (%closure-ref
                                                                self$1629
                                                                1)
                                                              (%closure-ref
                                                                self$1629
                                                                3)))
                                                           (%closure-ref
                                                             self$1624
                                                             1)
                                                           lp$528
                                                           (%closure-ref
                                                             self$1624
                                                             3))
                                                         (set-cell!
                                                           lp$528
                                                           (%closure
                                                             (lambda (self$1625
                                                                      k$1197
                                                                      x$529)
                                                               ((%closure
                                                                  (lambda (self$1626
                                                                           next$530)
                                                                    ((%closure
                                                                       (lambda (self$1627
                                                                                r$1199)
                                                                         (if r$1199
                                                                           ((%closure-ref
                                                                              (%closure-ref
                                                                                self$1627
                                                                                1)
                                                                              0)
                                                                            (%closure-ref
                                                                              self$1627
                                                                              1)
                                                                            #f)
                                                                           ((%closure
                                                                              (lambda (self$1628
                                                                                       r$1200)
                                                                                ((%closure-ref
                                                                                   (cell-get
                                                                                     (%closure-ref
                                                                                       self$1628
                                                                                       2))
                                                                                   0)
                                                                                 (cell-get
                                                                                   (%closure-ref
                                                                                     self$1628
                                                                                     2))
                                                                                 (%closure-ref
                                                                                   self$1628
                                                                                   1)
                                                                                 (%closure-ref
                                                                                   self$1628
                                                                                   3)))
                                                                              (%closure-ref
                                                                                self$1627
                                                                                1)
                                                                              (%closure-ref
                                                                                self$1627
                                                                                2)
                                                                              (%closure-ref
                                                                                self$1627
                                                                                3))
                                                                            (set-cdr!
                                                                              (%closure-ref
                                                                                self$1627
                                                                                5)
                                                                              (%closure-ref
                                                                                self$1627
                                                                                4)))))
                                                                       (%closure-ref
                                                                         self$1626
                                                                         1)
                                                                       (%closure-ref
                                                                         self$1626
                                                                         2)
                                                                       next$530
                                                                       (%closure-ref
                                                                         self$1626
                                                                         3)
                                                                       (%closure-ref
                                                                         self$1626
                                                                         4))
                                                                     (eq? (%closure-ref
                                                                            self$1626
                                                                            3)
                                                                          next$530)))
                                                                  k$1197
                                                                  (%closure-ref
                                                                    self$1625
                                                                    1)
                                                                  (%closure-ref
                                                                    self$1625
                                                                    2)
                                                                  x$529)
                                                                (cdr x$529)))
                                                             lp$528
                                                             (%closure-ref
                                                               self$1624
                                                               2)))))
                                                      (%closure-ref self$1623 1)
                                                      (%closure-ref self$1623 2)
                                                      (%closure-ref
                                                        self$1623
                                                        3))
                                                    (cell lp$528)))
                                                 (%closure-ref self$1622 1)
                                                 (%closure-ref self$1622 2)
                                                 x$527)
                                               #f))
                                            (%closure-ref self$1621 1)
                                            (%closure-ref self$1621 2))
                                          (%closure-ref self$1621 3))))
                                     k$1193
                                     (%closure-ref self$1620 1)
                                     (%closure-ref self$1620 2))
                                   (eq? (%closure-ref self$1620 1)
                                        (%closure-ref self$1620 2))))
                                r$525
                                (%closure-ref self$1618 2))
                              (%closure
                                (lambda (self$1619 r$1192)
                                  ((%closure-ref (%closure-ref self$1619 1) 0)
                                   (%closure-ref self$1619 1)
                                   (%closure-ref self$1619 2)))
                                k$1189
                                r$525))))
                         lp$524
                         (%closure-ref self$1617 3)))))
                  (%closure-ref self$1616 1)
                  (%closure-ref self$1616 2)
                  (%closure-ref self$1616 3))
                (cell lp$524)))
             (%closure-ref self$1615 1)
             r$523
             (%closure-ref self$1615 2))
           #f))
        k$1186
        s$522)
      s$522)))
 (define set-equal?
   (lambda (k$1181 s1$521 s2$520)
     ((%closure-ref get-set-root 0)
      get-set-root
      (%closure
        (lambda (self$1613 r$1182)
          ((%closure-ref get-set-root 0)
           get-set-root
           (%closure
             (lambda (self$1614 r$1183)
               ((%closure-ref (%closure-ref self$1614 1) 0)
                (%closure-ref self$1614 1)
                (eq? (%closure-ref self$1614 2) r$1183)))
             (%closure-ref self$1613 1)
             r$1182)
           (%closure-ref self$1613 2)))
        k$1181
        s2$520)
      s1$521)))
 (define set-size
   (lambda (k$1177 s$519)
     ((%closure-ref get-set-root 0)
      get-set-root
      (%closure
        (lambda (self$1612 r$1178)
          ((%closure-ref (%closure-ref self$1612 1) 0)
           (%closure-ref self$1612 1)
           (car r$1178)))
        k$1177)
      s$519)))
 (define union!
   (lambda (k$1166 s1$513 s2$512)
     ((%closure-ref get-set-root 0)
      get-set-root
      (%closure
        (lambda (self$1606 r1$514)
          ((%closure-ref get-set-root 0)
           get-set-root
           (%closure
             (lambda (self$1607 r2$515)
               ((%closure-ref set-size 0)
                set-size
                (%closure
                  (lambda (self$1608 n1$516)
                    ((%closure-ref set-size 0)
                     set-size
                     (%closure
                       (lambda (self$1609 n2$517)
                         (if (Cyc-fast-gt (%closure-ref self$1609 2) n2$517)
                           ((%closure
                              (lambda (self$1611 r$1173)
                                ((%closure-ref (%closure-ref self$1611 1) 0)
                                 (%closure-ref self$1611 1)
                                 (set-car!
                                   (%closure-ref self$1611 4)
                                   (Cyc-fast-plus
                                     (%closure-ref self$1611 2)
                                     (%closure-ref self$1611 3)))))
                              (%closure-ref self$1609 1)
                              (%closure-ref self$1609 2)
                              n2$517
                              (%closure-ref self$1609 3))
                            (set-cdr!
                              (%closure-ref self$1609 4)
                              (%closure-ref self$1609 3)))
                           ((%closure
                              (lambda (self$1610 r$1174)
                                ((%closure-ref (%closure-ref self$1610 1) 0)
                                 (%closure-ref self$1610 1)
                                 (set-car!
                                   (%closure-ref self$1610 4)
                                   (Cyc-fast-plus
                                     (%closure-ref self$1610 2)
                                     (%closure-ref self$1610 3)))))
                              (%closure-ref self$1609 1)
                              (%closure-ref self$1609 2)
                              n2$517
                              (%closure-ref self$1609 4))
                            (set-cdr!
                              (%closure-ref self$1609 3)
                              (%closure-ref self$1609 4)))))
                       (%closure-ref self$1608 1)
                       n1$516
                       (%closure-ref self$1608 2)
                       (%closure-ref self$1608 3))
                     (%closure-ref self$1608 3)))
                  (%closure-ref self$1607 1)
                  (%closure-ref self$1607 2)
                  r2$515)
                (%closure-ref self$1607 2)))
             (%closure-ref self$1606 1)
             r1$514)
           (%closure-ref self$1606 2)))
        k$1166
        s2$512)
      s1$513)))
 (define make-wall
   (lambda (k$1162 owner$511 neighbor$510 bit$509)
     ((%closure-ref vector 0)
      vector
      k$1162
      'wall
      owner$511
      neighbor$510
      bit$509)))
 (define wall:owner
   (lambda (k$1159 o$508)
     ((%closure-ref k$1159 0)
      k$1159
      (vector-ref o$508 1))))
 (define wall:neighbor
   (lambda (k$1156 o$507)
     ((%closure-ref k$1156 0)
      k$1156
      (vector-ref o$507 2))))
 (define wall:bit
   (lambda (k$1153 o$506)
     ((%closure-ref k$1153 0)
      k$1153
      (vector-ref o$506 3))))
 (define make-cell
   (lambda (k$1149 reachable$505 id$504)
     ((%closure-ref vector 0)
      vector
      k$1149
      'cell
      reachable$505
      id$504
      -1
      #f
      #f)))
 (define cell:reachable
   (lambda (k$1146 o$503)
     ((%closure-ref k$1146 0)
      k$1146
      (vector-ref o$503 1))))
 (define cell:id
   (lambda (k$1143 o$502)
     ((%closure-ref k$1143 0)
      k$1143
      (vector-ref o$502 2))))
 (define cell:walls
   (lambda (k$1140 o$501)
     ((%closure-ref k$1140 0)
      k$1140
      (vector-ref o$501 3))))
 (define set-cell:walls
   (lambda (k$1137 o$500 v$499)
     ((%closure-ref k$1137 0)
      k$1137
      (vector-set! o$500 3 v$499))))
 (define cell:parent
   (lambda (k$1134 o$498)
     ((%closure-ref k$1134 0)
      k$1134
      (vector-ref o$498 4))))
 (define set-cell:parent
   (lambda (k$1131 o$497 v$496)
     ((%closure-ref k$1131 0)
      k$1131
      (vector-set! o$497 4 v$496))))
 (define cell:mark
   (lambda (k$1128 o$495)
     ((%closure-ref k$1128 0)
      k$1128
      (vector-ref o$495 5))))
 (define set-cell:mark
   (lambda (k$1125 o$494 v$493)
     ((%closure-ref k$1125 0)
      k$1125
      (vector-set! o$494 5 v$493))))
 (define vector-for-each-rev
   (lambda (k$1113 proc$489 v$488)
     ((%closure
        (lambda (self$1601 lp$491)
          ((%closure
             (lambda (self$1602 lp$491)
               ((%closure
                  (lambda (self$1605 r$1115)
                    ((%closure-ref
                       (cell-get (%closure-ref self$1605 2))
                       0)
                     (cell-get (%closure-ref self$1605 2))
                     (%closure-ref self$1605 1)
                     (Cyc-fast-sub
                       (vector-length (%closure-ref self$1605 3))
                       1)))
                  (%closure-ref self$1602 1)
                  lp$491
                  (%closure-ref self$1602 3))
                (set-cell!
                  lp$491
                  (%closure
                    (lambda (self$1603 k$1117 i$492)
                      (if (Cyc-fast-gte i$492 0)
                        ((%closure-ref (%closure-ref self$1603 2) 0)
                         (%closure-ref self$1603 2)
                         (%closure
                           (lambda (self$1604 r$1119)
                             ((%closure-ref
                                (cell-get (%closure-ref self$1604 3))
                                0)
                              (cell-get (%closure-ref self$1604 3))
                              (%closure-ref self$1604 2)
                              (Cyc-fast-sub (%closure-ref self$1604 1) 1)))
                           i$492
                           k$1117
                           (%closure-ref self$1603 1))
                         (vector-ref (%closure-ref self$1603 3) i$492))
                        ((%closure-ref k$1117 0) k$1117 #f)))
                    lp$491
                    (%closure-ref self$1602 2)
                    (%closure-ref self$1602 3)))))
             (%closure-ref self$1601 1)
             (%closure-ref self$1601 2)
             (%closure-ref self$1601 3))
           (cell lp$491)))
        k$1113
        proc$489
        v$488)
      #f)))
 (define permute-vec!
   (lambda (k$1097 v$482 random-state$481)
     ((%closure
        (lambda (self$1588 r$1110)
          ((%closure
             (lambda (self$1589 lp$484)
               ((%closure
                  (lambda (self$1590 lp$484)
                    ((%closure
                       (lambda (self$1599 r$1100)
                         ((%closure-ref
                            (cell-get (%closure-ref self$1599 2))
                            0)
                          (cell-get (%closure-ref self$1599 2))
                          (%closure
                            (lambda (self$1600 r$1098)
                              ((%closure-ref (%closure-ref self$1600 1) 0)
                               (%closure-ref self$1600 1)
                               (%closure-ref self$1600 2)))
                            (%closure-ref self$1599 1)
                            (%closure-ref self$1599 4))
                          (Cyc-fast-sub (%closure-ref self$1599 3) 1)))
                       (%closure-ref self$1590 1)
                       lp$484
                       (%closure-ref self$1590 2)
                       (%closure-ref self$1590 4))
                     (set-cell!
                       lp$484
                       (%closure
                         (lambda (self$1591 k$1102 i$485)
                           ((%closure
                              (lambda (self$1592 r$1103)
                                (if r$1103
                                  ((%closure
                                     (lambda (self$1593 r$1106)
                                       ((%closure-ref random-int 0)
                                        random-int
                                        (%closure
                                          (lambda (self$1594 r$1107)
                                            ((%closure
                                               (lambda (self$1595
                                                        elt-i$487
                                                        j$486)
                                                 ((%closure
                                                    (lambda (self$1596 r$1109)
                                                      ((%closure
                                                         (lambda (self$1597
                                                                  r$1108)
                                                           ((%closure
                                                              (lambda (self$1598
                                                                       r$1104)
                                                                ((%closure-ref
                                                                   (cell-get
                                                                     (%closure-ref
                                                                       self$1598
                                                                       3))
                                                                   0)
                                                                 (cell-get
                                                                   (%closure-ref
                                                                     self$1598
                                                                     3))
                                                                 (%closure-ref
                                                                   self$1598
                                                                   2)
                                                                 (Cyc-fast-sub
                                                                   (%closure-ref
                                                                     self$1598
                                                                     1)
                                                                   1)))
                                                              (%closure-ref
                                                                self$1597
                                                                2)
                                                              (%closure-ref
                                                                self$1597
                                                                4)
                                                              (%closure-ref
                                                                self$1597
                                                                5))
                                                            (vector-set!
                                                              (%closure-ref
                                                                self$1597
                                                                6)
                                                              (%closure-ref
                                                                self$1597
                                                                3)
                                                              (%closure-ref
                                                                self$1597
                                                                1))))
                                                         (%closure-ref
                                                           self$1596
                                                           1)
                                                         (%closure-ref
                                                           self$1596
                                                           2)
                                                         (%closure-ref
                                                           self$1596
                                                           3)
                                                         (%closure-ref
                                                           self$1596
                                                           4)
                                                         (%closure-ref
                                                           self$1596
                                                           5)
                                                         (%closure-ref
                                                           self$1596
                                                           6))
                                                       (vector-set!
                                                         (%closure-ref
                                                           self$1596
                                                           6)
                                                         (%closure-ref
                                                           self$1596
                                                           2)
                                                         r$1109)))
                                                    elt-i$487
                                                    (%closure-ref self$1595 1)
                                                    j$486
                                                    (%closure-ref self$1595 2)
                                                    (%closure-ref self$1595 3)
                                                    (%closure-ref self$1595 4))
                                                  (vector-ref
                                                    (%closure-ref self$1595 4)
                                                    j$486)))
                                               (%closure-ref self$1594 1)
                                               (%closure-ref self$1594 2)
                                               (%closure-ref self$1594 3)
                                               (%closure-ref self$1594 5))
                                             (%closure-ref self$1594 4)
                                             r$1107))
                                          (%closure-ref self$1593 1)
                                          (%closure-ref self$1593 2)
                                          (%closure-ref self$1593 3)
                                          r$1106
                                          (%closure-ref self$1593 5))
                                        (%closure-ref self$1593 1)
                                        (%closure-ref self$1593 4)))
                                     (%closure-ref self$1592 1)
                                     (%closure-ref self$1592 2)
                                     (%closure-ref self$1592 3)
                                     (%closure-ref self$1592 4)
                                     (%closure-ref self$1592 5))
                                   (vector-ref
                                     (%closure-ref self$1592 5)
                                     (%closure-ref self$1592 1)))
                                  ((%closure-ref (%closure-ref self$1592 2) 0)
                                   (%closure-ref self$1592 2)
                                   #f)))
                              i$485
                              k$1102
                              (%closure-ref self$1591 1)
                              (%closure-ref self$1591 2)
                              (%closure-ref self$1591 3))
                            (Cyc-fast-gt i$485 1)))
                         lp$484
                         (%closure-ref self$1590 3)
                         (%closure-ref self$1590 4)))))
                  (%closure-ref self$1589 1)
                  (%closure-ref self$1589 2)
                  (%closure-ref self$1589 3)
                  (%closure-ref self$1589 4))
                (cell lp$484)))
             (%closure-ref self$1588 1)
             r$1110
             (%closure-ref self$1588 2)
             (%closure-ref self$1588 3))
           #f))
        k$1097
        random-state$481
        v$482)
      (vector-length v$482))))
 (define dig-maze
   (lambda (k$1077 walls$472 ncells$471)
     ((%closure-ref call-with-current-continuation 0)
      call-with-current-continuation
      k$1077
      (%closure
        (lambda (self$1579 k$1079 quit$473)
          ((%closure-ref vector-for-each-rev 0)
           vector-for-each-rev
           k$1079
           (%closure
             (lambda (self$1580 k$1081 wall$474)
               ((%closure-ref set-equal? 0)
                set-equal?
                (%closure
                  (lambda (self$1581 r$1086)
                    (if r$1086
                      ((%closure-ref (%closure-ref self$1581 1) 0)
                       (%closure-ref self$1581 1)
                       #f)
                      ((%closure-ref bitwise-not 0)
                       bitwise-not
                       (%closure
                         (lambda (self$1582 r$1088)
                           ((%closure
                              (lambda (self$1583 walls$480 wall-mask$479)
                                ((%closure-ref union! 0)
                                 union!
                                 (%closure
                                   (lambda (self$1584 r$1089)
                                     ((%closure-ref bitwise-and 0)
                                      bitwise-and
                                      (%closure
                                        (lambda (self$1585 r$1093)
                                          ((%closure
                                             (lambda (self$1586 r$1090)
                                               ((%closure-ref set-size 0)
                                                set-size
                                                (%closure
                                                  (lambda (self$1587 r$1092)
                                                    (if (Cyc-fast-eq
                                                          r$1092
                                                          (%closure-ref
                                                            self$1587
                                                            2))
                                                      ((%closure-ref
                                                         (%closure-ref
                                                           self$1587
                                                           3)
                                                         0)
                                                       (%closure-ref
                                                         self$1587
                                                         3)
                                                       (%closure-ref
                                                         self$1587
                                                         1)
                                                       #f)
                                                      ((%closure-ref
                                                         (%closure-ref
                                                           self$1587
                                                           1)
                                                         0)
                                                       (%closure-ref
                                                         self$1587
                                                         1)
                                                       #f)))
                                                  (%closure-ref self$1586 1)
                                                  (%closure-ref self$1586 2)
                                                  (%closure-ref self$1586 3))
                                                (vector-ref
                                                  (vector-ref
                                                    (%closure-ref self$1586 4)
                                                    1)
                                                  1)))
                                             (%closure-ref self$1585 1)
                                             (%closure-ref self$1585 2)
                                             (%closure-ref self$1585 3)
                                             (%closure-ref self$1585 4))
                                           (vector-set!
                                             (vector-ref
                                               (%closure-ref self$1585 4)
                                               1)
                                             3
                                             r$1093)))
                                        (%closure-ref self$1584 1)
                                        (%closure-ref self$1584 2)
                                        (%closure-ref self$1584 3)
                                        (%closure-ref self$1584 4))
                                      (%closure-ref self$1584 6)
                                      (%closure-ref self$1584 5)))
                                   (%closure-ref self$1583 1)
                                   (%closure-ref self$1583 2)
                                   (%closure-ref self$1583 3)
                                   (%closure-ref self$1583 4)
                                   wall-mask$479
                                   walls$480)
                                 (vector-ref
                                   (vector-ref (%closure-ref self$1583 4) 1)
                                   1)
                                 (vector-ref
                                   (vector-ref (%closure-ref self$1583 4) 2)
                                   1)))
                              (%closure-ref self$1582 1)
                              (%closure-ref self$1582 2)
                              (%closure-ref self$1582 3)
                              (%closure-ref self$1582 4))
                            (vector-ref
                              (vector-ref (%closure-ref self$1582 4) 1)
                              3)
                            r$1088))
                         (%closure-ref self$1581 1)
                         (%closure-ref self$1581 2)
                         (%closure-ref self$1581 3)
                         (%closure-ref self$1581 4))
                       (vector-ref (%closure-ref self$1581 4) 3))))
                  k$1081
                  (%closure-ref self$1580 1)
                  (%closure-ref self$1580 2)
                  wall$474)
                (vector-ref (vector-ref wall$474 1) 1)
                (vector-ref (vector-ref wall$474 2) 1)))
             (%closure-ref self$1579 1)
             quit$473)
           (%closure-ref self$1579 2)))
        ncells$471
        walls$472))))
 (define dfs-maze
   (lambda (k$1067 maze$464 root$463 do-children$462)
     ((%closure
        (lambda (self$1571 node$466)
          ((%closure
             (lambda (self$1572 search$467)
               ((%closure
                  (lambda (self$1573 search$467)
                    ((%closure
                       (lambda (self$1578 r$1068)
                         ((%closure-ref
                            (cell-get (%closure-ref self$1578 3))
                            0)
                          (cell-get (%closure-ref self$1578 3))
                          (%closure-ref self$1578 1)
                          (%closure-ref self$1578 2)
                          #f))
                       (%closure-ref self$1573 2)
                       (%closure-ref self$1573 4)
                       search$467)
                     (set-cell!
                       search$467
                       (%closure
                         (lambda (self$1574 k$1070 node$469 parent$468)
                           ((%closure
                              (lambda (self$1575 r$1071)
                                ((%closure-ref (%closure-ref self$1575 1) 0)
                                 (%closure-ref self$1575 1)
                                 (%closure-ref self$1575 2)
                                 (%closure
                                   (lambda (self$1576 k$1073 child$470)
                                     ((%closure
                                        (lambda (self$1577 r$1074)
                                          (if r$1074
                                            ((%closure-ref
                                               (%closure-ref self$1577 2)
                                               0)
                                             (%closure-ref self$1577 2)
                                             #f)
                                            ((%closure-ref
                                               (cell-get
                                                 (%closure-ref self$1577 4))
                                               0)
                                             (cell-get
                                               (%closure-ref self$1577 4))
                                             (%closure-ref self$1577 2)
                                             (%closure-ref self$1577 1)
                                             (%closure-ref self$1577 3))))
                                        child$470
                                        k$1073
                                        (%closure-ref self$1576 1)
                                        (%closure-ref self$1576 3))
                                      (eq? child$470
                                           (%closure-ref self$1576 2))))
                                   (%closure-ref self$1575 4)
                                   (%closure-ref self$1575 5)
                                   (%closure-ref self$1575 6))
                                 (%closure-ref self$1575 3)
                                 (%closure-ref self$1575 4)))
                              (%closure-ref self$1574 1)
                              k$1070
                              (%closure-ref self$1574 2)
                              node$469
                              parent$468
                              (%closure-ref self$1574 3))
                            (vector-set! node$469 4 parent$468)))
                         (%closure-ref self$1573 1)
                         (%closure-ref self$1573 3)
                         search$467))))
                  (%closure-ref self$1572 1)
                  (%closure-ref self$1572 2)
                  (%closure-ref self$1572 3)
                  (%closure-ref self$1572 4))
                (cell search$467)))
             (%closure-ref self$1571 1)
             (%closure-ref self$1571 2)
             (%closure-ref self$1571 3)
             node$466)
           #f))
        do-children$462
        k$1067
        maze$464)
      root$463)))
 (define reroot-maze
   (lambda (k$1059 new-root$455)
     ((%closure
        (lambda (self$1564 node$457)
          ((%closure
             (lambda (self$1565 lp$458)
               ((%closure
                  (lambda (self$1566 lp$458)
                    ((%closure
                       (lambda (self$1570 r$1060)
                         ((%closure-ref
                            (cell-get (%closure-ref self$1570 2))
                            0)
                          (cell-get (%closure-ref self$1570 2))
                          (%closure-ref self$1570 1)
                          (%closure-ref self$1570 3)
                          #f))
                       (%closure-ref self$1566 1)
                       lp$458
                       (%closure-ref self$1566 2))
                     (set-cell!
                       lp$458
                       (%closure
                         (lambda (self$1567 k$1062 node$460 new-parent$459)
                           ((%closure
                              (lambda (self$1568 old-parent$461)
                                ((%closure
                                   (lambda (self$1569 r$1064)
                                     (if (%closure-ref self$1569 4)
                                       ((%closure-ref
                                          (cell-get (%closure-ref self$1569 2))
                                          0)
                                        (cell-get (%closure-ref self$1569 2))
                                        (%closure-ref self$1569 1)
                                        (%closure-ref self$1569 4)
                                        (%closure-ref self$1569 3))
                                       ((%closure-ref
                                          (%closure-ref self$1569 1)
                                          0)
                                        (%closure-ref self$1569 1)
                                        #f)))
                                   (%closure-ref self$1568 1)
                                   (%closure-ref self$1568 2)
                                   (%closure-ref self$1568 4)
                                   old-parent$461)
                                 (vector-set!
                                   (%closure-ref self$1568 4)
                                   4
                                   (%closure-ref self$1568 3))))
                              k$1062
                              (%closure-ref self$1567 1)
                              new-parent$459
                              node$460)
                            (vector-ref node$460 4)))
                         lp$458))))
                  (%closure-ref self$1565 1)
                  (%closure-ref self$1565 2))
                (cell lp$458)))
             (%closure-ref self$1564 1)
             node$457)
           #f))
        k$1059)
      new-root$455)))
 (define path-length
   (lambda (k$1050 cell$449)
     ((%closure
        (lambda (self$1560 lp$105$452)
          ((%closure
             (lambda (self$1561 lp$105$452)
               ((%closure
                  (lambda (self$1563 r$1052)
                    ((%closure-ref
                       (cell-get (%closure-ref self$1563 3))
                       0)
                     (cell-get (%closure-ref self$1563 3))
                     (%closure-ref self$1563 2)
                     0
                     (vector-ref (%closure-ref self$1563 1) 4)))
                  (%closure-ref self$1561 1)
                  (%closure-ref self$1561 2)
                  lp$105$452)
                (set-cell!
                  lp$105$452
                  (%closure
                    (lambda (self$1562 k$1054 len$454 node$453)
                      (if node$453
                        ((%closure-ref
                           (cell-get (%closure-ref self$1562 1))
                           0)
                         (cell-get (%closure-ref self$1562 1))
                         k$1054
                         (Cyc-fast-plus len$454 1)
                         (vector-ref node$453 4))
                        ((%closure-ref k$1054 0) k$1054 len$454)))
                    lp$105$452))))
             (%closure-ref self$1560 1)
             (%closure-ref self$1560 2))
           (cell lp$105$452)))
        cell$449
        k$1050)
      #f)))
 (define mark-path
   (lambda (k$1042 node$444)
     ((%closure
        (lambda (self$1553 node$445)
          ((%closure
             (lambda (self$1554 lp$446)
               ((%closure
                  (lambda (self$1555 lp$446)
                    ((%closure
                       (lambda (self$1559 r$1043)
                         ((%closure-ref
                            (cell-get (%closure-ref self$1559 2))
                            0)
                          (cell-get (%closure-ref self$1559 2))
                          (%closure-ref self$1559 1)
                          (%closure-ref self$1559 3)))
                       (%closure-ref self$1555 1)
                       lp$446
                       (%closure-ref self$1555 2))
                     (set-cell!
                       lp$446
                       (%closure
                         (lambda (self$1556 k$1045 node$447)
                           ((%closure
                              (lambda (self$1557 r$1046)
                                ((%closure
                                   (lambda (self$1558 tmp$111$448)
                                     (if tmp$111$448
                                       ((%closure-ref
                                          (cell-get (%closure-ref self$1558 2))
                                          0)
                                        (cell-get (%closure-ref self$1558 2))
                                        (%closure-ref self$1558 1)
                                        tmp$111$448)
                                       ((%closure-ref
                                          (%closure-ref self$1558 1)
                                          0)
                                        (%closure-ref self$1558 1)
                                        #f)))
                                   (%closure-ref self$1557 1)
                                   (%closure-ref self$1557 2))
                                 (vector-ref (%closure-ref self$1557 3) 4)))
                              k$1045
                              (%closure-ref self$1556 1)
                              node$447)
                            (vector-set! node$447 5 #t)))
                         lp$446))))
                  (%closure-ref self$1554 1)
                  (%closure-ref self$1554 2))
                (cell lp$446)))
             (%closure-ref self$1553 1)
             node$445)
           #f))
        k$1042)
      node$444)))
 (define make-harr
   (lambda (k$1038 nrows$443 ncols$442 elts$441)
     ((%closure-ref vector 0)
      vector
      k$1038
      'harr
      nrows$443
      ncols$442
      elts$441)))
 (define harr:nrows
   (lambda (k$1035 o$440)
     ((%closure-ref k$1035 0)
      k$1035
      (vector-ref o$440 1))))
 (define harr:ncols
   (lambda (k$1032 o$439)
     ((%closure-ref k$1032 0)
      k$1032
      (vector-ref o$439 2))))
 (define harr:elts
   (lambda (k$1029 o$438)
     ((%closure-ref k$1029 0)
      k$1029
      (vector-ref o$438 3))))
 (define href
   (lambda (k$1020 ha$435 x$434 y$433)
     ((%closure-ref div 0)
      div
      (%closure
        (lambda (self$1550 r$1021)
          ((%closure-ref div 0)
           div
           (%closure
             (lambda (self$1551 r$1022)
               ((%closure
                  (lambda (self$1552 r$437 c$436)
                    ((%closure-ref (%closure-ref self$1552 2) 0)
                     (%closure-ref self$1552 2)
                     (vector-ref
                       (vector-ref (%closure-ref self$1552 1) 3)
                       (Cyc-fast-plus
                         (Cyc-fast-mul
                           (vector-ref (%closure-ref self$1552 1) 2)
                           r$437)
                         c$436))))
                  (%closure-ref self$1551 1)
                  (%closure-ref self$1551 2))
                (%closure-ref self$1551 3)
                r$1022))
             (%closure-ref self$1550 1)
             (%closure-ref self$1550 2)
             r$1021)
           (%closure-ref self$1550 3)
           3))
        ha$435
        k$1020
        x$434)
      y$433
      2)))
 (define href/rc
   (lambda (k$1013 ha$432 r$431 c$430)
     ((%closure-ref k$1013 0)
      k$1013
      (vector-ref
        (vector-ref ha$432 3)
        (Cyc-fast-plus
          (Cyc-fast-mul (vector-ref ha$432 2) r$431)
          c$430)))))
 (define harr-tabulate
   (lambda (k$987 nrows$418 ncols$417 proc$416)
     ((%closure
        (lambda (self$1535 v$419)
          ((%closure
             (lambda (self$1536 lp$113$421)
               ((%closure
                  (lambda (self$1537 lp$113$421)
                    ((%closure
                       (lambda (self$1548 r$991)
                         ((%closure-ref
                            (cell-get (%closure-ref self$1548 2))
                            0)
                          (cell-get (%closure-ref self$1548 2))
                          (%closure
                            (lambda (self$1549 r$989)
                              ((%closure-ref vector 0)
                               vector
                               (%closure-ref self$1549 1)
                               'harr
                               (%closure-ref self$1549 3)
                               (%closure-ref self$1549 2)
                               (%closure-ref self$1549 4)))
                            (%closure-ref self$1548 1)
                            (%closure-ref self$1548 3)
                            (%closure-ref self$1548 4)
                            (%closure-ref self$1548 5))
                          (Cyc-fast-sub (%closure-ref self$1548 4) 1)))
                       (%closure-ref self$1537 1)
                       lp$113$421
                       (%closure-ref self$1537 2)
                       (%closure-ref self$1537 3)
                       (%closure-ref self$1537 5))
                     (set-cell!
                       lp$113$421
                       (%closure
                         (lambda (self$1538 k$993 r$422)
                           (if (Cyc-fast-lt r$422 0)
                             ((%closure-ref k$993 0)
                              k$993
                              (Cyc-fast-lt r$422 0))
                             ((%closure
                                (lambda (self$1539 i$424)
                                  ((%closure
                                     (lambda (self$1540 lp$117$426)
                                       ((%closure
                                          (lambda (self$1541 lp$117$426)
                                            ((%closure
                                               (lambda (self$1546 r$998)
                                                 ((%closure-ref
                                                    (cell-get
                                                      (%closure-ref
                                                        self$1546
                                                        4))
                                                    0)
                                                  (cell-get
                                                    (%closure-ref self$1546 4))
                                                  (%closure
                                                    (lambda (self$1547 r$995)
                                                      ((%closure-ref
                                                         (cell-get
                                                           (%closure-ref
                                                             self$1547
                                                             2))
                                                         0)
                                                       (cell-get
                                                         (%closure-ref
                                                           self$1547
                                                           2))
                                                       (%closure-ref
                                                         self$1547
                                                         1)
                                                       (Cyc-fast-sub
                                                         (%closure-ref
                                                           self$1547
                                                           3)
                                                         1)))
                                                    (%closure-ref self$1546 2)
                                                    (%closure-ref self$1546 3)
                                                    (%closure-ref self$1546 5))
                                                  0
                                                  (%closure-ref self$1546 1)))
                                               (%closure-ref self$1541 1)
                                               (%closure-ref self$1541 2)
                                               (%closure-ref self$1541 3)
                                               lp$117$426
                                               (%closure-ref self$1541 6))
                                             (set-cell!
                                               lp$117$426
                                               (%closure
                                                 (lambda (self$1542
                                                          k$1000
                                                          c$428
                                                          i$427)
                                                   (if (Cyc-fast-eq
                                                         c$428
                                                         (%closure-ref
                                                           self$1542
                                                           2))
                                                     ((%closure-ref k$1000 0)
                                                      k$1000
                                                      (Cyc-fast-eq
                                                        c$428
                                                        (%closure-ref
                                                          self$1542
                                                          2)))
                                                     ((%closure-ref
                                                        bitwise-and
                                                        0)
                                                      bitwise-and
                                                      (%closure
                                                        (lambda (self$1543
                                                                 r$1009)
                                                          ((%closure-ref
                                                             (%closure-ref
                                                               self$1543
                                                               5)
                                                             0)
                                                           (%closure-ref
                                                             self$1543
                                                             5)
                                                           (%closure
                                                             (lambda (self$1544
                                                                      r$1005)
                                                               ((%closure
                                                                  (lambda (self$1545
                                                                           r$1002)
                                                                    ((%closure-ref
                                                                       (cell-get
                                                                         (%closure-ref
                                                                           self$1545
                                                                           4))
                                                                       0)
                                                                     (cell-get
                                                                       (%closure-ref
                                                                         self$1545
                                                                         4))
                                                                     (%closure-ref
                                                                       self$1545
                                                                       3)
                                                                     (Cyc-fast-plus
                                                                       (%closure-ref
                                                                         self$1545
                                                                         1)
                                                                       1)
                                                                     (Cyc-fast-plus
                                                                       (%closure-ref
                                                                         self$1545
                                                                         2)
                                                                       1)))
                                                                  (%closure-ref
                                                                    self$1544
                                                                    1)
                                                                  (%closure-ref
                                                                    self$1544
                                                                    2)
                                                                  (%closure-ref
                                                                    self$1544
                                                                    3)
                                                                  (%closure-ref
                                                                    self$1544
                                                                    4))
                                                                (vector-set!
                                                                  (%closure-ref
                                                                    self$1544
                                                                    5)
                                                                  (%closure-ref
                                                                    self$1544
                                                                    2)
                                                                  r$1005)))
                                                             (%closure-ref
                                                               self$1543
                                                               1)
                                                             (%closure-ref
                                                               self$1543
                                                               2)
                                                             (%closure-ref
                                                               self$1543
                                                               3)
                                                             (%closure-ref
                                                               self$1543
                                                               4)
                                                             (%closure-ref
                                                               self$1543
                                                               7))
                                                           (Cyc-fast-mul
                                                             3
                                                             (%closure-ref
                                                               self$1543
                                                               1))
                                                           (Cyc-fast-plus
                                                             (Cyc-fast-mul
                                                               2
                                                               (%closure-ref
                                                                 self$1543
                                                                 6))
                                                             r$1009)))
                                                        c$428
                                                        i$427
                                                        k$1000
                                                        (%closure-ref
                                                          self$1542
                                                          1)
                                                        (%closure-ref
                                                          self$1542
                                                          3)
                                                        (%closure-ref
                                                          self$1542
                                                          4)
                                                        (%closure-ref
                                                          self$1542
                                                          5))
                                                      c$428
                                                      1)))
                                                 lp$117$426
                                                 (%closure-ref self$1541 4)
                                                 (%closure-ref self$1541 5)
                                                 (%closure-ref self$1541 6)
                                                 (%closure-ref self$1541 7)))))
                                          (%closure-ref self$1540 1)
                                          (%closure-ref self$1540 2)
                                          (%closure-ref self$1540 3)
                                          (%closure-ref self$1540 4)
                                          (%closure-ref self$1540 5)
                                          (%closure-ref self$1540 6)
                                          (%closure-ref self$1540 7))
                                        (cell lp$117$426)))
                                     i$424
                                     (%closure-ref self$1539 1)
                                     (%closure-ref self$1539 2)
                                     (%closure-ref self$1539 3)
                                     (%closure-ref self$1539 4)
                                     (%closure-ref self$1539 5)
                                     (%closure-ref self$1539 6))
                                   #f))
                                k$993
                                (%closure-ref self$1538 1)
                                (%closure-ref self$1538 2)
                                (%closure-ref self$1538 3)
                                r$422
                                (%closure-ref self$1538 4))
                              (Cyc-fast-mul r$422 (%closure-ref self$1538 2)))))
                         lp$113$421
                         (%closure-ref self$1537 2)
                         (%closure-ref self$1537 4)
                         (%closure-ref self$1537 5)))))
                  (%closure-ref self$1536 1)
                  (%closure-ref self$1536 2)
                  (%closure-ref self$1536 3)
                  (%closure-ref self$1536 4)
                  (%closure-ref self$1536 5))
                (cell lp$113$421)))
             (%closure-ref self$1535 1)
             (%closure-ref self$1535 2)
             (%closure-ref self$1535 3)
             (%closure-ref self$1535 4)
             v$419)
           #f))
        k$987
        ncols$417
        nrows$418
        proc$416)
      (make-vector (Cyc-fast-mul nrows$418 ncols$417)))))
 (define south-west (%closure-ref 1 0) 1)
 (define south (%closure-ref 2 0) 2)
 (define south-east (%closure-ref 4 0) 4)
 (define gen-maze-array
   (lambda (k$974 r$413 c$412)
     ((%closure-ref harr-tabulate 0)
      harr-tabulate
      k$974
      r$413
      c$412
      (%closure
        (lambda (self$1534 k$976 x$415 y$414)
          ((%closure-ref vector 0)
           vector
           k$976
           'cell
           (cons 1 '())
           (cons x$415 y$414)
           -1
           #f
           #f))))))
 (define make-wall-vec
   (lambda (k$899 harr$388)
     ((%closure
        (lambda (self$1489 walls$392)
          ((%closure
             (lambda (self$1490 walls$392)
               ((%closure
                  (lambda (self$1494 add-wall$396)
                    ((%closure
                       (lambda (self$1495 lp$132$404)
                         ((%closure
                            (lambda (self$1496 lp$132$404)
                              ((%closure
                                 (lambda (self$1513 r$936)
                                   ((%closure-ref
                                      (cell-get (%closure-ref self$1513 4))
                                      0)
                                    (cell-get (%closure-ref self$1513 4))
                                    (%closure
                                      (lambda (self$1514 r$905)
                                        ((%closure
                                           (lambda (self$1516 k$907)
                                             (if (Cyc-fast-gt
                                                   (vector-ref
                                                     (%closure-ref self$1516 2)
                                                     2)
                                                   1)
                                               ((%closure-ref div 0)
                                                div
                                                (%closure
                                                  (lambda (self$1517 r$933)
                                                    ((%closure-ref href 0)
                                                     href
                                                     (%closure
                                                       (lambda (self$1518
                                                                rmoc-hex$402)
                                                         ((%closure
                                                            (lambda (self$1532
                                                                     k$929)
                                                              (if (Cyc-fast-lt
                                                                    (Cyc-fast-plus
                                                                      3
                                                                      (Cyc-fast-mul
                                                                        6
                                                                        (%closure-ref
                                                                          self$1532
                                                                          3)))
                                                                    (Cyc-fast-mul
                                                                      3
                                                                      (Cyc-fast-sub
                                                                        (vector-ref
                                                                          (%closure-ref
                                                                            self$1532
                                                                            2)
                                                                          2)
                                                                        1)))
                                                                ((%closure-ref
                                                                   href
                                                                   0)
                                                                 href
                                                                 (%closure
                                                                   (lambda (self$1533
                                                                            r$931)
                                                                     ((%closure-ref
                                                                        (%closure-ref
                                                                          self$1533
                                                                          1)
                                                                        0)
                                                                      (%closure-ref
                                                                        self$1533
                                                                        1)
                                                                      (%closure-ref
                                                                        self$1533
                                                                        2)
                                                                      (%closure-ref
                                                                        self$1533
                                                                        3)
                                                                      r$931
                                                                      south-east))
                                                                   (%closure-ref
                                                                     self$1532
                                                                     1)
                                                                   k$929
                                                                   (%closure-ref
                                                                     self$1532
                                                                     4))
                                                                 (%closure-ref
                                                                   self$1532
                                                                   2)
                                                                 (Cyc-fast-mul
                                                                   3
                                                                   (Cyc-fast-sub
                                                                     (vector-ref
                                                                       (%closure-ref
                                                                         self$1532
                                                                         2)
                                                                       2)
                                                                     1))
                                                                 0)
                                                                ((%closure-ref
                                                                   k$929
                                                                   0)
                                                                 k$929
                                                                 #f)))
                                                            (%closure-ref
                                                              self$1518
                                                              1)
                                                            (%closure-ref
                                                              self$1518
                                                              2)
                                                            (%closure-ref
                                                              self$1518
                                                              4)
                                                            rmoc-hex$402)
                                                          (%closure
                                                            (lambda (self$1519
                                                                     r$926)
                                                              ((%closure-ref
                                                                 href
                                                                 0)
                                                               href
                                                               (%closure
                                                                 (lambda (self$1520
                                                                          r$927)
                                                                   ((%closure-ref
                                                                      (%closure-ref
                                                                        self$1520
                                                                        1)
                                                                      0)
                                                                    (%closure-ref
                                                                      self$1520
                                                                      1)
                                                                    (%closure
                                                                      (lambda (self$1521
                                                                               r$910)
                                                                        ((%closure
                                                                           (lambda (self$1522
                                                                                    lp$140$399)
                                                                             ((%closure
                                                                                (lambda (self$1523
                                                                                         lp$140$399)
                                                                                  ((%closure
                                                                                     (lambda (self$1531
                                                                                              r$912)
                                                                                       ((%closure-ref
                                                                                          (cell-get
                                                                                            (%closure-ref
                                                                                              self$1531
                                                                                              2))
                                                                                          0)
                                                                                        (cell-get
                                                                                          (%closure-ref
                                                                                            self$1531
                                                                                            2))
                                                                                        (%closure-ref
                                                                                          self$1531
                                                                                          1)
                                                                                        (Cyc-fast-sub
                                                                                          (Cyc-fast-plus
                                                                                            3
                                                                                            (Cyc-fast-mul
                                                                                              6
                                                                                              (%closure-ref
                                                                                                self$1531
                                                                                                3)))
                                                                                          6)))
                                                                                     (%closure-ref
                                                                                       self$1523
                                                                                       3)
                                                                                     lp$140$399
                                                                                     (%closure-ref
                                                                                       self$1523
                                                                                       4))
                                                                                   (set-cell!
                                                                                     lp$140$399
                                                                                     (%closure
                                                                                       (lambda (self$1524
                                                                                                k$914
                                                                                                x$400)
                                                                                         (if (Cyc-fast-lt
                                                                                               x$400
                                                                                               3)
                                                                                           ((%closure-ref
                                                                                              k$914
                                                                                              0)
                                                                                            k$914
                                                                                            (Cyc-fast-lt
                                                                                              x$400
                                                                                              3))
                                                                                           ((%closure-ref
                                                                                              href
                                                                                              0)
                                                                                            href
                                                                                            (%closure
                                                                                              (lambda (self$1525
                                                                                                       r$922)
                                                                                                ((%closure-ref
                                                                                                   href
                                                                                                   0)
                                                                                                 href
                                                                                                 (%closure
                                                                                                   (lambda (self$1526
                                                                                                            r$923)
                                                                                                     ((%closure-ref
                                                                                                        (%closure-ref
                                                                                                          self$1526
                                                                                                          1)
                                                                                                        0)
                                                                                                      (%closure-ref
                                                                                                        self$1526
                                                                                                        1)
                                                                                                      (%closure
                                                                                                        (lambda (self$1527
                                                                                                                 r$916)
                                                                                                          ((%closure-ref
                                                                                                             href
                                                                                                             0)
                                                                                                           href
                                                                                                           (%closure
                                                                                                             (lambda (self$1528
                                                                                                                      r$919)
                                                                                                               ((%closure-ref
                                                                                                                  href
                                                                                                                  0)
                                                                                                                href
                                                                                                                (%closure
                                                                                                                  (lambda (self$1529
                                                                                                                           r$920)
                                                                                                                    ((%closure-ref
                                                                                                                       (%closure-ref
                                                                                                                         self$1529
                                                                                                                         1)
                                                                                                                       0)
                                                                                                                     (%closure-ref
                                                                                                                       self$1529
                                                                                                                       1)
                                                                                                                     (%closure
                                                                                                                       (lambda (self$1530
                                                                                                                                r$917)
                                                                                                                         ((%closure-ref
                                                                                                                            (cell-get
                                                                                                                              (%closure-ref
                                                                                                                                self$1530
                                                                                                                                2))
                                                                                                                            0)
                                                                                                                          (cell-get
                                                                                                                            (%closure-ref
                                                                                                                              self$1530
                                                                                                                              2))
                                                                                                                          (%closure-ref
                                                                                                                            self$1530
                                                                                                                            1)
                                                                                                                          (Cyc-fast-sub
                                                                                                                            (%closure-ref
                                                                                                                              self$1530
                                                                                                                              3)
                                                                                                                            6)))
                                                                                                                       (%closure-ref
                                                                                                                         self$1529
                                                                                                                         2)
                                                                                                                       (%closure-ref
                                                                                                                         self$1529
                                                                                                                         3)
                                                                                                                       (%closure-ref
                                                                                                                         self$1529
                                                                                                                         5))
                                                                                                                     (%closure-ref
                                                                                                                       self$1529
                                                                                                                       4)
                                                                                                                     r$920
                                                                                                                     south-east))
                                                                                                                  (%closure-ref
                                                                                                                    self$1528
                                                                                                                    1)
                                                                                                                  (%closure-ref
                                                                                                                    self$1528
                                                                                                                    3)
                                                                                                                  (%closure-ref
                                                                                                                    self$1528
                                                                                                                    4)
                                                                                                                  r$919
                                                                                                                  (%closure-ref
                                                                                                                    self$1528
                                                                                                                    5))
                                                                                                                (%closure-ref
                                                                                                                  self$1528
                                                                                                                  2)
                                                                                                                (Cyc-fast-plus
                                                                                                                  (%closure-ref
                                                                                                                    self$1528
                                                                                                                    5)
                                                                                                                  3)
                                                                                                                0))
                                                                                                             (%closure-ref
                                                                                                               self$1527
                                                                                                               1)
                                                                                                             (%closure-ref
                                                                                                               self$1527
                                                                                                               2)
                                                                                                             (%closure-ref
                                                                                                               self$1527
                                                                                                               3)
                                                                                                             (%closure-ref
                                                                                                               self$1527
                                                                                                               4)
                                                                                                             (%closure-ref
                                                                                                               self$1527
                                                                                                               5))
                                                                                                           (%closure-ref
                                                                                                             self$1527
                                                                                                             2)
                                                                                                           (%closure-ref
                                                                                                             self$1527
                                                                                                             5)
                                                                                                           1))
                                                                                                        (%closure-ref
                                                                                                          self$1526
                                                                                                          1)
                                                                                                        (%closure-ref
                                                                                                          self$1526
                                                                                                          2)
                                                                                                        (%closure-ref
                                                                                                          self$1526
                                                                                                          3)
                                                                                                        (%closure-ref
                                                                                                          self$1526
                                                                                                          4)
                                                                                                        (%closure-ref
                                                                                                          self$1526
                                                                                                          6))
                                                                                                      (%closure-ref
                                                                                                        self$1526
                                                                                                        5)
                                                                                                      r$923
                                                                                                      south-west))
                                                                                                   (%closure-ref
                                                                                                     self$1525
                                                                                                     1)
                                                                                                   (%closure-ref
                                                                                                     self$1525
                                                                                                     2)
                                                                                                   (%closure-ref
                                                                                                     self$1525
                                                                                                     3)
                                                                                                   (%closure-ref
                                                                                                     self$1525
                                                                                                     4)
                                                                                                   r$922
                                                                                                   (%closure-ref
                                                                                                     self$1525
                                                                                                     5))
                                                                                                 (%closure-ref
                                                                                                   self$1525
                                                                                                   2)
                                                                                                 (Cyc-fast-sub
                                                                                                   (%closure-ref
                                                                                                     self$1525
                                                                                                     5)
                                                                                                   3)
                                                                                                 0))
                                                                                              (%closure-ref
                                                                                                self$1524
                                                                                                1)
                                                                                              (%closure-ref
                                                                                                self$1524
                                                                                                2)
                                                                                              k$914
                                                                                              (%closure-ref
                                                                                                self$1524
                                                                                                3)
                                                                                              x$400)
                                                                                            (%closure-ref
                                                                                              self$1524
                                                                                              2)
                                                                                            x$400
                                                                                            1)))
                                                                                       (%closure-ref
                                                                                         self$1523
                                                                                         1)
                                                                                       (%closure-ref
                                                                                         self$1523
                                                                                         2)
                                                                                       lp$140$399))))
                                                                                (%closure-ref
                                                                                  self$1522
                                                                                  1)
                                                                                (%closure-ref
                                                                                  self$1522
                                                                                  2)
                                                                                (%closure-ref
                                                                                  self$1522
                                                                                  3)
                                                                                (%closure-ref
                                                                                  self$1522
                                                                                  4))
                                                                              (cell lp$140$399)))
                                                                           (%closure-ref
                                                                             self$1521
                                                                             1)
                                                                           (%closure-ref
                                                                             self$1521
                                                                             2)
                                                                           (%closure-ref
                                                                             self$1521
                                                                             3)
                                                                           (%closure-ref
                                                                             self$1521
                                                                             4))
                                                                         #f))
                                                                      (%closure-ref
                                                                        self$1520
                                                                        1)
                                                                      (%closure-ref
                                                                        self$1520
                                                                        2)
                                                                      (%closure-ref
                                                                        self$1520
                                                                        3)
                                                                      (%closure-ref
                                                                        self$1520
                                                                        4))
                                                                    (%closure-ref
                                                                      self$1520
                                                                      5)
                                                                    r$927
                                                                    south-west))
                                                                 (%closure-ref
                                                                   self$1519
                                                                   1)
                                                                 (%closure-ref
                                                                   self$1519
                                                                   2)
                                                                 (%closure-ref
                                                                   self$1519
                                                                   3)
                                                                 (%closure-ref
                                                                   self$1519
                                                                   4)
                                                                 (%closure-ref
                                                                   self$1519
                                                                   5))
                                                               (%closure-ref
                                                                 self$1519
                                                                 2)
                                                               (Cyc-fast-sub
                                                                 (Cyc-fast-plus
                                                                   3
                                                                   (Cyc-fast-mul
                                                                     6
                                                                     (%closure-ref
                                                                       self$1519
                                                                       4)))
                                                                 3)
                                                               0))
                                                            (%closure-ref
                                                              self$1518
                                                              1)
                                                            (%closure-ref
                                                              self$1518
                                                              2)
                                                            (%closure-ref
                                                              self$1518
                                                              3)
                                                            (%closure-ref
                                                              self$1518
                                                              4)
                                                            rmoc-hex$402)))
                                                       (%closure-ref
                                                         self$1517
                                                         1)
                                                       (%closure-ref
                                                         self$1517
                                                         2)
                                                       (%closure-ref
                                                         self$1517
                                                         3)
                                                       r$933)
                                                     (%closure-ref self$1517 2)
                                                     (Cyc-fast-plus
                                                       3
                                                       (Cyc-fast-mul 6 r$933))
                                                     1))
                                                  (%closure-ref self$1516 1)
                                                  (%closure-ref self$1516 2)
                                                  k$907)
                                                (Cyc-fast-sub
                                                  (vector-ref
                                                    (%closure-ref self$1516 2)
                                                    2)
                                                  2)
                                                2)
                                               ((%closure-ref k$907 0)
                                                k$907
                                                #f)))
                                           (%closure-ref self$1514 1)
                                           (%closure-ref self$1514 2))
                                         (%closure
                                           (lambda (self$1515 r$906)
                                             ((%closure-ref
                                                (%closure-ref self$1515 1)
                                                0)
                                              (%closure-ref self$1515 1)
                                              (list->vector
                                                (cell-get
                                                  (%closure-ref self$1515 2)))))
                                           (%closure-ref self$1514 3)
                                           (%closure-ref self$1514 4))))
                                      (%closure-ref self$1513 1)
                                      (%closure-ref self$1513 2)
                                      (%closure-ref self$1513 3)
                                      (%closure-ref self$1513 5))
                                    (Cyc-fast-mul
                                      (Cyc-fast-sub
                                        (vector-ref
                                          (%closure-ref self$1513 2)
                                          2)
                                        1)
                                      3)))
                                 (%closure-ref self$1496 1)
                                 (%closure-ref self$1496 2)
                                 (%closure-ref self$1496 3)
                                 lp$132$404
                                 (%closure-ref self$1496 4))
                               (set-cell!
                                 lp$132$404
                                 (%closure
                                   (lambda (self$1497 k$938 x$405)
                                     (if (Cyc-fast-lt x$405 0)
                                       ((%closure-ref k$938 0)
                                        k$938
                                        (Cyc-fast-lt x$405 0))
                                       ((%closure-ref bitwise-and 0)
                                        bitwise-and
                                        (%closure
                                          (lambda (self$1498 r$965)
                                            ((%closure
                                               (lambda (self$1499 lp$136$408)
                                                 ((%closure
                                                    (lambda (self$1500
                                                             lp$136$408)
                                                      ((%closure
                                                         (lambda (self$1511
                                                                  r$943)
                                                           ((%closure-ref
                                                              (cell-get
                                                                (%closure-ref
                                                                  self$1511
                                                                  4))
                                                              0)
                                                            (cell-get
                                                              (%closure-ref
                                                                self$1511
                                                                4))
                                                            (%closure
                                                              (lambda (self$1512
                                                                       r$940)
                                                                ((%closure-ref
                                                                   (cell-get
                                                                     (%closure-ref
                                                                       self$1512
                                                                       2))
                                                                   0)
                                                                 (cell-get
                                                                   (%closure-ref
                                                                     self$1512
                                                                     2))
                                                                 (%closure-ref
                                                                   self$1512
                                                                   1)
                                                                 (Cyc-fast-sub
                                                                   (%closure-ref
                                                                     self$1512
                                                                     3)
                                                                   3)))
                                                              (%closure-ref
                                                                self$1511
                                                                2)
                                                              (%closure-ref
                                                                self$1511
                                                                3)
                                                              (%closure-ref
                                                                self$1511
                                                                6))
                                                            (Cyc-fast-plus
                                                              (Cyc-fast-mul
                                                                (Cyc-fast-sub
                                                                  (vector-ref
                                                                    (%closure-ref
                                                                      self$1511
                                                                      1)
                                                                    1)
                                                                  1)
                                                                2)
                                                              (%closure-ref
                                                                self$1511
                                                                5))))
                                                         (%closure-ref
                                                           self$1500
                                                           2)
                                                         (%closure-ref
                                                           self$1500
                                                           3)
                                                         (%closure-ref
                                                           self$1500
                                                           4)
                                                         lp$136$408
                                                         (%closure-ref
                                                           self$1500
                                                           5)
                                                         (%closure-ref
                                                           self$1500
                                                           6))
                                                       (set-cell!
                                                         lp$136$408
                                                         (%closure
                                                           (lambda (self$1501
                                                                    k$945
                                                                    y$409)
                                                             (if (Cyc-fast-lte
                                                                   y$409
                                                                   1)
                                                               ((%closure-ref
                                                                  k$945
                                                                  0)
                                                                k$945
                                                                (Cyc-fast-lte
                                                                  y$409
                                                                  1))
                                                               ((%closure-ref
                                                                  href
                                                                  0)
                                                                href
                                                                (%closure
                                                                  (lambda (self$1502
                                                                           hex$411)
                                                                    ((%closure
                                                                       (lambda (self$1509
                                                                                k$959)
                                                                         (if (zero?__inline__
                                                                               (%closure-ref
                                                                                 self$1509
                                                                                 4))
                                                                           ((%closure-ref
                                                                              k$959
                                                                              0)
                                                                            k$959
                                                                            #f)
                                                                           ((%closure-ref
                                                                              href
                                                                              0)
                                                                            href
                                                                            (%closure
                                                                              (lambda (self$1510
                                                                                       r$961)
                                                                                ((%closure-ref
                                                                                   (%closure-ref
                                                                                     self$1510
                                                                                     1)
                                                                                   0)
                                                                                 (%closure-ref
                                                                                   self$1510
                                                                                   1)
                                                                                 (%closure-ref
                                                                                   self$1510
                                                                                   3)
                                                                                 (%closure-ref
                                                                                   self$1510
                                                                                   2)
                                                                                 r$961
                                                                                 south-west))
                                                                              (%closure-ref
                                                                                self$1509
                                                                                1)
                                                                              (%closure-ref
                                                                                self$1509
                                                                                3)
                                                                              k$959)
                                                                            (%closure-ref
                                                                              self$1509
                                                                              2)
                                                                            (Cyc-fast-sub
                                                                              (%closure-ref
                                                                                self$1509
                                                                                4)
                                                                              3)
                                                                            (Cyc-fast-sub
                                                                              (%closure-ref
                                                                                self$1509
                                                                                5)
                                                                              1))))
                                                                       (%closure-ref
                                                                         self$1502
                                                                         1)
                                                                       (%closure-ref
                                                                         self$1502
                                                                         2)
                                                                       hex$411
                                                                       (%closure-ref
                                                                         self$1502
                                                                         5)
                                                                       (%closure-ref
                                                                         self$1502
                                                                         6))
                                                                     (%closure
                                                                       (lambda (self$1503
                                                                                r$950)
                                                                         ((%closure-ref
                                                                            href
                                                                            0)
                                                                          href
                                                                          (%closure
                                                                            (lambda (self$1504
                                                                                     r$957)
                                                                              ((%closure-ref
                                                                                 (%closure-ref
                                                                                   self$1504
                                                                                   1)
                                                                                 0)
                                                                               (%closure-ref
                                                                                 self$1504
                                                                                 1)
                                                                               (%closure
                                                                                 (lambda (self$1505
                                                                                          r$951)
                                                                                   ((%closure
                                                                                      (lambda (self$1507
                                                                                               k$952)
                                                                                        (if (Cyc-fast-lt
                                                                                              (%closure-ref
                                                                                                self$1507
                                                                                                4)
                                                                                              (Cyc-fast-mul
                                                                                                3
                                                                                                (Cyc-fast-sub
                                                                                                  (vector-ref
                                                                                                    (%closure-ref
                                                                                                      self$1507
                                                                                                      2)
                                                                                                    2)
                                                                                                  1)))
                                                                                          ((%closure-ref
                                                                                             href
                                                                                             0)
                                                                                           href
                                                                                           (%closure
                                                                                             (lambda (self$1508
                                                                                                      r$954)
                                                                                               ((%closure-ref
                                                                                                  (%closure-ref
                                                                                                    self$1508
                                                                                                    1)
                                                                                                  0)
                                                                                                (%closure-ref
                                                                                                  self$1508
                                                                                                  1)
                                                                                                (%closure-ref
                                                                                                  self$1508
                                                                                                  3)
                                                                                                (%closure-ref
                                                                                                  self$1508
                                                                                                  2)
                                                                                                r$954
                                                                                                south-east))
                                                                                             (%closure-ref
                                                                                               self$1507
                                                                                               1)
                                                                                             (%closure-ref
                                                                                               self$1507
                                                                                               3)
                                                                                             k$952)
                                                                                           (%closure-ref
                                                                                             self$1507
                                                                                             2)
                                                                                           (Cyc-fast-plus
                                                                                             (%closure-ref
                                                                                               self$1507
                                                                                               4)
                                                                                             3)
                                                                                           (Cyc-fast-sub
                                                                                             (%closure-ref
                                                                                               self$1507
                                                                                               5)
                                                                                             1))
                                                                                          ((%closure-ref
                                                                                             k$952
                                                                                             0)
                                                                                           k$952
                                                                                           #f)))
                                                                                      (%closure-ref
                                                                                        self$1505
                                                                                        1)
                                                                                      (%closure-ref
                                                                                        self$1505
                                                                                        2)
                                                                                      (%closure-ref
                                                                                        self$1505
                                                                                        3)
                                                                                      (%closure-ref
                                                                                        self$1505
                                                                                        6)
                                                                                      (%closure-ref
                                                                                        self$1505
                                                                                        7))
                                                                                    (%closure
                                                                                      (lambda (self$1506
                                                                                               r$947)
                                                                                        ((%closure-ref
                                                                                           (cell-get
                                                                                             (%closure-ref
                                                                                               self$1506
                                                                                               2))
                                                                                           0)
                                                                                         (cell-get
                                                                                           (%closure-ref
                                                                                             self$1506
                                                                                             2))
                                                                                         (%closure-ref
                                                                                           self$1506
                                                                                           1)
                                                                                         (Cyc-fast-sub
                                                                                           (%closure-ref
                                                                                             self$1506
                                                                                             3)
                                                                                           2)))
                                                                                      (%closure-ref
                                                                                        self$1505
                                                                                        4)
                                                                                      (%closure-ref
                                                                                        self$1505
                                                                                        5)
                                                                                      (%closure-ref
                                                                                        self$1505
                                                                                        7))))
                                                                                 (%closure-ref
                                                                                   self$1504
                                                                                   1)
                                                                                 (%closure-ref
                                                                                   self$1504
                                                                                   2)
                                                                                 (%closure-ref
                                                                                   self$1504
                                                                                   3)
                                                                                 (%closure-ref
                                                                                   self$1504
                                                                                   4)
                                                                                 (%closure-ref
                                                                                   self$1504
                                                                                   5)
                                                                                 (%closure-ref
                                                                                   self$1504
                                                                                   6)
                                                                                 (%closure-ref
                                                                                   self$1504
                                                                                   7))
                                                                               (%closure-ref
                                                                                 self$1504
                                                                                 3)
                                                                               r$957
                                                                               south))
                                                                            (%closure-ref
                                                                              self$1503
                                                                              1)
                                                                            (%closure-ref
                                                                              self$1503
                                                                              2)
                                                                            (%closure-ref
                                                                              self$1503
                                                                              3)
                                                                            (%closure-ref
                                                                              self$1503
                                                                              4)
                                                                            (%closure-ref
                                                                              self$1503
                                                                              5)
                                                                            (%closure-ref
                                                                              self$1503
                                                                              6)
                                                                            (%closure-ref
                                                                              self$1503
                                                                              7))
                                                                          (%closure-ref
                                                                            self$1503
                                                                            2)
                                                                          (%closure-ref
                                                                            self$1503
                                                                            6)
                                                                          (Cyc-fast-sub
                                                                            (%closure-ref
                                                                              self$1503
                                                                              7)
                                                                            2)))
                                                                       (%closure-ref
                                                                         self$1502
                                                                         1)
                                                                       (%closure-ref
                                                                         self$1502
                                                                         2)
                                                                       hex$411
                                                                       (%closure-ref
                                                                         self$1502
                                                                         3)
                                                                       (%closure-ref
                                                                         self$1502
                                                                         4)
                                                                       (%closure-ref
                                                                         self$1502
                                                                         5)
                                                                       (%closure-ref
                                                                         self$1502
                                                                         6))))
                                                                  (%closure-ref
                                                                    self$1501
                                                                    1)
                                                                  (%closure-ref
                                                                    self$1501
                                                                    2)
                                                                  k$945
                                                                  (%closure-ref
                                                                    self$1501
                                                                    3)
                                                                  (%closure-ref
                                                                    self$1501
                                                                    4)
                                                                  y$409)
                                                                (%closure-ref
                                                                  self$1501
                                                                  2)
                                                                (%closure-ref
                                                                  self$1501
                                                                  4)
                                                                y$409)))
                                                           (%closure-ref
                                                             self$1500
                                                             1)
                                                           (%closure-ref
                                                             self$1500
                                                             2)
                                                           lp$136$408
                                                           (%closure-ref
                                                             self$1500
                                                             6)))))
                                                    (%closure-ref self$1499 1)
                                                    (%closure-ref self$1499 2)
                                                    (%closure-ref self$1499 3)
                                                    (%closure-ref self$1499 4)
                                                    (%closure-ref self$1499 5)
                                                    (%closure-ref self$1499 6))
                                                  (cell lp$136$408)))
                                               (%closure-ref self$1498 1)
                                               (%closure-ref self$1498 2)
                                               (%closure-ref self$1498 3)
                                               (%closure-ref self$1498 4)
                                               r$965
                                               (%closure-ref self$1498 5))
                                             #f))
                                          (%closure-ref self$1497 1)
                                          (%closure-ref self$1497 2)
                                          k$938
                                          (%closure-ref self$1497 3)
                                          x$405)
                                        x$405
                                        1)))
                                   (%closure-ref self$1496 1)
                                   (%closure-ref self$1496 2)
                                   lp$132$404))))
                            (%closure-ref self$1495 1)
                            (%closure-ref self$1495 2)
                            (%closure-ref self$1495 3)
                            (%closure-ref self$1495 4))
                          (cell lp$132$404)))
                       add-wall$396
                       (%closure-ref self$1494 1)
                       (%closure-ref self$1494 2)
                       (%closure-ref self$1494 3))
                     #f))
                  (%closure-ref self$1490 1)
                  (%closure-ref self$1490 2)
                  walls$392)
                (%closure
                  (lambda (self$1491 k$968 o$395 n$394 b$393)
                    ((%closure-ref vector 0)
                     vector
                     (%closure
                       (lambda (self$1492 r$970)
                         ((%closure
                            (lambda (self$1493 r$969)
                              ((%closure-ref (%closure-ref self$1493 1) 0)
                               (%closure-ref self$1493 1)
                               (set-cell! (%closure-ref self$1493 2) r$969)))
                            (%closure-ref self$1492 1)
                            (%closure-ref self$1492 2))
                          (cons r$970
                                (cell-get (%closure-ref self$1492 2)))))
                       k$968
                       (%closure-ref self$1491 1))
                     'wall
                     o$395
                     n$394
                     b$393))
                  walls$392)))
             (%closure-ref self$1489 1)
             (%closure-ref self$1489 2))
           (cell walls$392)))
        harr$388
        k$899)
      '())))
 (define pick-entrances
   (lambda (k$869 harr$361)
     ((%closure-ref href/rc 0)
      href/rc
      (%closure
        (lambda (self$1466 r$896)
          ((%closure-ref dfs-maze 0)
           dfs-maze
           (%closure
             (lambda (self$1467 r$870)
               ((%closure
                  (lambda (self$1468 r$871)
                    ((%closure
                       (lambda (self$1469 r$872)
                         ((%closure
                            (lambda (self$1470 nrows$363 ncols$362)
                              ((%closure
                                 (lambda (self$1471 tp-lp$368)
                                   ((%closure
                                      (lambda (self$1472 tp-lp$368)
                                        ((%closure
                                           (lambda (self$1488 r$874)
                                             ((%closure-ref
                                                (cell-get
                                                  (%closure-ref self$1488 3))
                                                0)
                                              (cell-get
                                                (%closure-ref self$1488 3))
                                              (%closure-ref self$1488 1)
                                              -1
                                              #f
                                              #f
                                              (Cyc-fast-sub
                                                (%closure-ref self$1488 2)
                                                1)))
                                           (%closure-ref self$1472 2)
                                           (%closure-ref self$1472 3)
                                           tp-lp$368)
                                         (set-cell!
                                           tp-lp$368
                                           (%closure
                                             (lambda (self$1473
                                                      k$876
                                                      max-len$372
                                                      entrance$371
                                                      exit$370
                                                      tcol$369)
                                               ((%closure
                                                  (lambda (self$1474 r$877)
                                                    (if r$877
                                                      ((%closure-ref vector 0)
                                                       vector
                                                       (%closure-ref
                                                         self$1474
                                                         4)
                                                       (%closure-ref
                                                         self$1474
                                                         1)
                                                       (%closure-ref
                                                         self$1474
                                                         2))
                                                      ((%closure-ref href/rc 0)
                                                       href/rc
                                                       (%closure
                                                         (lambda (self$1475
                                                                  top-cell$373)
                                                           ((%closure-ref
                                                              reroot-maze
                                                              0)
                                                            reroot-maze
                                                            (%closure
                                                              (lambda (self$1476
                                                                       r$879)
                                                                ((%closure
                                                                   (lambda (self$1477
                                                                            max-len$377
                                                                            entrance$376
                                                                            exit$375
                                                                            bcol$374)
                                                                     ((%closure
                                                                        (lambda (self$1478
                                                                                 bt-lp$378)
                                                                          ((%closure
                                                                             (lambda (self$1479
                                                                                      bt-lp$378)
                                                                               ((%closure
                                                                                  (lambda (self$1486
                                                                                           r$886)
                                                                                    ((%closure-ref
                                                                                       (cell-get
                                                                                         (%closure-ref
                                                                                           self$1486
                                                                                           2))
                                                                                       0)
                                                                                     (cell-get
                                                                                       (%closure-ref
                                                                                         self$1486
                                                                                         2))
                                                                                     (%closure
                                                                                       (lambda (self$1487
                                                                                                result$384)
                                                                                         ((%closure-ref
                                                                                            (cell-get
                                                                                              (%closure-ref
                                                                                                self$1487
                                                                                                3))
                                                                                            0)
                                                                                          (cell-get
                                                                                            (%closure-ref
                                                                                              self$1487
                                                                                              3))
                                                                                          (%closure-ref
                                                                                            self$1487
                                                                                            1)
                                                                                          (vector-ref
                                                                                            result$384
                                                                                            0)
                                                                                          (vector-ref
                                                                                            result$384
                                                                                            1)
                                                                                          (vector-ref
                                                                                            result$384
                                                                                            2)
                                                                                          (Cyc-fast-sub
                                                                                            (%closure-ref
                                                                                              self$1487
                                                                                              2)
                                                                                            1)))
                                                                                       (%closure-ref
                                                                                         self$1486
                                                                                         5)
                                                                                       (%closure-ref
                                                                                         self$1486
                                                                                         7)
                                                                                       (%closure-ref
                                                                                         self$1486
                                                                                         8))
                                                                                     (%closure-ref
                                                                                       self$1486
                                                                                       6)
                                                                                     (%closure-ref
                                                                                       self$1486
                                                                                       3)
                                                                                     (%closure-ref
                                                                                       self$1486
                                                                                       4)
                                                                                     (%closure-ref
                                                                                       self$1486
                                                                                       1)))
                                                                                  (%closure-ref
                                                                                    self$1479
                                                                                    1)
                                                                                  bt-lp$378
                                                                                  (%closure-ref
                                                                                    self$1479
                                                                                    2)
                                                                                  (%closure-ref
                                                                                    self$1479
                                                                                    3)
                                                                                  (%closure-ref
                                                                                    self$1479
                                                                                    5)
                                                                                  (%closure-ref
                                                                                    self$1479
                                                                                    6)
                                                                                  (%closure-ref
                                                                                    self$1479
                                                                                    7)
                                                                                  (%closure-ref
                                                                                    self$1479
                                                                                    8))
                                                                                (set-cell!
                                                                                  bt-lp$378
                                                                                  (%closure
                                                                                    (lambda (self$1480
                                                                                             k$888
                                                                                             max-len$382
                                                                                             entrance$381
                                                                                             exit$380
                                                                                             bcol$379)
                                                                                      ((%closure
                                                                                         (lambda (self$1481
                                                                                                  r$889)
                                                                                           (if r$889
                                                                                             ((%closure-ref
                                                                                                vector
                                                                                                0)
                                                                                              vector
                                                                                              (%closure-ref
                                                                                                self$1481
                                                                                                6)
                                                                                              (%closure-ref
                                                                                                self$1481
                                                                                                7)
                                                                                              (%closure-ref
                                                                                                self$1481
                                                                                                3)
                                                                                              (%closure-ref
                                                                                                self$1481
                                                                                                4))
                                                                                             ((%closure-ref
                                                                                                href/rc
                                                                                                0)
                                                                                              href/rc
                                                                                              (%closure
                                                                                                (lambda (self$1482
                                                                                                         r$894)
                                                                                                  ((%closure-ref
                                                                                                     path-length
                                                                                                     0)
                                                                                                   path-length
                                                                                                   (%closure
                                                                                                     (lambda (self$1483
                                                                                                              this-len$383)
                                                                                                       ((%closure
                                                                                                          (lambda (self$1484
                                                                                                                   r$891)
                                                                                                            (if r$891
                                                                                                              ((%closure
                                                                                                                 (lambda (self$1485
                                                                                                                          r$892)
                                                                                                                   ((%closure-ref
                                                                                                                      (cell-get
                                                                                                                        (%closure-ref
                                                                                                                          self$1485
                                                                                                                          2))
                                                                                                                      0)
                                                                                                                    (cell-get
                                                                                                                      (%closure-ref
                                                                                                                        self$1485
                                                                                                                        2))
                                                                                                                    (%closure-ref
                                                                                                                      self$1485
                                                                                                                      3)
                                                                                                                    (%closure-ref
                                                                                                                      self$1485
                                                                                                                      5)
                                                                                                                    (%closure-ref
                                                                                                                      self$1485
                                                                                                                      4)
                                                                                                                    (%closure-ref
                                                                                                                      self$1485
                                                                                                                      1)
                                                                                                                    r$892))
                                                                                                                 (%closure-ref
                                                                                                                   self$1484
                                                                                                                   1)
                                                                                                                 (%closure-ref
                                                                                                                   self$1484
                                                                                                                   2)
                                                                                                                 (%closure-ref
                                                                                                                   self$1484
                                                                                                                   5)
                                                                                                                 (%closure-ref
                                                                                                                   self$1484
                                                                                                                   7)
                                                                                                                 (%closure-ref
                                                                                                                   self$1484
                                                                                                                   8))
                                                                                                               (Cyc-fast-sub
                                                                                                                 (%closure-ref
                                                                                                                   self$1484
                                                                                                                   1)
                                                                                                                 1))
                                                                                                              ((%closure-ref
                                                                                                                 (cell-get
                                                                                                                   (%closure-ref
                                                                                                                     self$1484
                                                                                                                     2))
                                                                                                                 0)
                                                                                                               (cell-get
                                                                                                                 (%closure-ref
                                                                                                                   self$1484
                                                                                                                   2))
                                                                                                               (%closure-ref
                                                                                                                 self$1484
                                                                                                                 5)
                                                                                                               (%closure-ref
                                                                                                                 self$1484
                                                                                                                 6)
                                                                                                               (%closure-ref
                                                                                                                 self$1484
                                                                                                                 3)
                                                                                                               (%closure-ref
                                                                                                                 self$1484
                                                                                                                 4)
                                                                                                               (Cyc-fast-sub
                                                                                                                 (%closure-ref
                                                                                                                   self$1484
                                                                                                                   1)
                                                                                                                 1))))
                                                                                                          (%closure-ref
                                                                                                            self$1483
                                                                                                            1)
                                                                                                          (%closure-ref
                                                                                                            self$1483
                                                                                                            2)
                                                                                                          (%closure-ref
                                                                                                            self$1483
                                                                                                            3)
                                                                                                          (%closure-ref
                                                                                                            self$1483
                                                                                                            4)
                                                                                                          (%closure-ref
                                                                                                            self$1483
                                                                                                            5)
                                                                                                          (%closure-ref
                                                                                                            self$1483
                                                                                                            6)
                                                                                                          (%closure-ref
                                                                                                            self$1483
                                                                                                            7)
                                                                                                          this-len$383)
                                                                                                        (Cyc-fast-gt
                                                                                                          this-len$383
                                                                                                          (%closure-ref
                                                                                                            self$1483
                                                                                                            6))))
                                                                                                     (%closure-ref
                                                                                                       self$1482
                                                                                                       1)
                                                                                                     (%closure-ref
                                                                                                       self$1482
                                                                                                       2)
                                                                                                     (%closure-ref
                                                                                                       self$1482
                                                                                                       3)
                                                                                                     (%closure-ref
                                                                                                       self$1482
                                                                                                       4)
                                                                                                     (%closure-ref
                                                                                                       self$1482
                                                                                                       5)
                                                                                                     (%closure-ref
                                                                                                       self$1482
                                                                                                       6)
                                                                                                     (%closure-ref
                                                                                                       self$1482
                                                                                                       7))
                                                                                                   r$894))
                                                                                                (%closure-ref
                                                                                                  self$1481
                                                                                                  1)
                                                                                                (%closure-ref
                                                                                                  self$1481
                                                                                                  2)
                                                                                                (%closure-ref
                                                                                                  self$1481
                                                                                                  3)
                                                                                                (%closure-ref
                                                                                                  self$1481
                                                                                                  4)
                                                                                                (%closure-ref
                                                                                                  self$1481
                                                                                                  6)
                                                                                                (%closure-ref
                                                                                                  self$1481
                                                                                                  7)
                                                                                                (%closure-ref
                                                                                                  self$1481
                                                                                                  8))
                                                                                              (%closure-ref
                                                                                                self$1481
                                                                                                5)
                                                                                              0
                                                                                              (%closure-ref
                                                                                                self$1481
                                                                                                1))))
                                                                                         bcol$379
                                                                                         (%closure-ref
                                                                                           self$1480
                                                                                           1)
                                                                                         entrance$381
                                                                                         exit$380
                                                                                         (%closure-ref
                                                                                           self$1480
                                                                                           2)
                                                                                         k$888
                                                                                         max-len$382
                                                                                         (%closure-ref
                                                                                           self$1480
                                                                                           3))
                                                                                       (Cyc-fast-lt
                                                                                         bcol$379
                                                                                         0)))
                                                                                    bt-lp$378
                                                                                    (%closure-ref
                                                                                      self$1479
                                                                                      4)
                                                                                    (%closure-ref
                                                                                      self$1479
                                                                                      7)))))
                                                                             (%closure-ref
                                                                               self$1478
                                                                               1)
                                                                             (%closure-ref
                                                                               self$1478
                                                                               2)
                                                                             (%closure-ref
                                                                               self$1478
                                                                               3)
                                                                             (%closure-ref
                                                                               self$1478
                                                                               4)
                                                                             (%closure-ref
                                                                               self$1478
                                                                               5)
                                                                             (%closure-ref
                                                                               self$1478
                                                                               6)
                                                                             (%closure-ref
                                                                               self$1478
                                                                               7)
                                                                             (%closure-ref
                                                                               self$1478
                                                                               8))
                                                                           (cell bt-lp$378)))
                                                                        bcol$374
                                                                        entrance$376
                                                                        exit$375
                                                                        (%closure-ref
                                                                          self$1477
                                                                          1)
                                                                        (%closure-ref
                                                                          self$1477
                                                                          2)
                                                                        max-len$377
                                                                        (%closure-ref
                                                                          self$1477
                                                                          3)
                                                                        (%closure-ref
                                                                          self$1477
                                                                          4))
                                                                      #f))
                                                                   (%closure-ref
                                                                     self$1476
                                                                     3)
                                                                   (%closure-ref
                                                                     self$1476
                                                                     4)
                                                                   (%closure-ref
                                                                     self$1476
                                                                     7)
                                                                   (%closure-ref
                                                                     self$1476
                                                                     8))
                                                                 (%closure-ref
                                                                   self$1476
                                                                   5)
                                                                 (%closure-ref
                                                                   self$1476
                                                                   1)
                                                                 (%closure-ref
                                                                   self$1476
                                                                   2)
                                                                 (Cyc-fast-sub
                                                                   (%closure-ref
                                                                     self$1476
                                                                     6)
                                                                   1)))
                                                              (%closure-ref
                                                                self$1475
                                                                1)
                                                              (%closure-ref
                                                                self$1475
                                                                2)
                                                              (%closure-ref
                                                                self$1475
                                                                3)
                                                              (%closure-ref
                                                                self$1475
                                                                4)
                                                              (%closure-ref
                                                                self$1475
                                                                5)
                                                              (%closure-ref
                                                                self$1475
                                                                6)
                                                              (%closure-ref
                                                                self$1475
                                                                7)
                                                              (%closure-ref
                                                                self$1475
                                                                8))
                                                            top-cell$373))
                                                         (%closure-ref
                                                           self$1474
                                                           1)
                                                         (%closure-ref
                                                           self$1474
                                                           2)
                                                         (%closure-ref
                                                           self$1474
                                                           3)
                                                         (%closure-ref
                                                           self$1474
                                                           4)
                                                         (%closure-ref
                                                           self$1474
                                                           5)
                                                         (%closure-ref
                                                           self$1474
                                                           6)
                                                         (%closure-ref
                                                           self$1474
                                                           8)
                                                         (%closure-ref
                                                           self$1474
                                                           9))
                                                       (%closure-ref
                                                         self$1474
                                                         3)
                                                       (Cyc-fast-sub
                                                         (%closure-ref
                                                           self$1474
                                                           7)
                                                         1)
                                                       (%closure-ref
                                                         self$1474
                                                         8))))
                                                  entrance$371
                                                  exit$370
                                                  (%closure-ref self$1473 1)
                                                  k$876
                                                  max-len$372
                                                  (%closure-ref self$1473 2)
                                                  (%closure-ref self$1473 3)
                                                  tcol$369
                                                  (%closure-ref self$1473 4))
                                                (Cyc-fast-lt tcol$369 0)))
                                             (%closure-ref self$1472 1)
                                             (%closure-ref self$1472 3)
                                             (%closure-ref self$1472 4)
                                             tp-lp$368))))
                                      (%closure-ref self$1471 1)
                                      (%closure-ref self$1471 2)
                                      (%closure-ref self$1471 3)
                                      (%closure-ref self$1471 4))
                                    (cell tp-lp$368)))
                                 (%closure-ref self$1470 1)
                                 (%closure-ref self$1470 2)
                                 ncols$362
                                 nrows$363)
                               #f))
                            (%closure-ref self$1469 1)
                            (%closure-ref self$1469 2))
                          (%closure-ref self$1469 3)
                          r$872))
                       (%closure-ref self$1468 1)
                       (%closure-ref self$1468 2)
                       r$871)
                     (vector-ref (%closure-ref self$1468 1) 2)))
                  (%closure-ref self$1467 1)
                  (%closure-ref self$1467 2))
                (vector-ref (%closure-ref self$1467 1) 1)))
             (%closure-ref self$1466 1)
             (%closure-ref self$1466 2))
           (%closure-ref self$1466 1)
           r$896
           for-each-hex-child))
        harr$361
        k$869)
      harr$361
      0
      0)))
 (define for-each-hex-child
   (lambda (k$810 proc$347 harr$346 cell$345)
     ((%closure
        (lambda (self$1463 k$860)
          ((%closure-ref bit-test 0)
           bit-test
           (%closure
             (lambda (self$1464 r$861)
               (if r$861
                 ((%closure-ref (%closure-ref self$1464 3) 0)
                  (%closure-ref self$1464 3)
                  #f)
                 ((%closure-ref href 0)
                  href
                  (%closure
                    (lambda (self$1465 r$862)
                      ((%closure-ref (%closure-ref self$1465 2) 0)
                       (%closure-ref self$1465 2)
                       (%closure-ref self$1465 1)
                       r$862))
                    (%closure-ref self$1464 3)
                    (%closure-ref self$1464 4))
                  (%closure-ref self$1464 2)
                  (Cyc-fast-sub
                    (car (vector-ref (%closure-ref self$1464 1) 2))
                    3)
                  (Cyc-fast-sub
                    (cdr (vector-ref (%closure-ref self$1464 1) 2))
                    1))))
             (%closure-ref self$1463 1)
             (%closure-ref self$1463 2)
             k$860
             (%closure-ref self$1463 3))
           (vector-ref (%closure-ref self$1463 1) 3)
           south-west))
        cell$345
        harr$346
        proc$347)
      (%closure
        (lambda (self$1435 r$819)
          ((%closure
             (lambda (self$1460 k$856)
               ((%closure-ref bit-test 0)
                bit-test
                (%closure
                  (lambda (self$1461 r$857)
                    (if r$857
                      ((%closure-ref (%closure-ref self$1461 3) 0)
                       (%closure-ref self$1461 3)
                       #f)
                      ((%closure-ref href 0)
                       href
                       (%closure
                         (lambda (self$1462 r$858)
                           ((%closure-ref (%closure-ref self$1462 2) 0)
                            (%closure-ref self$1462 2)
                            (%closure-ref self$1462 1)
                            r$858))
                         (%closure-ref self$1461 3)
                         (%closure-ref self$1461 4))
                       (%closure-ref self$1461 2)
                       (car (vector-ref (%closure-ref self$1461 1) 2))
                       (Cyc-fast-sub
                         (cdr (vector-ref (%closure-ref self$1461 1) 2))
                         2))))
                  (%closure-ref self$1460 1)
                  (%closure-ref self$1460 2)
                  k$856
                  (%closure-ref self$1460 3))
                (vector-ref (%closure-ref self$1460 1) 3)
                south))
             (%closure-ref self$1435 1)
             (%closure-ref self$1435 2)
             (%closure-ref self$1435 4))
           (%closure
             (lambda (self$1436 r$820)
               ((%closure
                  (lambda (self$1457 k$851)
                    ((%closure-ref bit-test 0)
                     bit-test
                     (%closure
                       (lambda (self$1458 r$852)
                         (if r$852
                           ((%closure-ref (%closure-ref self$1458 3) 0)
                            (%closure-ref self$1458 3)
                            #f)
                           ((%closure-ref href 0)
                            href
                            (%closure
                              (lambda (self$1459 r$853)
                                ((%closure-ref (%closure-ref self$1459 2) 0)
                                 (%closure-ref self$1459 2)
                                 (%closure-ref self$1459 1)
                                 r$853))
                              (%closure-ref self$1458 3)
                              (%closure-ref self$1458 4))
                            (%closure-ref self$1458 2)
                            (Cyc-fast-plus
                              (car (vector-ref (%closure-ref self$1458 1) 2))
                              3)
                            (Cyc-fast-sub
                              (cdr (vector-ref (%closure-ref self$1458 1) 2))
                              1))))
                       (%closure-ref self$1457 1)
                       (%closure-ref self$1457 2)
                       k$851
                       (%closure-ref self$1457 3))
                     (vector-ref (%closure-ref self$1457 1) 3)
                     south-east))
                  (%closure-ref self$1436 1)
                  (%closure-ref self$1436 2)
                  (%closure-ref self$1436 4))
                (%closure
                  (lambda (self$1437 r$821)
                    ((%closure
                       (lambda (self$1450 k$840)
                         ((%closure
                            (lambda (self$1455 k$847)
                              (if (Cyc-fast-gt
                                    (car (vector-ref
                                           (%closure-ref self$1455 1)
                                           2))
                                    0)
                                (if (Cyc-fast-lte
                                      (cdr (vector-ref
                                             (%closure-ref self$1455 1)
                                             2))
                                      (Cyc-fast-mul
                                        2
                                        (Cyc-fast-sub
                                          (vector-ref
                                            (%closure-ref self$1455 2)
                                            1)
                                          1)))
                                  ((%closure-ref k$847 0)
                                   k$847
                                   (Cyc-fast-lte
                                     (cdr (vector-ref
                                            (%closure-ref self$1455 1)
                                            2))
                                     (Cyc-fast-mul
                                       2
                                       (Cyc-fast-sub
                                         (vector-ref
                                           (%closure-ref self$1455 2)
                                           1)
                                         1))))
                                  ((%closure-ref mod 0)
                                   mod
                                   (%closure
                                     (lambda (self$1456 r$850)
                                       ((%closure-ref
                                          (%closure-ref self$1456 1)
                                          0)
                                        (%closure-ref self$1456 1)
                                        (zero?__inline__ r$850)))
                                     k$847)
                                   (car (vector-ref
                                          (%closure-ref self$1455 1)
                                          2))
                                   6))
                                ((%closure-ref k$847 0) k$847 #f)))
                            (%closure-ref self$1450 1)
                            (%closure-ref self$1450 2))
                          (%closure
                            (lambda (self$1451 r$841)
                              (if r$841
                                ((%closure-ref href 0)
                                 href
                                 (%closure
                                   (lambda (self$1452 nw$359)
                                     ((%closure
                                        (lambda (self$1453 r$844)
                                          ((%closure-ref bit-test 0)
                                           bit-test
                                           (%closure
                                             (lambda (self$1454 r$843)
                                               (if r$843
                                                 ((%closure-ref
                                                    (%closure-ref self$1454 1)
                                                    0)
                                                  (%closure-ref self$1454 1)
                                                  #f)
                                                 ((%closure-ref
                                                    (%closure-ref self$1454 3)
                                                    0)
                                                  (%closure-ref self$1454 3)
                                                  (%closure-ref self$1454 1)
                                                  (%closure-ref self$1454 2))))
                                             (%closure-ref self$1453 1)
                                             (%closure-ref self$1453 2)
                                             (%closure-ref self$1453 3))
                                           r$844
                                           south-east))
                                        (%closure-ref self$1452 1)
                                        nw$359
                                        (%closure-ref self$1452 2))
                                      (vector-ref nw$359 3)))
                                   (%closure-ref self$1451 3)
                                   (%closure-ref self$1451 4))
                                 (%closure-ref self$1451 2)
                                 (Cyc-fast-sub
                                   (car (vector-ref
                                          (%closure-ref self$1451 1)
                                          2))
                                   3)
                                 (Cyc-fast-plus
                                   (cdr (vector-ref
                                          (%closure-ref self$1451 1)
                                          2))
                                   1))
                                ((%closure-ref (%closure-ref self$1451 3) 0)
                                 (%closure-ref self$1451 3)
                                 #f)))
                            (%closure-ref self$1450 1)
                            (%closure-ref self$1450 2)
                            k$840
                            (%closure-ref self$1450 3))))
                       (%closure-ref self$1437 1)
                       (%closure-ref self$1437 2)
                       (%closure-ref self$1437 4))
                     (%closure
                       (lambda (self$1438 r$822)
                         ((%closure
                            (lambda (self$1446 k$834)
                              (if (Cyc-fast-lt
                                    (cdr (vector-ref
                                           (%closure-ref self$1446 1)
                                           2))
                                    (Cyc-fast-mul
                                      2
                                      (Cyc-fast-sub
                                        (vector-ref
                                          (%closure-ref self$1446 2)
                                          1)
                                        1)))
                                ((%closure-ref href 0)
                                 href
                                 (%closure
                                   (lambda (self$1447 n$358)
                                     ((%closure
                                        (lambda (self$1448 r$838)
                                          ((%closure-ref bit-test 0)
                                           bit-test
                                           (%closure
                                             (lambda (self$1449 r$837)
                                               (if r$837
                                                 ((%closure-ref
                                                    (%closure-ref self$1449 1)
                                                    0)
                                                  (%closure-ref self$1449 1)
                                                  #f)
                                                 ((%closure-ref
                                                    (%closure-ref self$1449 3)
                                                    0)
                                                  (%closure-ref self$1449 3)
                                                  (%closure-ref self$1449 1)
                                                  (%closure-ref self$1449 2))))
                                             (%closure-ref self$1448 1)
                                             (%closure-ref self$1448 2)
                                             (%closure-ref self$1448 3))
                                           r$838
                                           south))
                                        (%closure-ref self$1447 1)
                                        n$358
                                        (%closure-ref self$1447 2))
                                      (vector-ref n$358 3)))
                                   k$834
                                   (%closure-ref self$1446 3))
                                 (%closure-ref self$1446 2)
                                 (car (vector-ref (%closure-ref self$1446 1) 2))
                                 (Cyc-fast-plus
                                   (cdr (vector-ref
                                          (%closure-ref self$1446 1)
                                          2))
                                   2))
                                ((%closure-ref k$834 0) k$834 #f)))
                            (%closure-ref self$1438 1)
                            (%closure-ref self$1438 2)
                            (%closure-ref self$1438 4))
                          (%closure
                            (lambda (self$1439 r$823)
                              ((%closure
                                 (lambda (self$1444 k$830)
                                   (if (Cyc-fast-lt
                                         (car (vector-ref
                                                (%closure-ref self$1444 1)
                                                2))
                                         (Cyc-fast-mul
                                           3
                                           (Cyc-fast-sub
                                             (vector-ref
                                               (%closure-ref self$1444 2)
                                               2)
                                             1)))
                                     (if (Cyc-fast-lte
                                           (cdr (vector-ref
                                                  (%closure-ref self$1444 1)
                                                  2))
                                           (Cyc-fast-mul
                                             2
                                             (Cyc-fast-sub
                                               (vector-ref
                                                 (%closure-ref self$1444 2)
                                                 1)
                                               1)))
                                       ((%closure-ref k$830 0)
                                        k$830
                                        (Cyc-fast-lte
                                          (cdr (vector-ref
                                                 (%closure-ref self$1444 1)
                                                 2))
                                          (Cyc-fast-mul
                                            2
                                            (Cyc-fast-sub
                                              (vector-ref
                                                (%closure-ref self$1444 2)
                                                1)
                                              1))))
                                       ((%closure-ref mod 0)
                                        mod
                                        (%closure
                                          (lambda (self$1445 r$833)
                                            ((%closure-ref
                                               (%closure-ref self$1445 1)
                                               0)
                                             (%closure-ref self$1445 1)
                                             (zero?__inline__ r$833)))
                                          k$830)
                                        (car (vector-ref
                                               (%closure-ref self$1444 1)
                                               2))
                                        6))
                                     ((%closure-ref k$830 0) k$830 #f)))
                                 (%closure-ref self$1439 1)
                                 (%closure-ref self$1439 2))
                               (%closure
                                 (lambda (self$1440 r$824)
                                   (if r$824
                                     ((%closure-ref href 0)
                                      href
                                      (%closure
                                        (lambda (self$1441 ne$356)
                                          ((%closure
                                             (lambda (self$1442 r$827)
                                               ((%closure-ref bit-test 0)
                                                bit-test
                                                (%closure
                                                  (lambda (self$1443 r$826)
                                                    (if r$826
                                                      ((%closure-ref
                                                         (%closure-ref
                                                           self$1443
                                                           1)
                                                         0)
                                                       (%closure-ref
                                                         self$1443
                                                         1)
                                                       #f)
                                                      ((%closure-ref
                                                         (%closure-ref
                                                           self$1443
                                                           3)
                                                         0)
                                                       (%closure-ref
                                                         self$1443
                                                         3)
                                                       (%closure-ref
                                                         self$1443
                                                         1)
                                                       (%closure-ref
                                                         self$1443
                                                         2))))
                                                  (%closure-ref self$1442 1)
                                                  (%closure-ref self$1442 2)
                                                  (%closure-ref self$1442 3))
                                                r$827
                                                south-west))
                                             (%closure-ref self$1441 1)
                                             ne$356
                                             (%closure-ref self$1441 2))
                                           (vector-ref ne$356 3)))
                                        (%closure-ref self$1440 3)
                                        (%closure-ref self$1440 4))
                                      (%closure-ref self$1440 2)
                                      (Cyc-fast-plus
                                        (car (vector-ref
                                               (%closure-ref self$1440 1)
                                               2))
                                        3)
                                      (Cyc-fast-plus
                                        (cdr (vector-ref
                                               (%closure-ref self$1440 1)
                                               2))
                                        1))
                                     ((%closure-ref
                                        (%closure-ref self$1440 3)
                                        0)
                                      (%closure-ref self$1440 3)
                                      #f)))
                                 (%closure-ref self$1439 1)
                                 (%closure-ref self$1439 2)
                                 (%closure-ref self$1439 3)
                                 (%closure-ref self$1439 4))))
                            (%closure-ref self$1438 1)
                            (%closure-ref self$1438 2)
                            (%closure-ref self$1438 3)
                            (%closure-ref self$1438 4))))
                       (%closure-ref self$1437 1)
                       (%closure-ref self$1437 2)
                       (%closure-ref self$1437 3)
                       (%closure-ref self$1437 4))))
                  (%closure-ref self$1436 1)
                  (%closure-ref self$1436 2)
                  (%closure-ref self$1436 3)
                  (%closure-ref self$1436 4))))
             (%closure-ref self$1435 1)
             (%closure-ref self$1435 2)
             (%closure-ref self$1435 3)
             (%closure-ref self$1435 4))))
        cell$345
        harr$346
        k$810
        proc$347))))
 (define make-maze
   (lambda (k$789 nrows$337 ncols$336)
     ((%closure-ref gen-maze-array 0)
      gen-maze-array
      (%closure
        (lambda (self$1422 cells$338)
          ((%closure-ref make-wall-vec 0)
           make-wall-vec
           (%closure
             (lambda (self$1423 r$806)
               ((%closure-ref permute-vec! 0)
                permute-vec!
                (%closure
                  (lambda (self$1424 walls$339)
                    ((%closure-ref dig-maze 0)
                     dig-maze
                     (%closure
                       (lambda (self$1425 r$792)
                         ((%closure-ref pick-entrances 0)
                          pick-entrances
                          (%closure
                            (lambda (self$1426 result$340)
                              ((%closure-ref href/rc 0)
                               href/rc
                               (%closure
                                 (lambda (self$1427 exit-cell$343)
                                   ((%closure
                                      (lambda (self$1428 walls$344)
                                        ((%closure-ref href/rc 0)
                                         href/rc
                                         (%closure
                                           (lambda (self$1429 r$803)
                                             ((%closure-ref reroot-maze 0)
                                              reroot-maze
                                              (%closure
                                                (lambda (self$1430 r$798)
                                                  ((%closure-ref mark-path 0)
                                                   mark-path
                                                   (%closure
                                                     (lambda (self$1431 r$799)
                                                       ((%closure-ref
                                                          bitwise-not
                                                          0)
                                                        bitwise-not
                                                        (%closure
                                                          (lambda (self$1432
                                                                   r$802)
                                                            ((%closure-ref
                                                               bitwise-and
                                                               0)
                                                             bitwise-and
                                                             (%closure
                                                               (lambda (self$1433
                                                                        r$801)
                                                                 ((%closure
                                                                    (lambda (self$1434
                                                                             r$800)
                                                                      ((%closure-ref
                                                                         vector
                                                                         0)
                                                                       vector
                                                                       (%closure-ref
                                                                         self$1434
                                                                         2)
                                                                       (%closure-ref
                                                                         self$1434
                                                                         1)
                                                                       (vector-ref
                                                                         (%closure-ref
                                                                           self$1434
                                                                           3)
                                                                         0)
                                                                       (vector-ref
                                                                         (%closure-ref
                                                                           self$1434
                                                                           3)
                                                                         1)))
                                                                    (%closure-ref
                                                                      self$1433
                                                                      1)
                                                                    (%closure-ref
                                                                      self$1433
                                                                      3)
                                                                    (%closure-ref
                                                                      self$1433
                                                                      4))
                                                                  (vector-set!
                                                                    (%closure-ref
                                                                      self$1433
                                                                      2)
                                                                    3
                                                                    r$801)))
                                                               (%closure-ref
                                                                 self$1432
                                                                 1)
                                                               (%closure-ref
                                                                 self$1432
                                                                 2)
                                                               (%closure-ref
                                                                 self$1432
                                                                 3)
                                                               (%closure-ref
                                                                 self$1432
                                                                 4))
                                                             (%closure-ref
                                                               self$1432
                                                               5)
                                                             r$802))
                                                          (%closure-ref
                                                            self$1431
                                                            1)
                                                          (%closure-ref
                                                            self$1431
                                                            2)
                                                          (%closure-ref
                                                            self$1431
                                                            3)
                                                          (%closure-ref
                                                            self$1431
                                                            4)
                                                          (%closure-ref
                                                            self$1431
                                                            5))
                                                        south))
                                                     (%closure-ref self$1430 1)
                                                     (%closure-ref self$1430 2)
                                                     (%closure-ref self$1430 3)
                                                     (%closure-ref self$1430 4)
                                                     (%closure-ref self$1430 5))
                                                   (%closure-ref self$1430 2)))
                                                (%closure-ref self$1429 1)
                                                (%closure-ref self$1429 2)
                                                (%closure-ref self$1429 3)
                                                (%closure-ref self$1429 4)
                                                (%closure-ref self$1429 5))
                                              r$803))
                                           (%closure-ref self$1428 1)
                                           (%closure-ref self$1428 2)
                                           (%closure-ref self$1428 3)
                                           (%closure-ref self$1428 5)
                                           walls$344)
                                         (%closure-ref self$1428 1)
                                         (Cyc-fast-sub
                                           (%closure-ref self$1428 4)
                                           1)
                                         (vector-ref
                                           (%closure-ref self$1428 5)
                                           0)))
                                      (%closure-ref self$1427 1)
                                      exit-cell$343
                                      (%closure-ref self$1427 2)
                                      (%closure-ref self$1427 3)
                                      (%closure-ref self$1427 4))
                                    (vector-ref exit-cell$343 3)))
                                 (%closure-ref self$1426 1)
                                 (%closure-ref self$1426 2)
                                 (%closure-ref self$1426 3)
                                 result$340)
                               (%closure-ref self$1426 1)
                               0
                               (vector-ref result$340 1)))
                            (%closure-ref self$1425 1)
                            (%closure-ref self$1425 2)
                            (%closure-ref self$1425 3))
                          (%closure-ref self$1425 1)))
                       (%closure-ref self$1424 1)
                       (%closure-ref self$1424 2)
                       (%closure-ref self$1424 4))
                     walls$339
                     (Cyc-fast-mul
                       (%closure-ref self$1424 4)
                       (%closure-ref self$1424 3))))
                  (%closure-ref self$1423 1)
                  (%closure-ref self$1423 2)
                  (%closure-ref self$1423 3)
                  (%closure-ref self$1423 4))
                r$806
                (cons 20 #f)))
             cells$338
             (%closure-ref self$1422 1)
             (%closure-ref self$1422 2)
             (%closure-ref self$1422 3))
           cells$338))
        k$789
        ncols$336
        nrows$337)
      nrows$337
      ncols$336)))
 (define pmaze
   (lambda (k$782 nrows$331 ncols$330)
     ((%closure-ref make-maze 0)
      make-maze
      (%closure
        (lambda (self$1420 result$332)
          ((%closure
             (lambda (self$1421 cells$335 entrance$334 exit$333)
               ((%closure-ref print-hexmaze 0)
                print-hexmaze
                (%closure-ref self$1421 1)
                cells$335
                entrance$334))
             (%closure-ref self$1420 1))
           (vector-ref result$332 0)
           (vector-ref result$332 1)
           (vector-ref result$332 2)))
        k$782)
      nrows$331
      ncols$330)))
 (define output (%closure-ref #f 0) #f)
 (define write-ch
   (lambda (k$776 c$329)
     ((%closure
        (lambda (self$1419 r$777)
          ((%closure-ref (%closure-ref self$1419 1) 0)
           (%closure-ref self$1419 1)
           (set-global! output r$777)))
        k$776)
      (cons c$329 output))))
 (define print-hexmaze
   (lambda (k$683 harr$305 entrance$304)
     ((%closure-ref div 0)
      div
      (%closure
        (lambda (self$1353 r$773)
          ((%closure
             (lambda (self$1354 lp$188$326)
               ((%closure
                  (lambda (self$1355 lp$188$326)
                    ((%closure
                       (lambda (self$1363 r$761)
                         ((%closure-ref
                            (cell-get (%closure-ref self$1363 4))
                            0)
                          (cell-get (%closure-ref self$1363 4))
                          (%closure
                            (lambda (self$1364 r$687)
                              ((%closure-ref write-ch 0)
                               write-ch
                               (%closure
                                 (lambda (self$1365 r$688)
                                   ((%closure-ref write-ch 0)
                                    write-ch
                                    (%closure
                                      (lambda (self$1366 r$689)
                                        ((%closure
                                           (lambda (self$1367 lp$192$322)
                                             ((%closure
                                                (lambda (self$1368 lp$192$322)
                                                  ((%closure
                                                     (lambda (self$1377 r$746)
                                                       ((%closure-ref
                                                          (cell-get
                                                            (%closure-ref
                                                              self$1377
                                                              4))
                                                          0)
                                                        (cell-get
                                                          (%closure-ref
                                                            self$1377
                                                            4))
                                                        (%closure
                                                          (lambda (self$1378
                                                                   r$690)
                                                            ((%closure
                                                               (lambda (self$1415
                                                                        k$740)
                                                                 ((%closure-ref
                                                                    odd?
                                                                    0)
                                                                  odd?
                                                                  (%closure
                                                                    (lambda (self$1416
                                                                             r$741)
                                                                      (if r$741
                                                                        ((%closure
                                                                           (lambda (self$1418
                                                                                    k$743)
                                                                             (if (Cyc-fast-eq
                                                                                   (%closure-ref
                                                                                     self$1418
                                                                                     1)
                                                                                   (Cyc-fast-sub
                                                                                     (vector-ref
                                                                                       (%closure-ref
                                                                                         self$1418
                                                                                         2)
                                                                                       2)
                                                                                     1))
                                                                               ((%closure-ref
                                                                                  k$743
                                                                                  0)
                                                                                k$743
                                                                                #\space)
                                                                               ((%closure-ref
                                                                                  k$743
                                                                                  0)
                                                                                k$743
                                                                                #\_)))
                                                                           (%closure-ref
                                                                             self$1416
                                                                             1)
                                                                           (%closure-ref
                                                                             self$1416
                                                                             2))
                                                                         (%closure
                                                                           (lambda (self$1417
                                                                                    r$742)
                                                                             ((%closure-ref
                                                                                write-ch
                                                                                0)
                                                                              write-ch
                                                                              (%closure-ref
                                                                                self$1417
                                                                                1)
                                                                              r$742))
                                                                           (%closure-ref
                                                                             self$1416
                                                                             3)))
                                                                        ((%closure-ref
                                                                           (%closure-ref
                                                                             self$1416
                                                                             3)
                                                                           0)
                                                                         (%closure-ref
                                                                           self$1416
                                                                           3)
                                                                         #f)))
                                                                    (%closure-ref
                                                                      self$1415
                                                                      1)
                                                                    (%closure-ref
                                                                      self$1415
                                                                      2)
                                                                    k$740)
                                                                  (vector-ref
                                                                    (%closure-ref
                                                                      self$1415
                                                                      2)
                                                                    2)))
                                                               (%closure-ref
                                                                 self$1378
                                                                 1)
                                                               (%closure-ref
                                                                 self$1378
                                                                 2))
                                                             (%closure
                                                               (lambda (self$1379
                                                                        r$691)
                                                                 ((%closure-ref
                                                                    write-ch
                                                                    0)
                                                                  write-ch
                                                                  (%closure
                                                                    (lambda (self$1380
                                                                             r$692)
                                                                      ((%closure
                                                                         (lambda (self$1381
                                                                                  lp$196$310)
                                                                           ((%closure
                                                                              (lambda (self$1382
                                                                                       lp$196$310)
                                                                                ((%closure
                                                                                   (lambda (self$1414
                                                                                            r$694)
                                                                                     ((%closure-ref
                                                                                        (cell-get
                                                                                          (%closure-ref
                                                                                            self$1414
                                                                                            3))
                                                                                        0)
                                                                                      (cell-get
                                                                                        (%closure-ref
                                                                                          self$1414
                                                                                          3))
                                                                                      (%closure-ref
                                                                                        self$1414
                                                                                        2)
                                                                                      (Cyc-fast-sub
                                                                                        (vector-ref
                                                                                          (%closure-ref
                                                                                            self$1414
                                                                                            1)
                                                                                          1)
                                                                                        1)))
                                                                                   (%closure-ref
                                                                                     self$1382
                                                                                     1)
                                                                                   (%closure-ref
                                                                                     self$1382
                                                                                     2)
                                                                                   lp$196$310)
                                                                                 (set-cell!
                                                                                   lp$196$310
                                                                                   (%closure
                                                                                     (lambda (self$1383
                                                                                              k$696
                                                                                              r$311)
                                                                                       (if (Cyc-fast-lt
                                                                                             r$311
                                                                                             0)
                                                                                         ((%closure-ref
                                                                                            k$696
                                                                                            0)
                                                                                          k$696
                                                                                          (Cyc-fast-lt
                                                                                            r$311
                                                                                            0))
                                                                                         ((%closure-ref
                                                                                            write-ch
                                                                                            0)
                                                                                          write-ch
                                                                                          (%closure
                                                                                            (lambda (self$1384
                                                                                                     r$698)
                                                                                              ((%closure
                                                                                                 (lambda (self$1385
                                                                                                          lp$200$318)
                                                                                                   ((%closure
                                                                                                      (lambda (self$1386
                                                                                                               lp$200$318)
                                                                                                        ((%closure
                                                                                                           (lambda (self$1392
                                                                                                                    r$729)
                                                                                                             ((%closure-ref
                                                                                                                (cell-get
                                                                                                                  (%closure-ref
                                                                                                                    self$1392
                                                                                                                    4))
                                                                                                                0)
                                                                                                              (cell-get
                                                                                                                (%closure-ref
                                                                                                                  self$1392
                                                                                                                  4))
                                                                                                              (%closure
                                                                                                                (lambda (self$1393
                                                                                                                         r$699)
                                                                                                                  ((%closure
                                                                                                                     (lambda (self$1410
                                                                                                                              k$724)
                                                                                                                       ((%closure-ref
                                                                                                                          odd?
                                                                                                                          0)
                                                                                                                        odd?
                                                                                                                        (%closure
                                                                                                                          (lambda (self$1411
                                                                                                                                   r$725)
                                                                                                                            (if r$725
                                                                                                                              ((%closure-ref
                                                                                                                                 dot/space
                                                                                                                                 0)
                                                                                                                               dot/space
                                                                                                                               (%closure
                                                                                                                                 (lambda (self$1412
                                                                                                                                          r$727)
                                                                                                                                   ((%closure-ref
                                                                                                                                      write-ch
                                                                                                                                      0)
                                                                                                                                    write-ch
                                                                                                                                    (%closure
                                                                                                                                      (lambda (self$1413
                                                                                                                                               r$726)
                                                                                                                                        ((%closure-ref
                                                                                                                                           write-ch
                                                                                                                                           0)
                                                                                                                                         write-ch
                                                                                                                                         (%closure-ref
                                                                                                                                           self$1413
                                                                                                                                           1)
                                                                                                                                         #\\))
                                                                                                                                      (%closure-ref
                                                                                                                                        self$1412
                                                                                                                                        1))
                                                                                                                                    r$727))
                                                                                                                                 (%closure-ref
                                                                                                                                   self$1411
                                                                                                                                   2))
                                                                                                                               (%closure-ref
                                                                                                                                 self$1411
                                                                                                                                 1)
                                                                                                                               (%closure-ref
                                                                                                                                 self$1411
                                                                                                                                 3)
                                                                                                                               (Cyc-fast-sub
                                                                                                                                 (vector-ref
                                                                                                                                   (%closure-ref
                                                                                                                                     self$1411
                                                                                                                                     1)
                                                                                                                                   2)
                                                                                                                                 1))
                                                                                                                              ((%closure-ref
                                                                                                                                 (%closure-ref
                                                                                                                                   self$1411
                                                                                                                                   2)
                                                                                                                                 0)
                                                                                                                               (%closure-ref
                                                                                                                                 self$1411
                                                                                                                                 2)
                                                                                                                               #f)))
                                                                                                                          (%closure-ref
                                                                                                                            self$1410
                                                                                                                            1)
                                                                                                                          k$724
                                                                                                                          (%closure-ref
                                                                                                                            self$1410
                                                                                                                            2))
                                                                                                                        (vector-ref
                                                                                                                          (%closure-ref
                                                                                                                            self$1410
                                                                                                                            1)
                                                                                                                          2)))
                                                                                                                     (%closure-ref
                                                                                                                       self$1393
                                                                                                                       1)
                                                                                                                     (%closure-ref
                                                                                                                       self$1393
                                                                                                                       4))
                                                                                                                   (%closure
                                                                                                                     (lambda (self$1394
                                                                                                                              r$700)
                                                                                                                       ((%closure-ref
                                                                                                                          write-ch
                                                                                                                          0)
                                                                                                                        write-ch
                                                                                                                        (%closure
                                                                                                                          (lambda (self$1395
                                                                                                                                   r$701)
                                                                                                                            ((%closure
                                                                                                                               (lambda (self$1396
                                                                                                                                        lp$207$314)
                                                                                                                                 ((%closure
                                                                                                                                    (lambda (self$1397
                                                                                                                                             lp$207$314)
                                                                                                                                      ((%closure
                                                                                                                                         (lambda (self$1403
                                                                                                                                                  r$712)
                                                                                                                                           ((%closure-ref
                                                                                                                                              (cell-get
                                                                                                                                                (%closure-ref
                                                                                                                                                  self$1403
                                                                                                                                                  4))
                                                                                                                                              0)
                                                                                                                                            (cell-get
                                                                                                                                              (%closure-ref
                                                                                                                                                self$1403
                                                                                                                                                4))
                                                                                                                                            (%closure
                                                                                                                                              (lambda (self$1404
                                                                                                                                                       r$702)
                                                                                                                                                ((%closure
                                                                                                                                                   (lambda (self$1407
                                                                                                                                                            k$706)
                                                                                                                                                     ((%closure-ref
                                                                                                                                                        odd?
                                                                                                                                                        0)
                                                                                                                                                      odd?
                                                                                                                                                      (%closure
                                                                                                                                                        (lambda (self$1408
                                                                                                                                                                 r$707)
                                                                                                                                                          (if r$707
                                                                                                                                                            ((%closure-ref
                                                                                                                                                               href/rc
                                                                                                                                                               0)
                                                                                                                                                             href/rc
                                                                                                                                                             (%closure
                                                                                                                                                               (lambda (self$1409
                                                                                                                                                                        r$709)
                                                                                                                                                                 ((%closure-ref
                                                                                                                                                                    display-hexbottom
                                                                                                                                                                    0)
                                                                                                                                                                  display-hexbottom
                                                                                                                                                                  (%closure-ref
                                                                                                                                                                    self$1409
                                                                                                                                                                    1)
                                                                                                                                                                  (vector-ref
                                                                                                                                                                    r$709
                                                                                                                                                                    3)))
                                                                                                                                                               (%closure-ref
                                                                                                                                                                 self$1408
                                                                                                                                                                 2))
                                                                                                                                                             (%closure-ref
                                                                                                                                                               self$1408
                                                                                                                                                               1)
                                                                                                                                                             (%closure-ref
                                                                                                                                                               self$1408
                                                                                                                                                               3)
                                                                                                                                                             (Cyc-fast-sub
                                                                                                                                                               (vector-ref
                                                                                                                                                                 (%closure-ref
                                                                                                                                                                   self$1408
                                                                                                                                                                   1)
                                                                                                                                                                 2)
                                                                                                                                                               1))
                                                                                                                                                            (if (zero?__inline__
                                                                                                                                                                  (%closure-ref
                                                                                                                                                                    self$1408
                                                                                                                                                                    3))
                                                                                                                                                              ((%closure-ref
                                                                                                                                                                 (%closure-ref
                                                                                                                                                                   self$1408
                                                                                                                                                                   2)
                                                                                                                                                                 0)
                                                                                                                                                               (%closure-ref
                                                                                                                                                                 self$1408
                                                                                                                                                                 2)
                                                                                                                                                               #f)
                                                                                                                                                              ((%closure-ref
                                                                                                                                                                 write-ch
                                                                                                                                                                 0)
                                                                                                                                                               write-ch
                                                                                                                                                               (%closure-ref
                                                                                                                                                                 self$1408
                                                                                                                                                                 2)
                                                                                                                                                               #\\))))
                                                                                                                                                        (%closure-ref
                                                                                                                                                          self$1407
                                                                                                                                                          1)
                                                                                                                                                        k$706
                                                                                                                                                        (%closure-ref
                                                                                                                                                          self$1407
                                                                                                                                                          2))
                                                                                                                                                      (vector-ref
                                                                                                                                                        (%closure-ref
                                                                                                                                                          self$1407
                                                                                                                                                          1)
                                                                                                                                                        2)))
                                                                                                                                                   (%closure-ref
                                                                                                                                                     self$1404
                                                                                                                                                     1)
                                                                                                                                                   (%closure-ref
                                                                                                                                                     self$1404
                                                                                                                                                     4))
                                                                                                                                                 (%closure
                                                                                                                                                   (lambda (self$1405
                                                                                                                                                            r$703)
                                                                                                                                                     ((%closure-ref
                                                                                                                                                        write-ch
                                                                                                                                                        0)
                                                                                                                                                      write-ch
                                                                                                                                                      (%closure
                                                                                                                                                        (lambda (self$1406
                                                                                                                                                                 r$704)
                                                                                                                                                          ((%closure-ref
                                                                                                                                                             (cell-get
                                                                                                                                                               (%closure-ref
                                                                                                                                                                 self$1406
                                                                                                                                                                 2))
                                                                                                                                                             0)
                                                                                                                                                           (cell-get
                                                                                                                                                             (%closure-ref
                                                                                                                                                               self$1406
                                                                                                                                                               2))
                                                                                                                                                           (%closure-ref
                                                                                                                                                             self$1406
                                                                                                                                                             1)
                                                                                                                                                           (Cyc-fast-sub
                                                                                                                                                             (%closure-ref
                                                                                                                                                               self$1406
                                                                                                                                                               3)
                                                                                                                                                             1)))
                                                                                                                                                        (%closure-ref
                                                                                                                                                          self$1405
                                                                                                                                                          1)
                                                                                                                                                        (%closure-ref
                                                                                                                                                          self$1405
                                                                                                                                                          2)
                                                                                                                                                        (%closure-ref
                                                                                                                                                          self$1405
                                                                                                                                                          3))
                                                                                                                                                      #\newline))
                                                                                                                                                   (%closure-ref
                                                                                                                                                     self$1404
                                                                                                                                                     2)
                                                                                                                                                   (%closure-ref
                                                                                                                                                     self$1404
                                                                                                                                                     3)
                                                                                                                                                   (%closure-ref
                                                                                                                                                     self$1404
                                                                                                                                                     4))))
                                                                                                                                              (%closure-ref
                                                                                                                                                self$1403
                                                                                                                                                1)
                                                                                                                                              (%closure-ref
                                                                                                                                                self$1403
                                                                                                                                                2)
                                                                                                                                              (%closure-ref
                                                                                                                                                self$1403
                                                                                                                                                3)
                                                                                                                                              (%closure-ref
                                                                                                                                                self$1403
                                                                                                                                                5))
                                                                                                                                            0))
                                                                                                                                         (%closure-ref
                                                                                                                                           self$1397
                                                                                                                                           1)
                                                                                                                                         (%closure-ref
                                                                                                                                           self$1397
                                                                                                                                           2)
                                                                                                                                         (%closure-ref
                                                                                                                                           self$1397
                                                                                                                                           3)
                                                                                                                                         lp$207$314
                                                                                                                                         (%closure-ref
                                                                                                                                           self$1397
                                                                                                                                           4))
                                                                                                                                       (set-cell!
                                                                                                                                         lp$207$314
                                                                                                                                         (%closure
                                                                                                                                           (lambda (self$1398
                                                                                                                                                    k$714
                                                                                                                                                    c$315)
                                                                                                                                             (if (Cyc-fast-gte
                                                                                                                                                   c$315
                                                                                                                                                   (Cyc-fast-mul
                                                                                                                                                     2
                                                                                                                                                     (%closure-ref
                                                                                                                                                       self$1398
                                                                                                                                                       4)))
                                                                                                                                               ((%closure-ref
                                                                                                                                                  k$714
                                                                                                                                                  0)
                                                                                                                                                k$714
                                                                                                                                                (Cyc-fast-gte
                                                                                                                                                  c$315
                                                                                                                                                  (Cyc-fast-mul
                                                                                                                                                    2
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$1398
                                                                                                                                                      4))))
                                                                                                                                               ((%closure-ref
                                                                                                                                                  href/rc
                                                                                                                                                  0)
                                                                                                                                                href/rc
                                                                                                                                                (%closure
                                                                                                                                                  (lambda (self$1399
                                                                                                                                                           r$723)
                                                                                                                                                    ((%closure-ref
                                                                                                                                                       display-hexbottom
                                                                                                                                                       0)
                                                                                                                                                     display-hexbottom
                                                                                                                                                     (%closure
                                                                                                                                                       (lambda (self$1400
                                                                                                                                                                r$716)
                                                                                                                                                         ((%closure-ref
                                                                                                                                                            dot/space
                                                                                                                                                            0)
                                                                                                                                                          dot/space
                                                                                                                                                          (%closure
                                                                                                                                                            (lambda (self$1401
                                                                                                                                                                     r$719)
                                                                                                                                                              ((%closure-ref
                                                                                                                                                                 write-ch
                                                                                                                                                                 0)
                                                                                                                                                               write-ch
                                                                                                                                                               (%closure
                                                                                                                                                                 (lambda (self$1402
                                                                                                                                                                          r$717)
                                                                                                                                                                   ((%closure-ref
                                                                                                                                                                      (cell-get
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$1402
                                                                                                                                                                          3))
                                                                                                                                                                      0)
                                                                                                                                                                    (cell-get
                                                                                                                                                                      (%closure-ref
                                                                                                                                                                        self$1402
                                                                                                                                                                        3))
                                                                                                                                                                    (%closure-ref
                                                                                                                                                                      self$1402
                                                                                                                                                                      2)
                                                                                                                                                                    (Cyc-fast-plus
                                                                                                                                                                      (%closure-ref
                                                                                                                                                                        self$1402
                                                                                                                                                                        1)
                                                                                                                                                                      2)))
                                                                                                                                                                 (%closure-ref
                                                                                                                                                                   self$1401
                                                                                                                                                                   1)
                                                                                                                                                                 (%closure-ref
                                                                                                                                                                   self$1401
                                                                                                                                                                   2)
                                                                                                                                                                 (%closure-ref
                                                                                                                                                                   self$1401
                                                                                                                                                                   3))
                                                                                                                                                               r$719))
                                                                                                                                                            (%closure-ref
                                                                                                                                                              self$1400
                                                                                                                                                              1)
                                                                                                                                                            (%closure-ref
                                                                                                                                                              self$1400
                                                                                                                                                              3)
                                                                                                                                                            (%closure-ref
                                                                                                                                                              self$1400
                                                                                                                                                              4))
                                                                                                                                                          (%closure-ref
                                                                                                                                                            self$1400
                                                                                                                                                            2)
                                                                                                                                                          (Cyc-fast-sub
                                                                                                                                                            (%closure-ref
                                                                                                                                                              self$1400
                                                                                                                                                              5)
                                                                                                                                                            1)
                                                                                                                                                          (Cyc-fast-plus
                                                                                                                                                            (%closure-ref
                                                                                                                                                              self$1400
                                                                                                                                                              1)
                                                                                                                                                            1)))
                                                                                                                                                       (%closure-ref
                                                                                                                                                         self$1399
                                                                                                                                                         1)
                                                                                                                                                       (%closure-ref
                                                                                                                                                         self$1399
                                                                                                                                                         2)
                                                                                                                                                       (%closure-ref
                                                                                                                                                         self$1399
                                                                                                                                                         3)
                                                                                                                                                       (%closure-ref
                                                                                                                                                         self$1399
                                                                                                                                                         4)
                                                                                                                                                       (%closure-ref
                                                                                                                                                         self$1399
                                                                                                                                                         5))
                                                                                                                                                     (vector-ref
                                                                                                                                                       r$723
                                                                                                                                                       3)))
                                                                                                                                                  c$315
                                                                                                                                                  (%closure-ref
                                                                                                                                                    self$1398
                                                                                                                                                    1)
                                                                                                                                                  k$714
                                                                                                                                                  (%closure-ref
                                                                                                                                                    self$1398
                                                                                                                                                    2)
                                                                                                                                                  (%closure-ref
                                                                                                                                                    self$1398
                                                                                                                                                    3))
                                                                                                                                                (%closure-ref
                                                                                                                                                  self$1398
                                                                                                                                                  1)
                                                                                                                                                (%closure-ref
                                                                                                                                                  self$1398
                                                                                                                                                  3)
                                                                                                                                                c$315)))
                                                                                                                                           (%closure-ref
                                                                                                                                             self$1397
                                                                                                                                             1)
                                                                                                                                           lp$207$314
                                                                                                                                           (%closure-ref
                                                                                                                                             self$1397
                                                                                                                                             4)
                                                                                                                                           (%closure-ref
                                                                                                                                             self$1397
                                                                                                                                             5)))))
                                                                                                                                    (%closure-ref
                                                                                                                                      self$1396
                                                                                                                                      1)
                                                                                                                                    (%closure-ref
                                                                                                                                      self$1396
                                                                                                                                      2)
                                                                                                                                    (%closure-ref
                                                                                                                                      self$1396
                                                                                                                                      3)
                                                                                                                                    (%closure-ref
                                                                                                                                      self$1396
                                                                                                                                      4)
                                                                                                                                    (%closure-ref
                                                                                                                                      self$1396
                                                                                                                                      5))
                                                                                                                                  (cell lp$207$314)))
                                                                                                                               (%closure-ref
                                                                                                                                 self$1395
                                                                                                                                 1)
                                                                                                                               (%closure-ref
                                                                                                                                 self$1395
                                                                                                                                 2)
                                                                                                                               (%closure-ref
                                                                                                                                 self$1395
                                                                                                                                 3)
                                                                                                                               (%closure-ref
                                                                                                                                 self$1395
                                                                                                                                 4)
                                                                                                                               (%closure-ref
                                                                                                                                 self$1395
                                                                                                                                 5))
                                                                                                                             #f))
                                                                                                                          (%closure-ref
                                                                                                                            self$1394
                                                                                                                            1)
                                                                                                                          (%closure-ref
                                                                                                                            self$1394
                                                                                                                            2)
                                                                                                                          (%closure-ref
                                                                                                                            self$1394
                                                                                                                            3)
                                                                                                                          (%closure-ref
                                                                                                                            self$1394
                                                                                                                            4)
                                                                                                                          (%closure-ref
                                                                                                                            self$1394
                                                                                                                            5))
                                                                                                                        #\newline))
                                                                                                                     (%closure-ref
                                                                                                                       self$1393
                                                                                                                       1)
                                                                                                                     (%closure-ref
                                                                                                                       self$1393
                                                                                                                       2)
                                                                                                                     (%closure-ref
                                                                                                                       self$1393
                                                                                                                       3)
                                                                                                                     (%closure-ref
                                                                                                                       self$1393
                                                                                                                       4)
                                                                                                                     (%closure-ref
                                                                                                                       self$1393
                                                                                                                       5))))
                                                                                                                (%closure-ref
                                                                                                                  self$1392
                                                                                                                  1)
                                                                                                                (%closure-ref
                                                                                                                  self$1392
                                                                                                                  2)
                                                                                                                (%closure-ref
                                                                                                                  self$1392
                                                                                                                  3)
                                                                                                                (%closure-ref
                                                                                                                  self$1392
                                                                                                                  5)
                                                                                                                (%closure-ref
                                                                                                                  self$1392
                                                                                                                  6))
                                                                                                              1))
                                                                                                           (%closure-ref
                                                                                                             self$1386
                                                                                                             1)
                                                                                                           (%closure-ref
                                                                                                             self$1386
                                                                                                             2)
                                                                                                           (%closure-ref
                                                                                                             self$1386
                                                                                                             3)
                                                                                                           lp$200$318
                                                                                                           (%closure-ref
                                                                                                             self$1386
                                                                                                             4)
                                                                                                           (%closure-ref
                                                                                                             self$1386
                                                                                                             5))
                                                                                                         (set-cell!
                                                                                                           lp$200$318
                                                                                                           (%closure
                                                                                                             (lambda (self$1387
                                                                                                                      k$731
                                                                                                                      c$319)
                                                                                                               (if (Cyc-fast-gte
                                                                                                                     c$319
                                                                                                                     (Cyc-fast-mul
                                                                                                                       2
                                                                                                                       (%closure-ref
                                                                                                                         self$1387
                                                                                                                         4)))
                                                                                                                 ((%closure-ref
                                                                                                                    k$731
                                                                                                                    0)
                                                                                                                  k$731
                                                                                                                  (Cyc-fast-gte
                                                                                                                    c$319
                                                                                                                    (Cyc-fast-mul
                                                                                                                      2
                                                                                                                      (%closure-ref
                                                                                                                        self$1387
                                                                                                                        4))))
                                                                                                                 ((%closure-ref
                                                                                                                    dot/space
                                                                                                                    0)
                                                                                                                  dot/space
                                                                                                                  (%closure
                                                                                                                    (lambda (self$1388
                                                                                                                             r$738)
                                                                                                                      ((%closure-ref
                                                                                                                         write-ch
                                                                                                                         0)
                                                                                                                       write-ch
                                                                                                                       (%closure
                                                                                                                         (lambda (self$1389
                                                                                                                                  r$733)
                                                                                                                           ((%closure-ref
                                                                                                                              href/rc
                                                                                                                              0)
                                                                                                                            href/rc
                                                                                                                            (%closure
                                                                                                                              (lambda (self$1390
                                                                                                                                       r$737)
                                                                                                                                ((%closure-ref
                                                                                                                                   display-hexbottom
                                                                                                                                   0)
                                                                                                                                 display-hexbottom
                                                                                                                                 (%closure
                                                                                                                                   (lambda (self$1391
                                                                                                                                            r$734)
                                                                                                                                     ((%closure-ref
                                                                                                                                        (cell-get
                                                                                                                                          (%closure-ref
                                                                                                                                            self$1391
                                                                                                                                            3))
                                                                                                                                        0)
                                                                                                                                      (cell-get
                                                                                                                                        (%closure-ref
                                                                                                                                          self$1391
                                                                                                                                          3))
                                                                                                                                      (%closure-ref
                                                                                                                                        self$1391
                                                                                                                                        2)
                                                                                                                                      (Cyc-fast-plus
                                                                                                                                        (%closure-ref
                                                                                                                                          self$1391
                                                                                                                                          1)
                                                                                                                                        2)))
                                                                                                                                   (%closure-ref
                                                                                                                                     self$1390
                                                                                                                                     1)
                                                                                                                                   (%closure-ref
                                                                                                                                     self$1390
                                                                                                                                     2)
                                                                                                                                   (%closure-ref
                                                                                                                                     self$1390
                                                                                                                                     3))
                                                                                                                                 (vector-ref
                                                                                                                                   r$737
                                                                                                                                   3)))
                                                                                                                              (%closure-ref
                                                                                                                                self$1389
                                                                                                                                1)
                                                                                                                              (%closure-ref
                                                                                                                                self$1389
                                                                                                                                3)
                                                                                                                              (%closure-ref
                                                                                                                                self$1389
                                                                                                                                4))
                                                                                                                            (%closure-ref
                                                                                                                              self$1389
                                                                                                                              2)
                                                                                                                            (%closure-ref
                                                                                                                              self$1389
                                                                                                                              5)
                                                                                                                            (%closure-ref
                                                                                                                              self$1389
                                                                                                                              1)))
                                                                                                                         (%closure-ref
                                                                                                                           self$1388
                                                                                                                           1)
                                                                                                                         (%closure-ref
                                                                                                                           self$1388
                                                                                                                           2)
                                                                                                                         (%closure-ref
                                                                                                                           self$1388
                                                                                                                           3)
                                                                                                                         (%closure-ref
                                                                                                                           self$1388
                                                                                                                           4)
                                                                                                                         (%closure-ref
                                                                                                                           self$1388
                                                                                                                           5))
                                                                                                                       r$738))
                                                                                                                    c$319
                                                                                                                    (%closure-ref
                                                                                                                      self$1387
                                                                                                                      1)
                                                                                                                    k$731
                                                                                                                    (%closure-ref
                                                                                                                      self$1387
                                                                                                                      2)
                                                                                                                    (%closure-ref
                                                                                                                      self$1387
                                                                                                                      3))
                                                                                                                  (%closure-ref
                                                                                                                    self$1387
                                                                                                                    1)
                                                                                                                  (%closure-ref
                                                                                                                    self$1387
                                                                                                                    3)
                                                                                                                  (Cyc-fast-sub
                                                                                                                    c$319
                                                                                                                    1))))
                                                                                                             (%closure-ref
                                                                                                               self$1386
                                                                                                               1)
                                                                                                             lp$200$318
                                                                                                             (%closure-ref
                                                                                                               self$1386
                                                                                                               4)
                                                                                                             (%closure-ref
                                                                                                               self$1386
                                                                                                               5)))))
                                                                                                      (%closure-ref
                                                                                                        self$1385
                                                                                                        1)
                                                                                                      (%closure-ref
                                                                                                        self$1385
                                                                                                        2)
                                                                                                      (%closure-ref
                                                                                                        self$1385
                                                                                                        3)
                                                                                                      (%closure-ref
                                                                                                        self$1385
                                                                                                        4)
                                                                                                      (%closure-ref
                                                                                                        self$1385
                                                                                                        5))
                                                                                                    (cell lp$200$318)))
                                                                                                 (%closure-ref
                                                                                                   self$1384
                                                                                                   1)
                                                                                                 (%closure-ref
                                                                                                   self$1384
                                                                                                   2)
                                                                                                 (%closure-ref
                                                                                                   self$1384
                                                                                                   3)
                                                                                                 (%closure-ref
                                                                                                   self$1384
                                                                                                   4)
                                                                                                 (%closure-ref
                                                                                                   self$1384
                                                                                                   5))
                                                                                               #f))
                                                                                            (%closure-ref
                                                                                              self$1383
                                                                                              1)
                                                                                            k$696
                                                                                            (%closure-ref
                                                                                              self$1383
                                                                                              2)
                                                                                            r$311
                                                                                            (%closure-ref
                                                                                              self$1383
                                                                                              3))
                                                                                          #\/)))
                                                                                     (%closure-ref
                                                                                       self$1382
                                                                                       1)
                                                                                     lp$196$310
                                                                                     (%closure-ref
                                                                                       self$1382
                                                                                       3)))))
                                                                              (%closure-ref
                                                                                self$1381
                                                                                1)
                                                                              (%closure-ref
                                                                                self$1381
                                                                                2)
                                                                              (%closure-ref
                                                                                self$1381
                                                                                3))
                                                                            (cell lp$196$310)))
                                                                         (%closure-ref
                                                                           self$1380
                                                                           1)
                                                                         (%closure-ref
                                                                           self$1380
                                                                           2)
                                                                         (%closure-ref
                                                                           self$1380
                                                                           3))
                                                                       #f))
                                                                    (%closure-ref
                                                                      self$1379
                                                                      1)
                                                                    (%closure-ref
                                                                      self$1379
                                                                      2)
                                                                    (%closure-ref
                                                                      self$1379
                                                                      3))
                                                                  #\newline))
                                                               (%closure-ref
                                                                 self$1378
                                                                 2)
                                                               (%closure-ref
                                                                 self$1378
                                                                 3)
                                                               (%closure-ref
                                                                 self$1378
                                                                 4))))
                                                          (%closure-ref
                                                            self$1377
                                                            1)
                                                          (%closure-ref
                                                            self$1377
                                                            2)
                                                          (%closure-ref
                                                            self$1377
                                                            3)
                                                          (%closure-ref
                                                            self$1377
                                                            5))
                                                        0))
                                                     (%closure-ref self$1368 1)
                                                     (%closure-ref self$1368 2)
                                                     (%closure-ref self$1368 3)
                                                     lp$192$322
                                                     (%closure-ref self$1368 4))
                                                   (set-cell!
                                                     lp$192$322
                                                     (%closure
                                                       (lambda (self$1369
                                                                k$748
                                                                c$323)
                                                         (if (Cyc-fast-gte
                                                               c$323
                                                               (Cyc-fast-mul
                                                                 2
                                                                 (%closure-ref
                                                                   self$1369
                                                                   4)))
                                                           ((%closure-ref
                                                              k$748
                                                              0)
                                                            k$748
                                                            (Cyc-fast-gte
                                                              c$323
                                                              (Cyc-fast-mul
                                                                2
                                                                (%closure-ref
                                                                  self$1369
                                                                  4))))
                                                           ((%closure
                                                              (lambda (self$1376
                                                                       k$759)
                                                                (if (Cyc-fast-eq
                                                                      (%closure-ref
                                                                        self$1376
                                                                        1)
                                                                      (%closure-ref
                                                                        self$1376
                                                                        2))
                                                                  ((%closure-ref
                                                                     k$759
                                                                     0)
                                                                   k$759
                                                                   #\space)
                                                                  ((%closure-ref
                                                                     k$759
                                                                     0)
                                                                   k$759
                                                                   #\_)))
                                                              c$323
                                                              (%closure-ref
                                                                self$1369
                                                                1))
                                                            (%closure
                                                              (lambda (self$1370
                                                                       r$758)
                                                                ((%closure-ref
                                                                   write-ch
                                                                   0)
                                                                 write-ch
                                                                 (%closure
                                                                   (lambda (self$1371
                                                                            r$750)
                                                                     ((%closure-ref
                                                                        write-ch
                                                                        0)
                                                                      write-ch
                                                                      (%closure
                                                                        (lambda (self$1372
                                                                                 r$751)
                                                                          ((%closure-ref
                                                                             dot/space
                                                                             0)
                                                                           dot/space
                                                                           (%closure
                                                                             (lambda (self$1373
                                                                                      r$755)
                                                                               ((%closure-ref
                                                                                  write-ch
                                                                                  0)
                                                                                write-ch
                                                                                (%closure
                                                                                  (lambda (self$1374
                                                                                           r$752)
                                                                                    ((%closure-ref
                                                                                       write-ch
                                                                                       0)
                                                                                     write-ch
                                                                                     (%closure
                                                                                       (lambda (self$1375
                                                                                                r$753)
                                                                                         ((%closure-ref
                                                                                            (cell-get
                                                                                              (%closure-ref
                                                                                                self$1375
                                                                                                3))
                                                                                            0)
                                                                                          (cell-get
                                                                                            (%closure-ref
                                                                                              self$1375
                                                                                              3))
                                                                                          (%closure-ref
                                                                                            self$1375
                                                                                            2)
                                                                                          (Cyc-fast-plus
                                                                                            (%closure-ref
                                                                                              self$1375
                                                                                              1)
                                                                                            2)))
                                                                                       (%closure-ref
                                                                                         self$1374
                                                                                         1)
                                                                                       (%closure-ref
                                                                                         self$1374
                                                                                         2)
                                                                                       (%closure-ref
                                                                                         self$1374
                                                                                         3))
                                                                                     #\\))
                                                                                  (%closure-ref
                                                                                    self$1373
                                                                                    1)
                                                                                  (%closure-ref
                                                                                    self$1373
                                                                                    2)
                                                                                  (%closure-ref
                                                                                    self$1373
                                                                                    3))
                                                                                r$755))
                                                                             (%closure-ref
                                                                               self$1372
                                                                               1)
                                                                             (%closure-ref
                                                                               self$1372
                                                                               3)
                                                                             (%closure-ref
                                                                               self$1372
                                                                               4))
                                                                           (%closure-ref
                                                                             self$1372
                                                                             2)
                                                                           (Cyc-fast-sub
                                                                             (vector-ref
                                                                               (%closure-ref
                                                                                 self$1372
                                                                                 2)
                                                                               1)
                                                                             1)
                                                                           (Cyc-fast-plus
                                                                             (%closure-ref
                                                                               self$1372
                                                                               1)
                                                                             1)))
                                                                        (%closure-ref
                                                                          self$1371
                                                                          1)
                                                                        (%closure-ref
                                                                          self$1371
                                                                          2)
                                                                        (%closure-ref
                                                                          self$1371
                                                                          3)
                                                                        (%closure-ref
                                                                          self$1371
                                                                          4))
                                                                      #\/))
                                                                   (%closure-ref
                                                                     self$1370
                                                                     1)
                                                                   (%closure-ref
                                                                     self$1370
                                                                     2)
                                                                   (%closure-ref
                                                                     self$1370
                                                                     3)
                                                                   (%closure-ref
                                                                     self$1370
                                                                     4))
                                                                 r$758))
                                                              c$323
                                                              (%closure-ref
                                                                self$1369
                                                                2)
                                                              k$748
                                                              (%closure-ref
                                                                self$1369
                                                                3)))))
                                                       (%closure-ref
                                                         self$1368
                                                         1)
                                                       (%closure-ref
                                                         self$1368
                                                         2)
                                                       lp$192$322
                                                       (%closure-ref
                                                         self$1368
                                                         4)))))
                                                (%closure-ref self$1367 1)
                                                (%closure-ref self$1367 2)
                                                (%closure-ref self$1367 3)
                                                (%closure-ref self$1367 4))
                                              (cell lp$192$322)))
                                           (%closure-ref self$1366 1)
                                           (%closure-ref self$1366 2)
                                           (%closure-ref self$1366 3)
                                           (%closure-ref self$1366 4))
                                         #f))
                                      (%closure-ref self$1365 1)
                                      (%closure-ref self$1365 2)
                                      (%closure-ref self$1365 3)
                                      (%closure-ref self$1365 4))
                                    #\space))
                                 (%closure-ref self$1364 1)
                                 (%closure-ref self$1364 2)
                                 (%closure-ref self$1364 3)
                                 (%closure-ref self$1364 4))
                               #\newline))
                            (%closure-ref self$1363 1)
                            (%closure-ref self$1363 2)
                            (%closure-ref self$1363 3)
                            (%closure-ref self$1363 5))
                          1))
                       (%closure-ref self$1355 1)
                       (%closure-ref self$1355 2)
                       (%closure-ref self$1355 3)
                       lp$188$326
                       (%closure-ref self$1355 4))
                     (set-cell!
                       lp$188$326
                       (%closure
                         (lambda (self$1356 k$763 c$327)
                           (if (Cyc-fast-gte
                                 c$327
                                 (vector-ref (%closure-ref self$1356 2) 2))
                             ((%closure-ref k$763 0)
                              k$763
                              (Cyc-fast-gte
                                c$327
                                (vector-ref (%closure-ref self$1356 2) 2)))
                             ((%closure-ref write-ch 0)
                              write-ch
                              (%closure
                                (lambda (self$1357 r$765)
                                  ((%closure-ref write-ch 0)
                                   write-ch
                                   (%closure
                                     (lambda (self$1358 r$766)
                                       ((%closure-ref write-ch 0)
                                        write-ch
                                        (%closure
                                          (lambda (self$1359 r$767)
                                            ((%closure
                                               (lambda (self$1362 k$771)
                                                 (if (Cyc-fast-eq
                                                       (%closure-ref
                                                         self$1362
                                                         1)
                                                       (%closure-ref
                                                         self$1362
                                                         2))
                                                   ((%closure-ref k$771 0)
                                                    k$771
                                                    #\space)
                                                   ((%closure-ref k$771 0)
                                                    k$771
                                                    #\_)))
                                               (%closure-ref self$1359 1)
                                               (%closure-ref self$1359 2))
                                             (%closure
                                               (lambda (self$1360 r$770)
                                                 ((%closure-ref write-ch 0)
                                                  write-ch
                                                  (%closure
                                                    (lambda (self$1361 r$768)
                                                      ((%closure-ref
                                                         (cell-get
                                                           (%closure-ref
                                                             self$1361
                                                             3))
                                                         0)
                                                       (cell-get
                                                         (%closure-ref
                                                           self$1361
                                                           3))
                                                       (%closure-ref
                                                         self$1361
                                                         2)
                                                       (Cyc-fast-plus
                                                         (%closure-ref
                                                           self$1361
                                                           1)
                                                         2)))
                                                    (%closure-ref self$1360 1)
                                                    (%closure-ref self$1360 2)
                                                    (%closure-ref self$1360 3))
                                                  r$770))
                                               (%closure-ref self$1359 1)
                                               (%closure-ref self$1359 3)
                                               (%closure-ref self$1359 4))))
                                          (%closure-ref self$1358 1)
                                          (%closure-ref self$1358 2)
                                          (%closure-ref self$1358 3)
                                          (%closure-ref self$1358 4))
                                        #\space))
                                     (%closure-ref self$1357 1)
                                     (%closure-ref self$1357 2)
                                     (%closure-ref self$1357 3)
                                     (%closure-ref self$1357 4))
                                   #\space))
                                c$327
                                (%closure-ref self$1356 1)
                                k$763
                                (%closure-ref self$1356 3))
                              #\space)))
                         (%closure-ref self$1355 1)
                         (%closure-ref self$1355 2)
                         lp$188$326))))
                  (%closure-ref self$1354 1)
                  (%closure-ref self$1354 2)
                  (%closure-ref self$1354 3)
                  (%closure-ref self$1354 4))
                (cell lp$188$326)))
             (%closure-ref self$1353 1)
             (%closure-ref self$1353 2)
             (%closure-ref self$1353 3)
             r$773)
           #f))
        entrance$304
        harr$305
        k$683)
      (vector-ref harr$305 2)
      2)))
 (define bit-test
   (lambda (k$678 j$303 bit$302)
     ((%closure-ref bitwise-and 0)
      bitwise-and
      (%closure
        (lambda (self$1352 r$680)
          ((%closure-ref (%closure-ref self$1352 1) 0)
           (%closure-ref self$1352 1)
           (not__inline__ (zero?__inline__ r$680))))
        k$678)
      j$303
      bit$302)))
 (define dot/space
   (lambda (k$671 harr$301 r$300 c$299)
     ((%closure
        (lambda (self$1350 k$673)
          (if (Cyc-fast-gte (%closure-ref self$1350 3) 0)
            ((%closure-ref href/rc 0)
             href/rc
             (%closure
               (lambda (self$1351 r$675)
                 ((%closure-ref (%closure-ref self$1351 1) 0)
                  (%closure-ref self$1351 1)
                  (vector-ref r$675 5)))
               k$673)
             (%closure-ref self$1350 2)
             (%closure-ref self$1350 3)
             (%closure-ref self$1350 1))
            ((%closure-ref k$673 0) k$673 #f)))
        c$299
        harr$301
        r$300)
      (%closure
        (lambda (self$1349 r$672)
          (if r$672
            ((%closure-ref (%closure-ref self$1349 1) 0)
             (%closure-ref self$1349 1)
             #\.)
            ((%closure-ref (%closure-ref self$1349 1) 0)
             (%closure-ref self$1349 1)
             #\space)))
        k$671))))
 (define display-hexbottom
   (lambda (k$657 hexwalls$298)
     ((%closure
        (lambda (self$1347 k$667)
          ((%closure-ref bit-test 0)
           bit-test
           (%closure
             (lambda (self$1348 r$668)
               (if r$668
                 ((%closure-ref (%closure-ref self$1348 1) 0)
                  (%closure-ref self$1348 1)
                  #\\)
                 ((%closure-ref (%closure-ref self$1348 1) 0)
                  (%closure-ref self$1348 1)
                  #\space)))
             k$667)
           (%closure-ref self$1347 1)
           south-west))
        hexwalls$298)
      (%closure
        (lambda (self$1338 r$666)
          ((%closure-ref write-ch 0)
           write-ch
           (%closure
             (lambda (self$1339 r$658)
               ((%closure
                  (lambda (self$1345 k$664)
                    ((%closure-ref bit-test 0)
                     bit-test
                     (%closure
                       (lambda (self$1346 r$665)
                         (if r$665
                           ((%closure-ref (%closure-ref self$1346 1) 0)
                            (%closure-ref self$1346 1)
                            #\_)
                           ((%closure-ref (%closure-ref self$1346 1) 0)
                            (%closure-ref self$1346 1)
                            #\space)))
                       k$664)
                     (%closure-ref self$1345 1)
                     south))
                  (%closure-ref self$1339 1))
                (%closure
                  (lambda (self$1340 r$663)
                    ((%closure-ref write-ch 0)
                     write-ch
                     (%closure
                       (lambda (self$1341 r$659)
                         ((%closure
                            (lambda (self$1343 k$661)
                              ((%closure-ref bit-test 0)
                               bit-test
                               (%closure
                                 (lambda (self$1344 r$662)
                                   (if r$662
                                     ((%closure-ref
                                        (%closure-ref self$1344 1)
                                        0)
                                      (%closure-ref self$1344 1)
                                      #\/)
                                     ((%closure-ref
                                        (%closure-ref self$1344 1)
                                        0)
                                      (%closure-ref self$1344 1)
                                      #\space)))
                                 k$661)
                               (%closure-ref self$1343 1)
                               south-east))
                            (%closure-ref self$1341 1))
                          (%closure
                            (lambda (self$1342 r$660)
                              ((%closure-ref write-ch 0)
                               write-ch
                               (%closure-ref self$1342 1)
                               r$660))
                            (%closure-ref self$1341 2))))
                       (%closure-ref self$1340 1)
                       (%closure-ref self$1340 2))
                     r$663))
                  (%closure-ref self$1339 1)
                  (%closure-ref self$1339 2))))
             (%closure-ref self$1338 1)
             (%closure-ref self$1338 2))
           r$666))
        hexwalls$298
        k$657))))
 (define run
   (lambda (k$651 nrows$297 ncols$296)
     ((%closure
        (lambda (self$1336 r$652)
          ((%closure-ref pmaze 0)
           pmaze
           (%closure
             (lambda (self$1337 r$653)
               ((%closure-ref reverse 0)
                reverse
                (%closure-ref self$1337 1)
                output))
             (%closure-ref self$1336 1))
           (%closure-ref self$1336 3)
           (%closure-ref self$1336 2)))
        k$651
        ncols$296
        nrows$297)
      (set-global! output '()))))
 (define main
   (lambda (k$634)
     ((%closure-ref read 0)
      read
      (%closure
        (lambda (self$1324 count$287)
          ((%closure-ref read 0)
           read
           (%closure
             (lambda (self$1325 input1$288)
               ((%closure-ref read 0)
                read
                (%closure
                  (lambda (self$1326 input2$289)
                    ((%closure-ref read 0)
                     read
                     (%closure
                       (lambda (self$1327 output$290)
                         ((%closure
                            (lambda (self$1328 s3$291)
                              ((%closure
                                 (lambda (self$1329 s2$292)
                                   ((%closure
                                      (lambda (self$1330 s1$293)
                                        ((%closure
                                           (lambda (self$1331 r$642)
                                             ((%closure-ref
                                                run-r7rs-benchmark
                                                0)
                                              run-r7rs-benchmark
                                              (%closure-ref self$1331 4)
                                              r$642
                                              (%closure-ref self$1331 1)
                                              (%closure
                                                (lambda (self$1333 k$646)
                                                  ((%closure-ref hide 0)
                                                   hide
                                                   (%closure
                                                     (lambda (self$1334 r$647)
                                                       ((%closure-ref hide 0)
                                                        hide
                                                        (%closure
                                                          (lambda (self$1335
                                                                   r$648)
                                                            ((%closure-ref
                                                               run
                                                               0)
                                                             run
                                                             (%closure-ref
                                                               self$1335
                                                               1)
                                                             (%closure-ref
                                                               self$1335
                                                               2)
                                                             r$648))
                                                          (%closure-ref
                                                            self$1334
                                                            3)
                                                          r$647)
                                                        (%closure-ref
                                                          self$1334
                                                          1)
                                                        (%closure-ref
                                                          self$1334
                                                          2)))
                                                     (%closure-ref self$1333 1)
                                                     (%closure-ref self$1333 3)
                                                     k$646)
                                                   (%closure-ref self$1333 1)
                                                   (%closure-ref self$1333 2)))
                                                (%closure-ref self$1331 1)
                                                (%closure-ref self$1331 2)
                                                (%closure-ref self$1331 3))
                                              (%closure
                                                (lambda (self$1332
                                                         k$645
                                                         result$295)
                                                  ((%closure-ref k$645 0)
                                                   k$645
                                                   (equal?
                                                     result$295
                                                     (%closure-ref
                                                       self$1332
                                                       1))))
                                                (%closure-ref self$1331 5))))
                                           (%closure-ref self$1330 1)
                                           (%closure-ref self$1330 2)
                                           (%closure-ref self$1330 3)
                                           (%closure-ref self$1330 4)
                                           (%closure-ref self$1330 5))
                                         (string-append
                                           "maze"
                                           ":"
                                           s1$293
                                           ":"
                                           (%closure-ref self$1330 6)
                                           ":"
                                           (%closure-ref self$1330 7))))
                                      (%closure-ref self$1329 1)
                                      (%closure-ref self$1329 2)
                                      (%closure-ref self$1329 3)
                                      (%closure-ref self$1329 4)
                                      (%closure-ref self$1329 5)
                                      s2$292
                                      (%closure-ref self$1329 6))
                                    (number->string
                                      (%closure-ref self$1329 2))))
                                 (%closure-ref self$1328 1)
                                 (%closure-ref self$1328 2)
                                 (%closure-ref self$1328 3)
                                 (%closure-ref self$1328 4)
                                 (%closure-ref self$1328 5)
                                 s3$291)
                               (number->string (%closure-ref self$1328 3))))
                            (%closure-ref self$1327 1)
                            (%closure-ref self$1327 2)
                            (%closure-ref self$1327 3)
                            (%closure-ref self$1327 4)
                            output$290)
                          (number->string (%closure-ref self$1327 1))))
                       (%closure-ref self$1326 1)
                       (%closure-ref self$1326 2)
                       input2$289
                       (%closure-ref self$1326 3))))
                  (%closure-ref self$1325 1)
                  input1$288
                  (%closure-ref self$1325 2))))
             count$287
             (%closure-ref self$1324 1))))
        k$634))))
 (define hide
   (lambda (k$620 r$283 x$282)
     ((%closure-ref call-with-values 0)
      call-with-values
      k$620
      (%closure
        (lambda (self$1319 k$625)
          ((%closure-ref vector 0)
           vector
           (%closure
             (lambda (self$1321 r$626)
               ((%closure
                  (lambda (self$1323 k$628)
                    (if (Cyc-fast-lt (%closure-ref self$1323 1) 100)
                      ((%closure-ref k$628 0) k$628 0)
                      ((%closure-ref k$628 0) k$628 1)))
                  (%closure-ref self$1321 2))
                (%closure
                  (lambda (self$1322 r$627)
                    ((%closure-ref values 0)
                     values
                     (%closure-ref self$1322 1)
                     (%closure-ref self$1322 2)
                     r$627))
                  (%closure-ref self$1321 1)
                  r$626)))
             k$625
             (%closure-ref self$1319 1))
           values
           (%closure
             (lambda (self$1320 k$631 x$286)
               ((%closure-ref k$631 0) k$631 x$286)))))
        r$283)
      (%closure
        (lambda (self$1318 k$623 v$285 i$284)
          ((%closure-ref (vector-ref v$285 i$284) 0)
           (vector-ref v$285 i$284)
           k$623
           (%closure-ref self$1318 1)))
        x$282))))
 (define run-r7rs-benchmark
   (lambda (k$568 name$264 count$263 thunk$262 ok?$261)
     ((%closure
        (lambda (self$1275 rounded$266)
          ((%closure
             (lambda (self$1276 rounded$266)
               ((%closure
                  (lambda (self$1278 r$569)
                    ((%closure-ref display 0)
                     display
                     (%closure
                       (lambda (self$1279 r$570)
                         ((%closure-ref display 0)
                          display
                          (%closure
                            (lambda (self$1280 r$571)
                              ((%closure-ref newline 0)
                               newline
                               (%closure
                                 (lambda (self$1281 r$572)
                                   ((%closure-ref current-output-port 0)
                                    current-output-port
                                    (%closure
                                      (lambda (self$1282 r$613)
                                        ((%closure-ref flush-output-port 0)
                                         flush-output-port
                                         (%closure
                                           (lambda (self$1283 r$573)
                                             ((%closure-ref
                                                jiffies-per-second
                                                0)
                                              jiffies-per-second
                                              (%closure
                                                (lambda (self$1284 j/s$268)
                                                  ((%closure-ref
                                                     current-second
                                                     0)
                                                   current-second
                                                   (%closure
                                                     (lambda (self$1285 t0$269)
                                                       ((%closure-ref
                                                          current-jiffy
                                                          0)
                                                        current-jiffy
                                                        (%closure
                                                          (lambda (self$1286
                                                                   j0$270)
                                                            ((%closure
                                                               (lambda (self$1287
                                                                        loop$273)
                                                                 ((%closure
                                                                    (lambda (self$1288
                                                                             loop$273)
                                                                      ((%closure
                                                                         (lambda (self$1317
                                                                                  r$577)
                                                                           ((%closure-ref
                                                                              (cell-get
                                                                                (%closure-ref
                                                                                  self$1317
                                                                                  2))
                                                                              0)
                                                                            (cell-get
                                                                              (%closure-ref
                                                                                self$1317
                                                                                2))
                                                                            (%closure-ref
                                                                              self$1317
                                                                              1)
                                                                            0
                                                                            #f))
                                                                         (%closure-ref
                                                                           self$1288
                                                                           4)
                                                                         loop$273)
                                                                       (set-cell!
                                                                         loop$273
                                                                         (%closure
                                                                           (lambda (self$1289
                                                                                    k$579
                                                                                    i$275
                                                                                    result$274)
                                                                             (if (Cyc-fast-lt
                                                                                   i$275
                                                                                   (%closure-ref
                                                                                     self$1289
                                                                                     1))
                                                                               ((%closure-ref
                                                                                  (%closure-ref
                                                                                    self$1289
                                                                                    9)
                                                                                  0)
                                                                                (%closure-ref
                                                                                  self$1289
                                                                                  9)
                                                                                (%closure
                                                                                  (lambda (self$1316
                                                                                           r$582)
                                                                                    ((%closure-ref
                                                                                       (cell-get
                                                                                         (%closure-ref
                                                                                           self$1316
                                                                                           3))
                                                                                       0)
                                                                                     (cell-get
                                                                                       (%closure-ref
                                                                                         self$1316
                                                                                         3))
                                                                                     (%closure-ref
                                                                                       self$1316
                                                                                       2)
                                                                                     (Cyc-fast-plus
                                                                                       (%closure-ref
                                                                                         self$1316
                                                                                         1)
                                                                                       1)
                                                                                     r$582))
                                                                                  i$275
                                                                                  k$579
                                                                                  (%closure-ref
                                                                                    self$1289
                                                                                    4)))
                                                                               ((%closure-ref
                                                                                  (%closure-ref
                                                                                    self$1289
                                                                                    6)
                                                                                  0)
                                                                                (%closure-ref
                                                                                  self$1289
                                                                                  6)
                                                                                (%closure
                                                                                  (lambda (self$1290
                                                                                           r$583)
                                                                                    (if r$583
                                                                                      ((%closure-ref
                                                                                         current-jiffy
                                                                                         0)
                                                                                       current-jiffy
                                                                                       (%closure
                                                                                         (lambda (self$1296
                                                                                                  j1$276)
                                                                                           ((%closure-ref
                                                                                              current-second
                                                                                              0)
                                                                                            current-second
                                                                                            (%closure
                                                                                              (lambda (self$1297
                                                                                                       t1$277)
                                                                                                ((%closure-ref
                                                                                                   (cell-get
                                                                                                     (%closure-ref
                                                                                                       self$1297
                                                                                                       7))
                                                                                                   0)
                                                                                                 (cell-get
                                                                                                   (%closure-ref
                                                                                                     self$1297
                                                                                                     7))
                                                                                                 (%closure
                                                                                                   (lambda (self$1298
                                                                                                            secs2$280)
                                                                                                     ((%closure-ref
                                                                                                        display
                                                                                                        0)
                                                                                                      display
                                                                                                      (%closure
                                                                                                        (lambda (self$1299
                                                                                                                 r$590)
                                                                                                          ((%closure-ref
                                                                                                             write
                                                                                                             0)
                                                                                                           write
                                                                                                           (%closure
                                                                                                             (lambda (self$1300
                                                                                                                      r$591)
                                                                                                               ((%closure-ref
                                                                                                                  display
                                                                                                                  0)
                                                                                                                display
                                                                                                                (%closure
                                                                                                                  (lambda (self$1301
                                                                                                                           r$592)
                                                                                                                    ((%closure-ref
                                                                                                                       write
                                                                                                                       0)
                                                                                                                     write
                                                                                                                     (%closure
                                                                                                                       (lambda (self$1302
                                                                                                                                r$593)
                                                                                                                         ((%closure-ref
                                                                                                                            display
                                                                                                                            0)
                                                                                                                          display
                                                                                                                          (%closure
                                                                                                                            (lambda (self$1303
                                                                                                                                     r$594)
                                                                                                                              ((%closure-ref
                                                                                                                                 display
                                                                                                                                 0)
                                                                                                                               display
                                                                                                                               (%closure
                                                                                                                                 (lambda (self$1304
                                                                                                                                          r$595)
                                                                                                                                   ((%closure-ref
                                                                                                                                      newline
                                                                                                                                      0)
                                                                                                                                    newline
                                                                                                                                    (%closure
                                                                                                                                      (lambda (self$1305
                                                                                                                                               r$596)
                                                                                                                                        ((%closure-ref
                                                                                                                                           display
                                                                                                                                           0)
                                                                                                                                         display
                                                                                                                                         (%closure
                                                                                                                                           (lambda (self$1306
                                                                                                                                                    r$597)
                                                                                                                                             ((%closure-ref
                                                                                                                                                this-scheme-implementation-name
                                                                                                                                                0)
                                                                                                                                              this-scheme-implementation-name
                                                                                                                                              (%closure
                                                                                                                                                (lambda (self$1307
                                                                                                                                                         r$605)
                                                                                                                                                  ((%closure-ref
                                                                                                                                                     display
                                                                                                                                                     0)
                                                                                                                                                   display
                                                                                                                                                   (%closure
                                                                                                                                                     (lambda (self$1308
                                                                                                                                                              r$598)
                                                                                                                                                       ((%closure-ref
                                                                                                                                                          display
                                                                                                                                                          0)
                                                                                                                                                        display
                                                                                                                                                        (%closure
                                                                                                                                                          (lambda (self$1309
                                                                                                                                                                   r$599)
                                                                                                                                                            ((%closure-ref
                                                                                                                                                               display
                                                                                                                                                               0)
                                                                                                                                                             display
                                                                                                                                                             (%closure
                                                                                                                                                               (lambda (self$1310
                                                                                                                                                                        r$600)
                                                                                                                                                                 ((%closure-ref
                                                                                                                                                                    display
                                                                                                                                                                    0)
                                                                                                                                                                  display
                                                                                                                                                                  (%closure
                                                                                                                                                                    (lambda (self$1311
                                                                                                                                                                             r$601)
                                                                                                                                                                      ((%closure-ref
                                                                                                                                                                         display
                                                                                                                                                                         0)
                                                                                                                                                                       display
                                                                                                                                                                       (%closure
                                                                                                                                                                         (lambda (self$1312
                                                                                                                                                                                  r$602)
                                                                                                                                                                           ((%closure-ref
                                                                                                                                                                              newline
                                                                                                                                                                              0)
                                                                                                                                                                            newline
                                                                                                                                                                            (%closure
                                                                                                                                                                              (lambda (self$1313
                                                                                                                                                                                       r$603)
                                                                                                                                                                                ((%closure-ref
                                                                                                                                                                                   current-output-port
                                                                                                                                                                                   0)
                                                                                                                                                                                 current-output-port
                                                                                                                                                                                 (%closure
                                                                                                                                                                                   (lambda (self$1314
                                                                                                                                                                                            r$604)
                                                                                                                                                                                     ((%closure-ref
                                                                                                                                                                                        flush-output-port
                                                                                                                                                                                        0)
                                                                                                                                                                                      flush-output-port
                                                                                                                                                                                      (%closure
                                                                                                                                                                                        (lambda (self$1315
                                                                                                                                                                                                 r$584)
                                                                                                                                                                                          ((%closure-ref
                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                               self$1315
                                                                                                                                                                                               1)
                                                                                                                                                                                             0)
                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                             self$1315
                                                                                                                                                                                             1)
                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                             self$1315
                                                                                                                                                                                             2)))
                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                          self$1314
                                                                                                                                                                                          1)
                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                          self$1314
                                                                                                                                                                                          2))
                                                                                                                                                                                      r$604))
                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                     self$1313
                                                                                                                                                                                     1)
                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                     self$1313
                                                                                                                                                                                     2))))
                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                self$1312
                                                                                                                                                                                1)
                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                self$1312
                                                                                                                                                                                2))))
                                                                                                                                                                         (%closure-ref
                                                                                                                                                                           self$1311
                                                                                                                                                                           4)
                                                                                                                                                                         (%closure-ref
                                                                                                                                                                           self$1311
                                                                                                                                                                           5))
                                                                                                                                                                       (inexact__inline__
                                                                                                                                                                         (Cyc-fast-div
                                                                                                                                                                           (Cyc-fast-sub
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$1311
                                                                                                                                                                               3)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$1311
                                                                                                                                                                               2))
                                                                                                                                                                           (%closure-ref
                                                                                                                                                                             self$1311
                                                                                                                                                                             1)))))
                                                                                                                                                                    (%closure-ref
                                                                                                                                                                      self$1310
                                                                                                                                                                      1)
                                                                                                                                                                    (%closure-ref
                                                                                                                                                                      self$1310
                                                                                                                                                                      2)
                                                                                                                                                                    (%closure-ref
                                                                                                                                                                      self$1310
                                                                                                                                                                      3)
                                                                                                                                                                    (%closure-ref
                                                                                                                                                                      self$1310
                                                                                                                                                                      4)
                                                                                                                                                                    (%closure-ref
                                                                                                                                                                      self$1310
                                                                                                                                                                      5))
                                                                                                                                                                  ","))
                                                                                                                                                               (%closure-ref
                                                                                                                                                                 self$1309
                                                                                                                                                                 1)
                                                                                                                                                               (%closure-ref
                                                                                                                                                                 self$1309
                                                                                                                                                                 2)
                                                                                                                                                               (%closure-ref
                                                                                                                                                                 self$1309
                                                                                                                                                                 3)
                                                                                                                                                               (%closure-ref
                                                                                                                                                                 self$1309
                                                                                                                                                                 4)
                                                                                                                                                               (%closure-ref
                                                                                                                                                                 self$1309
                                                                                                                                                                 6))
                                                                                                                                                             (%closure-ref
                                                                                                                                                               self$1309
                                                                                                                                                               5)))
                                                                                                                                                          (%closure-ref
                                                                                                                                                            self$1308
                                                                                                                                                            1)
                                                                                                                                                          (%closure-ref
                                                                                                                                                            self$1308
                                                                                                                                                            2)
                                                                                                                                                          (%closure-ref
                                                                                                                                                            self$1308
                                                                                                                                                            3)
                                                                                                                                                          (%closure-ref
                                                                                                                                                            self$1308
                                                                                                                                                            4)
                                                                                                                                                          (%closure-ref
                                                                                                                                                            self$1308
                                                                                                                                                            5)
                                                                                                                                                          (%closure-ref
                                                                                                                                                            self$1308
                                                                                                                                                            6))
                                                                                                                                                        ","))
                                                                                                                                                     (%closure-ref
                                                                                                                                                       self$1307
                                                                                                                                                       1)
                                                                                                                                                     (%closure-ref
                                                                                                                                                       self$1307
                                                                                                                                                       2)
                                                                                                                                                     (%closure-ref
                                                                                                                                                       self$1307
                                                                                                                                                       3)
                                                                                                                                                     (%closure-ref
                                                                                                                                                       self$1307
                                                                                                                                                       4)
                                                                                                                                                     (%closure-ref
                                                                                                                                                       self$1307
                                                                                                                                                       5)
                                                                                                                                                     (%closure-ref
                                                                                                                                                       self$1307
                                                                                                                                                       6))
                                                                                                                                                   r$605))
                                                                                                                                                (%closure-ref
                                                                                                                                                  self$1306
                                                                                                                                                  1)
                                                                                                                                                (%closure-ref
                                                                                                                                                  self$1306
                                                                                                                                                  2)
                                                                                                                                                (%closure-ref
                                                                                                                                                  self$1306
                                                                                                                                                  3)
                                                                                                                                                (%closure-ref
                                                                                                                                                  self$1306
                                                                                                                                                  4)
                                                                                                                                                (%closure-ref
                                                                                                                                                  self$1306
                                                                                                                                                  5)
                                                                                                                                                (%closure-ref
                                                                                                                                                  self$1306
                                                                                                                                                  6))))
                                                                                                                                           (%closure-ref
                                                                                                                                             self$1305
                                                                                                                                             1)
                                                                                                                                           (%closure-ref
                                                                                                                                             self$1305
                                                                                                                                             2)
                                                                                                                                           (%closure-ref
                                                                                                                                             self$1305
                                                                                                                                             3)
                                                                                                                                           (%closure-ref
                                                                                                                                             self$1305
                                                                                                                                             4)
                                                                                                                                           (%closure-ref
                                                                                                                                             self$1305
                                                                                                                                             5)
                                                                                                                                           (%closure-ref
                                                                                                                                             self$1305
                                                                                                                                             6))
                                                                                                                                         "+!CSVLINE!+"))
                                                                                                                                      (%closure-ref
                                                                                                                                        self$1304
                                                                                                                                        1)
                                                                                                                                      (%closure-ref
                                                                                                                                        self$1304
                                                                                                                                        2)
                                                                                                                                      (%closure-ref
                                                                                                                                        self$1304
                                                                                                                                        3)
                                                                                                                                      (%closure-ref
                                                                                                                                        self$1304
                                                                                                                                        4)
                                                                                                                                      (%closure-ref
                                                                                                                                        self$1304
                                                                                                                                        5)
                                                                                                                                      (%closure-ref
                                                                                                                                        self$1304
                                                                                                                                        6))))
                                                                                                                                 (%closure-ref
                                                                                                                                   self$1303
                                                                                                                                   1)
                                                                                                                                 (%closure-ref
                                                                                                                                   self$1303
                                                                                                                                   2)
                                                                                                                                 (%closure-ref
                                                                                                                                   self$1303
                                                                                                                                   3)
                                                                                                                                 (%closure-ref
                                                                                                                                   self$1303
                                                                                                                                   4)
                                                                                                                                 (%closure-ref
                                                                                                                                   self$1303
                                                                                                                                   5)
                                                                                                                                 (%closure-ref
                                                                                                                                   self$1303
                                                                                                                                   6))
                                                                                                                               (%closure-ref
                                                                                                                                 self$1303
                                                                                                                                 5)))
                                                                                                                            (%closure-ref
                                                                                                                              self$1302
                                                                                                                              1)
                                                                                                                            (%closure-ref
                                                                                                                              self$1302
                                                                                                                              2)
                                                                                                                            (%closure-ref
                                                                                                                              self$1302
                                                                                                                              3)
                                                                                                                            (%closure-ref
                                                                                                                              self$1302
                                                                                                                              4)
                                                                                                                            (%closure-ref
                                                                                                                              self$1302
                                                                                                                              5)
                                                                                                                            (%closure-ref
                                                                                                                              self$1302
                                                                                                                              6))
                                                                                                                          ") for "))
                                                                                                                       (%closure-ref
                                                                                                                         self$1301
                                                                                                                         1)
                                                                                                                       (%closure-ref
                                                                                                                         self$1301
                                                                                                                         2)
                                                                                                                       (%closure-ref
                                                                                                                         self$1301
                                                                                                                         3)
                                                                                                                       (%closure-ref
                                                                                                                         self$1301
                                                                                                                         4)
                                                                                                                       (%closure-ref
                                                                                                                         self$1301
                                                                                                                         5)
                                                                                                                       (%closure-ref
                                                                                                                         self$1301
                                                                                                                         6))
                                                                                                                     (%closure-ref
                                                                                                                       self$1301
                                                                                                                       7)))
                                                                                                                  (%closure-ref
                                                                                                                    self$1300
                                                                                                                    1)
                                                                                                                  (%closure-ref
                                                                                                                    self$1300
                                                                                                                    2)
                                                                                                                  (%closure-ref
                                                                                                                    self$1300
                                                                                                                    3)
                                                                                                                  (%closure-ref
                                                                                                                    self$1300
                                                                                                                    4)
                                                                                                                  (%closure-ref
                                                                                                                    self$1300
                                                                                                                    5)
                                                                                                                  (%closure-ref
                                                                                                                    self$1300
                                                                                                                    6)
                                                                                                                  (%closure-ref
                                                                                                                    self$1300
                                                                                                                    7))
                                                                                                                " seconds ("))
                                                                                                             (%closure-ref
                                                                                                               self$1299
                                                                                                               1)
                                                                                                             (%closure-ref
                                                                                                               self$1299
                                                                                                               2)
                                                                                                             (%closure-ref
                                                                                                               self$1299
                                                                                                               3)
                                                                                                             (%closure-ref
                                                                                                               self$1299
                                                                                                               4)
                                                                                                             (%closure-ref
                                                                                                               self$1299
                                                                                                               5)
                                                                                                             (%closure-ref
                                                                                                               self$1299
                                                                                                               6)
                                                                                                             (%closure-ref
                                                                                                               self$1299
                                                                                                               7))
                                                                                                           (inexact__inline__
                                                                                                             (Cyc-fast-div
                                                                                                               (Cyc-fast-sub
                                                                                                                 (%closure-ref
                                                                                                                   self$1299
                                                                                                                   3)
                                                                                                                 (%closure-ref
                                                                                                                   self$1299
                                                                                                                   2))
                                                                                                               (%closure-ref
                                                                                                                 self$1299
                                                                                                                 1)))))
                                                                                                        (%closure-ref
                                                                                                          self$1298
                                                                                                          1)
                                                                                                        (%closure-ref
                                                                                                          self$1298
                                                                                                          2)
                                                                                                        (%closure-ref
                                                                                                          self$1298
                                                                                                          3)
                                                                                                        (%closure-ref
                                                                                                          self$1298
                                                                                                          4)
                                                                                                        (%closure-ref
                                                                                                          self$1298
                                                                                                          5)
                                                                                                        (%closure-ref
                                                                                                          self$1298
                                                                                                          6)
                                                                                                        secs2$280)
                                                                                                      "Elapsed time: "))
                                                                                                   (%closure-ref
                                                                                                     self$1297
                                                                                                     1)
                                                                                                   (%closure-ref
                                                                                                     self$1297
                                                                                                     2)
                                                                                                   (%closure-ref
                                                                                                     self$1297
                                                                                                     3)
                                                                                                   (%closure-ref
                                                                                                     self$1297
                                                                                                     4)
                                                                                                   (%closure-ref
                                                                                                     self$1297
                                                                                                     5)
                                                                                                   (%closure-ref
                                                                                                     self$1297
                                                                                                     6))
                                                                                                 (Cyc-fast-sub
                                                                                                   t1$277
                                                                                                   (%closure-ref
                                                                                                     self$1297
                                                                                                     8))))
                                                                                              (%closure-ref
                                                                                                self$1296
                                                                                                1)
                                                                                              (%closure-ref
                                                                                                self$1296
                                                                                                2)
                                                                                              j1$276
                                                                                              (%closure-ref
                                                                                                self$1296
                                                                                                3)
                                                                                              (%closure-ref
                                                                                                self$1296
                                                                                                4)
                                                                                              (%closure-ref
                                                                                                self$1296
                                                                                                5)
                                                                                              (%closure-ref
                                                                                                self$1296
                                                                                                6)
                                                                                              (%closure-ref
                                                                                                self$1296
                                                                                                7))))
                                                                                         (%closure-ref
                                                                                           self$1290
                                                                                           1)
                                                                                         (%closure-ref
                                                                                           self$1290
                                                                                           2)
                                                                                         (%closure-ref
                                                                                           self$1290
                                                                                           3)
                                                                                         (%closure-ref
                                                                                           self$1290
                                                                                           4)
                                                                                         (%closure-ref
                                                                                           self$1290
                                                                                           5)
                                                                                         (%closure-ref
                                                                                           self$1290
                                                                                           6)
                                                                                         (%closure-ref
                                                                                           self$1290
                                                                                           7)))
                                                                                      ((%closure-ref
                                                                                         display
                                                                                         0)
                                                                                       display
                                                                                       (%closure
                                                                                         (lambda (self$1291
                                                                                                  r$608)
                                                                                           ((%closure-ref
                                                                                              write
                                                                                              0)
                                                                                            write
                                                                                            (%closure
                                                                                              (lambda (self$1292
                                                                                                       r$609)
                                                                                                ((%closure-ref
                                                                                                   newline
                                                                                                   0)
                                                                                                 newline
                                                                                                 (%closure
                                                                                                   (lambda (self$1293
                                                                                                            r$610)
                                                                                                     ((%closure-ref
                                                                                                        current-output-port
                                                                                                        0)
                                                                                                      current-output-port
                                                                                                      (%closure
                                                                                                        (lambda (self$1294
                                                                                                                 r$612)
                                                                                                          ((%closure-ref
                                                                                                             flush-output-port
                                                                                                             0)
                                                                                                           flush-output-port
                                                                                                           (%closure
                                                                                                             (lambda (self$1295
                                                                                                                      r$611)
                                                                                                               ((%closure-ref
                                                                                                                  (%closure-ref
                                                                                                                    self$1295
                                                                                                                    1)
                                                                                                                  0)
                                                                                                                (%closure-ref
                                                                                                                  self$1295
                                                                                                                  1)
                                                                                                                (%closure-ref
                                                                                                                  self$1295
                                                                                                                  2)))
                                                                                                             (%closure-ref
                                                                                                               self$1294
                                                                                                               1)
                                                                                                             (%closure-ref
                                                                                                               self$1294
                                                                                                               2))
                                                                                                           r$612))
                                                                                                        (%closure-ref
                                                                                                          self$1293
                                                                                                          1)
                                                                                                        (%closure-ref
                                                                                                          self$1293
                                                                                                          2))))
                                                                                                   (%closure-ref
                                                                                                     self$1292
                                                                                                     1)
                                                                                                   (%closure-ref
                                                                                                     self$1292
                                                                                                     2))))
                                                                                              (%closure-ref
                                                                                                self$1291
                                                                                                1)
                                                                                              (%closure-ref
                                                                                                self$1291
                                                                                                2))
                                                                                            (%closure-ref
                                                                                              self$1291
                                                                                              2)))
                                                                                         (%closure-ref
                                                                                           self$1290
                                                                                           3)
                                                                                         (%closure-ref
                                                                                           self$1290
                                                                                           5))
                                                                                       "ERROR: returned incorrect result: ")))
                                                                                  (%closure-ref
                                                                                    self$1289
                                                                                    2)
                                                                                  (%closure-ref
                                                                                    self$1289
                                                                                    3)
                                                                                  k$579
                                                                                  (%closure-ref
                                                                                    self$1289
                                                                                    5)
                                                                                  result$274
                                                                                  (%closure-ref
                                                                                    self$1289
                                                                                    7)
                                                                                  (%closure-ref
                                                                                    self$1289
                                                                                    8))
                                                                                result$274)))
                                                                           (%closure-ref
                                                                             self$1288
                                                                             1)
                                                                           (%closure-ref
                                                                             self$1288
                                                                             2)
                                                                           (%closure-ref
                                                                             self$1288
                                                                             3)
                                                                           loop$273
                                                                           (%closure-ref
                                                                             self$1288
                                                                             5)
                                                                           (%closure-ref
                                                                             self$1288
                                                                             6)
                                                                           (%closure-ref
                                                                             self$1288
                                                                             7)
                                                                           (%closure-ref
                                                                             self$1288
                                                                             8)
                                                                           (%closure-ref
                                                                             self$1288
                                                                             9)))))
                                                                    (%closure-ref
                                                                      self$1287
                                                                      1)
                                                                    (%closure-ref
                                                                      self$1287
                                                                      2)
                                                                    (%closure-ref
                                                                      self$1287
                                                                      3)
                                                                    (%closure-ref
                                                                      self$1287
                                                                      4)
                                                                    (%closure-ref
                                                                      self$1287
                                                                      5)
                                                                    (%closure-ref
                                                                      self$1287
                                                                      6)
                                                                    (%closure-ref
                                                                      self$1287
                                                                      7)
                                                                    (%closure-ref
                                                                      self$1287
                                                                      8)
                                                                    (%closure-ref
                                                                      self$1287
                                                                      9))
                                                                  (cell loop$273)))
                                                               (%closure-ref
                                                                 self$1286
                                                                 1)
                                                               (%closure-ref
                                                                 self$1286
                                                                 2)
                                                               j0$270
                                                               (%closure-ref
                                                                 self$1286
                                                                 3)
                                                               (%closure-ref
                                                                 self$1286
                                                                 4)
                                                               (%closure-ref
                                                                 self$1286
                                                                 5)
                                                               (%closure-ref
                                                                 self$1286
                                                                 6)
                                                               (%closure-ref
                                                                 self$1286
                                                                 7)
                                                               (%closure-ref
                                                                 self$1286
                                                                 8))
                                                             #f))
                                                          (%closure-ref
                                                            self$1285
                                                            1)
                                                          (%closure-ref
                                                            self$1285
                                                            2)
                                                          (%closure-ref
                                                            self$1285
                                                            3)
                                                          (%closure-ref
                                                            self$1285
                                                            4)
                                                          (%closure-ref
                                                            self$1285
                                                            5)
                                                          (%closure-ref
                                                            self$1285
                                                            6)
                                                          t0$269
                                                          (%closure-ref
                                                            self$1285
                                                            7))))
                                                     (%closure-ref self$1284 1)
                                                     j/s$268
                                                     (%closure-ref self$1284 2)
                                                     (%closure-ref self$1284 3)
                                                     (%closure-ref self$1284 4)
                                                     (%closure-ref self$1284 5)
                                                     (%closure-ref
                                                       self$1284
                                                       6))))
                                                (%closure-ref self$1283 1)
                                                (%closure-ref self$1283 2)
                                                (%closure-ref self$1283 3)
                                                (%closure-ref self$1283 4)
                                                (%closure-ref self$1283 5)
                                                (%closure-ref self$1283 6))))
                                           (%closure-ref self$1282 1)
                                           (%closure-ref self$1282 2)
                                           (%closure-ref self$1282 3)
                                           (%closure-ref self$1282 4)
                                           (%closure-ref self$1282 5)
                                           (%closure-ref self$1282 6))
                                         r$613))
                                      (%closure-ref self$1281 1)
                                      (%closure-ref self$1281 2)
                                      (%closure-ref self$1281 3)
                                      (%closure-ref self$1281 4)
                                      (%closure-ref self$1281 5)
                                      (%closure-ref self$1281 6))))
                                 (%closure-ref self$1280 1)
                                 (%closure-ref self$1280 2)
                                 (%closure-ref self$1280 3)
                                 (%closure-ref self$1280 4)
                                 (%closure-ref self$1280 5)
                                 (%closure-ref self$1280 6))))
                            (%closure-ref self$1279 1)
                            (%closure-ref self$1279 2)
                            (%closure-ref self$1279 3)
                            (%closure-ref self$1279 4)
                            (%closure-ref self$1279 5)
                            (%closure-ref self$1279 6))
                          (%closure-ref self$1279 3)))
                       (%closure-ref self$1278 1)
                       (%closure-ref self$1278 2)
                       (%closure-ref self$1278 3)
                       (%closure-ref self$1278 4)
                       (%closure-ref self$1278 5)
                       (%closure-ref self$1278 6))
                     "Running "))
                  (%closure-ref self$1276 1)
                  (%closure-ref self$1276 2)
                  (%closure-ref self$1276 3)
                  (%closure-ref self$1276 4)
                  rounded$266
                  (%closure-ref self$1276 5))
                (set-cell!
                  rounded$266
                  (%closure
                    (lambda (self$1277 k$615 x$281)
                      ((%closure-ref k$615 0)
                       k$615
                       (Cyc-fast-div
                         (round__inline__ (Cyc-fast-mul 1000 x$281))
                         1000)))))))
             (%closure-ref self$1275 1)
             (%closure-ref self$1275 2)
             (%closure-ref self$1275 3)
             (%closure-ref self$1275 4)
             (%closure-ref self$1275 5))
           (cell rounded$266)))
        count$263
        k$568
        name$264
        ok?$261
        thunk$262)
      #f)))
 (define this-scheme-implementation-name
   (lambda (k$564)
     ((%closure-ref Cyc-version 0)
      Cyc-version
      (%closure
        (lambda (self$1274 r$565)
          ((%closure-ref (%closure-ref self$1274 1) 0)
           (%closure-ref self$1274 1)
           (string-append "cyclone-" r$565)))
        k$564))))
 ((%closure-ref main 0) main %halt))
 */
/* 
"---------------- C headers: "
 */
/* 
()
 */
/* 
"---------------- module globals: "
 */
/* 
(this-scheme-implementation-name
  run-r7rs-benchmark
  hide
  main
  run
  display-hexbottom
  dot/space
  bit-test
  print-hexmaze
  write-ch
  output
  pmaze
  make-maze
  for-each-hex-child
  pick-entrances
  make-wall-vec
  gen-maze-array
  south-east
  south
  south-west
  harr-tabulate
  href/rc
  href
  harr:elts
  harr:ncols
  harr:nrows
  make-harr
  mark-path
  path-length
  reroot-maze
  dfs-maze
  dig-maze
  permute-vec!
  vector-for-each-rev
  set-cell:mark
  cell:mark
  set-cell:parent
  cell:parent
  set-cell:walls
  cell:walls
  cell:id
  cell:reachable
  make-cell
  wall:bit
  wall:neighbor
  wall:owner
  make-wall
  union!
  set-size
  set-equal?
  get-set-root
  base-set
  random-int
  rand
  random-state
  mod
  div
  bitwise-and
  bitwise-not)
 */
/* 
"---------------- C code:"
 */
#define closcall1(td, clo,a1) \
if (type_is_pair_prim(clo)) { \
   Cyc_apply(td, 0, (closure)(a1), clo); \
} else { \
   ((clo)->fn)(td, 1, clo,a1);\
}
#define return_closcall1(td, clo,a1) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[1]; buf[0] = a1;\
     GC(td, clo, buf, 1); \
     return; \
 } else {\
     closcall1(td, (closure) (clo),a1); \
     return;\
 } \
}

#define return_direct1(td, _fn,a1) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[1]; buf[0] = a1; \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 1); \
     return; \
 } else { \
     (_fn)(td, 1, (closure)_fn,a1); \
 }}

#define closcall2(td, clo,a1,a2) \
if (type_is_pair_prim(clo)) { \
   Cyc_apply(td, 1, (closure)(a1), clo,a2); \
} else { \
   ((clo)->fn)(td, 2, clo,a1,a2);\
}
#define return_closcall2(td, clo,a1,a2) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[2]; buf[0] = a1;buf[1] = a2;\
     GC(td, clo, buf, 2); \
     return; \
 } else {\
     closcall2(td, (closure) (clo),a1,a2); \
     return;\
 } \
}

#define return_direct2(td, _fn,a1,a2) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[2]; buf[0] = a1;buf[1] = a2; \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 2); \
     return; \
 } else { \
     (_fn)(td, 2, (closure)_fn,a1,a2); \
 }}

#define closcall3(td, clo,a1,a2,a3) \
if (type_is_pair_prim(clo)) { \
   Cyc_apply(td, 2, (closure)(a1), clo,a2,a3); \
} else { \
   ((clo)->fn)(td, 3, clo,a1,a2,a3);\
}
#define return_closcall3(td, clo,a1,a2,a3) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\
     GC(td, clo, buf, 3); \
     return; \
 } else {\
     closcall3(td, (closure) (clo),a1,a2,a3); \
     return;\
 } \
}

#define return_direct3(td, _fn,a1,a2,a3) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 3); \
     return; \
 } else { \
     (_fn)(td, 3, (closure)_fn,a1,a2,a3); \
 }}

#define closcall4(td, clo,a1,a2,a3,a4) \
if (type_is_pair_prim(clo)) { \
   Cyc_apply(td, 3, (closure)(a1), clo,a2,a3,a4); \
} else { \
   ((clo)->fn)(td, 4, clo,a1,a2,a3,a4);\
}
#define return_closcall4(td, clo,a1,a2,a3,a4) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\
     GC(td, clo, buf, 4); \
     return; \
 } else {\
     closcall4(td, (closure) (clo),a1,a2,a3,a4); \
     return;\
 } \
}

#define return_direct4(td, _fn,a1,a2,a3,a4) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4; \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 4); \
     return; \
 } else { \
     (_fn)(td, 4, (closure)_fn,a1,a2,a3,a4); \
 }}

#define closcall5(td, clo,a1,a2,a3,a4,a5) \
if (type_is_pair_prim(clo)) { \
   Cyc_apply(td, 4, (closure)(a1), clo,a2,a3,a4,a5); \
} else { \
   ((clo)->fn)(td, 5, clo,a1,a2,a3,a4,a5);\
}
#define return_closcall5(td, clo,a1,a2,a3,a4,a5) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;\
     GC(td, clo, buf, 5); \
     return; \
 } else {\
     closcall5(td, (closure) (clo),a1,a2,a3,a4,a5); \
     return;\
 } \
}

#define return_direct5(td, _fn,a1,a2,a3,a4,a5) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5; \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 5); \
     return; \
 } else { \
     (_fn)(td, 5, (closure)_fn,a1,a2,a3,a4,a5); \
 }}

#define closcall7(td, clo,a1,a2,a3,a4,a5,a6,a7) \
if (type_is_pair_prim(clo)) { \
   Cyc_apply(td, 6, (closure)(a1), clo,a2,a3,a4,a5,a6,a7); \
} else { \
   ((clo)->fn)(td, 7, clo,a1,a2,a3,a4,a5,a6,a7);\
}
#define return_closcall7(td, clo,a1,a2,a3,a4,a5,a6,a7) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[7]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;\
     GC(td, clo, buf, 7); \
     return; \
 } else {\
     closcall7(td, (closure) (clo),a1,a2,a3,a4,a5,a6,a7); \
     return;\
 } \
}

#define return_direct7(td, _fn,a1,a2,a3,a4,a5,a6,a7) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[7]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7; \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 7); \
     return; \
 } else { \
     (_fn)(td, 7, (closure)_fn,a1,a2,a3,a4,a5,a6,a7); \
 }}

#include "cyclone/types.h"
object __glo_this_91scheme_91implementation_91name = NULL;
object __glo_run_91r7rs_91benchmark = NULL;
object __glo_hide = NULL;
object __glo_main = NULL;
object __glo_run = NULL;
object __glo_display_91hexbottom = NULL;
object __glo_dot_95space = NULL;
object __glo_bit_91test = NULL;
object __glo_print_91hexmaze = NULL;
object __glo_write_91ch = NULL;
object __glo_output = NULL;
object __glo_pmaze = NULL;
object __glo_make_91maze = NULL;
object __glo_for_91each_91hex_91child = NULL;
object __glo_pick_91entrances = NULL;
object __glo_make_91wall_91vec = NULL;
object __glo_gen_91maze_91array = NULL;
object __glo_south_91east = NULL;
object __glo_south = NULL;
object __glo_south_91west = NULL;
object __glo_harr_91tabulate = NULL;
object __glo_href_95rc = NULL;
object __glo_href = NULL;
object __glo_harr_117elts = NULL;
object __glo_harr_117ncols = NULL;
object __glo_harr_117nrows = NULL;
object __glo_make_91harr = NULL;
object __glo_mark_91path = NULL;
object __glo_path_91length = NULL;
object __glo_reroot_91maze = NULL;
object __glo_dfs_91maze = NULL;
object __glo_dig_91maze = NULL;
object __glo_permute_91vec_67 = NULL;
object __glo_vector_91for_91each_91rev = NULL;
object __glo_set_91cell_117mark = NULL;
object __glo_cell_117mark = NULL;
object __glo_set_91cell_117parent = NULL;
object __glo_cell_117parent = NULL;
object __glo_set_91cell_117walls = NULL;
object __glo_cell_117walls = NULL;
object __glo_cell_117id = NULL;
object __glo_cell_117reachable = NULL;
object __glo_make_91cell = NULL;
object __glo_wall_117bit = NULL;
object __glo_wall_117neighbor = NULL;
object __glo_wall_117owner = NULL;
object __glo_make_91wall = NULL;
object __glo_union_67 = NULL;
object __glo_set_91size = NULL;
object __glo_set_91equal_127 = NULL;
object __glo_get_91set_91root = NULL;
object __glo_base_91set = NULL;
object __glo_random_91int = NULL;
object __glo_rand = NULL;
object __glo_random_91state = NULL;
object __glo_mod = NULL;
object __glo_div = NULL;
object __glo_bitwise_91and = NULL;
object __glo_bitwise_91not = NULL;
extern object __glo_member_scheme_base;
extern object __glo_assoc_scheme_base;
extern object __glo_cons_91source_scheme_base;
extern object __glo_syntax_91rules_scheme_base;
extern object __glo_letrec_85_scheme_base;
extern object __glo_guard_scheme_base;
extern object __glo_guard_91aux_scheme_base;
extern object __glo_define_91record_91type_scheme_base;
extern object __glo_record_127_scheme_base;
extern object __glo_register_91simple_91type_scheme_base;
extern object __glo_make_91type_91predicate_scheme_base;
extern object __glo_make_91constructor_scheme_base;
extern object __glo_make_91getter_scheme_base;
extern object __glo_make_91setter_scheme_base;
extern object __glo_slot_91set_67_scheme_base;
extern object __glo_type_91slot_91offset_scheme_base;
extern object __glo_receive_scheme_base;
extern object __glo_abs_scheme_base;
extern object __glo_max_scheme_base;
extern object __glo_min_scheme_base;
extern object __glo_modulo_scheme_base;
extern object __glo_floor_91remainder_scheme_base;
extern object __glo_even_127_scheme_base;
extern object __glo_exact_91integer_127_scheme_base;
extern object __glo_exact_91integer_91sqrt_scheme_base;
extern object __glo_exact_127_scheme_base;
extern object __glo_inexact_127_scheme_base;
extern object __glo_odd_127_scheme_base;
extern object __glo_complex_127_scheme_base;
extern object __glo_rational_127_scheme_base;
extern object __glo_bignum_127_scheme_base;
extern object __glo_gcd_scheme_base;
extern object __glo_lcm_scheme_base;
extern object __glo_quotient_scheme_base;
extern object __glo_remainder_scheme_base;
extern object __glo_truncate_91quotient_scheme_base;
extern object __glo_truncate_91remainder_scheme_base;
extern object __glo_truncate_95_scheme_base;
extern object __glo_floor_91quotient_scheme_base;
extern object __glo_floor_91remainder_scheme_base;
extern object __glo_floor_95_scheme_base;
extern object __glo_square_scheme_base;
extern object __glo_expt_scheme_base;
extern object __glo_call_91with_91current_91continuation_scheme_base;
extern object __glo_call_95cc_scheme_base;
extern object __glo_call_91with_91values_scheme_base;
extern object __glo_dynamic_91wind_scheme_base;
extern object __glo_values_scheme_base;
extern object __glo_char_123_127_scheme_base;
extern object __glo_char_121_127_scheme_base;
extern object __glo_char_125_127_scheme_base;
extern object __glo_char_121_123_127_scheme_base;
extern object __glo_char_125_123_127_scheme_base;
extern object __glo_string_123_127_scheme_base;
extern object __glo_string_121_127_scheme_base;
extern object __glo_string_121_123_127_scheme_base;
extern object __glo_string_125_127_scheme_base;
extern object __glo_string_125_123_127_scheme_base;
extern object __glo_foldl_scheme_base;
extern object __glo_foldr_scheme_base;
extern object __glo_not_scheme_base;
extern object __glo_list_127_scheme_base;
extern object __glo_zero_127_scheme_base;
extern object __glo_positive_127_scheme_base;
extern object __glo_negative_127_scheme_base;
extern object __glo_append_scheme_base;
extern object __glo__list_scheme_base;
extern object __glo_make_91list_scheme_base;
extern object __glo_list_91copy_scheme_base;
extern object __glo_map_scheme_base;
extern object __glo_for_91each_scheme_base;
extern object __glo_list_91tail_scheme_base;
extern object __glo_list_91ref_scheme_base;
extern object __glo_list_91set_67_scheme_base;
extern object __glo_reverse_scheme_base;
extern object __glo_boolean_123_127_scheme_base;
extern object __glo_symbol_123_127_scheme_base;
extern object __glo_Cyc_91obj_123_127_scheme_base;
extern object __glo_vector_scheme_base;
extern object __glo_vector_91append_scheme_base;
extern object __glo_vector_91copy_scheme_base;
extern object __glo_vector_91copy_67_scheme_base;
extern object __glo_vector_91fill_67_scheme_base;
extern object __glo_vector_91_125list_scheme_base;
extern object __glo_vector_91_125string_scheme_base;
extern object __glo_vector_91map_scheme_base;
extern object __glo_vector_91for_91each_scheme_base;
extern object __glo_make_91string_scheme_base;
extern object __glo_string_scheme_base;
extern object __glo_string_91copy_scheme_base;
extern object __glo_string_91copy_67_scheme_base;
extern object __glo_string_91fill_67_scheme_base;
extern object __glo_string_91_125list_scheme_base;
extern object __glo_string_91_125vector_scheme_base;
extern object __glo_string_91map_scheme_base;
extern object __glo_string_91for_91each_scheme_base;
extern object __glo_make_91parameter_scheme_base;
extern object __glo_current_91output_91port_scheme_base;
extern object __glo_current_91input_91port_scheme_base;
extern object __glo_current_91error_91port_scheme_base;
extern object __glo_call_91with_91port_scheme_base;
extern object __glo_error_scheme_base;
extern object __glo_raise_scheme_base;
extern object __glo_raise_91continuable_scheme_base;
extern object __glo_with_91handler_scheme_base;
extern object __glo_with_91exception_91handler_scheme_base;
extern object __glo_Cyc_91add_91exception_91handler_scheme_base;
extern object __glo_Cyc_91remove_91exception_91handler_scheme_base;
extern object __glo_newline_scheme_base;
extern object __glo_write_91char_scheme_base;
extern object __glo_write_91string_scheme_base;
extern object __glo_flush_91output_91port_scheme_base;
extern object __glo_read_91line_scheme_base;
extern object __glo_read_91string_scheme_base;
extern object __glo_input_91port_127_scheme_base;
extern object __glo_output_91port_127_scheme_base;
extern object __glo_input_91port_91open_127_scheme_base;
extern object __glo_output_91port_91open_127_scheme_base;
extern object __glo_get_91output_91string_scheme_base;
extern object __glo_open_91output_91string_scheme_base;
extern object __glo_open_91input_91string_scheme_base;
extern object __glo_get_91output_91bytevector_scheme_base;
extern object __glo_open_91input_91bytevector_scheme_base;
extern object __glo_open_91output_91bytevector_scheme_base;
extern object __glo_features_scheme_base;
extern object __glo_Cyc_91version_scheme_base;
extern object __glo_any_scheme_base;
extern object __glo_every_scheme_base;
extern object __glo_and_scheme_base;
extern object __glo_or_scheme_base;
extern object __glo_let_scheme_base;
extern object __glo_let_85_scheme_base;
extern object __glo_letrec_scheme_base;
extern object __glo_let_85_91values_scheme_base;
extern object __glo_let_91values_scheme_base;
extern object __glo_begin_scheme_base;
extern object __glo__case_scheme_base;
extern object __glo_cond_scheme_base;
extern object __glo_cond_91expand_scheme_base;
extern object __glo__do_scheme_base;
extern object __glo_when_scheme_base;
extern object __glo_unless_scheme_base;
extern object __glo_quasiquote_scheme_base;
extern object __glo_floor_scheme_base;
extern object __glo_ceiling_scheme_base;
extern object __glo_truncate_scheme_base;
extern object __glo_round_scheme_base;
extern object __glo_exact_scheme_base;
extern object __glo_inexact_scheme_base;
extern object __glo_eof_91object_scheme_base;
extern object __glo_syntax_91error_scheme_base;
extern object __glo_bytevector_91copy_scheme_base;
extern object __glo_bytevector_91copy_67_scheme_base;
extern object __glo_utf8_91_125string_scheme_base;
extern object __glo_string_91_125utf8_scheme_base;
extern object __glo_denominator_scheme_base;
extern object __glo_numerator_scheme_base;
extern object __glo_parameterize_scheme_base;
extern object __glo_read_scheme_read;
extern object __glo_read_91all_scheme_read;
extern object __glo_include_scheme_read;
extern object __glo_include_91ci_scheme_read;
extern object __glo_display_scheme_write;
extern object __glo_write_scheme_write;
extern object __glo_write_91shared_scheme_write;
extern object __glo_write_91simple_scheme_write;
extern object __glo_current_91second_scheme_time;
extern object __glo_current_91jiffy_scheme_time;
extern object __glo_jiffies_91per_91second_scheme_time;
extern object __glo_string_123_127_191_191inline_191_191_scheme_base;
extern object __glo_string_121_127_191_191inline_191_191_scheme_base;
extern object __glo_string_121_123_127_191_191inline_191_191_scheme_base;
extern object __glo_string_125_127_191_191inline_191_191_scheme_base;
extern object __glo_string_125_123_127_191_191inline_191_191_scheme_base;
extern object __glo_not_191_191inline_191_191_scheme_base;
extern object __glo_zero_127_191_191inline_191_191_scheme_base;
extern object __glo_positive_127_191_191inline_191_191_scheme_base;
extern object __glo_negative_127_191_191inline_191_191_scheme_base;
extern object __glo_floor_191_191inline_191_191_scheme_base;
extern object __glo_ceiling_191_191inline_191_191_scheme_base;
extern object __glo_truncate_191_191inline_191_191_scheme_base;
extern object __glo_round_191_191inline_191_191_scheme_base;
extern object __glo_inexact_191_191inline_191_191_scheme_base;
extern object __glo_sqrt_191_191inline_191_191_scheme_base;
extern object __glo_exact_91integer_127_191_191inline_191_191_scheme_base;
extern object __glo_exact_127_191_191inline_191_191_scheme_base;
extern object __glo_denominator_191_191inline_191_191_scheme_base;
extern object __glo_numerator_191_191inline_191_191_scheme_base;
extern object __glo_quotient_191_191inline_191_191_scheme_base;
extern object __glo_square_191_191inline_191_191_scheme_base;
extern object __glo_eof_91object_191_191inline_191_191_scheme_base;
extern object __glo_in_91port_117get_91buf_191_191inline_191_191_scheme_read;
extern object __glo_in_91port_117get_91lnum_191_191inline_191_191_scheme_read;
extern object __glo_in_91port_117get_91cnum_191_191inline_191_191_scheme_read;
#include "cyclone/runtime.h"
#include "cyclone/runtime-main.h"
defsymbol(harr);
defsymbol(cell);
defsymbol(wall);
static void __lambda_433(void *data, int argc, closure _,object k_73564) ;
static void __lambda_432(void *data, int argc, object self_731274, object r_73565) ;
static void __lambda_431(void *data, int argc, closure _,object k_73568, object name_73264, object count_73263, object thunk_73262, object ok_127_73261) ;
static void __lambda_430(void *data, int argc, object self_731275, object rounded_73266) ;
static void __lambda_429(void *data, int argc, object self_731276, object rounded_73266) ;
static void __lambda_428(void *data, int argc, object self_731277, object k_73615, object x_73281) ;
static void __lambda_427(void *data, int argc, object self_731278, object r_73569) ;
static void __lambda_426(void *data, int argc, object self_731279, object r_73570) ;
static void __lambda_425(void *data, int argc, object self_731280, object r_73571) ;
static void __lambda_424(void *data, int argc, object self_731281, object r_73572) ;
static void __lambda_423(void *data, int argc, object self_731282, object r_73613) ;
static void __lambda_422(void *data, int argc, object self_731283, object r_73573) ;
static void __lambda_421(void *data, int argc, object self_731284, object j_95s_73268) ;
static void __lambda_420(void *data, int argc, object self_731285, object t0_73269) ;
static void __lambda_419(void *data, int argc, object self_731286, object j0_73270) ;
static void __lambda_418(void *data, int argc, object self_731287, object loop_73273) ;
static void __lambda_417(void *data, int argc, object self_731288, object loop_73273) ;
static void __lambda_416(void *data, int argc, object self_731289, object k_73579, object i_73275, object result_73274) ;
static void __lambda_415(void *data, int argc, object self_731290, object r_73583) ;
static void __lambda_414(void *data, int argc, object self_731291, object r_73608) ;
static void __lambda_413(void *data, int argc, object self_731292, object r_73609) ;
static void __lambda_412(void *data, int argc, object self_731293, object r_73610) ;
static void __lambda_411(void *data, int argc, object self_731294, object r_73612) ;
static void __lambda_410(void *data, int argc, object self_731295, object r_73611) ;
static void __lambda_409(void *data, int argc, object self_731296, object j1_73276) ;
static void __lambda_408(void *data, int argc, object self_731297, object t1_73277) ;
static void __lambda_407(void *data, int argc, object self_731298, object secs2_73280) ;
static void __lambda_406(void *data, int argc, object self_731299, object r_73590) ;
static void __lambda_405(void *data, int argc, object self_731300, object r_73591) ;
static void __lambda_404(void *data, int argc, object self_731301, object r_73592) ;
static void __lambda_403(void *data, int argc, object self_731302, object r_73593) ;
static void __lambda_402(void *data, int argc, object self_731303, object r_73594) ;
static void __lambda_401(void *data, int argc, object self_731304, object r_73595) ;
static void __lambda_400(void *data, int argc, object self_731305, object r_73596) ;
static void __lambda_399(void *data, int argc, object self_731306, object r_73597) ;
static void __lambda_398(void *data, int argc, object self_731307, object r_73605) ;
static void __lambda_397(void *data, int argc, object self_731308, object r_73598) ;
static void __lambda_396(void *data, int argc, object self_731309, object r_73599) ;
static void __lambda_395(void *data, int argc, object self_731310, object r_73600) ;
static void __lambda_394(void *data, int argc, object self_731311, object r_73601) ;
static void __lambda_393(void *data, int argc, object self_731312, object r_73602) ;
static void __lambda_392(void *data, int argc, object self_731313, object r_73603) ;
static void __lambda_391(void *data, int argc, object self_731314, object r_73604) ;
static void __lambda_390(void *data, int argc, object self_731315, object r_73584) ;
static void __lambda_389(void *data, int argc, object self_731316, object r_73582) ;
static void __lambda_388(void *data, int argc, object self_731317, object r_73577) ;
static void __lambda_387(void *data, int argc, closure _,object k_73620, object r_73283, object x_73282) ;
static void __lambda_386(void *data, int argc, object self_731318, object k_73623, object v_73285, object i_73284) ;
static void __lambda_385(void *data, int argc, object self_731319, object k_73625) ;
static void __lambda_384(void *data, int argc, object self_731320, object k_73631, object x_73286) ;
static void __lambda_383(void *data, int argc, object self_731321, object r_73626) ;
static void __lambda_382(void *data, int argc, object self_731322, object r_73627) ;
static void __lambda_381(void *data, int argc, object self_731323, object k_73628) ;
static void __lambda_380(void *data, int argc, closure _,object k_73634) ;
static void __lambda_379(void *data, int argc, object self_731324, object count_73287) ;
static void __lambda_378(void *data, int argc, object self_731325, object input1_73288) ;
static void __lambda_377(void *data, int argc, object self_731326, object input2_73289) ;
static void __lambda_376(void *data, int argc, object self_731327, object output_73290) ;
static void __lambda_375(void *data, int argc, object self_731328, object s3_73291) ;
static void __lambda_374(void *data, int argc, object self_731329, object s2_73292) ;
static void __lambda_373(void *data, int argc, object self_731330, object s1_73293) ;
static void __lambda_372(void *data, int argc, object self_731331, object r_73642) ;
static void __lambda_371(void *data, int argc, object self_731332, object k_73645, object result_73295) ;
static void __lambda_370(void *data, int argc, object self_731333, object k_73646) ;
static void __lambda_369(void *data, int argc, object self_731334, object r_73647) ;
static void __lambda_368(void *data, int argc, object self_731335, object r_73648) ;
static void __lambda_367(void *data, int argc, closure _,object k_73651, object nrows_73297, object ncols_73296) ;
static void __lambda_366(void *data, int argc, object self_731336, object r_73652) ;
static void __lambda_365(void *data, int argc, object self_731337, object r_73653) ;
static void __lambda_364(void *data, int argc, closure _,object k_73657, object hexwalls_73298) ;
static void __lambda_363(void *data, int argc, object self_731338, object r_73666) ;
static void __lambda_362(void *data, int argc, object self_731339, object r_73658) ;
static void __lambda_361(void *data, int argc, object self_731340, object r_73663) ;
static void __lambda_360(void *data, int argc, object self_731341, object r_73659) ;
static void __lambda_359(void *data, int argc, object self_731342, object r_73660) ;
static void __lambda_358(void *data, int argc, object self_731343, object k_73661) ;
static void __lambda_357(void *data, int argc, object self_731344, object r_73662) ;
static void __lambda_356(void *data, int argc, object self_731345, object k_73664) ;
static void __lambda_355(void *data, int argc, object self_731346, object r_73665) ;
static void __lambda_354(void *data, int argc, object self_731347, object k_73667) ;
static void __lambda_353(void *data, int argc, object self_731348, object r_73668) ;
static void __lambda_352(void *data, int argc, closure _,object k_73671, object harr_73301, object r_73300, object c_73299) ;
static void __lambda_351(void *data, int argc, object self_731349, object r_73672) ;
static void __lambda_350(void *data, int argc, object self_731350, object k_73673) ;
static void __lambda_349(void *data, int argc, object self_731351, object r_73675) ;
static void __lambda_348(void *data, int argc, closure _,object k_73678, object j_73303, object bit_73302) ;
static void __lambda_347(void *data, int argc, object self_731352, object r_73680) ;
static void __lambda_346(void *data, int argc, closure _,object k_73683, object harr_73305, object entrance_73304) ;
static void __lambda_345(void *data, int argc, object self_731353, object r_73773) ;
static void __lambda_344(void *data, int argc, object self_731354, object lp_73188_73326) ;
static void __lambda_343(void *data, int argc, object self_731355, object lp_73188_73326) ;
static void __lambda_342(void *data, int argc, object self_731356, object k_73763, object c_73327) ;
static void __lambda_341(void *data, int argc, object self_731357, object r_73765) ;
static void __lambda_340(void *data, int argc, object self_731358, object r_73766) ;
static void __lambda_339(void *data, int argc, object self_731359, object r_73767) ;
static void __lambda_338(void *data, int argc, object self_731360, object r_73770) ;
static void __lambda_337(void *data, int argc, object self_731361, object r_73768) ;
static void __lambda_336(void *data, int argc, object self_731362, object k_73771) ;
static void __lambda_335(void *data, int argc, object self_731363, object r_73761) ;
static void __lambda_334(void *data, int argc, object self_731364, object r_73687) ;
static void __lambda_333(void *data, int argc, object self_731365, object r_73688) ;
static void __lambda_332(void *data, int argc, object self_731366, object r_73689) ;
static void __lambda_331(void *data, int argc, object self_731367, object lp_73192_73322) ;
static void __lambda_330(void *data, int argc, object self_731368, object lp_73192_73322) ;
static void __lambda_329(void *data, int argc, object self_731369, object k_73748, object c_73323) ;
static void __lambda_328(void *data, int argc, object self_731370, object r_73758) ;
static void __lambda_327(void *data, int argc, object self_731371, object r_73750) ;
static void __lambda_326(void *data, int argc, object self_731372, object r_73751) ;
static void __lambda_325(void *data, int argc, object self_731373, object r_73755) ;
static void __lambda_324(void *data, int argc, object self_731374, object r_73752) ;
static void __lambda_323(void *data, int argc, object self_731375, object r_73753) ;
static void __lambda_322(void *data, int argc, object self_731376, object k_73759) ;
static void __lambda_321(void *data, int argc, object self_731377, object r_73746) ;
static void __lambda_320(void *data, int argc, object self_731378, object r_73690) ;
static void __lambda_319(void *data, int argc, object self_731379, object r_73691) ;
static void __lambda_318(void *data, int argc, object self_731380, object r_73692) ;
static void __lambda_317(void *data, int argc, object self_731381, object lp_73196_73310) ;
static void __lambda_316(void *data, int argc, object self_731382, object lp_73196_73310) ;
static void __lambda_315(void *data, int argc, object self_731383, object k_73696, object r_73311) ;
static void __lambda_314(void *data, int argc, object self_731384, object r_73698) ;
static void __lambda_313(void *data, int argc, object self_731385, object lp_73200_73318) ;
static void __lambda_312(void *data, int argc, object self_731386, object lp_73200_73318) ;
static void __lambda_311(void *data, int argc, object self_731387, object k_73731, object c_73319) ;
static void __lambda_310(void *data, int argc, object self_731388, object r_73738) ;
static void __lambda_309(void *data, int argc, object self_731389, object r_73733) ;
static void __lambda_308(void *data, int argc, object self_731390, object r_73737) ;
static void __lambda_307(void *data, int argc, object self_731391, object r_73734) ;
static void __lambda_306(void *data, int argc, object self_731392, object r_73729) ;
static void __lambda_305(void *data, int argc, object self_731393, object r_73699) ;
static void __lambda_304(void *data, int argc, object self_731394, object r_73700) ;
static void __lambda_303(void *data, int argc, object self_731395, object r_73701) ;
static void __lambda_302(void *data, int argc, object self_731396, object lp_73207_73314) ;
static void __lambda_301(void *data, int argc, object self_731397, object lp_73207_73314) ;
static void __lambda_300(void *data, int argc, object self_731398, object k_73714, object c_73315) ;
static void __lambda_299(void *data, int argc, object self_731399, object r_73723) ;
static void __lambda_298(void *data, int argc, object self_731400, object r_73716) ;
static void __lambda_297(void *data, int argc, object self_731401, object r_73719) ;
static void __lambda_296(void *data, int argc, object self_731402, object r_73717) ;
static void __lambda_295(void *data, int argc, object self_731403, object r_73712) ;
static void __lambda_294(void *data, int argc, object self_731404, object r_73702) ;
static void __lambda_293(void *data, int argc, object self_731405, object r_73703) ;
static void __lambda_292(void *data, int argc, object self_731406, object r_73704) ;
static void __lambda_291(void *data, int argc, object self_731407, object k_73706) ;
static void __lambda_290(void *data, int argc, object self_731408, object r_73707) ;
static void __lambda_289(void *data, int argc, object self_731409, object r_73709) ;
static void __lambda_288(void *data, int argc, object self_731410, object k_73724) ;
static void __lambda_287(void *data, int argc, object self_731411, object r_73725) ;
static void __lambda_286(void *data, int argc, object self_731412, object r_73727) ;
static void __lambda_285(void *data, int argc, object self_731413, object r_73726) ;
static void __lambda_284(void *data, int argc, object self_731414, object r_73694) ;
static void __lambda_283(void *data, int argc, object self_731415, object k_73740) ;
static void __lambda_282(void *data, int argc, object self_731416, object r_73741) ;
static void __lambda_281(void *data, int argc, object self_731417, object r_73742) ;
static void __lambda_280(void *data, int argc, object self_731418, object k_73743) ;
static void __lambda_279(void *data, int argc, closure _,object k_73776, object c_73329) ;
static void __lambda_278(void *data, int argc, object self_731419, object r_73777) ;
static void __lambda_277(void *data, int argc, closure _,object k_73782, object nrows_73331, object ncols_73330) ;
static void __lambda_276(void *data, int argc, object self_731420, object result_73332) ;
static void __lambda_275(void *data, int argc, object self_731421, object cells_73335, object entrance_73334, object exit_73333) ;
static void __lambda_274(void *data, int argc, closure _,object k_73789, object nrows_73337, object ncols_73336) ;
static void __lambda_273(void *data, int argc, object self_731422, object cells_73338) ;
static void __lambda_272(void *data, int argc, object self_731423, object r_73806) ;
static void __lambda_271(void *data, int argc, object self_731424, object walls_73339) ;
static void __lambda_270(void *data, int argc, object self_731425, object r_73792) ;
static void __lambda_269(void *data, int argc, object self_731426, object result_73340) ;
static void __lambda_268(void *data, int argc, object self_731427, object exit_91cell_73343) ;
static void __lambda_267(void *data, int argc, object self_731428, object walls_73344) ;
static void __lambda_266(void *data, int argc, object self_731429, object r_73803) ;
static void __lambda_265(void *data, int argc, object self_731430, object r_73798) ;
static void __lambda_264(void *data, int argc, object self_731431, object r_73799) ;
static void __lambda_263(void *data, int argc, object self_731432, object r_73802) ;
static void __lambda_262(void *data, int argc, object self_731433, object r_73801) ;
static void __lambda_261(void *data, int argc, object self_731434, object r_73800) ;
static void __lambda_260(void *data, int argc, closure _,object k_73810, object proc_73347, object harr_73346, object cell_73345) ;
static void __lambda_259(void *data, int argc, object self_731435, object r_73819) ;
static void __lambda_258(void *data, int argc, object self_731436, object r_73820) ;
static void __lambda_257(void *data, int argc, object self_731437, object r_73821) ;
static void __lambda_256(void *data, int argc, object self_731438, object r_73822) ;
static void __lambda_255(void *data, int argc, object self_731439, object r_73823) ;
static void __lambda_254(void *data, int argc, object self_731440, object r_73824) ;
static void __lambda_253(void *data, int argc, object self_731441, object ne_73356) ;
static void __lambda_252(void *data, int argc, object self_731442, object r_73827) ;
static void __lambda_251(void *data, int argc, object self_731443, object r_73826) ;
static void __lambda_250(void *data, int argc, object self_731444, object k_73830) ;
static void __lambda_249(void *data, int argc, object self_731445, object r_73833) ;
static void __lambda_248(void *data, int argc, object self_731446, object k_73834) ;
static void __lambda_247(void *data, int argc, object self_731447, object n_73358) ;
static void __lambda_246(void *data, int argc, object self_731448, object r_73838) ;
static void __lambda_245(void *data, int argc, object self_731449, object r_73837) ;
static void __lambda_244(void *data, int argc, object self_731450, object k_73840) ;
static void __lambda_243(void *data, int argc, object self_731451, object r_73841) ;
static void __lambda_242(void *data, int argc, object self_731452, object nw_73359) ;
static void __lambda_241(void *data, int argc, object self_731453, object r_73844) ;
static void __lambda_240(void *data, int argc, object self_731454, object r_73843) ;
static void __lambda_239(void *data, int argc, object self_731455, object k_73847) ;
static void __lambda_238(void *data, int argc, object self_731456, object r_73850) ;
static void __lambda_237(void *data, int argc, object self_731457, object k_73851) ;
static void __lambda_236(void *data, int argc, object self_731458, object r_73852) ;
static void __lambda_235(void *data, int argc, object self_731459, object r_73853) ;
static void __lambda_234(void *data, int argc, object self_731460, object k_73856) ;
static void __lambda_233(void *data, int argc, object self_731461, object r_73857) ;
static void __lambda_232(void *data, int argc, object self_731462, object r_73858) ;
static void __lambda_231(void *data, int argc, object self_731463, object k_73860) ;
static void __lambda_230(void *data, int argc, object self_731464, object r_73861) ;
static void __lambda_229(void *data, int argc, object self_731465, object r_73862) ;
static void __lambda_228(void *data, int argc, closure _,object k_73869, object harr_73361) ;
static void __lambda_227(void *data, int argc, object self_731466, object r_73896) ;
static void __lambda_226(void *data, int argc, object self_731467, object r_73870) ;
static void __lambda_225(void *data, int argc, object self_731468, object r_73871) ;
static void __lambda_224(void *data, int argc, object self_731469, object r_73872) ;
static void __lambda_223(void *data, int argc, object self_731470, object nrows_73363, object ncols_73362) ;
static void __lambda_222(void *data, int argc, object self_731471, object tp_91lp_73368) ;
static void __lambda_221(void *data, int argc, object self_731472, object tp_91lp_73368) ;
static void __lambda_220(void *data, int argc, object self_731473, object k_73876, object max_91len_73372, object entrance_73371, object exit_73370, object tcol_73369) ;
static void __lambda_219(void *data, int argc, object self_731474, object r_73877) ;
static void __lambda_218(void *data, int argc, object self_731475, object top_91cell_73373) ;
static void __lambda_217(void *data, int argc, object self_731476, object r_73879) ;
static void __lambda_216(void *data, int argc, object self_731477, object max_91len_73377, object entrance_73376, object exit_73375, object bcol_73374) ;
static void __lambda_215(void *data, int argc, object self_731478, object bt_91lp_73378) ;
static void __lambda_214(void *data, int argc, object self_731479, object bt_91lp_73378) ;
static void __lambda_213(void *data, int argc, object self_731480, object k_73888, object max_91len_73382, object entrance_73381, object exit_73380, object bcol_73379) ;
static void __lambda_212(void *data, int argc, object self_731481, object r_73889) ;
static void __lambda_211(void *data, int argc, object self_731482, object r_73894) ;
static void __lambda_210(void *data, int argc, object self_731483, object this_91len_73383) ;
static void __lambda_209(void *data, int argc, object self_731484, object r_73891) ;
static void __lambda_208(void *data, int argc, object self_731485, object r_73892) ;
static void __lambda_207(void *data, int argc, object self_731486, object r_73886) ;
static void __lambda_206(void *data, int argc, object self_731487, object result_73384) ;
static void __lambda_205(void *data, int argc, object self_731488, object r_73874) ;
static void __lambda_204(void *data, int argc, closure _,object k_73899, object harr_73388) ;
static void __lambda_203(void *data, int argc, object self_731489, object walls_73392) ;
static void __lambda_202(void *data, int argc, object self_731490, object walls_73392) ;
static void __lambda_201(void *data, int argc, object self_731491, object k_73968, object o_73395, object n_73394, object b_73393) ;
static void __lambda_200(void *data, int argc, object self_731492, object r_73970) ;
static void __lambda_199(void *data, int argc, object self_731493, object r_73969) ;
static void __lambda_198(void *data, int argc, object self_731494, object add_91wall_73396) ;
static void __lambda_197(void *data, int argc, object self_731495, object lp_73132_73404) ;
static void __lambda_196(void *data, int argc, object self_731496, object lp_73132_73404) ;
static void __lambda_195(void *data, int argc, object self_731497, object k_73938, object x_73405) ;
static void __lambda_194(void *data, int argc, object self_731498, object r_73965) ;
static void __lambda_193(void *data, int argc, object self_731499, object lp_73136_73408) ;
static void __lambda_192(void *data, int argc, object self_731500, object lp_73136_73408) ;
static void __lambda_191(void *data, int argc, object self_731501, object k_73945, object y_73409) ;
static void __lambda_190(void *data, int argc, object self_731502, object hex_73411) ;
static void __lambda_189(void *data, int argc, object self_731503, object r_73950) ;
static void __lambda_188(void *data, int argc, object self_731504, object r_73957) ;
static void __lambda_187(void *data, int argc, object self_731505, object r_73951) ;
static void __lambda_186(void *data, int argc, object self_731506, object r_73947) ;
static void __lambda_185(void *data, int argc, object self_731507, object k_73952) ;
static void __lambda_184(void *data, int argc, object self_731508, object r_73954) ;
static void __lambda_183(void *data, int argc, object self_731509, object k_73959) ;
static void __lambda_182(void *data, int argc, object self_731510, object r_73961) ;
static void __lambda_181(void *data, int argc, object self_731511, object r_73943) ;
static void __lambda_180(void *data, int argc, object self_731512, object r_73940) ;
static void __lambda_179(void *data, int argc, object self_731513, object r_73936) ;
static void __lambda_178(void *data, int argc, object self_731514, object r_73905) ;
static void __lambda_177(void *data, int argc, object self_731515, object r_73906) ;
static void __lambda_176(void *data, int argc, object self_731516, object k_73907) ;
static void __lambda_175(void *data, int argc, object self_731517, object r_73933) ;
static void __lambda_174(void *data, int argc, object self_731518, object rmoc_91hex_73402) ;
static void __lambda_173(void *data, int argc, object self_731519, object r_73926) ;
static void __lambda_172(void *data, int argc, object self_731520, object r_73927) ;
static void __lambda_171(void *data, int argc, object self_731521, object r_73910) ;
static void __lambda_170(void *data, int argc, object self_731522, object lp_73140_73399) ;
static void __lambda_169(void *data, int argc, object self_731523, object lp_73140_73399) ;
static void __lambda_168(void *data, int argc, object self_731524, object k_73914, object x_73400) ;
static void __lambda_167(void *data, int argc, object self_731525, object r_73922) ;
static void __lambda_166(void *data, int argc, object self_731526, object r_73923) ;
static void __lambda_165(void *data, int argc, object self_731527, object r_73916) ;
static void __lambda_164(void *data, int argc, object self_731528, object r_73919) ;
static void __lambda_163(void *data, int argc, object self_731529, object r_73920) ;
static void __lambda_162(void *data, int argc, object self_731530, object r_73917) ;
static void __lambda_161(void *data, int argc, object self_731531, object r_73912) ;
static void __lambda_160(void *data, int argc, object self_731532, object k_73929) ;
static void __lambda_159(void *data, int argc, object self_731533, object r_73931) ;
static void __lambda_158(void *data, int argc, closure _,object k_73974, object r_73413, object c_73412) ;
static void __lambda_157(void *data, int argc, object self_731534, object k_73976, object x_73415, object y_73414) ;
static void __lambda_156(void *data, int argc, closure _,object k_73987, object nrows_73418, object ncols_73417, object proc_73416) ;
static void __lambda_155(void *data, int argc, object self_731535, object v_73419) ;
static void __lambda_154(void *data, int argc, object self_731536, object lp_73113_73421) ;
static void __lambda_153(void *data, int argc, object self_731537, object lp_73113_73421) ;
static void __lambda_152(void *data, int argc, object self_731538, object k_73993, object r_73422) ;
static void __lambda_151(void *data, int argc, object self_731539, object i_73424) ;
static void __lambda_150(void *data, int argc, object self_731540, object lp_73117_73426) ;
static void __lambda_149(void *data, int argc, object self_731541, object lp_73117_73426) ;
static void __lambda_148(void *data, int argc, object self_731542, object k_731000, object c_73428, object i_73427) ;
static void __lambda_147(void *data, int argc, object self_731543, object r_731009) ;
static void __lambda_146(void *data, int argc, object self_731544, object r_731005) ;
static void __lambda_145(void *data, int argc, object self_731545, object r_731002) ;
static void __lambda_144(void *data, int argc, object self_731546, object r_73998) ;
static void __lambda_143(void *data, int argc, object self_731547, object r_73995) ;
static void __lambda_142(void *data, int argc, object self_731548, object r_73991) ;
static void __lambda_141(void *data, int argc, object self_731549, object r_73989) ;
static void __lambda_140(void *data, int argc, closure _,object k_731013, object ha_73432, object r_73431, object c_73430) ;
static void __lambda_139(void *data, int argc, closure _,object k_731020, object ha_73435, object x_73434, object y_73433) ;
static void __lambda_138(void *data, int argc, object self_731550, object r_731021) ;
static void __lambda_137(void *data, int argc, object self_731551, object r_731022) ;
static void __lambda_136(void *data, int argc, object self_731552, object r_73437, object c_73436) ;
static void __lambda_135(void *data, int argc, closure _,object k_731029, object o_73438) ;
static void __lambda_134(void *data, int argc, closure _,object k_731032, object o_73439) ;
static void __lambda_133(void *data, int argc, closure _,object k_731035, object o_73440) ;
static void __lambda_132(void *data, int argc, closure _,object k_731038, object nrows_73443, object ncols_73442, object elts_73441) ;
static void __lambda_131(void *data, int argc, closure _,object k_731042, object node_73444) ;
static void __lambda_130(void *data, int argc, object self_731553, object node_73445) ;
static void __lambda_129(void *data, int argc, object self_731554, object lp_73446) ;
static void __lambda_128(void *data, int argc, object self_731555, object lp_73446) ;
static void __lambda_127(void *data, int argc, object self_731556, object k_731045, object node_73447) ;
static void __lambda_126(void *data, int argc, object self_731557, object r_731046) ;
static void __lambda_125(void *data, int argc, object self_731558, object tmp_73111_73448) ;
static void __lambda_124(void *data, int argc, object self_731559, object r_731043) ;
static void __lambda_123(void *data, int argc, closure _,object k_731050, object cell_73449) ;
static void __lambda_122(void *data, int argc, object self_731560, object lp_73105_73452) ;
static void __lambda_121(void *data, int argc, object self_731561, object lp_73105_73452) ;
static void __lambda_120(void *data, int argc, object self_731562, object k_731054, object len_73454, object node_73453) ;
static void __lambda_119(void *data, int argc, object self_731563, object r_731052) ;
static void __lambda_118(void *data, int argc, closure _,object k_731059, object new_91root_73455) ;
static void __lambda_117(void *data, int argc, object self_731564, object node_73457) ;
static void __lambda_116(void *data, int argc, object self_731565, object lp_73458) ;
static void __lambda_115(void *data, int argc, object self_731566, object lp_73458) ;
static void __lambda_114(void *data, int argc, object self_731567, object k_731062, object node_73460, object new_91parent_73459) ;
static void __lambda_113(void *data, int argc, object self_731568, object old_91parent_73461) ;
static void __lambda_112(void *data, int argc, object self_731569, object r_731064) ;
static void __lambda_111(void *data, int argc, object self_731570, object r_731060) ;
static void __lambda_110(void *data, int argc, closure _,object k_731067, object maze_73464, object root_73463, object do_91children_73462) ;
static void __lambda_109(void *data, int argc, object self_731571, object node_73466) ;
static void __lambda_108(void *data, int argc, object self_731572, object search_73467) ;
static void __lambda_107(void *data, int argc, object self_731573, object search_73467) ;
static void __lambda_106(void *data, int argc, object self_731574, object k_731070, object node_73469, object parent_73468) ;
static void __lambda_105(void *data, int argc, object self_731575, object r_731071) ;
static void __lambda_104(void *data, int argc, object self_731576, object k_731073, object child_73470) ;
static void __lambda_103(void *data, int argc, object self_731577, object r_731074) ;
static void __lambda_102(void *data, int argc, object self_731578, object r_731068) ;
static void __lambda_101(void *data, int argc, closure _,object k_731077, object walls_73472, object ncells_73471) ;
static void __lambda_100(void *data, int argc, object self_731579, object k_731079, object quit_73473) ;
static void __lambda_99(void *data, int argc, object self_731580, object k_731081, object wall_73474) ;
static void __lambda_98(void *data, int argc, object self_731581, object r_731086) ;
static void __lambda_97(void *data, int argc, object self_731582, object r_731088) ;
static void __lambda_96(void *data, int argc, object self_731583, object walls_73480, object wall_91mask_73479) ;
static void __lambda_95(void *data, int argc, object self_731584, object r_731089) ;
static void __lambda_94(void *data, int argc, object self_731585, object r_731093) ;
static void __lambda_93(void *data, int argc, object self_731586, object r_731090) ;
static void __lambda_92(void *data, int argc, object self_731587, object r_731092) ;
static void __lambda_91(void *data, int argc, closure _,object k_731097, object v_73482, object random_91state_73481) ;
static void __lambda_90(void *data, int argc, object self_731588, object r_731110) ;
static void __lambda_89(void *data, int argc, object self_731589, object lp_73484) ;
static void __lambda_88(void *data, int argc, object self_731590, object lp_73484) ;
static void __lambda_87(void *data, int argc, object self_731591, object k_731102, object i_73485) ;
static void __lambda_86(void *data, int argc, object self_731592, object r_731103) ;
static void __lambda_85(void *data, int argc, object self_731593, object r_731106) ;
static void __lambda_84(void *data, int argc, object self_731594, object r_731107) ;
static void __lambda_83(void *data, int argc, object self_731595, object elt_91i_73487, object j_73486) ;
static void __lambda_82(void *data, int argc, object self_731596, object r_731109) ;
static void __lambda_81(void *data, int argc, object self_731597, object r_731108) ;
static void __lambda_80(void *data, int argc, object self_731598, object r_731104) ;
static void __lambda_79(void *data, int argc, object self_731599, object r_731100) ;
static void __lambda_78(void *data, int argc, object self_731600, object r_731098) ;
static void __lambda_77(void *data, int argc, closure _,object k_731113, object proc_73489, object v_73488) ;
static void __lambda_76(void *data, int argc, object self_731601, object lp_73491) ;
static void __lambda_75(void *data, int argc, object self_731602, object lp_73491) ;
static void __lambda_74(void *data, int argc, object self_731603, object k_731117, object i_73492) ;
static void __lambda_73(void *data, int argc, object self_731604, object r_731119) ;
static void __lambda_72(void *data, int argc, object self_731605, object r_731115) ;
static void __lambda_71(void *data, int argc, closure _,object k_731125, object o_73494, object v_73493) ;
static void __lambda_70(void *data, int argc, closure _,object k_731128, object o_73495) ;
static void __lambda_69(void *data, int argc, closure _,object k_731131, object o_73497, object v_73496) ;
static void __lambda_68(void *data, int argc, closure _,object k_731134, object o_73498) ;
static void __lambda_67(void *data, int argc, closure _,object k_731137, object o_73500, object v_73499) ;
static void __lambda_66(void *data, int argc, closure _,object k_731140, object o_73501) ;
static void __lambda_65(void *data, int argc, closure _,object k_731143, object o_73502) ;
static void __lambda_64(void *data, int argc, closure _,object k_731146, object o_73503) ;
static void __lambda_63(void *data, int argc, closure _,object k_731149, object reachable_73505, object id_73504) ;
static void __lambda_62(void *data, int argc, closure _,object k_731153, object o_73506) ;
static void __lambda_61(void *data, int argc, closure _,object k_731156, object o_73507) ;
static void __lambda_60(void *data, int argc, closure _,object k_731159, object o_73508) ;
static void __lambda_59(void *data, int argc, closure _,object k_731162, object owner_73511, object neighbor_73510, object bit_73509) ;
static void __lambda_58(void *data, int argc, closure _,object k_731166, object s1_73513, object s2_73512) ;
static void __lambda_57(void *data, int argc, object self_731606, object r1_73514) ;
static void __lambda_56(void *data, int argc, object self_731607, object r2_73515) ;
static void __lambda_55(void *data, int argc, object self_731608, object n1_73516) ;
static void __lambda_54(void *data, int argc, object self_731609, object n2_73517) ;
static void __lambda_53(void *data, int argc, object self_731610, object r_731174) ;
static void __lambda_52(void *data, int argc, object self_731611, object r_731173) ;
static void __lambda_51(void *data, int argc, closure _,object k_731177, object s_73519) ;
static void __lambda_50(void *data, int argc, object self_731612, object r_731178) ;
static void __lambda_49(void *data, int argc, closure _,object k_731181, object s1_73521, object s2_73520) ;
static void __lambda_48(void *data, int argc, object self_731613, object r_731182) ;
static void __lambda_47(void *data, int argc, object self_731614, object r_731183) ;
static void __lambda_46(void *data, int argc, closure _,object k_731186, object s_73522) ;
static void __lambda_45(void *data, int argc, object self_731615, object r_73523) ;
static void __lambda_44(void *data, int argc, object self_731616, object lp_73524) ;
static void __lambda_43(void *data, int argc, object self_731617, object lp_73524) ;
static void __lambda_42(void *data, int argc, object self_731618, object k_731189, object r_73525) ;
static void __lambda_41(void *data, int argc, object self_731619, object r_731192) ;
static void __lambda_40(void *data, int argc, object self_731620, object k_731193) ;
static void __lambda_39(void *data, int argc, object self_731621, object r_731194) ;
static void __lambda_38(void *data, int argc, object self_731622, object x_73527) ;
static void __lambda_37(void *data, int argc, object self_731623, object lp_73528) ;
static void __lambda_36(void *data, int argc, object self_731624, object lp_73528) ;
static void __lambda_35(void *data, int argc, object self_731625, object k_731197, object x_73529) ;
static void __lambda_34(void *data, int argc, object self_731626, object next_73530) ;
static void __lambda_33(void *data, int argc, object self_731627, object r_731199) ;
static void __lambda_32(void *data, int argc, object self_731628, object r_731200) ;
static void __lambda_31(void *data, int argc, object self_731629, object r_731195) ;
static void __lambda_30(void *data, int argc, object self_731630, object r_731187) ;
static void __lambda_29(void *data, int argc, closure _,object k_731203, object nelts_73531) ;
static void __lambda_28(void *data, int argc, closure _,object k_731207, object n_73533, object state_73532) ;
static void __lambda_27(void *data, int argc, object self_731631, object r_731208) ;
static void __lambda_26(void *data, int argc, closure _,object k_731211, object state_73534) ;
static void __lambda_25(void *data, int argc, object self_731632, object seed_73539) ;
static void __lambda_24(void *data, int argc, object self_731633, object hi_73540) ;
static void __lambda_23(void *data, int argc, object self_731634, object lo_73541) ;
static void __lambda_22(void *data, int argc, object self_731635, object val_73543) ;
static void __lambda_21(void *data, int argc, object self_731636, object r_731217) ;
static void __lambda_20(void *data, int argc, object self_731637, object k_731218) ;
static void __lambda_19(void *data, int argc, closure _,object k_731224, object n_73544) ;
static void __lambda_18(void *data, int argc, closure _,object k_731227, object x_73546, object y_73545) ;
static void __lambda_17(void *data, int argc, object self_731638, object r_731228) ;
static void __lambda_16(void *data, int argc, object self_731639, object k_731238) ;
static void __lambda_15(void *data, int argc, closure _,object k_731243, object x_73552, object y_73551) ;
static void __lambda_14(void *data, int argc, object self_731640, object r_731244) ;
static void __lambda_13(void *data, int argc, object self_731641, object k_731254) ;
static void __lambda_12(void *data, int argc, closure _,object k_731259, object x_73558, object y_73557) ;
static void __lambda_11(void *data, int argc, object self_731642, object r_731260) ;
static void __lambda_10(void *data, int argc, object self_731643, object r_731261) ;
static void __lambda_9(void *data, int argc, object self_731644, object r_731262) ;
static void __lambda_8(void *data, int argc, object self_731645, object r_731263) ;
static void __lambda_7(void *data, int argc, object self_731646, object r_731268) ;
static void __lambda_6(void *data, int argc, object self_731647, object r_731269) ;
static void __lambda_5(void *data, int argc, object self_731648, object z_73559) ;
static void __lambda_4(void *data, int argc, object self_731649, object r_731265) ;
static void __lambda_3(void *data, int argc, object self_731650, object k_731266) ;
static void __lambda_2(void *data, int argc, object self_731651, object r_731267) ;
static void __lambda_1(void *data, int argc, closure _,object k_731272, object x_73560) ;
static void __lambda_0(void *data, int argc, object self_731652, object r_731273) ;

static void __lambda_433(void *data, int argc, closure _,object k_73564) {
  Cyc_st_add(data, "maze.scm:this-scheme-implementation-name");

closureN_type c_734550;
c_734550.hdr.mark = gc_color_red;
 c_734550.hdr.grayed = 0;
c_734550.tag = closureN_tag;
 c_734550.fn = (function_type)__lambda_432;
c_734550.num_args = 1;
c_734550.num_elements = 1;
c_734550.elements = (object *)alloca(sizeof(object) * 1);
c_734550.elements[0] = k_73564;

return_closcall1(data,  __glo_Cyc_91version_scheme_base,  &c_734550);; 
}

static void __lambda_432(void *data, int argc, object self_731274, object r_73565) {
  
make_string(c_734556, "cyclone-");

object c_734555 = Cyc_string_append(data,  ((closureN)self_731274)->elements[0],2,&c_734556, r_73565);
return_closcall1(data,  ((closureN)self_731274)->elements[0],  c_734555);; 
}

static void __lambda_431(void *data, int argc, closure _,object k_73568, object name_73264, object count_73263, object thunk_73262, object ok_127_73261) {
  Cyc_st_add(data, "maze.scm:run-r7rs-benchmark");

closureN_type c_734364;
c_734364.hdr.mark = gc_color_red;
 c_734364.hdr.grayed = 0;
c_734364.tag = closureN_tag;
 c_734364.fn = (function_type)__lambda_430;
c_734364.num_args = 1;
c_734364.num_elements = 5;
c_734364.elements = (object *)alloca(sizeof(object) * 5);
c_734364.elements[0] = count_73263;
c_734364.elements[1] = k_73568;
c_734364.elements[2] = name_73264;
c_734364.elements[3] = ok_127_73261;
c_734364.elements[4] = thunk_73262;

return_closcall1(data,(closure)&c_734364,  boolean_f);; 
}

static void __lambda_430(void *data, int argc, object self_731275, object rounded_73266) {
  
closureN_type c_734366;
c_734366.hdr.mark = gc_color_red;
 c_734366.hdr.grayed = 0;
c_734366.tag = closureN_tag;
 c_734366.fn = (function_type)__lambda_429;
c_734366.num_args = 1;
c_734366.num_elements = 5;
c_734366.elements = (object *)alloca(sizeof(object) * 5);
c_734366.elements[0] = ((closureN)self_731275)->elements[0];
c_734366.elements[1] = ((closureN)self_731275)->elements[1];
c_734366.elements[2] = ((closureN)self_731275)->elements[2];
c_734366.elements[3] = ((closureN)self_731275)->elements[3];
c_734366.elements[4] = ((closureN)self_731275)->elements[4];


make_cell(c_734547,rounded_73266);
return_closcall1(data,(closure)&c_734366,  &c_734547);; 
}

static void __lambda_429(void *data, int argc, object self_731276, object rounded_73266) {
  
closureN_type c_734368;
c_734368.hdr.mark = gc_color_red;
 c_734368.hdr.grayed = 0;
c_734368.tag = closureN_tag;
 c_734368.fn = (function_type)__lambda_427;
c_734368.num_args = 1;
c_734368.num_elements = 6;
c_734368.elements = (object *)alloca(sizeof(object) * 6);
c_734368.elements[0] = ((closureN)self_731276)->elements[0];
c_734368.elements[1] = ((closureN)self_731276)->elements[1];
c_734368.elements[2] = ((closureN)self_731276)->elements[2];
c_734368.elements[3] = ((closureN)self_731276)->elements[3];
c_734368.elements[4] = rounded_73266;
c_734368.elements[5] = ((closureN)self_731276)->elements[4];


mclosure0(c_734531, (function_type)__lambda_428);c_734531.num_args = 1;
return_closcall1(data,(closure)&c_734368,  Cyc_set_cell(data, rounded_73266, &c_734531));; 
}

static void __lambda_428(void *data, int argc, object self_731277, object k_73615, object x_73281) {
  
double_type local_734543; object c_734544 = Cyc_fast_mul(data,&local_734543,obj_int2obj(1000), x_73281);

double_type local_734539; object c_734540 = ((inline_function_type)
                   ((closure)__glo_round_191_191inline_191_191_scheme_base)->fn)(data,&local_734539,c_734544);

double_type local_734535; object c_734536 = Cyc_fast_div(data,&local_734535,c_734540, obj_int2obj(1000));
return_closcall1(data,  k_73615,  c_734536);; 
}

static void __lambda_427(void *data, int argc, object self_731278, object r_73569) {
  
closureN_type c_734370;
c_734370.hdr.mark = gc_color_red;
 c_734370.hdr.grayed = 0;
c_734370.tag = closureN_tag;
 c_734370.fn = (function_type)__lambda_426;
c_734370.num_args = 1;
c_734370.num_elements = 6;
c_734370.elements = (object *)alloca(sizeof(object) * 6);
c_734370.elements[0] = ((closureN)self_731278)->elements[0];
c_734370.elements[1] = ((closureN)self_731278)->elements[1];
c_734370.elements[2] = ((closureN)self_731278)->elements[2];
c_734370.elements[3] = ((closureN)self_731278)->elements[3];
c_734370.elements[4] = ((closureN)self_731278)->elements[4];
c_734370.elements[5] = ((closureN)self_731278)->elements[5];


make_string(c_734528, "Running ");
return_closcall2(data,  __glo_display_scheme_write,  &c_734370, &c_734528);; 
}

static void __lambda_426(void *data, int argc, object self_731279, object r_73570) {
  
closureN_type c_734372;
c_734372.hdr.mark = gc_color_red;
 c_734372.hdr.grayed = 0;
c_734372.tag = closureN_tag;
 c_734372.fn = (function_type)__lambda_425;
c_734372.num_args = 1;
c_734372.num_elements = 6;
c_734372.elements = (object *)alloca(sizeof(object) * 6);
c_734372.elements[0] = ((closureN)self_731279)->elements[0];
c_734372.elements[1] = ((closureN)self_731279)->elements[1];
c_734372.elements[2] = ((closureN)self_731279)->elements[2];
c_734372.elements[3] = ((closureN)self_731279)->elements[3];
c_734372.elements[4] = ((closureN)self_731279)->elements[4];
c_734372.elements[5] = ((closureN)self_731279)->elements[5];

return_closcall2(data,  __glo_display_scheme_write,  &c_734372, ((closureN)self_731279)->elements[2]);; 
}

static void __lambda_425(void *data, int argc, object self_731280, object r_73571) {
  
closureN_type c_734374;
c_734374.hdr.mark = gc_color_red;
 c_734374.hdr.grayed = 0;
c_734374.tag = closureN_tag;
 c_734374.fn = (function_type)__lambda_424;
c_734374.num_args = 1;
c_734374.num_elements = 6;
c_734374.elements = (object *)alloca(sizeof(object) * 6);
c_734374.elements[0] = ((closureN)self_731280)->elements[0];
c_734374.elements[1] = ((closureN)self_731280)->elements[1];
c_734374.elements[2] = ((closureN)self_731280)->elements[2];
c_734374.elements[3] = ((closureN)self_731280)->elements[3];
c_734374.elements[4] = ((closureN)self_731280)->elements[4];
c_734374.elements[5] = ((closureN)self_731280)->elements[5];

return_closcall1(data,  __glo_newline_scheme_base,  &c_734374);; 
}

static void __lambda_424(void *data, int argc, object self_731281, object r_73572) {
  
closureN_type c_734376;
c_734376.hdr.mark = gc_color_red;
 c_734376.hdr.grayed = 0;
c_734376.tag = closureN_tag;
 c_734376.fn = (function_type)__lambda_423;
c_734376.num_args = 1;
c_734376.num_elements = 6;
c_734376.elements = (object *)alloca(sizeof(object) * 6);
c_734376.elements[0] = ((closureN)self_731281)->elements[0];
c_734376.elements[1] = ((closureN)self_731281)->elements[1];
c_734376.elements[2] = ((closureN)self_731281)->elements[2];
c_734376.elements[3] = ((closureN)self_731281)->elements[3];
c_734376.elements[4] = ((closureN)self_731281)->elements[4];
c_734376.elements[5] = ((closureN)self_731281)->elements[5];

return_closcall1(data,  __glo_current_91output_91port_scheme_base,  &c_734376);; 
}

static void __lambda_423(void *data, int argc, object self_731282, object r_73613) {
  
closureN_type c_734378;
c_734378.hdr.mark = gc_color_red;
 c_734378.hdr.grayed = 0;
c_734378.tag = closureN_tag;
 c_734378.fn = (function_type)__lambda_422;
c_734378.num_args = 1;
c_734378.num_elements = 6;
c_734378.elements = (object *)alloca(sizeof(object) * 6);
c_734378.elements[0] = ((closureN)self_731282)->elements[0];
c_734378.elements[1] = ((closureN)self_731282)->elements[1];
c_734378.elements[2] = ((closureN)self_731282)->elements[2];
c_734378.elements[3] = ((closureN)self_731282)->elements[3];
c_734378.elements[4] = ((closureN)self_731282)->elements[4];
c_734378.elements[5] = ((closureN)self_731282)->elements[5];

return_closcall2(data,  __glo_flush_91output_91port_scheme_base,  &c_734378, r_73613);; 
}

static void __lambda_422(void *data, int argc, object self_731283, object r_73573) {
  
closureN_type c_734380;
c_734380.hdr.mark = gc_color_red;
 c_734380.hdr.grayed = 0;
c_734380.tag = closureN_tag;
 c_734380.fn = (function_type)__lambda_421;
c_734380.num_args = 1;
c_734380.num_elements = 6;
c_734380.elements = (object *)alloca(sizeof(object) * 6);
c_734380.elements[0] = ((closureN)self_731283)->elements[0];
c_734380.elements[1] = ((closureN)self_731283)->elements[1];
c_734380.elements[2] = ((closureN)self_731283)->elements[2];
c_734380.elements[3] = ((closureN)self_731283)->elements[3];
c_734380.elements[4] = ((closureN)self_731283)->elements[4];
c_734380.elements[5] = ((closureN)self_731283)->elements[5];

return_closcall1(data,  __glo_jiffies_91per_91second_scheme_time,  &c_734380);; 
}

static void __lambda_421(void *data, int argc, object self_731284, object j_95s_73268) {
  
closureN_type c_734382;
c_734382.hdr.mark = gc_color_red;
 c_734382.hdr.grayed = 0;
c_734382.tag = closureN_tag;
 c_734382.fn = (function_type)__lambda_420;
c_734382.num_args = 1;
c_734382.num_elements = 7;
c_734382.elements = (object *)alloca(sizeof(object) * 7);
c_734382.elements[0] = ((closureN)self_731284)->elements[0];
c_734382.elements[1] = j_95s_73268;
c_734382.elements[2] = ((closureN)self_731284)->elements[1];
c_734382.elements[3] = ((closureN)self_731284)->elements[2];
c_734382.elements[4] = ((closureN)self_731284)->elements[3];
c_734382.elements[5] = ((closureN)self_731284)->elements[4];
c_734382.elements[6] = ((closureN)self_731284)->elements[5];

return_closcall1(data,  __glo_current_91second_scheme_time,  &c_734382);; 
}

static void __lambda_420(void *data, int argc, object self_731285, object t0_73269) {
  
closureN_type c_734384;
c_734384.hdr.mark = gc_color_red;
 c_734384.hdr.grayed = 0;
c_734384.tag = closureN_tag;
 c_734384.fn = (function_type)__lambda_419;
c_734384.num_args = 1;
c_734384.num_elements = 8;
c_734384.elements = (object *)alloca(sizeof(object) * 8);
c_734384.elements[0] = ((closureN)self_731285)->elements[0];
c_734384.elements[1] = ((closureN)self_731285)->elements[1];
c_734384.elements[2] = ((closureN)self_731285)->elements[2];
c_734384.elements[3] = ((closureN)self_731285)->elements[3];
c_734384.elements[4] = ((closureN)self_731285)->elements[4];
c_734384.elements[5] = ((closureN)self_731285)->elements[5];
c_734384.elements[6] = t0_73269;
c_734384.elements[7] = ((closureN)self_731285)->elements[6];

return_closcall1(data,  __glo_current_91jiffy_scheme_time,  &c_734384);; 
}

static void __lambda_419(void *data, int argc, object self_731286, object j0_73270) {
  
closureN_type c_734386;
c_734386.hdr.mark = gc_color_red;
 c_734386.hdr.grayed = 0;
c_734386.tag = closureN_tag;
 c_734386.fn = (function_type)__lambda_418;
c_734386.num_args = 1;
c_734386.num_elements = 9;
c_734386.elements = (object *)alloca(sizeof(object) * 9);
c_734386.elements[0] = ((closureN)self_731286)->elements[0];
c_734386.elements[1] = ((closureN)self_731286)->elements[1];
c_734386.elements[2] = j0_73270;
c_734386.elements[3] = ((closureN)self_731286)->elements[2];
c_734386.elements[4] = ((closureN)self_731286)->elements[3];
c_734386.elements[5] = ((closureN)self_731286)->elements[4];
c_734386.elements[6] = ((closureN)self_731286)->elements[5];
c_734386.elements[7] = ((closureN)self_731286)->elements[6];
c_734386.elements[8] = ((closureN)self_731286)->elements[7];

return_closcall1(data,(closure)&c_734386,  boolean_f);; 
}

static void __lambda_418(void *data, int argc, object self_731287, object loop_73273) {
  
closureN_type c_734388;
c_734388.hdr.mark = gc_color_red;
 c_734388.hdr.grayed = 0;
c_734388.tag = closureN_tag;
 c_734388.fn = (function_type)__lambda_417;
c_734388.num_args = 1;
c_734388.num_elements = 9;
c_734388.elements = (object *)alloca(sizeof(object) * 9);
c_734388.elements[0] = ((closureN)self_731287)->elements[0];
c_734388.elements[1] = ((closureN)self_731287)->elements[1];
c_734388.elements[2] = ((closureN)self_731287)->elements[2];
c_734388.elements[3] = ((closureN)self_731287)->elements[3];
c_734388.elements[4] = ((closureN)self_731287)->elements[4];
c_734388.elements[5] = ((closureN)self_731287)->elements[5];
c_734388.elements[6] = ((closureN)self_731287)->elements[6];
c_734388.elements[7] = ((closureN)self_731287)->elements[7];
c_734388.elements[8] = ((closureN)self_731287)->elements[8];


make_cell(c_734526,loop_73273);
return_closcall1(data,(closure)&c_734388,  &c_734526);; 
}

static void __lambda_417(void *data, int argc, object self_731288, object loop_73273) {
  
closureN_type c_734390;
c_734390.hdr.mark = gc_color_red;
 c_734390.hdr.grayed = 0;
c_734390.tag = closureN_tag;
 c_734390.fn = (function_type)__lambda_388;
c_734390.num_args = 1;
c_734390.num_elements = 2;
c_734390.elements = (object *)alloca(sizeof(object) * 2);
c_734390.elements[0] = ((closureN)self_731288)->elements[3];
c_734390.elements[1] = loop_73273;


closureN_type c_734398;
c_734398.hdr.mark = gc_color_red;
 c_734398.hdr.grayed = 0;
c_734398.tag = closureN_tag;
 c_734398.fn = (function_type)__lambda_416;
c_734398.num_args = 2;
c_734398.num_elements = 9;
c_734398.elements = (object *)alloca(sizeof(object) * 9);
c_734398.elements[0] = ((closureN)self_731288)->elements[0];
c_734398.elements[1] = ((closureN)self_731288)->elements[1];
c_734398.elements[2] = ((closureN)self_731288)->elements[2];
c_734398.elements[3] = loop_73273;
c_734398.elements[4] = ((closureN)self_731288)->elements[4];
c_734398.elements[5] = ((closureN)self_731288)->elements[5];
c_734398.elements[6] = ((closureN)self_731288)->elements[6];
c_734398.elements[7] = ((closureN)self_731288)->elements[7];
c_734398.elements[8] = ((closureN)self_731288)->elements[8];

return_closcall1(data,(closure)&c_734390,  Cyc_set_cell(data, loop_73273, &c_734398));; 
}

static void __lambda_416(void *data, int argc, object self_731289, object k_73579, object i_73275, object result_73274) {
    object c_734401 = Cyc_num_fast_lt_op(data,i_73275, ((closureN)self_731289)->elements[0]);
if( (boolean_f != c_734401) ){ 
  
closureN_type c_734405;
c_734405.hdr.mark = gc_color_red;
 c_734405.hdr.grayed = 0;
c_734405.tag = closureN_tag;
 c_734405.fn = (function_type)__lambda_389;
c_734405.num_args = 1;
c_734405.num_elements = 3;
c_734405.elements = (object *)alloca(sizeof(object) * 3);
c_734405.elements[0] = i_73275;
c_734405.elements[1] = k_73579;
c_734405.elements[2] = ((closureN)self_731289)->elements[3];

return_closcall1(data,  ((closureN)self_731289)->elements[8],  &c_734405);
} else { 
  
closureN_type c_734418;
c_734418.hdr.mark = gc_color_red;
 c_734418.hdr.grayed = 0;
c_734418.tag = closureN_tag;
 c_734418.fn = (function_type)__lambda_415;
c_734418.num_args = 1;
c_734418.num_elements = 7;
c_734418.elements = (object *)alloca(sizeof(object) * 7);
c_734418.elements[0] = ((closureN)self_731289)->elements[1];
c_734418.elements[1] = ((closureN)self_731289)->elements[2];
c_734418.elements[2] = k_73579;
c_734418.elements[3] = ((closureN)self_731289)->elements[4];
c_734418.elements[4] = result_73274;
c_734418.elements[5] = ((closureN)self_731289)->elements[6];
c_734418.elements[6] = ((closureN)self_731289)->elements[7];

return_closcall2(data,  ((closureN)self_731289)->elements[5],  &c_734418, result_73274);}
; 
}

static void __lambda_415(void *data, int argc, object self_731290, object r_73583) {
  if( (boolean_f != r_73583) ){ 
  
closureN_type c_734420;
c_734420.hdr.mark = gc_color_red;
 c_734420.hdr.grayed = 0;
c_734420.tag = closureN_tag;
 c_734420.fn = (function_type)__lambda_409;
c_734420.num_args = 1;
c_734420.num_elements = 7;
c_734420.elements = (object *)alloca(sizeof(object) * 7);
c_734420.elements[0] = ((closureN)self_731290)->elements[0];
c_734420.elements[1] = ((closureN)self_731290)->elements[1];
c_734420.elements[2] = ((closureN)self_731290)->elements[2];
c_734420.elements[3] = ((closureN)self_731290)->elements[3];
c_734420.elements[4] = ((closureN)self_731290)->elements[4];
c_734420.elements[5] = ((closureN)self_731290)->elements[5];
c_734420.elements[6] = ((closureN)self_731290)->elements[6];

return_closcall1(data,  __glo_current_91jiffy_scheme_time,  &c_734420);
} else { 
  
closureN_type c_734510;
c_734510.hdr.mark = gc_color_red;
 c_734510.hdr.grayed = 0;
c_734510.tag = closureN_tag;
 c_734510.fn = (function_type)__lambda_414;
c_734510.num_args = 1;
c_734510.num_elements = 2;
c_734510.elements = (object *)alloca(sizeof(object) * 2);
c_734510.elements[0] = ((closureN)self_731290)->elements[2];
c_734510.elements[1] = ((closureN)self_731290)->elements[4];


make_string(c_734523, "ERROR: returned incorrect result: ");
return_closcall2(data,  __glo_display_scheme_write,  &c_734510, &c_734523);}
; 
}

static void __lambda_414(void *data, int argc, object self_731291, object r_73608) {
  
closureN_type c_734512;
c_734512.hdr.mark = gc_color_red;
 c_734512.hdr.grayed = 0;
c_734512.tag = closureN_tag;
 c_734512.fn = (function_type)__lambda_413;
c_734512.num_args = 1;
c_734512.num_elements = 2;
c_734512.elements = (object *)alloca(sizeof(object) * 2);
c_734512.elements[0] = ((closureN)self_731291)->elements[0];
c_734512.elements[1] = ((closureN)self_731291)->elements[1];

return_closcall2(data,  __glo_write_scheme_write,  &c_734512, ((closureN)self_731291)->elements[1]);; 
}

static void __lambda_413(void *data, int argc, object self_731292, object r_73609) {
  
closureN_type c_734514;
c_734514.hdr.mark = gc_color_red;
 c_734514.hdr.grayed = 0;
c_734514.tag = closureN_tag;
 c_734514.fn = (function_type)__lambda_412;
c_734514.num_args = 1;
c_734514.num_elements = 2;
c_734514.elements = (object *)alloca(sizeof(object) * 2);
c_734514.elements[0] = ((closureN)self_731292)->elements[0];
c_734514.elements[1] = ((closureN)self_731292)->elements[1];

return_closcall1(data,  __glo_newline_scheme_base,  &c_734514);; 
}

static void __lambda_412(void *data, int argc, object self_731293, object r_73610) {
  
closureN_type c_734516;
c_734516.hdr.mark = gc_color_red;
 c_734516.hdr.grayed = 0;
c_734516.tag = closureN_tag;
 c_734516.fn = (function_type)__lambda_411;
c_734516.num_args = 1;
c_734516.num_elements = 2;
c_734516.elements = (object *)alloca(sizeof(object) * 2);
c_734516.elements[0] = ((closureN)self_731293)->elements[0];
c_734516.elements[1] = ((closureN)self_731293)->elements[1];

return_closcall1(data,  __glo_current_91output_91port_scheme_base,  &c_734516);; 
}

static void __lambda_411(void *data, int argc, object self_731294, object r_73612) {
  
closureN_type c_734518;
c_734518.hdr.mark = gc_color_red;
 c_734518.hdr.grayed = 0;
c_734518.tag = closureN_tag;
 c_734518.fn = (function_type)__lambda_410;
c_734518.num_args = 1;
c_734518.num_elements = 2;
c_734518.elements = (object *)alloca(sizeof(object) * 2);
c_734518.elements[0] = ((closureN)self_731294)->elements[0];
c_734518.elements[1] = ((closureN)self_731294)->elements[1];

return_closcall2(data,  __glo_flush_91output_91port_scheme_base,  &c_734518, r_73612);; 
}

static void __lambda_410(void *data, int argc, object self_731295, object r_73611) {
  return_closcall1(data,  ((closureN)self_731295)->elements[0],  ((closureN)self_731295)->elements[1]);; 
}

static void __lambda_409(void *data, int argc, object self_731296, object j1_73276) {
  
closureN_type c_734422;
c_734422.hdr.mark = gc_color_red;
 c_734422.hdr.grayed = 0;
c_734422.tag = closureN_tag;
 c_734422.fn = (function_type)__lambda_408;
c_734422.num_args = 1;
c_734422.num_elements = 8;
c_734422.elements = (object *)alloca(sizeof(object) * 8);
c_734422.elements[0] = ((closureN)self_731296)->elements[0];
c_734422.elements[1] = ((closureN)self_731296)->elements[1];
c_734422.elements[2] = j1_73276;
c_734422.elements[3] = ((closureN)self_731296)->elements[2];
c_734422.elements[4] = ((closureN)self_731296)->elements[3];
c_734422.elements[5] = ((closureN)self_731296)->elements[4];
c_734422.elements[6] = ((closureN)self_731296)->elements[5];
c_734422.elements[7] = ((closureN)self_731296)->elements[6];

return_closcall1(data,  __glo_current_91second_scheme_time,  &c_734422);; 
}

static void __lambda_408(void *data, int argc, object self_731297, object t1_73277) {
  
closureN_type c_734427;
c_734427.hdr.mark = gc_color_red;
 c_734427.hdr.grayed = 0;
c_734427.tag = closureN_tag;
 c_734427.fn = (function_type)__lambda_407;
c_734427.num_args = 1;
c_734427.num_elements = 6;
c_734427.elements = (object *)alloca(sizeof(object) * 6);
c_734427.elements[0] = ((closureN)self_731297)->elements[0];
c_734427.elements[1] = ((closureN)self_731297)->elements[1];
c_734427.elements[2] = ((closureN)self_731297)->elements[2];
c_734427.elements[3] = ((closureN)self_731297)->elements[3];
c_734427.elements[4] = ((closureN)self_731297)->elements[4];
c_734427.elements[5] = ((closureN)self_731297)->elements[5];


double_type local_734506; object c_734507 = Cyc_fast_sub(data,&local_734506,t1_73277, ((closureN)self_731297)->elements[7]);
return_closcall2(data,  car(((closureN)self_731297)->elements[6]),  &c_734427, c_734507);; 
}

static void __lambda_407(void *data, int argc, object self_731298, object secs2_73280) {
  
closureN_type c_734429;
c_734429.hdr.mark = gc_color_red;
 c_734429.hdr.grayed = 0;
c_734429.tag = closureN_tag;
 c_734429.fn = (function_type)__lambda_406;
c_734429.num_args = 1;
c_734429.num_elements = 7;
c_734429.elements = (object *)alloca(sizeof(object) * 7);
c_734429.elements[0] = ((closureN)self_731298)->elements[0];
c_734429.elements[1] = ((closureN)self_731298)->elements[1];
c_734429.elements[2] = ((closureN)self_731298)->elements[2];
c_734429.elements[3] = ((closureN)self_731298)->elements[3];
c_734429.elements[4] = ((closureN)self_731298)->elements[4];
c_734429.elements[5] = ((closureN)self_731298)->elements[5];
c_734429.elements[6] = secs2_73280;


make_string(c_734503, "Elapsed time: ");
return_closcall2(data,  __glo_display_scheme_write,  &c_734429, &c_734503);; 
}

static void __lambda_406(void *data, int argc, object self_731299, object r_73590) {
  
closureN_type c_734431;
c_734431.hdr.mark = gc_color_red;
 c_734431.hdr.grayed = 0;
c_734431.tag = closureN_tag;
 c_734431.fn = (function_type)__lambda_405;
c_734431.num_args = 1;
c_734431.num_elements = 7;
c_734431.elements = (object *)alloca(sizeof(object) * 7);
c_734431.elements[0] = ((closureN)self_731299)->elements[0];
c_734431.elements[1] = ((closureN)self_731299)->elements[1];
c_734431.elements[2] = ((closureN)self_731299)->elements[2];
c_734431.elements[3] = ((closureN)self_731299)->elements[3];
c_734431.elements[4] = ((closureN)self_731299)->elements[4];
c_734431.elements[5] = ((closureN)self_731299)->elements[5];
c_734431.elements[6] = ((closureN)self_731299)->elements[6];


double_type local_734498; object c_734499 = Cyc_fast_sub(data,&local_734498,((closureN)self_731299)->elements[2], ((closureN)self_731299)->elements[1]);

double_type local_734494; object c_734495 = Cyc_fast_div(data,&local_734494,c_734499, ((closureN)self_731299)->elements[0]);

double_type local_734490; object c_734491 = ((inline_function_type)
                   ((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_734490,c_734495);
return_closcall2(data,  __glo_write_scheme_write,  &c_734431, c_734491);; 
}

static void __lambda_405(void *data, int argc, object self_731300, object r_73591) {
  
closureN_type c_734433;
c_734433.hdr.mark = gc_color_red;
 c_734433.hdr.grayed = 0;
c_734433.tag = closureN_tag;
 c_734433.fn = (function_type)__lambda_404;
c_734433.num_args = 1;
c_734433.num_elements = 7;
c_734433.elements = (object *)alloca(sizeof(object) * 7);
c_734433.elements[0] = ((closureN)self_731300)->elements[0];
c_734433.elements[1] = ((closureN)self_731300)->elements[1];
c_734433.elements[2] = ((closureN)self_731300)->elements[2];
c_734433.elements[3] = ((closureN)self_731300)->elements[3];
c_734433.elements[4] = ((closureN)self_731300)->elements[4];
c_734433.elements[5] = ((closureN)self_731300)->elements[5];
c_734433.elements[6] = ((closureN)self_731300)->elements[6];


make_string(c_734487, " seconds (");
return_closcall2(data,  __glo_display_scheme_write,  &c_734433, &c_734487);; 
}

static void __lambda_404(void *data, int argc, object self_731301, object r_73592) {
  
closureN_type c_734435;
c_734435.hdr.mark = gc_color_red;
 c_734435.hdr.grayed = 0;
c_734435.tag = closureN_tag;
 c_734435.fn = (function_type)__lambda_403;
c_734435.num_args = 1;
c_734435.num_elements = 6;
c_734435.elements = (object *)alloca(sizeof(object) * 6);
c_734435.elements[0] = ((closureN)self_731301)->elements[0];
c_734435.elements[1] = ((closureN)self_731301)->elements[1];
c_734435.elements[2] = ((closureN)self_731301)->elements[2];
c_734435.elements[3] = ((closureN)self_731301)->elements[3];
c_734435.elements[4] = ((closureN)self_731301)->elements[4];
c_734435.elements[5] = ((closureN)self_731301)->elements[5];

return_closcall2(data,  __glo_write_scheme_write,  &c_734435, ((closureN)self_731301)->elements[6]);; 
}

static void __lambda_403(void *data, int argc, object self_731302, object r_73593) {
  
closureN_type c_734437;
c_734437.hdr.mark = gc_color_red;
 c_734437.hdr.grayed = 0;
c_734437.tag = closureN_tag;
 c_734437.fn = (function_type)__lambda_402;
c_734437.num_args = 1;
c_734437.num_elements = 6;
c_734437.elements = (object *)alloca(sizeof(object) * 6);
c_734437.elements[0] = ((closureN)self_731302)->elements[0];
c_734437.elements[1] = ((closureN)self_731302)->elements[1];
c_734437.elements[2] = ((closureN)self_731302)->elements[2];
c_734437.elements[3] = ((closureN)self_731302)->elements[3];
c_734437.elements[4] = ((closureN)self_731302)->elements[4];
c_734437.elements[5] = ((closureN)self_731302)->elements[5];


make_string(c_734485, ") for ");
return_closcall2(data,  __glo_display_scheme_write,  &c_734437, &c_734485);; 
}

static void __lambda_402(void *data, int argc, object self_731303, object r_73594) {
  
closureN_type c_734439;
c_734439.hdr.mark = gc_color_red;
 c_734439.hdr.grayed = 0;
c_734439.tag = closureN_tag;
 c_734439.fn = (function_type)__lambda_401;
c_734439.num_args = 1;
c_734439.num_elements = 6;
c_734439.elements = (object *)alloca(sizeof(object) * 6);
c_734439.elements[0] = ((closureN)self_731303)->elements[0];
c_734439.elements[1] = ((closureN)self_731303)->elements[1];
c_734439.elements[2] = ((closureN)self_731303)->elements[2];
c_734439.elements[3] = ((closureN)self_731303)->elements[3];
c_734439.elements[4] = ((closureN)self_731303)->elements[4];
c_734439.elements[5] = ((closureN)self_731303)->elements[5];

return_closcall2(data,  __glo_display_scheme_write,  &c_734439, ((closureN)self_731303)->elements[4]);; 
}

static void __lambda_401(void *data, int argc, object self_731304, object r_73595) {
  
closureN_type c_734441;
c_734441.hdr.mark = gc_color_red;
 c_734441.hdr.grayed = 0;
c_734441.tag = closureN_tag;
 c_734441.fn = (function_type)__lambda_400;
c_734441.num_args = 1;
c_734441.num_elements = 6;
c_734441.elements = (object *)alloca(sizeof(object) * 6);
c_734441.elements[0] = ((closureN)self_731304)->elements[0];
c_734441.elements[1] = ((closureN)self_731304)->elements[1];
c_734441.elements[2] = ((closureN)self_731304)->elements[2];
c_734441.elements[3] = ((closureN)self_731304)->elements[3];
c_734441.elements[4] = ((closureN)self_731304)->elements[4];
c_734441.elements[5] = ((closureN)self_731304)->elements[5];

return_closcall1(data,  __glo_newline_scheme_base,  &c_734441);; 
}

static void __lambda_400(void *data, int argc, object self_731305, object r_73596) {
  
closureN_type c_734443;
c_734443.hdr.mark = gc_color_red;
 c_734443.hdr.grayed = 0;
c_734443.tag = closureN_tag;
 c_734443.fn = (function_type)__lambda_399;
c_734443.num_args = 1;
c_734443.num_elements = 6;
c_734443.elements = (object *)alloca(sizeof(object) * 6);
c_734443.elements[0] = ((closureN)self_731305)->elements[0];
c_734443.elements[1] = ((closureN)self_731305)->elements[1];
c_734443.elements[2] = ((closureN)self_731305)->elements[2];
c_734443.elements[3] = ((closureN)self_731305)->elements[3];
c_734443.elements[4] = ((closureN)self_731305)->elements[4];
c_734443.elements[5] = ((closureN)self_731305)->elements[5];


make_string(c_734483, "+!CSVLINE!+");
return_closcall2(data,  __glo_display_scheme_write,  &c_734443, &c_734483);; 
}

static void __lambda_399(void *data, int argc, object self_731306, object r_73597) {
  
closureN_type c_734445;
c_734445.hdr.mark = gc_color_red;
 c_734445.hdr.grayed = 0;
c_734445.tag = closureN_tag;
 c_734445.fn = (function_type)__lambda_398;
c_734445.num_args = 1;
c_734445.num_elements = 6;
c_734445.elements = (object *)alloca(sizeof(object) * 6);
c_734445.elements[0] = ((closureN)self_731306)->elements[0];
c_734445.elements[1] = ((closureN)self_731306)->elements[1];
c_734445.elements[2] = ((closureN)self_731306)->elements[2];
c_734445.elements[3] = ((closureN)self_731306)->elements[3];
c_734445.elements[4] = ((closureN)self_731306)->elements[4];
c_734445.elements[5] = ((closureN)self_731306)->elements[5];

return_closcall1(data,  __glo_this_91scheme_91implementation_91name,  &c_734445);; 
}

static void __lambda_398(void *data, int argc, object self_731307, object r_73605) {
  
closureN_type c_734447;
c_734447.hdr.mark = gc_color_red;
 c_734447.hdr.grayed = 0;
c_734447.tag = closureN_tag;
 c_734447.fn = (function_type)__lambda_397;
c_734447.num_args = 1;
c_734447.num_elements = 6;
c_734447.elements = (object *)alloca(sizeof(object) * 6);
c_734447.elements[0] = ((closureN)self_731307)->elements[0];
c_734447.elements[1] = ((closureN)self_731307)->elements[1];
c_734447.elements[2] = ((closureN)self_731307)->elements[2];
c_734447.elements[3] = ((closureN)self_731307)->elements[3];
c_734447.elements[4] = ((closureN)self_731307)->elements[4];
c_734447.elements[5] = ((closureN)self_731307)->elements[5];

return_closcall2(data,  __glo_display_scheme_write,  &c_734447, r_73605);; 
}

static void __lambda_397(void *data, int argc, object self_731308, object r_73598) {
  
closureN_type c_734449;
c_734449.hdr.mark = gc_color_red;
 c_734449.hdr.grayed = 0;
c_734449.tag = closureN_tag;
 c_734449.fn = (function_type)__lambda_396;
c_734449.num_args = 1;
c_734449.num_elements = 6;
c_734449.elements = (object *)alloca(sizeof(object) * 6);
c_734449.elements[0] = ((closureN)self_731308)->elements[0];
c_734449.elements[1] = ((closureN)self_731308)->elements[1];
c_734449.elements[2] = ((closureN)self_731308)->elements[2];
c_734449.elements[3] = ((closureN)self_731308)->elements[3];
c_734449.elements[4] = ((closureN)self_731308)->elements[4];
c_734449.elements[5] = ((closureN)self_731308)->elements[5];


make_string(c_734482, ",");
return_closcall2(data,  __glo_display_scheme_write,  &c_734449, &c_734482);; 
}

static void __lambda_396(void *data, int argc, object self_731309, object r_73599) {
  
closureN_type c_734451;
c_734451.hdr.mark = gc_color_red;
 c_734451.hdr.grayed = 0;
c_734451.tag = closureN_tag;
 c_734451.fn = (function_type)__lambda_395;
c_734451.num_args = 1;
c_734451.num_elements = 5;
c_734451.elements = (object *)alloca(sizeof(object) * 5);
c_734451.elements[0] = ((closureN)self_731309)->elements[0];
c_734451.elements[1] = ((closureN)self_731309)->elements[1];
c_734451.elements[2] = ((closureN)self_731309)->elements[2];
c_734451.elements[3] = ((closureN)self_731309)->elements[3];
c_734451.elements[4] = ((closureN)self_731309)->elements[5];

return_closcall2(data,  __glo_display_scheme_write,  &c_734451, ((closureN)self_731309)->elements[4]);; 
}

static void __lambda_395(void *data, int argc, object self_731310, object r_73600) {
  
closureN_type c_734453;
c_734453.hdr.mark = gc_color_red;
 c_734453.hdr.grayed = 0;
c_734453.tag = closureN_tag;
 c_734453.fn = (function_type)__lambda_394;
c_734453.num_args = 1;
c_734453.num_elements = 5;
c_734453.elements = (object *)alloca(sizeof(object) * 5);
c_734453.elements[0] = ((closureN)self_731310)->elements[0];
c_734453.elements[1] = ((closureN)self_731310)->elements[1];
c_734453.elements[2] = ((closureN)self_731310)->elements[2];
c_734453.elements[3] = ((closureN)self_731310)->elements[3];
c_734453.elements[4] = ((closureN)self_731310)->elements[4];


make_string(c_734480, ",");
return_closcall2(data,  __glo_display_scheme_write,  &c_734453, &c_734480);; 
}

static void __lambda_394(void *data, int argc, object self_731311, object r_73601) {
  
closureN_type c_734455;
c_734455.hdr.mark = gc_color_red;
 c_734455.hdr.grayed = 0;
c_734455.tag = closureN_tag;
 c_734455.fn = (function_type)__lambda_393;
c_734455.num_args = 1;
c_734455.num_elements = 2;
c_734455.elements = (object *)alloca(sizeof(object) * 2);
c_734455.elements[0] = ((closureN)self_731311)->elements[3];
c_734455.elements[1] = ((closureN)self_731311)->elements[4];


double_type local_734475; object c_734476 = Cyc_fast_sub(data,&local_734475,((closureN)self_731311)->elements[2], ((closureN)self_731311)->elements[1]);

double_type local_734471; object c_734472 = Cyc_fast_div(data,&local_734471,c_734476, ((closureN)self_731311)->elements[0]);

double_type local_734467; object c_734468 = ((inline_function_type)
                   ((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_734467,c_734472);
return_closcall2(data,  __glo_display_scheme_write,  &c_734455, c_734468);; 
}

static void __lambda_393(void *data, int argc, object self_731312, object r_73602) {
  
closureN_type c_734457;
c_734457.hdr.mark = gc_color_red;
 c_734457.hdr.grayed = 0;
c_734457.tag = closureN_tag;
 c_734457.fn = (function_type)__lambda_392;
c_734457.num_args = 1;
c_734457.num_elements = 2;
c_734457.elements = (object *)alloca(sizeof(object) * 2);
c_734457.elements[0] = ((closureN)self_731312)->elements[0];
c_734457.elements[1] = ((closureN)self_731312)->elements[1];

return_closcall1(data,  __glo_newline_scheme_base,  &c_734457);; 
}

static void __lambda_392(void *data, int argc, object self_731313, object r_73603) {
  
closureN_type c_734459;
c_734459.hdr.mark = gc_color_red;
 c_734459.hdr.grayed = 0;
c_734459.tag = closureN_tag;
 c_734459.fn = (function_type)__lambda_391;
c_734459.num_args = 1;
c_734459.num_elements = 2;
c_734459.elements = (object *)alloca(sizeof(object) * 2);
c_734459.elements[0] = ((closureN)self_731313)->elements[0];
c_734459.elements[1] = ((closureN)self_731313)->elements[1];

return_closcall1(data,  __glo_current_91output_91port_scheme_base,  &c_734459);; 
}

static void __lambda_391(void *data, int argc, object self_731314, object r_73604) {
  
closureN_type c_734461;
c_734461.hdr.mark = gc_color_red;
 c_734461.hdr.grayed = 0;
c_734461.tag = closureN_tag;
 c_734461.fn = (function_type)__lambda_390;
c_734461.num_args = 1;
c_734461.num_elements = 2;
c_734461.elements = (object *)alloca(sizeof(object) * 2);
c_734461.elements[0] = ((closureN)self_731314)->elements[0];
c_734461.elements[1] = ((closureN)self_731314)->elements[1];

return_closcall2(data,  __glo_flush_91output_91port_scheme_base,  &c_734461, r_73604);; 
}

static void __lambda_390(void *data, int argc, object self_731315, object r_73584) {
  return_closcall1(data,  ((closureN)self_731315)->elements[0],  ((closureN)self_731315)->elements[1]);; 
}

static void __lambda_389(void *data, int argc, object self_731316, object r_73582) {
  
double_type local_734413; object c_734414 = Cyc_fast_sum(data,&local_734413,((closureN)self_731316)->elements[0], obj_int2obj(1));
return_closcall3(data,  car(((closureN)self_731316)->elements[2]),  ((closureN)self_731316)->elements[1], c_734414, r_73582);; 
}

static void __lambda_388(void *data, int argc, object self_731317, object r_73577) {
  return_closcall3(data,  car(((closureN)self_731317)->elements[1]),  ((closureN)self_731317)->elements[0], obj_int2obj(0), boolean_f);; 
}

static void __lambda_387(void *data, int argc, closure _,object k_73620, object r_73283, object x_73282) {
  Cyc_st_add(data, "maze.scm:hide");

closureN_type c_734340;
c_734340.hdr.mark = gc_color_red;
 c_734340.hdr.grayed = 0;
c_734340.tag = closureN_tag;
 c_734340.fn = (function_type)__lambda_385;
c_734340.num_args = 0;
c_734340.num_elements = 1;
c_734340.elements = (object *)alloca(sizeof(object) * 1);
c_734340.elements[0] = r_73283;


closureN_type c_734357;
c_734357.hdr.mark = gc_color_red;
 c_734357.hdr.grayed = 0;
c_734357.tag = closureN_tag;
 c_734357.fn = (function_type)__lambda_386;
c_734357.num_args = 2;
c_734357.num_elements = 1;
c_734357.elements = (object *)alloca(sizeof(object) * 1);
c_734357.elements[0] = x_73282;

return_closcall3(data,  __glo_call_91with_91values_scheme_base,  k_73620, &c_734340, &c_734357);; 
}

static void __lambda_386(void *data, int argc, object self_731318, object k_73623, object v_73285, object i_73284) {
  return_closcall2(data,  Cyc_vector_ref(data, v_73285, i_73284),  k_73623, ((closureN)self_731318)->elements[0]);; 
}

static void __lambda_385(void *data, int argc, object self_731319, object k_73625) {
  
closureN_type c_734342;
c_734342.hdr.mark = gc_color_red;
 c_734342.hdr.grayed = 0;
c_734342.tag = closureN_tag;
 c_734342.fn = (function_type)__lambda_383;
c_734342.num_args = 1;
c_734342.num_elements = 2;
c_734342.elements = (object *)alloca(sizeof(object) * 2);
c_734342.elements[0] = k_73625;
c_734342.elements[1] = ((closureN)self_731319)->elements[0];


mclosure0(c_734355, (function_type)__lambda_384);c_734355.num_args = 1;
return_closcall3(data,  __glo_vector_scheme_base,  &c_734342, __glo_values_scheme_base, &c_734355);; 
}

static void __lambda_384(void *data, int argc, object self_731320, object k_73631, object x_73286) {
  return_closcall1(data,  k_73631,  x_73286);; 
}

static void __lambda_383(void *data, int argc, object self_731321, object r_73626) {
  
closureN_type c_734344;
c_734344.hdr.mark = gc_color_red;
 c_734344.hdr.grayed = 0;
c_734344.tag = closureN_tag;
 c_734344.fn = (function_type)__lambda_381;
c_734344.num_args = 0;
c_734344.num_elements = 1;
c_734344.elements = (object *)alloca(sizeof(object) * 1);
c_734344.elements[0] = ((closureN)self_731321)->elements[1];


closureN_type c_734351;
c_734351.hdr.mark = gc_color_red;
 c_734351.hdr.grayed = 0;
c_734351.tag = closureN_tag;
 c_734351.fn = (function_type)__lambda_382;
c_734351.num_args = 1;
c_734351.num_elements = 2;
c_734351.elements = (object *)alloca(sizeof(object) * 2);
c_734351.elements[0] = ((closureN)self_731321)->elements[0];
c_734351.elements[1] = r_73626;

return_closcall1(data,(closure)&c_734344,  &c_734351);; 
}

static void __lambda_382(void *data, int argc, object self_731322, object r_73627) {
  return_closcall3(data,  __glo_values_scheme_base,  ((closureN)self_731322)->elements[0], ((closureN)self_731322)->elements[1], r_73627);; 
}

static void __lambda_381(void *data, int argc, object self_731323, object k_73628) {
    object c_734347 = Cyc_num_fast_lt_op(data,((closureN)self_731323)->elements[0], obj_int2obj(100));
if( (boolean_f != c_734347) ){ 
  return_closcall1(data,  k_73628,  obj_int2obj(0));
} else { 
  return_closcall1(data,  k_73628,  obj_int2obj(1));}
; 
}

static void __lambda_380(void *data, int argc, closure _,object k_73634) {
  Cyc_st_add(data, "maze.scm:main");

closureN_type c_734282;
c_734282.hdr.mark = gc_color_red;
 c_734282.hdr.grayed = 0;
c_734282.tag = closureN_tag;
 c_734282.fn = (function_type)__lambda_379;
c_734282.num_args = 1;
c_734282.num_elements = 1;
c_734282.elements = (object *)alloca(sizeof(object) * 1);
c_734282.elements[0] = k_73634;

return_closcall1(data,  __glo_read_scheme_read,  &c_734282);; 
}

static void __lambda_379(void *data, int argc, object self_731324, object count_73287) {
  
closureN_type c_734284;
c_734284.hdr.mark = gc_color_red;
 c_734284.hdr.grayed = 0;
c_734284.tag = closureN_tag;
 c_734284.fn = (function_type)__lambda_378;
c_734284.num_args = 1;
c_734284.num_elements = 2;
c_734284.elements = (object *)alloca(sizeof(object) * 2);
c_734284.elements[0] = count_73287;
c_734284.elements[1] = ((closureN)self_731324)->elements[0];

return_closcall1(data,  __glo_read_scheme_read,  &c_734284);; 
}

static void __lambda_378(void *data, int argc, object self_731325, object input1_73288) {
  
closureN_type c_734286;
c_734286.hdr.mark = gc_color_red;
 c_734286.hdr.grayed = 0;
c_734286.tag = closureN_tag;
 c_734286.fn = (function_type)__lambda_377;
c_734286.num_args = 1;
c_734286.num_elements = 3;
c_734286.elements = (object *)alloca(sizeof(object) * 3);
c_734286.elements[0] = ((closureN)self_731325)->elements[0];
c_734286.elements[1] = input1_73288;
c_734286.elements[2] = ((closureN)self_731325)->elements[1];

return_closcall1(data,  __glo_read_scheme_read,  &c_734286);; 
}

static void __lambda_377(void *data, int argc, object self_731326, object input2_73289) {
  
closureN_type c_734288;
c_734288.hdr.mark = gc_color_red;
 c_734288.hdr.grayed = 0;
c_734288.tag = closureN_tag;
 c_734288.fn = (function_type)__lambda_376;
c_734288.num_args = 1;
c_734288.num_elements = 4;
c_734288.elements = (object *)alloca(sizeof(object) * 4);
c_734288.elements[0] = ((closureN)self_731326)->elements[0];
c_734288.elements[1] = ((closureN)self_731326)->elements[1];
c_734288.elements[2] = input2_73289;
c_734288.elements[3] = ((closureN)self_731326)->elements[2];

return_closcall1(data,  __glo_read_scheme_read,  &c_734288);; 
}

static void __lambda_376(void *data, int argc, object self_731327, object output_73290) {
  
closureN_type c_734290;
c_734290.hdr.mark = gc_color_red;
 c_734290.hdr.grayed = 0;
c_734290.tag = closureN_tag;
 c_734290.fn = (function_type)__lambda_375;
c_734290.num_args = 1;
c_734290.num_elements = 5;
c_734290.elements = (object *)alloca(sizeof(object) * 5);
c_734290.elements[0] = ((closureN)self_731327)->elements[0];
c_734290.elements[1] = ((closureN)self_731327)->elements[1];
c_734290.elements[2] = ((closureN)self_731327)->elements[2];
c_734290.elements[3] = ((closureN)self_731327)->elements[3];
c_734290.elements[4] = output_73290;


object c_734336 = Cyc_number2string2(data,(closure)&c_734290,1,((closureN)self_731327)->elements[0]);
return_closcall1(data,(closure)&c_734290,  c_734336);; 
}

static void __lambda_375(void *data, int argc, object self_731328, object s3_73291) {
  
closureN_type c_734292;
c_734292.hdr.mark = gc_color_red;
 c_734292.hdr.grayed = 0;
c_734292.tag = closureN_tag;
 c_734292.fn = (function_type)__lambda_374;
c_734292.num_args = 1;
c_734292.num_elements = 6;
c_734292.elements = (object *)alloca(sizeof(object) * 6);
c_734292.elements[0] = ((closureN)self_731328)->elements[0];
c_734292.elements[1] = ((closureN)self_731328)->elements[1];
c_734292.elements[2] = ((closureN)self_731328)->elements[2];
c_734292.elements[3] = ((closureN)self_731328)->elements[3];
c_734292.elements[4] = ((closureN)self_731328)->elements[4];
c_734292.elements[5] = s3_73291;


object c_734332 = Cyc_number2string2(data,(closure)&c_734292,1,((closureN)self_731328)->elements[2]);
return_closcall1(data,(closure)&c_734292,  c_734332);; 
}

static void __lambda_374(void *data, int argc, object self_731329, object s2_73292) {
  
closureN_type c_734294;
c_734294.hdr.mark = gc_color_red;
 c_734294.hdr.grayed = 0;
c_734294.tag = closureN_tag;
 c_734294.fn = (function_type)__lambda_373;
c_734294.num_args = 1;
c_734294.num_elements = 7;
c_734294.elements = (object *)alloca(sizeof(object) * 7);
c_734294.elements[0] = ((closureN)self_731329)->elements[0];
c_734294.elements[1] = ((closureN)self_731329)->elements[1];
c_734294.elements[2] = ((closureN)self_731329)->elements[2];
c_734294.elements[3] = ((closureN)self_731329)->elements[3];
c_734294.elements[4] = ((closureN)self_731329)->elements[4];
c_734294.elements[5] = s2_73292;
c_734294.elements[6] = ((closureN)self_731329)->elements[5];


object c_734328 = Cyc_number2string2(data,(closure)&c_734294,1,((closureN)self_731329)->elements[1]);
return_closcall1(data,(closure)&c_734294,  c_734328);; 
}

static void __lambda_373(void *data, int argc, object self_731330, object s1_73293) {
  
closureN_type c_734296;
c_734296.hdr.mark = gc_color_red;
 c_734296.hdr.grayed = 0;
c_734296.tag = closureN_tag;
 c_734296.fn = (function_type)__lambda_372;
c_734296.num_args = 1;
c_734296.num_elements = 5;
c_734296.elements = (object *)alloca(sizeof(object) * 5);
c_734296.elements[0] = ((closureN)self_731330)->elements[0];
c_734296.elements[1] = ((closureN)self_731330)->elements[1];
c_734296.elements[2] = ((closureN)self_731330)->elements[2];
c_734296.elements[3] = ((closureN)self_731330)->elements[3];
c_734296.elements[4] = ((closureN)self_731330)->elements[4];


make_string(c_734320, "maze");

make_string(c_734321, ":");

make_string(c_734322, ":");

make_string(c_734324, ":");

object c_734319 = Cyc_string_append(data,(closure)&c_734296,7,&c_734320, &c_734321, s1_73293, &c_734322, ((closureN)self_731330)->elements[5], &c_734324, ((closureN)self_731330)->elements[6]);
return_closcall1(data,(closure)&c_734296,  c_734319);; 
}

static void __lambda_372(void *data, int argc, object self_731331, object r_73642) {
  
closureN_type c_734300;
c_734300.hdr.mark = gc_color_red;
 c_734300.hdr.grayed = 0;
c_734300.tag = closureN_tag;
 c_734300.fn = (function_type)__lambda_370;
c_734300.num_args = 0;
c_734300.num_elements = 3;
c_734300.elements = (object *)alloca(sizeof(object) * 3);
c_734300.elements[0] = ((closureN)self_731331)->elements[0];
c_734300.elements[1] = ((closureN)self_731331)->elements[1];
c_734300.elements[2] = ((closureN)self_731331)->elements[2];


closureN_type c_734312;
c_734312.hdr.mark = gc_color_red;
 c_734312.hdr.grayed = 0;
c_734312.tag = closureN_tag;
 c_734312.fn = (function_type)__lambda_371;
c_734312.num_args = 1;
c_734312.num_elements = 1;
c_734312.elements = (object *)alloca(sizeof(object) * 1);
c_734312.elements[0] = ((closureN)self_731331)->elements[4];

return_closcall5(data,  __glo_run_91r7rs_91benchmark,  ((closureN)self_731331)->elements[3], r_73642, ((closureN)self_731331)->elements[0], &c_734300, &c_734312);; 
}

static void __lambda_371(void *data, int argc, object self_731332, object k_73645, object result_73295) {
  return_closcall1(data,  k_73645,  equalp(result_73295, ((closureN)self_731332)->elements[0]));; 
}

static void __lambda_370(void *data, int argc, object self_731333, object k_73646) {
  
closureN_type c_734302;
c_734302.hdr.mark = gc_color_red;
 c_734302.hdr.grayed = 0;
c_734302.tag = closureN_tag;
 c_734302.fn = (function_type)__lambda_369;
c_734302.num_args = 1;
c_734302.num_elements = 3;
c_734302.elements = (object *)alloca(sizeof(object) * 3);
c_734302.elements[0] = ((closureN)self_731333)->elements[0];
c_734302.elements[1] = ((closureN)self_731333)->elements[2];
c_734302.elements[2] = k_73646;

return_closcall3(data,  __glo_hide,  &c_734302, ((closureN)self_731333)->elements[0], ((closureN)self_731333)->elements[1]);; 
}

static void __lambda_369(void *data, int argc, object self_731334, object r_73647) {
  
closureN_type c_734304;
c_734304.hdr.mark = gc_color_red;
 c_734304.hdr.grayed = 0;
c_734304.tag = closureN_tag;
 c_734304.fn = (function_type)__lambda_368;
c_734304.num_args = 1;
c_734304.num_elements = 2;
c_734304.elements = (object *)alloca(sizeof(object) * 2);
c_734304.elements[0] = ((closureN)self_731334)->elements[2];
c_734304.elements[1] = r_73647;

return_closcall3(data,  __glo_hide,  &c_734304, ((closureN)self_731334)->elements[0], ((closureN)self_731334)->elements[1]);; 
}

static void __lambda_368(void *data, int argc, object self_731335, object r_73648) {
  return_closcall3(data,  __glo_run,  ((closureN)self_731335)->elements[0], ((closureN)self_731335)->elements[1], r_73648);; 
}

static void __lambda_367(void *data, int argc, closure _,object k_73651, object nrows_73297, object ncols_73296) {
  Cyc_st_add(data, "maze.scm:run");

closureN_type c_734271;
c_734271.hdr.mark = gc_color_red;
 c_734271.hdr.grayed = 0;
c_734271.tag = closureN_tag;
 c_734271.fn = (function_type)__lambda_366;
c_734271.num_args = 1;
c_734271.num_elements = 3;
c_734271.elements = (object *)alloca(sizeof(object) * 3);
c_734271.elements[0] = k_73651;
c_734271.elements[1] = ncols_73296;
c_734271.elements[2] = nrows_73297;

return_closcall1(data,(closure)&c_734271,  global_set(__glo_output, NULL));; 
}

static void __lambda_366(void *data, int argc, object self_731336, object r_73652) {
  
closureN_type c_734273;
c_734273.hdr.mark = gc_color_red;
 c_734273.hdr.grayed = 0;
c_734273.tag = closureN_tag;
 c_734273.fn = (function_type)__lambda_365;
c_734273.num_args = 1;
c_734273.num_elements = 1;
c_734273.elements = (object *)alloca(sizeof(object) * 1);
c_734273.elements[0] = ((closureN)self_731336)->elements[0];

return_closcall3(data,  __glo_pmaze,  &c_734273, ((closureN)self_731336)->elements[2], ((closureN)self_731336)->elements[1]);; 
}

static void __lambda_365(void *data, int argc, object self_731337, object r_73653) {
  return_closcall2(data,  __glo_reverse_scheme_base,  ((closureN)self_731337)->elements[0], __glo_output);; 
}

static void __lambda_364(void *data, int argc, closure _,object k_73657, object hexwalls_73298) {
  Cyc_st_add(data, "maze.scm:display-hexbottom");

closureN_type c_734234;
c_734234.hdr.mark = gc_color_red;
 c_734234.hdr.grayed = 0;
c_734234.tag = closureN_tag;
 c_734234.fn = (function_type)__lambda_354;
c_734234.num_args = 0;
c_734234.num_elements = 1;
c_734234.elements = (object *)alloca(sizeof(object) * 1);
c_734234.elements[0] = hexwalls_73298;


closureN_type c_734242;
c_734242.hdr.mark = gc_color_red;
 c_734242.hdr.grayed = 0;
c_734242.tag = closureN_tag;
 c_734242.fn = (function_type)__lambda_363;
c_734242.num_args = 1;
c_734242.num_elements = 2;
c_734242.elements = (object *)alloca(sizeof(object) * 2);
c_734242.elements[0] = hexwalls_73298;
c_734242.elements[1] = k_73657;

return_closcall1(data,(closure)&c_734234,  &c_734242);; 
}

static void __lambda_363(void *data, int argc, object self_731338, object r_73666) {
  
closureN_type c_734244;
c_734244.hdr.mark = gc_color_red;
 c_734244.hdr.grayed = 0;
c_734244.tag = closureN_tag;
 c_734244.fn = (function_type)__lambda_362;
c_734244.num_args = 1;
c_734244.num_elements = 2;
c_734244.elements = (object *)alloca(sizeof(object) * 2);
c_734244.elements[0] = ((closureN)self_731338)->elements[0];
c_734244.elements[1] = ((closureN)self_731338)->elements[1];

return_closcall2(data,  __glo_write_91ch,  &c_734244, r_73666);; 
}

static void __lambda_362(void *data, int argc, object self_731339, object r_73658) {
  
closureN_type c_734246;
c_734246.hdr.mark = gc_color_red;
 c_734246.hdr.grayed = 0;
c_734246.tag = closureN_tag;
 c_734246.fn = (function_type)__lambda_356;
c_734246.num_args = 0;
c_734246.num_elements = 1;
c_734246.elements = (object *)alloca(sizeof(object) * 1);
c_734246.elements[0] = ((closureN)self_731339)->elements[0];


closureN_type c_734254;
c_734254.hdr.mark = gc_color_red;
 c_734254.hdr.grayed = 0;
c_734254.tag = closureN_tag;
 c_734254.fn = (function_type)__lambda_361;
c_734254.num_args = 1;
c_734254.num_elements = 2;
c_734254.elements = (object *)alloca(sizeof(object) * 2);
c_734254.elements[0] = ((closureN)self_731339)->elements[0];
c_734254.elements[1] = ((closureN)self_731339)->elements[1];

return_closcall1(data,(closure)&c_734246,  &c_734254);; 
}

static void __lambda_361(void *data, int argc, object self_731340, object r_73663) {
  
closureN_type c_734256;
c_734256.hdr.mark = gc_color_red;
 c_734256.hdr.grayed = 0;
c_734256.tag = closureN_tag;
 c_734256.fn = (function_type)__lambda_360;
c_734256.num_args = 1;
c_734256.num_elements = 2;
c_734256.elements = (object *)alloca(sizeof(object) * 2);
c_734256.elements[0] = ((closureN)self_731340)->elements[0];
c_734256.elements[1] = ((closureN)self_731340)->elements[1];

return_closcall2(data,  __glo_write_91ch,  &c_734256, r_73663);; 
}

static void __lambda_360(void *data, int argc, object self_731341, object r_73659) {
  
closureN_type c_734258;
c_734258.hdr.mark = gc_color_red;
 c_734258.hdr.grayed = 0;
c_734258.tag = closureN_tag;
 c_734258.fn = (function_type)__lambda_358;
c_734258.num_args = 0;
c_734258.num_elements = 1;
c_734258.elements = (object *)alloca(sizeof(object) * 1);
c_734258.elements[0] = ((closureN)self_731341)->elements[0];


closureN_type c_734266;
c_734266.hdr.mark = gc_color_red;
 c_734266.hdr.grayed = 0;
c_734266.tag = closureN_tag;
 c_734266.fn = (function_type)__lambda_359;
c_734266.num_args = 1;
c_734266.num_elements = 1;
c_734266.elements = (object *)alloca(sizeof(object) * 1);
c_734266.elements[0] = ((closureN)self_731341)->elements[1];

return_closcall1(data,(closure)&c_734258,  &c_734266);; 
}

static void __lambda_359(void *data, int argc, object self_731342, object r_73660) {
  return_closcall2(data,  __glo_write_91ch,  ((closureN)self_731342)->elements[0], r_73660);; 
}

static void __lambda_358(void *data, int argc, object self_731343, object k_73661) {
  
closureN_type c_734260;
c_734260.hdr.mark = gc_color_red;
 c_734260.hdr.grayed = 0;
c_734260.tag = closureN_tag;
 c_734260.fn = (function_type)__lambda_357;
c_734260.num_args = 1;
c_734260.num_elements = 1;
c_734260.elements = (object *)alloca(sizeof(object) * 1);
c_734260.elements[0] = k_73661;

return_closcall3(data,  __glo_bit_91test,  &c_734260, ((closureN)self_731343)->elements[0], __glo_south_91east);; 
}

static void __lambda_357(void *data, int argc, object self_731344, object r_73662) {
  if( (boolean_f != r_73662) ){ 
  return_closcall1(data,  ((closureN)self_731344)->elements[0],  obj_char2obj(47));
} else { 
  return_closcall1(data,  ((closureN)self_731344)->elements[0],  obj_char2obj(32));}
; 
}

static void __lambda_356(void *data, int argc, object self_731345, object k_73664) {
  
closureN_type c_734248;
c_734248.hdr.mark = gc_color_red;
 c_734248.hdr.grayed = 0;
c_734248.tag = closureN_tag;
 c_734248.fn = (function_type)__lambda_355;
c_734248.num_args = 1;
c_734248.num_elements = 1;
c_734248.elements = (object *)alloca(sizeof(object) * 1);
c_734248.elements[0] = k_73664;

return_closcall3(data,  __glo_bit_91test,  &c_734248, ((closureN)self_731345)->elements[0], __glo_south);; 
}

static void __lambda_355(void *data, int argc, object self_731346, object r_73665) {
  if( (boolean_f != r_73665) ){ 
  return_closcall1(data,  ((closureN)self_731346)->elements[0],  obj_char2obj(95));
} else { 
  return_closcall1(data,  ((closureN)self_731346)->elements[0],  obj_char2obj(32));}
; 
}

static void __lambda_354(void *data, int argc, object self_731347, object k_73667) {
  
closureN_type c_734236;
c_734236.hdr.mark = gc_color_red;
 c_734236.hdr.grayed = 0;
c_734236.tag = closureN_tag;
 c_734236.fn = (function_type)__lambda_353;
c_734236.num_args = 1;
c_734236.num_elements = 1;
c_734236.elements = (object *)alloca(sizeof(object) * 1);
c_734236.elements[0] = k_73667;

return_closcall3(data,  __glo_bit_91test,  &c_734236, ((closureN)self_731347)->elements[0], __glo_south_91west);; 
}

static void __lambda_353(void *data, int argc, object self_731348, object r_73668) {
  if( (boolean_f != r_73668) ){ 
  return_closcall1(data,  ((closureN)self_731348)->elements[0],  obj_char2obj(92));
} else { 
  return_closcall1(data,  ((closureN)self_731348)->elements[0],  obj_char2obj(32));}
; 
}

static void __lambda_352(void *data, int argc, closure _,object k_73671, object harr_73301, object r_73300, object c_73299) {
  Cyc_st_add(data, "maze.scm:dot/space");

closureN_type c_734212;
c_734212.hdr.mark = gc_color_red;
 c_734212.hdr.grayed = 0;
c_734212.tag = closureN_tag;
 c_734212.fn = (function_type)__lambda_350;
c_734212.num_args = 0;
c_734212.num_elements = 3;
c_734212.elements = (object *)alloca(sizeof(object) * 3);
c_734212.elements[0] = c_73299;
c_734212.elements[1] = harr_73301;
c_734212.elements[2] = r_73300;


closureN_type c_734227;
c_734227.hdr.mark = gc_color_red;
 c_734227.hdr.grayed = 0;
c_734227.tag = closureN_tag;
 c_734227.fn = (function_type)__lambda_351;
c_734227.num_args = 1;
c_734227.num_elements = 1;
c_734227.elements = (object *)alloca(sizeof(object) * 1);
c_734227.elements[0] = k_73671;

return_closcall1(data,(closure)&c_734212,  &c_734227);; 
}

static void __lambda_351(void *data, int argc, object self_731349, object r_73672) {
  if( (boolean_f != r_73672) ){ 
  return_closcall1(data,  ((closureN)self_731349)->elements[0],  obj_char2obj(46));
} else { 
  return_closcall1(data,  ((closureN)self_731349)->elements[0],  obj_char2obj(32));}
; 
}

static void __lambda_350(void *data, int argc, object self_731350, object k_73673) {
    object c_734215 = Cyc_num_fast_gte_op(data,((closureN)self_731350)->elements[2], obj_int2obj(0));
if( (boolean_f != c_734215) ){ 
  
closureN_type c_734218;
c_734218.hdr.mark = gc_color_red;
 c_734218.hdr.grayed = 0;
c_734218.tag = closureN_tag;
 c_734218.fn = (function_type)__lambda_349;
c_734218.num_args = 1;
c_734218.num_elements = 1;
c_734218.elements = (object *)alloca(sizeof(object) * 1);
c_734218.elements[0] = k_73673;

return_closcall4(data,  __glo_href_95rc,  &c_734218, ((closureN)self_731350)->elements[1], ((closureN)self_731350)->elements[2], ((closureN)self_731350)->elements[0]);
} else { 
  return_closcall1(data,  k_73673,  boolean_f);}
; 
}

static void __lambda_349(void *data, int argc, object self_731351, object r_73675) {
  return_closcall1(data,  ((closureN)self_731351)->elements[0],  Cyc_vector_ref(data, r_73675, obj_int2obj(5)));; 
}

static void __lambda_348(void *data, int argc, closure _,object k_73678, object j_73303, object bit_73302) {
  Cyc_st_add(data, "maze.scm:bit-test");

closureN_type c_734199;
c_734199.hdr.mark = gc_color_red;
 c_734199.hdr.grayed = 0;
c_734199.tag = closureN_tag;
 c_734199.fn = (function_type)__lambda_347;
c_734199.num_args = 1;
c_734199.num_elements = 1;
c_734199.elements = (object *)alloca(sizeof(object) * 1);
c_734199.elements[0] = k_73678;

return_closcall3(data,  __glo_bitwise_91and,  &c_734199, j_73303, bit_73302);; 
}

static void __lambda_347(void *data, int argc, object self_731352, object r_73680) {
  
double_type local_734208; object c_734209 = ((inline_function_type)
                   ((closure)__glo_zero_127_191_191inline_191_191_scheme_base)->fn)(data,&local_734208,r_73680);

double_type local_734204; object c_734205 = ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,&local_734204,c_734209);
return_closcall1(data,  ((closureN)self_731352)->elements[0],  c_734205);; 
}

static void __lambda_346(void *data, int argc, closure _,object k_73683, object harr_73305, object entrance_73304) {
  Cyc_st_add(data, "maze.scm:print-hexmaze");

closureN_type c_733791;
c_733791.hdr.mark = gc_color_red;
 c_733791.hdr.grayed = 0;
c_733791.tag = closureN_tag;
 c_733791.fn = (function_type)__lambda_345;
c_733791.num_args = 1;
c_733791.num_elements = 3;
c_733791.elements = (object *)alloca(sizeof(object) * 3);
c_733791.elements[0] = entrance_73304;
c_733791.elements[1] = harr_73305;
c_733791.elements[2] = k_73683;

return_closcall3(data,  __glo_div,  &c_733791, Cyc_vector_ref(data, harr_73305, obj_int2obj(2)), obj_int2obj(2));; 
}

static void __lambda_345(void *data, int argc, object self_731353, object r_73773) {
  
closureN_type c_733793;
c_733793.hdr.mark = gc_color_red;
 c_733793.hdr.grayed = 0;
c_733793.tag = closureN_tag;
 c_733793.fn = (function_type)__lambda_344;
c_733793.num_args = 1;
c_733793.num_elements = 4;
c_733793.elements = (object *)alloca(sizeof(object) * 4);
c_733793.elements[0] = ((closureN)self_731353)->elements[0];
c_733793.elements[1] = ((closureN)self_731353)->elements[1];
c_733793.elements[2] = ((closureN)self_731353)->elements[2];
c_733793.elements[3] = r_73773;

return_closcall1(data,(closure)&c_733793,  boolean_f);; 
}

static void __lambda_344(void *data, int argc, object self_731354, object lp_73188_73326) {
  
closureN_type c_733795;
c_733795.hdr.mark = gc_color_red;
 c_733795.hdr.grayed = 0;
c_733795.tag = closureN_tag;
 c_733795.fn = (function_type)__lambda_343;
c_733795.num_args = 1;
c_733795.num_elements = 4;
c_733795.elements = (object *)alloca(sizeof(object) * 4);
c_733795.elements[0] = ((closureN)self_731354)->elements[0];
c_733795.elements[1] = ((closureN)self_731354)->elements[1];
c_733795.elements[2] = ((closureN)self_731354)->elements[2];
c_733795.elements[3] = ((closureN)self_731354)->elements[3];


make_cell(c_734194,lp_73188_73326);
return_closcall1(data,(closure)&c_733795,  &c_734194);; 
}

static void __lambda_343(void *data, int argc, object self_731355, object lp_73188_73326) {
  
closureN_type c_733797;
c_733797.hdr.mark = gc_color_red;
 c_733797.hdr.grayed = 0;
c_733797.tag = closureN_tag;
 c_733797.fn = (function_type)__lambda_335;
c_733797.num_args = 1;
c_733797.num_elements = 5;
c_733797.elements = (object *)alloca(sizeof(object) * 5);
c_733797.elements[0] = ((closureN)self_731355)->elements[0];
c_733797.elements[1] = ((closureN)self_731355)->elements[1];
c_733797.elements[2] = ((closureN)self_731355)->elements[2];
c_733797.elements[3] = lp_73188_73326;
c_733797.elements[4] = ((closureN)self_731355)->elements[3];


closureN_type c_734150;
c_734150.hdr.mark = gc_color_red;
 c_734150.hdr.grayed = 0;
c_734150.tag = closureN_tag;
 c_734150.fn = (function_type)__lambda_342;
c_734150.num_args = 1;
c_734150.num_elements = 3;
c_734150.elements = (object *)alloca(sizeof(object) * 3);
c_734150.elements[0] = ((closureN)self_731355)->elements[0];
c_734150.elements[1] = ((closureN)self_731355)->elements[1];
c_734150.elements[2] = lp_73188_73326;

return_closcall1(data,(closure)&c_733797,  Cyc_set_cell(data, lp_73188_73326, &c_734150));; 
}

static void __lambda_342(void *data, int argc, object self_731356, object k_73763, object c_73327) {
    object c_734153 = Cyc_num_fast_gte_op(data,c_73327, Cyc_vector_ref(data, ((closureN)self_731356)->elements[1], obj_int2obj(2)));
if( (boolean_f != c_734153) ){ 
  
object c_734160 = Cyc_num_fast_gte_op(data,c_73327, Cyc_vector_ref(data, ((closureN)self_731356)->elements[1], obj_int2obj(2)));
return_closcall1(data,  k_73763,  c_734160);
} else { 
  
closureN_type c_734165;
c_734165.hdr.mark = gc_color_red;
 c_734165.hdr.grayed = 0;
c_734165.tag = closureN_tag;
 c_734165.fn = (function_type)__lambda_341;
c_734165.num_args = 1;
c_734165.num_elements = 4;
c_734165.elements = (object *)alloca(sizeof(object) * 4);
c_734165.elements[0] = c_73327;
c_734165.elements[1] = ((closureN)self_731356)->elements[0];
c_734165.elements[2] = k_73763;
c_734165.elements[3] = ((closureN)self_731356)->elements[2];

return_closcall2(data,  __glo_write_91ch,  &c_734165, obj_char2obj(32));}
; 
}

static void __lambda_341(void *data, int argc, object self_731357, object r_73765) {
  
closureN_type c_734167;
c_734167.hdr.mark = gc_color_red;
 c_734167.hdr.grayed = 0;
c_734167.tag = closureN_tag;
 c_734167.fn = (function_type)__lambda_340;
c_734167.num_args = 1;
c_734167.num_elements = 4;
c_734167.elements = (object *)alloca(sizeof(object) * 4);
c_734167.elements[0] = ((closureN)self_731357)->elements[0];
c_734167.elements[1] = ((closureN)self_731357)->elements[1];
c_734167.elements[2] = ((closureN)self_731357)->elements[2];
c_734167.elements[3] = ((closureN)self_731357)->elements[3];

return_closcall2(data,  __glo_write_91ch,  &c_734167, obj_char2obj(32));; 
}

static void __lambda_340(void *data, int argc, object self_731358, object r_73766) {
  
closureN_type c_734169;
c_734169.hdr.mark = gc_color_red;
 c_734169.hdr.grayed = 0;
c_734169.tag = closureN_tag;
 c_734169.fn = (function_type)__lambda_339;
c_734169.num_args = 1;
c_734169.num_elements = 4;
c_734169.elements = (object *)alloca(sizeof(object) * 4);
c_734169.elements[0] = ((closureN)self_731358)->elements[0];
c_734169.elements[1] = ((closureN)self_731358)->elements[1];
c_734169.elements[2] = ((closureN)self_731358)->elements[2];
c_734169.elements[3] = ((closureN)self_731358)->elements[3];

return_closcall2(data,  __glo_write_91ch,  &c_734169, obj_char2obj(32));; 
}

static void __lambda_339(void *data, int argc, object self_731359, object r_73767) {
  
closureN_type c_734171;
c_734171.hdr.mark = gc_color_red;
 c_734171.hdr.grayed = 0;
c_734171.tag = closureN_tag;
 c_734171.fn = (function_type)__lambda_336;
c_734171.num_args = 0;
c_734171.num_elements = 2;
c_734171.elements = (object *)alloca(sizeof(object) * 2);
c_734171.elements[0] = ((closureN)self_731359)->elements[0];
c_734171.elements[1] = ((closureN)self_731359)->elements[1];


closureN_type c_734179;
c_734179.hdr.mark = gc_color_red;
 c_734179.hdr.grayed = 0;
c_734179.tag = closureN_tag;
 c_734179.fn = (function_type)__lambda_338;
c_734179.num_args = 1;
c_734179.num_elements = 3;
c_734179.elements = (object *)alloca(sizeof(object) * 3);
c_734179.elements[0] = ((closureN)self_731359)->elements[0];
c_734179.elements[1] = ((closureN)self_731359)->elements[2];
c_734179.elements[2] = ((closureN)self_731359)->elements[3];

return_closcall1(data,(closure)&c_734171,  &c_734179);; 
}

static void __lambda_338(void *data, int argc, object self_731360, object r_73770) {
  
closureN_type c_734181;
c_734181.hdr.mark = gc_color_red;
 c_734181.hdr.grayed = 0;
c_734181.tag = closureN_tag;
 c_734181.fn = (function_type)__lambda_337;
c_734181.num_args = 1;
c_734181.num_elements = 3;
c_734181.elements = (object *)alloca(sizeof(object) * 3);
c_734181.elements[0] = ((closureN)self_731360)->elements[0];
c_734181.elements[1] = ((closureN)self_731360)->elements[1];
c_734181.elements[2] = ((closureN)self_731360)->elements[2];

return_closcall2(data,  __glo_write_91ch,  &c_734181, r_73770);; 
}

static void __lambda_337(void *data, int argc, object self_731361, object r_73768) {
  
double_type local_734189; object c_734190 = Cyc_fast_sum(data,&local_734189,((closureN)self_731361)->elements[0], obj_int2obj(2));
return_closcall2(data,  car(((closureN)self_731361)->elements[2]),  ((closureN)self_731361)->elements[1], c_734190);; 
}

static void __lambda_336(void *data, int argc, object self_731362, object k_73771) {
    object c_734174 = Cyc_num_fast_eq_op(data,((closureN)self_731362)->elements[0], ((closureN)self_731362)->elements[1]);
if( (boolean_f != c_734174) ){ 
  return_closcall1(data,  k_73771,  obj_char2obj(32));
} else { 
  return_closcall1(data,  k_73771,  obj_char2obj(95));}
; 
}

static void __lambda_335(void *data, int argc, object self_731363, object r_73761) {
  
closureN_type c_733802;
c_733802.hdr.mark = gc_color_red;
 c_733802.hdr.grayed = 0;
c_733802.tag = closureN_tag;
 c_733802.fn = (function_type)__lambda_334;
c_733802.num_args = 1;
c_733802.num_elements = 4;
c_733802.elements = (object *)alloca(sizeof(object) * 4);
c_733802.elements[0] = ((closureN)self_731363)->elements[0];
c_733802.elements[1] = ((closureN)self_731363)->elements[1];
c_733802.elements[2] = ((closureN)self_731363)->elements[2];
c_733802.elements[3] = ((closureN)self_731363)->elements[4];

return_closcall2(data,  car(((closureN)self_731363)->elements[3]),  &c_733802, obj_int2obj(1));; 
}

static void __lambda_334(void *data, int argc, object self_731364, object r_73687) {
  
closureN_type c_733804;
c_733804.hdr.mark = gc_color_red;
 c_733804.hdr.grayed = 0;
c_733804.tag = closureN_tag;
 c_733804.fn = (function_type)__lambda_333;
c_733804.num_args = 1;
c_733804.num_elements = 4;
c_733804.elements = (object *)alloca(sizeof(object) * 4);
c_733804.elements[0] = ((closureN)self_731364)->elements[0];
c_733804.elements[1] = ((closureN)self_731364)->elements[1];
c_733804.elements[2] = ((closureN)self_731364)->elements[2];
c_733804.elements[3] = ((closureN)self_731364)->elements[3];

return_closcall2(data,  __glo_write_91ch,  &c_733804, obj_char2obj(10));; 
}

static void __lambda_333(void *data, int argc, object self_731365, object r_73688) {
  
closureN_type c_733806;
c_733806.hdr.mark = gc_color_red;
 c_733806.hdr.grayed = 0;
c_733806.tag = closureN_tag;
 c_733806.fn = (function_type)__lambda_332;
c_733806.num_args = 1;
c_733806.num_elements = 4;
c_733806.elements = (object *)alloca(sizeof(object) * 4);
c_733806.elements[0] = ((closureN)self_731365)->elements[0];
c_733806.elements[1] = ((closureN)self_731365)->elements[1];
c_733806.elements[2] = ((closureN)self_731365)->elements[2];
c_733806.elements[3] = ((closureN)self_731365)->elements[3];

return_closcall2(data,  __glo_write_91ch,  &c_733806, obj_char2obj(32));; 
}

static void __lambda_332(void *data, int argc, object self_731366, object r_73689) {
  
closureN_type c_733808;
c_733808.hdr.mark = gc_color_red;
 c_733808.hdr.grayed = 0;
c_733808.tag = closureN_tag;
 c_733808.fn = (function_type)__lambda_331;
c_733808.num_args = 1;
c_733808.num_elements = 4;
c_733808.elements = (object *)alloca(sizeof(object) * 4);
c_733808.elements[0] = ((closureN)self_731366)->elements[0];
c_733808.elements[1] = ((closureN)self_731366)->elements[1];
c_733808.elements[2] = ((closureN)self_731366)->elements[2];
c_733808.elements[3] = ((closureN)self_731366)->elements[3];

return_closcall1(data,(closure)&c_733808,  boolean_f);; 
}

static void __lambda_331(void *data, int argc, object self_731367, object lp_73192_73322) {
  
closureN_type c_733810;
c_733810.hdr.mark = gc_color_red;
 c_733810.hdr.grayed = 0;
c_733810.tag = closureN_tag;
 c_733810.fn = (function_type)__lambda_330;
c_733810.num_args = 1;
c_733810.num_elements = 4;
c_733810.elements = (object *)alloca(sizeof(object) * 4);
c_733810.elements[0] = ((closureN)self_731367)->elements[0];
c_733810.elements[1] = ((closureN)self_731367)->elements[1];
c_733810.elements[2] = ((closureN)self_731367)->elements[2];
c_733810.elements[3] = ((closureN)self_731367)->elements[3];


make_cell(c_734147,lp_73192_73322);
return_closcall1(data,(closure)&c_733810,  &c_734147);; 
}

static void __lambda_330(void *data, int argc, object self_731368, object lp_73192_73322) {
  
closureN_type c_733812;
c_733812.hdr.mark = gc_color_red;
 c_733812.hdr.grayed = 0;
c_733812.tag = closureN_tag;
 c_733812.fn = (function_type)__lambda_321;
c_733812.num_args = 1;
c_733812.num_elements = 5;
c_733812.elements = (object *)alloca(sizeof(object) * 5);
c_733812.elements[0] = ((closureN)self_731368)->elements[0];
c_733812.elements[1] = ((closureN)self_731368)->elements[1];
c_733812.elements[2] = ((closureN)self_731368)->elements[2];
c_733812.elements[3] = lp_73192_73322;
c_733812.elements[4] = ((closureN)self_731368)->elements[3];


closureN_type c_734084;
c_734084.hdr.mark = gc_color_red;
 c_734084.hdr.grayed = 0;
c_734084.tag = closureN_tag;
 c_734084.fn = (function_type)__lambda_329;
c_734084.num_args = 1;
c_734084.num_elements = 4;
c_734084.elements = (object *)alloca(sizeof(object) * 4);
c_734084.elements[0] = ((closureN)self_731368)->elements[0];
c_734084.elements[1] = ((closureN)self_731368)->elements[1];
c_734084.elements[2] = lp_73192_73322;
c_734084.elements[3] = ((closureN)self_731368)->elements[3];

return_closcall1(data,(closure)&c_733812,  Cyc_set_cell(data, lp_73192_73322, &c_734084));; 
}

static void __lambda_329(void *data, int argc, object self_731369, object k_73748, object c_73323) {
    double_type local_734090; object c_734091 = Cyc_fast_mul(data,&local_734090,obj_int2obj(2), ((closureN)self_731369)->elements[3]);
  object c_734087 = Cyc_num_fast_gte_op(data,c_73323, c_734091);
if( (boolean_f != c_734087) ){ 
  
double_type local_734099; object c_734100 = Cyc_fast_mul(data,&local_734099,obj_int2obj(2), ((closureN)self_731369)->elements[3]);

object c_734096 = Cyc_num_fast_gte_op(data,c_73323, c_734100);
return_closcall1(data,  k_73748,  c_734096);
} else { 
  
closureN_type c_734103;
c_734103.hdr.mark = gc_color_red;
 c_734103.hdr.grayed = 0;
c_734103.tag = closureN_tag;
 c_734103.fn = (function_type)__lambda_322;
c_734103.num_args = 0;
c_734103.num_elements = 2;
c_734103.elements = (object *)alloca(sizeof(object) * 2);
c_734103.elements[0] = c_73323;
c_734103.elements[1] = ((closureN)self_731369)->elements[0];


closureN_type c_734111;
c_734111.hdr.mark = gc_color_red;
 c_734111.hdr.grayed = 0;
c_734111.tag = closureN_tag;
 c_734111.fn = (function_type)__lambda_328;
c_734111.num_args = 1;
c_734111.num_elements = 4;
c_734111.elements = (object *)alloca(sizeof(object) * 4);
c_734111.elements[0] = c_73323;
c_734111.elements[1] = ((closureN)self_731369)->elements[1];
c_734111.elements[2] = k_73748;
c_734111.elements[3] = ((closureN)self_731369)->elements[2];

return_closcall1(data,(closure)&c_734103,  &c_734111);}
; 
}

static void __lambda_328(void *data, int argc, object self_731370, object r_73758) {
  
closureN_type c_734113;
c_734113.hdr.mark = gc_color_red;
 c_734113.hdr.grayed = 0;
c_734113.tag = closureN_tag;
 c_734113.fn = (function_type)__lambda_327;
c_734113.num_args = 1;
c_734113.num_elements = 4;
c_734113.elements = (object *)alloca(sizeof(object) * 4);
c_734113.elements[0] = ((closureN)self_731370)->elements[0];
c_734113.elements[1] = ((closureN)self_731370)->elements[1];
c_734113.elements[2] = ((closureN)self_731370)->elements[2];
c_734113.elements[3] = ((closureN)self_731370)->elements[3];

return_closcall2(data,  __glo_write_91ch,  &c_734113, r_73758);; 
}

static void __lambda_327(void *data, int argc, object self_731371, object r_73750) {
  
closureN_type c_734115;
c_734115.hdr.mark = gc_color_red;
 c_734115.hdr.grayed = 0;
c_734115.tag = closureN_tag;
 c_734115.fn = (function_type)__lambda_326;
c_734115.num_args = 1;
c_734115.num_elements = 4;
c_734115.elements = (object *)alloca(sizeof(object) * 4);
c_734115.elements[0] = ((closureN)self_731371)->elements[0];
c_734115.elements[1] = ((closureN)self_731371)->elements[1];
c_734115.elements[2] = ((closureN)self_731371)->elements[2];
c_734115.elements[3] = ((closureN)self_731371)->elements[3];

return_closcall2(data,  __glo_write_91ch,  &c_734115, obj_char2obj(47));; 
}

static void __lambda_326(void *data, int argc, object self_731372, object r_73751) {
  
closureN_type c_734117;
c_734117.hdr.mark = gc_color_red;
 c_734117.hdr.grayed = 0;
c_734117.tag = closureN_tag;
 c_734117.fn = (function_type)__lambda_325;
c_734117.num_args = 1;
c_734117.num_elements = 3;
c_734117.elements = (object *)alloca(sizeof(object) * 3);
c_734117.elements[0] = ((closureN)self_731372)->elements[0];
c_734117.elements[1] = ((closureN)self_731372)->elements[2];
c_734117.elements[2] = ((closureN)self_731372)->elements[3];


double_type local_734135; object c_734136 = Cyc_fast_sub(data,&local_734135,Cyc_vector_ref(data, ((closureN)self_731372)->elements[1], obj_int2obj(1)), obj_int2obj(1));

double_type local_734142; object c_734143 = Cyc_fast_sum(data,&local_734142,((closureN)self_731372)->elements[0], obj_int2obj(1));
return_closcall4(data,  __glo_dot_95space,  &c_734117, ((closureN)self_731372)->elements[1], c_734136, c_734143);; 
}

static void __lambda_325(void *data, int argc, object self_731373, object r_73755) {
  
closureN_type c_734119;
c_734119.hdr.mark = gc_color_red;
 c_734119.hdr.grayed = 0;
c_734119.tag = closureN_tag;
 c_734119.fn = (function_type)__lambda_324;
c_734119.num_args = 1;
c_734119.num_elements = 3;
c_734119.elements = (object *)alloca(sizeof(object) * 3);
c_734119.elements[0] = ((closureN)self_731373)->elements[0];
c_734119.elements[1] = ((closureN)self_731373)->elements[1];
c_734119.elements[2] = ((closureN)self_731373)->elements[2];

return_closcall2(data,  __glo_write_91ch,  &c_734119, r_73755);; 
}

static void __lambda_324(void *data, int argc, object self_731374, object r_73752) {
  
closureN_type c_734121;
c_734121.hdr.mark = gc_color_red;
 c_734121.hdr.grayed = 0;
c_734121.tag = closureN_tag;
 c_734121.fn = (function_type)__lambda_323;
c_734121.num_args = 1;
c_734121.num_elements = 3;
c_734121.elements = (object *)alloca(sizeof(object) * 3);
c_734121.elements[0] = ((closureN)self_731374)->elements[0];
c_734121.elements[1] = ((closureN)self_731374)->elements[1];
c_734121.elements[2] = ((closureN)self_731374)->elements[2];

return_closcall2(data,  __glo_write_91ch,  &c_734121, obj_char2obj(92));; 
}

static void __lambda_323(void *data, int argc, object self_731375, object r_73753) {
  
double_type local_734129; object c_734130 = Cyc_fast_sum(data,&local_734129,((closureN)self_731375)->elements[0], obj_int2obj(2));
return_closcall2(data,  car(((closureN)self_731375)->elements[2]),  ((closureN)self_731375)->elements[1], c_734130);; 
}

static void __lambda_322(void *data, int argc, object self_731376, object k_73759) {
    object c_734106 = Cyc_num_fast_eq_op(data,((closureN)self_731376)->elements[0], ((closureN)self_731376)->elements[1]);
if( (boolean_f != c_734106) ){ 
  return_closcall1(data,  k_73759,  obj_char2obj(32));
} else { 
  return_closcall1(data,  k_73759,  obj_char2obj(95));}
; 
}

static void __lambda_321(void *data, int argc, object self_731377, object r_73746) {
  
closureN_type c_733817;
c_733817.hdr.mark = gc_color_red;
 c_733817.hdr.grayed = 0;
c_733817.tag = closureN_tag;
 c_733817.fn = (function_type)__lambda_320;
c_733817.num_args = 1;
c_733817.num_elements = 4;
c_733817.elements = (object *)alloca(sizeof(object) * 4);
c_733817.elements[0] = ((closureN)self_731377)->elements[0];
c_733817.elements[1] = ((closureN)self_731377)->elements[1];
c_733817.elements[2] = ((closureN)self_731377)->elements[2];
c_733817.elements[3] = ((closureN)self_731377)->elements[4];

return_closcall2(data,  car(((closureN)self_731377)->elements[3]),  &c_733817, obj_int2obj(0));; 
}

static void __lambda_320(void *data, int argc, object self_731378, object r_73690) {
  
closureN_type c_733819;
c_733819.hdr.mark = gc_color_red;
 c_733819.hdr.grayed = 0;
c_733819.tag = closureN_tag;
 c_733819.fn = (function_type)__lambda_283;
c_733819.num_args = 0;
c_733819.num_elements = 2;
c_733819.elements = (object *)alloca(sizeof(object) * 2);
c_733819.elements[0] = ((closureN)self_731378)->elements[0];
c_733819.elements[1] = ((closureN)self_731378)->elements[1];


closureN_type c_733845;
c_733845.hdr.mark = gc_color_red;
 c_733845.hdr.grayed = 0;
c_733845.tag = closureN_tag;
 c_733845.fn = (function_type)__lambda_319;
c_733845.num_args = 1;
c_733845.num_elements = 3;
c_733845.elements = (object *)alloca(sizeof(object) * 3);
c_733845.elements[0] = ((closureN)self_731378)->elements[1];
c_733845.elements[1] = ((closureN)self_731378)->elements[2];
c_733845.elements[2] = ((closureN)self_731378)->elements[3];

return_closcall1(data,(closure)&c_733819,  &c_733845);; 
}

static void __lambda_319(void *data, int argc, object self_731379, object r_73691) {
  
closureN_type c_733847;
c_733847.hdr.mark = gc_color_red;
 c_733847.hdr.grayed = 0;
c_733847.tag = closureN_tag;
 c_733847.fn = (function_type)__lambda_318;
c_733847.num_args = 1;
c_733847.num_elements = 3;
c_733847.elements = (object *)alloca(sizeof(object) * 3);
c_733847.elements[0] = ((closureN)self_731379)->elements[0];
c_733847.elements[1] = ((closureN)self_731379)->elements[1];
c_733847.elements[2] = ((closureN)self_731379)->elements[2];

return_closcall2(data,  __glo_write_91ch,  &c_733847, obj_char2obj(10));; 
}

static void __lambda_318(void *data, int argc, object self_731380, object r_73692) {
  
closureN_type c_733849;
c_733849.hdr.mark = gc_color_red;
 c_733849.hdr.grayed = 0;
c_733849.tag = closureN_tag;
 c_733849.fn = (function_type)__lambda_317;
c_733849.num_args = 1;
c_733849.num_elements = 3;
c_733849.elements = (object *)alloca(sizeof(object) * 3);
c_733849.elements[0] = ((closureN)self_731380)->elements[0];
c_733849.elements[1] = ((closureN)self_731380)->elements[1];
c_733849.elements[2] = ((closureN)self_731380)->elements[2];

return_closcall1(data,(closure)&c_733849,  boolean_f);; 
}

static void __lambda_317(void *data, int argc, object self_731381, object lp_73196_73310) {
  
closureN_type c_733851;
c_733851.hdr.mark = gc_color_red;
 c_733851.hdr.grayed = 0;
c_733851.tag = closureN_tag;
 c_733851.fn = (function_type)__lambda_316;
c_733851.num_args = 1;
c_733851.num_elements = 3;
c_733851.elements = (object *)alloca(sizeof(object) * 3);
c_733851.elements[0] = ((closureN)self_731381)->elements[0];
c_733851.elements[1] = ((closureN)self_731381)->elements[1];
c_733851.elements[2] = ((closureN)self_731381)->elements[2];


make_cell(c_734081,lp_73196_73310);
return_closcall1(data,(closure)&c_733851,  &c_734081);; 
}

static void __lambda_316(void *data, int argc, object self_731382, object lp_73196_73310) {
  
closureN_type c_733853;
c_733853.hdr.mark = gc_color_red;
 c_733853.hdr.grayed = 0;
c_733853.tag = closureN_tag;
 c_733853.fn = (function_type)__lambda_284;
c_733853.num_args = 1;
c_733853.num_elements = 3;
c_733853.elements = (object *)alloca(sizeof(object) * 3);
c_733853.elements[0] = ((closureN)self_731382)->elements[0];
c_733853.elements[1] = ((closureN)self_731382)->elements[1];
c_733853.elements[2] = lp_73196_73310;


closureN_type c_733868;
c_733868.hdr.mark = gc_color_red;
 c_733868.hdr.grayed = 0;
c_733868.tag = closureN_tag;
 c_733868.fn = (function_type)__lambda_315;
c_733868.num_args = 1;
c_733868.num_elements = 3;
c_733868.elements = (object *)alloca(sizeof(object) * 3);
c_733868.elements[0] = ((closureN)self_731382)->elements[0];
c_733868.elements[1] = lp_73196_73310;
c_733868.elements[2] = ((closureN)self_731382)->elements[2];

return_closcall1(data,(closure)&c_733853,  Cyc_set_cell(data, lp_73196_73310, &c_733868));; 
}

static void __lambda_315(void *data, int argc, object self_731383, object k_73696, object r_73311) {
    object c_733871 = Cyc_num_fast_lt_op(data,r_73311, obj_int2obj(0));
if( (boolean_f != c_733871) ){ 
  
object c_733875 = Cyc_num_fast_lt_op(data,r_73311, obj_int2obj(0));
return_closcall1(data,  k_73696,  c_733875);
} else { 
  
closureN_type c_733877;
c_733877.hdr.mark = gc_color_red;
 c_733877.hdr.grayed = 0;
c_733877.tag = closureN_tag;
 c_733877.fn = (function_type)__lambda_314;
c_733877.num_args = 1;
c_733877.num_elements = 5;
c_733877.elements = (object *)alloca(sizeof(object) * 5);
c_733877.elements[0] = ((closureN)self_731383)->elements[0];
c_733877.elements[1] = k_73696;
c_733877.elements[2] = ((closureN)self_731383)->elements[1];
c_733877.elements[3] = r_73311;
c_733877.elements[4] = ((closureN)self_731383)->elements[2];

return_closcall2(data,  __glo_write_91ch,  &c_733877, obj_char2obj(47));}
; 
}

static void __lambda_314(void *data, int argc, object self_731384, object r_73698) {
  
closureN_type c_733879;
c_733879.hdr.mark = gc_color_red;
 c_733879.hdr.grayed = 0;
c_733879.tag = closureN_tag;
 c_733879.fn = (function_type)__lambda_313;
c_733879.num_args = 1;
c_733879.num_elements = 5;
c_733879.elements = (object *)alloca(sizeof(object) * 5);
c_733879.elements[0] = ((closureN)self_731384)->elements[0];
c_733879.elements[1] = ((closureN)self_731384)->elements[1];
c_733879.elements[2] = ((closureN)self_731384)->elements[2];
c_733879.elements[3] = ((closureN)self_731384)->elements[3];
c_733879.elements[4] = ((closureN)self_731384)->elements[4];

return_closcall1(data,(closure)&c_733879,  boolean_f);; 
}

static void __lambda_313(void *data, int argc, object self_731385, object lp_73200_73318) {
  
closureN_type c_733881;
c_733881.hdr.mark = gc_color_red;
 c_733881.hdr.grayed = 0;
c_733881.tag = closureN_tag;
 c_733881.fn = (function_type)__lambda_312;
c_733881.num_args = 1;
c_733881.num_elements = 5;
c_733881.elements = (object *)alloca(sizeof(object) * 5);
c_733881.elements[0] = ((closureN)self_731385)->elements[0];
c_733881.elements[1] = ((closureN)self_731385)->elements[1];
c_733881.elements[2] = ((closureN)self_731385)->elements[2];
c_733881.elements[3] = ((closureN)self_731385)->elements[3];
c_733881.elements[4] = ((closureN)self_731385)->elements[4];


make_cell(c_734078,lp_73200_73318);
return_closcall1(data,(closure)&c_733881,  &c_734078);; 
}

static void __lambda_312(void *data, int argc, object self_731386, object lp_73200_73318) {
  
closureN_type c_733883;
c_733883.hdr.mark = gc_color_red;
 c_733883.hdr.grayed = 0;
c_733883.tag = closureN_tag;
 c_733883.fn = (function_type)__lambda_306;
c_733883.num_args = 1;
c_733883.num_elements = 6;
c_733883.elements = (object *)alloca(sizeof(object) * 6);
c_733883.elements[0] = ((closureN)self_731386)->elements[0];
c_733883.elements[1] = ((closureN)self_731386)->elements[1];
c_733883.elements[2] = ((closureN)self_731386)->elements[2];
c_733883.elements[3] = lp_73200_73318;
c_733883.elements[4] = ((closureN)self_731386)->elements[3];
c_733883.elements[5] = ((closureN)self_731386)->elements[4];


closureN_type c_734029;
c_734029.hdr.mark = gc_color_red;
 c_734029.hdr.grayed = 0;
c_734029.tag = closureN_tag;
 c_734029.fn = (function_type)__lambda_311;
c_734029.num_args = 1;
c_734029.num_elements = 4;
c_734029.elements = (object *)alloca(sizeof(object) * 4);
c_734029.elements[0] = ((closureN)self_731386)->elements[0];
c_734029.elements[1] = lp_73200_73318;
c_734029.elements[2] = ((closureN)self_731386)->elements[3];
c_734029.elements[3] = ((closureN)self_731386)->elements[4];

return_closcall1(data,(closure)&c_733883,  Cyc_set_cell(data, lp_73200_73318, &c_734029));; 
}

static void __lambda_311(void *data, int argc, object self_731387, object k_73731, object c_73319) {
    double_type local_734035; object c_734036 = Cyc_fast_mul(data,&local_734035,obj_int2obj(2), ((closureN)self_731387)->elements[3]);
  object c_734032 = Cyc_num_fast_gte_op(data,c_73319, c_734036);
if( (boolean_f != c_734032) ){ 
  
double_type local_734044; object c_734045 = Cyc_fast_mul(data,&local_734044,obj_int2obj(2), ((closureN)self_731387)->elements[3]);

object c_734041 = Cyc_num_fast_gte_op(data,c_73319, c_734045);
return_closcall1(data,  k_73731,  c_734041);
} else { 
  
closureN_type c_734048;
c_734048.hdr.mark = gc_color_red;
 c_734048.hdr.grayed = 0;
c_734048.tag = closureN_tag;
 c_734048.fn = (function_type)__lambda_310;
c_734048.num_args = 1;
c_734048.num_elements = 5;
c_734048.elements = (object *)alloca(sizeof(object) * 5);
c_734048.elements[0] = c_73319;
c_734048.elements[1] = ((closureN)self_731387)->elements[0];
c_734048.elements[2] = k_73731;
c_734048.elements[3] = ((closureN)self_731387)->elements[1];
c_734048.elements[4] = ((closureN)self_731387)->elements[2];


double_type local_734074; object c_734075 = Cyc_fast_sub(data,&local_734074,c_73319, obj_int2obj(1));
return_closcall4(data,  __glo_dot_95space,  &c_734048, ((closureN)self_731387)->elements[0], ((closureN)self_731387)->elements[2], c_734075);}
; 
}

static void __lambda_310(void *data, int argc, object self_731388, object r_73738) {
  
closureN_type c_734050;
c_734050.hdr.mark = gc_color_red;
 c_734050.hdr.grayed = 0;
c_734050.tag = closureN_tag;
 c_734050.fn = (function_type)__lambda_309;
c_734050.num_args = 1;
c_734050.num_elements = 5;
c_734050.elements = (object *)alloca(sizeof(object) * 5);
c_734050.elements[0] = ((closureN)self_731388)->elements[0];
c_734050.elements[1] = ((closureN)self_731388)->elements[1];
c_734050.elements[2] = ((closureN)self_731388)->elements[2];
c_734050.elements[3] = ((closureN)self_731388)->elements[3];
c_734050.elements[4] = ((closureN)self_731388)->elements[4];

return_closcall2(data,  __glo_write_91ch,  &c_734050, r_73738);; 
}

static void __lambda_309(void *data, int argc, object self_731389, object r_73733) {
  
closureN_type c_734052;
c_734052.hdr.mark = gc_color_red;
 c_734052.hdr.grayed = 0;
c_734052.tag = closureN_tag;
 c_734052.fn = (function_type)__lambda_308;
c_734052.num_args = 1;
c_734052.num_elements = 3;
c_734052.elements = (object *)alloca(sizeof(object) * 3);
c_734052.elements[0] = ((closureN)self_731389)->elements[0];
c_734052.elements[1] = ((closureN)self_731389)->elements[2];
c_734052.elements[2] = ((closureN)self_731389)->elements[3];

return_closcall4(data,  __glo_href_95rc,  &c_734052, ((closureN)self_731389)->elements[1], ((closureN)self_731389)->elements[4], ((closureN)self_731389)->elements[0]);; 
}

static void __lambda_308(void *data, int argc, object self_731390, object r_73737) {
  
closureN_type c_734054;
c_734054.hdr.mark = gc_color_red;
 c_734054.hdr.grayed = 0;
c_734054.tag = closureN_tag;
 c_734054.fn = (function_type)__lambda_307;
c_734054.num_args = 1;
c_734054.num_elements = 3;
c_734054.elements = (object *)alloca(sizeof(object) * 3);
c_734054.elements[0] = ((closureN)self_731390)->elements[0];
c_734054.elements[1] = ((closureN)self_731390)->elements[1];
c_734054.elements[2] = ((closureN)self_731390)->elements[2];

return_closcall2(data,  __glo_display_91hexbottom,  &c_734054, Cyc_vector_ref(data, r_73737, obj_int2obj(3)));; 
}

static void __lambda_307(void *data, int argc, object self_731391, object r_73734) {
  
double_type local_734062; object c_734063 = Cyc_fast_sum(data,&local_734062,((closureN)self_731391)->elements[0], obj_int2obj(2));
return_closcall2(data,  car(((closureN)self_731391)->elements[2]),  ((closureN)self_731391)->elements[1], c_734063);; 
}

static void __lambda_306(void *data, int argc, object self_731392, object r_73729) {
  
closureN_type c_733888;
c_733888.hdr.mark = gc_color_red;
 c_733888.hdr.grayed = 0;
c_733888.tag = closureN_tag;
 c_733888.fn = (function_type)__lambda_305;
c_733888.num_args = 1;
c_733888.num_elements = 5;
c_733888.elements = (object *)alloca(sizeof(object) * 5);
c_733888.elements[0] = ((closureN)self_731392)->elements[0];
c_733888.elements[1] = ((closureN)self_731392)->elements[1];
c_733888.elements[2] = ((closureN)self_731392)->elements[2];
c_733888.elements[3] = ((closureN)self_731392)->elements[4];
c_733888.elements[4] = ((closureN)self_731392)->elements[5];

return_closcall2(data,  car(((closureN)self_731392)->elements[3]),  &c_733888, obj_int2obj(1));; 
}

static void __lambda_305(void *data, int argc, object self_731393, object r_73699) {
  
closureN_type c_733890;
c_733890.hdr.mark = gc_color_red;
 c_733890.hdr.grayed = 0;
c_733890.tag = closureN_tag;
 c_733890.fn = (function_type)__lambda_288;
c_733890.num_args = 0;
c_733890.num_elements = 2;
c_733890.elements = (object *)alloca(sizeof(object) * 2);
c_733890.elements[0] = ((closureN)self_731393)->elements[0];
c_733890.elements[1] = ((closureN)self_731393)->elements[3];


closureN_type c_733913;
c_733913.hdr.mark = gc_color_red;
 c_733913.hdr.grayed = 0;
c_733913.tag = closureN_tag;
 c_733913.fn = (function_type)__lambda_304;
c_733913.num_args = 1;
c_733913.num_elements = 5;
c_733913.elements = (object *)alloca(sizeof(object) * 5);
c_733913.elements[0] = ((closureN)self_731393)->elements[0];
c_733913.elements[1] = ((closureN)self_731393)->elements[1];
c_733913.elements[2] = ((closureN)self_731393)->elements[2];
c_733913.elements[3] = ((closureN)self_731393)->elements[3];
c_733913.elements[4] = ((closureN)self_731393)->elements[4];

return_closcall1(data,(closure)&c_733890,  &c_733913);; 
}

static void __lambda_304(void *data, int argc, object self_731394, object r_73700) {
  
closureN_type c_733915;
c_733915.hdr.mark = gc_color_red;
 c_733915.hdr.grayed = 0;
c_733915.tag = closureN_tag;
 c_733915.fn = (function_type)__lambda_303;
c_733915.num_args = 1;
c_733915.num_elements = 5;
c_733915.elements = (object *)alloca(sizeof(object) * 5);
c_733915.elements[0] = ((closureN)self_731394)->elements[0];
c_733915.elements[1] = ((closureN)self_731394)->elements[1];
c_733915.elements[2] = ((closureN)self_731394)->elements[2];
c_733915.elements[3] = ((closureN)self_731394)->elements[3];
c_733915.elements[4] = ((closureN)self_731394)->elements[4];

return_closcall2(data,  __glo_write_91ch,  &c_733915, obj_char2obj(10));; 
}

static void __lambda_303(void *data, int argc, object self_731395, object r_73701) {
  
closureN_type c_733917;
c_733917.hdr.mark = gc_color_red;
 c_733917.hdr.grayed = 0;
c_733917.tag = closureN_tag;
 c_733917.fn = (function_type)__lambda_302;
c_733917.num_args = 1;
c_733917.num_elements = 5;
c_733917.elements = (object *)alloca(sizeof(object) * 5);
c_733917.elements[0] = ((closureN)self_731395)->elements[0];
c_733917.elements[1] = ((closureN)self_731395)->elements[1];
c_733917.elements[2] = ((closureN)self_731395)->elements[2];
c_733917.elements[3] = ((closureN)self_731395)->elements[3];
c_733917.elements[4] = ((closureN)self_731395)->elements[4];

return_closcall1(data,(closure)&c_733917,  boolean_f);; 
}

static void __lambda_302(void *data, int argc, object self_731396, object lp_73207_73314) {
  
closureN_type c_733919;
c_733919.hdr.mark = gc_color_red;
 c_733919.hdr.grayed = 0;
c_733919.tag = closureN_tag;
 c_733919.fn = (function_type)__lambda_301;
c_733919.num_args = 1;
c_733919.num_elements = 5;
c_733919.elements = (object *)alloca(sizeof(object) * 5);
c_733919.elements[0] = ((closureN)self_731396)->elements[0];
c_733919.elements[1] = ((closureN)self_731396)->elements[1];
c_733919.elements[2] = ((closureN)self_731396)->elements[2];
c_733919.elements[3] = ((closureN)self_731396)->elements[3];
c_733919.elements[4] = ((closureN)self_731396)->elements[4];


make_cell(c_734026,lp_73207_73314);
return_closcall1(data,(closure)&c_733919,  &c_734026);; 
}

static void __lambda_301(void *data, int argc, object self_731397, object lp_73207_73314) {
  
closureN_type c_733921;
c_733921.hdr.mark = gc_color_red;
 c_733921.hdr.grayed = 0;
c_733921.tag = closureN_tag;
 c_733921.fn = (function_type)__lambda_295;
c_733921.num_args = 1;
c_733921.num_elements = 5;
c_733921.elements = (object *)alloca(sizeof(object) * 5);
c_733921.elements[0] = ((closureN)self_731397)->elements[0];
c_733921.elements[1] = ((closureN)self_731397)->elements[1];
c_733921.elements[2] = ((closureN)self_731397)->elements[2];
c_733921.elements[3] = lp_73207_73314;
c_733921.elements[4] = ((closureN)self_731397)->elements[3];


closureN_type c_733973;
c_733973.hdr.mark = gc_color_red;
 c_733973.hdr.grayed = 0;
c_733973.tag = closureN_tag;
 c_733973.fn = (function_type)__lambda_300;
c_733973.num_args = 1;
c_733973.num_elements = 4;
c_733973.elements = (object *)alloca(sizeof(object) * 4);
c_733973.elements[0] = ((closureN)self_731397)->elements[0];
c_733973.elements[1] = lp_73207_73314;
c_733973.elements[2] = ((closureN)self_731397)->elements[3];
c_733973.elements[3] = ((closureN)self_731397)->elements[4];

return_closcall1(data,(closure)&c_733921,  Cyc_set_cell(data, lp_73207_73314, &c_733973));; 
}

static void __lambda_300(void *data, int argc, object self_731398, object k_73714, object c_73315) {
    double_type local_733979; object c_733980 = Cyc_fast_mul(data,&local_733979,obj_int2obj(2), ((closureN)self_731398)->elements[3]);
  object c_733976 = Cyc_num_fast_gte_op(data,c_73315, c_733980);
if( (boolean_f != c_733976) ){ 
  
double_type local_733988; object c_733989 = Cyc_fast_mul(data,&local_733988,obj_int2obj(2), ((closureN)self_731398)->elements[3]);

object c_733985 = Cyc_num_fast_gte_op(data,c_73315, c_733989);
return_closcall1(data,  k_73714,  c_733985);
} else { 
  
closureN_type c_733992;
c_733992.hdr.mark = gc_color_red;
 c_733992.hdr.grayed = 0;
c_733992.tag = closureN_tag;
 c_733992.fn = (function_type)__lambda_299;
c_733992.num_args = 1;
c_733992.num_elements = 5;
c_733992.elements = (object *)alloca(sizeof(object) * 5);
c_733992.elements[0] = c_73315;
c_733992.elements[1] = ((closureN)self_731398)->elements[0];
c_733992.elements[2] = k_73714;
c_733992.elements[3] = ((closureN)self_731398)->elements[1];
c_733992.elements[4] = ((closureN)self_731398)->elements[2];

return_closcall4(data,  __glo_href_95rc,  &c_733992, ((closureN)self_731398)->elements[0], ((closureN)self_731398)->elements[2], c_73315);}
; 
}

static void __lambda_299(void *data, int argc, object self_731399, object r_73723) {
  
closureN_type c_733994;
c_733994.hdr.mark = gc_color_red;
 c_733994.hdr.grayed = 0;
c_733994.tag = closureN_tag;
 c_733994.fn = (function_type)__lambda_298;
c_733994.num_args = 1;
c_733994.num_elements = 5;
c_733994.elements = (object *)alloca(sizeof(object) * 5);
c_733994.elements[0] = ((closureN)self_731399)->elements[0];
c_733994.elements[1] = ((closureN)self_731399)->elements[1];
c_733994.elements[2] = ((closureN)self_731399)->elements[2];
c_733994.elements[3] = ((closureN)self_731399)->elements[3];
c_733994.elements[4] = ((closureN)self_731399)->elements[4];

return_closcall2(data,  __glo_display_91hexbottom,  &c_733994, Cyc_vector_ref(data, r_73723, obj_int2obj(3)));; 
}

static void __lambda_298(void *data, int argc, object self_731400, object r_73716) {
  
closureN_type c_733996;
c_733996.hdr.mark = gc_color_red;
 c_733996.hdr.grayed = 0;
c_733996.tag = closureN_tag;
 c_733996.fn = (function_type)__lambda_297;
c_733996.num_args = 1;
c_733996.num_elements = 3;
c_733996.elements = (object *)alloca(sizeof(object) * 3);
c_733996.elements[0] = ((closureN)self_731400)->elements[0];
c_733996.elements[1] = ((closureN)self_731400)->elements[2];
c_733996.elements[2] = ((closureN)self_731400)->elements[3];


double_type local_734012; object c_734013 = Cyc_fast_sub(data,&local_734012,((closureN)self_731400)->elements[4], obj_int2obj(1));

double_type local_734017; object c_734018 = Cyc_fast_sum(data,&local_734017,((closureN)self_731400)->elements[0], obj_int2obj(1));
return_closcall4(data,  __glo_dot_95space,  &c_733996, ((closureN)self_731400)->elements[1], c_734013, c_734018);; 
}

static void __lambda_297(void *data, int argc, object self_731401, object r_73719) {
  
closureN_type c_733998;
c_733998.hdr.mark = gc_color_red;
 c_733998.hdr.grayed = 0;
c_733998.tag = closureN_tag;
 c_733998.fn = (function_type)__lambda_296;
c_733998.num_args = 1;
c_733998.num_elements = 3;
c_733998.elements = (object *)alloca(sizeof(object) * 3);
c_733998.elements[0] = ((closureN)self_731401)->elements[0];
c_733998.elements[1] = ((closureN)self_731401)->elements[1];
c_733998.elements[2] = ((closureN)self_731401)->elements[2];

return_closcall2(data,  __glo_write_91ch,  &c_733998, r_73719);; 
}

static void __lambda_296(void *data, int argc, object self_731402, object r_73717) {
  
double_type local_734006; object c_734007 = Cyc_fast_sum(data,&local_734006,((closureN)self_731402)->elements[0], obj_int2obj(2));
return_closcall2(data,  car(((closureN)self_731402)->elements[2]),  ((closureN)self_731402)->elements[1], c_734007);; 
}

static void __lambda_295(void *data, int argc, object self_731403, object r_73712) {
  
closureN_type c_733926;
c_733926.hdr.mark = gc_color_red;
 c_733926.hdr.grayed = 0;
c_733926.tag = closureN_tag;
 c_733926.fn = (function_type)__lambda_294;
c_733926.num_args = 1;
c_733926.num_elements = 4;
c_733926.elements = (object *)alloca(sizeof(object) * 4);
c_733926.elements[0] = ((closureN)self_731403)->elements[0];
c_733926.elements[1] = ((closureN)self_731403)->elements[1];
c_733926.elements[2] = ((closureN)self_731403)->elements[2];
c_733926.elements[3] = ((closureN)self_731403)->elements[4];

return_closcall2(data,  car(((closureN)self_731403)->elements[3]),  &c_733926, obj_int2obj(0));; 
}

static void __lambda_294(void *data, int argc, object self_731404, object r_73702) {
  
closureN_type c_733928;
c_733928.hdr.mark = gc_color_red;
 c_733928.hdr.grayed = 0;
c_733928.tag = closureN_tag;
 c_733928.fn = (function_type)__lambda_291;
c_733928.num_args = 0;
c_733928.num_elements = 2;
c_733928.elements = (object *)alloca(sizeof(object) * 2);
c_733928.elements[0] = ((closureN)self_731404)->elements[0];
c_733928.elements[1] = ((closureN)self_731404)->elements[3];


closureN_type c_733958;
c_733958.hdr.mark = gc_color_red;
 c_733958.hdr.grayed = 0;
c_733958.tag = closureN_tag;
 c_733958.fn = (function_type)__lambda_293;
c_733958.num_args = 1;
c_733958.num_elements = 3;
c_733958.elements = (object *)alloca(sizeof(object) * 3);
c_733958.elements[0] = ((closureN)self_731404)->elements[1];
c_733958.elements[1] = ((closureN)self_731404)->elements[2];
c_733958.elements[2] = ((closureN)self_731404)->elements[3];

return_closcall1(data,(closure)&c_733928,  &c_733958);; 
}

static void __lambda_293(void *data, int argc, object self_731405, object r_73703) {
  
closureN_type c_733960;
c_733960.hdr.mark = gc_color_red;
 c_733960.hdr.grayed = 0;
c_733960.tag = closureN_tag;
 c_733960.fn = (function_type)__lambda_292;
c_733960.num_args = 1;
c_733960.num_elements = 3;
c_733960.elements = (object *)alloca(sizeof(object) * 3);
c_733960.elements[0] = ((closureN)self_731405)->elements[0];
c_733960.elements[1] = ((closureN)self_731405)->elements[1];
c_733960.elements[2] = ((closureN)self_731405)->elements[2];

return_closcall2(data,  __glo_write_91ch,  &c_733960, obj_char2obj(10));; 
}

static void __lambda_292(void *data, int argc, object self_731406, object r_73704) {
  
double_type local_733968; object c_733969 = Cyc_fast_sub(data,&local_733968,((closureN)self_731406)->elements[2], obj_int2obj(1));
return_closcall2(data,  car(((closureN)self_731406)->elements[1]),  ((closureN)self_731406)->elements[0], c_733969);; 
}

static void __lambda_291(void *data, int argc, object self_731407, object k_73706) {
  
closureN_type c_733930;
c_733930.hdr.mark = gc_color_red;
 c_733930.hdr.grayed = 0;
c_733930.tag = closureN_tag;
 c_733930.fn = (function_type)__lambda_290;
c_733930.num_args = 1;
c_733930.num_elements = 3;
c_733930.elements = (object *)alloca(sizeof(object) * 3);
c_733930.elements[0] = ((closureN)self_731407)->elements[0];
c_733930.elements[1] = k_73706;
c_733930.elements[2] = ((closureN)self_731407)->elements[1];

return_closcall2(data,  __glo_odd_127_scheme_base,  &c_733930, Cyc_vector_ref(data, ((closureN)self_731407)->elements[0], obj_int2obj(2)));; 
}

static void __lambda_290(void *data, int argc, object self_731408, object r_73707) {
  if( (boolean_f != r_73707) ){ 
  
closureN_type c_733932;
c_733932.hdr.mark = gc_color_red;
 c_733932.hdr.grayed = 0;
c_733932.tag = closureN_tag;
 c_733932.fn = (function_type)__lambda_289;
c_733932.num_args = 1;
c_733932.num_elements = 1;
c_733932.elements = (object *)alloca(sizeof(object) * 1);
c_733932.elements[0] = ((closureN)self_731408)->elements[1];


double_type local_733941; object c_733942 = Cyc_fast_sub(data,&local_733941,Cyc_vector_ref(data, ((closureN)self_731408)->elements[0], obj_int2obj(2)), obj_int2obj(1));
return_closcall4(data,  __glo_href_95rc,  &c_733932, ((closureN)self_731408)->elements[0], ((closureN)self_731408)->elements[2], c_733942);
} else { 
    double_type local_733948; object c_733949 = ((inline_function_type)
                   ((closure)__glo_zero_127_191_191inline_191_191_scheme_base)->fn)(data,&local_733948,((closureN)self_731408)->elements[2]);
if( (boolean_f != c_733949) ){ 
  return_closcall1(data,  ((closureN)self_731408)->elements[1],  boolean_f);
} else { 
  return_closcall2(data,  __glo_write_91ch,  ((closureN)self_731408)->elements[1], obj_char2obj(92));}
}
; 
}

static void __lambda_289(void *data, int argc, object self_731409, object r_73709) {
  return_closcall2(data,  __glo_display_91hexbottom,  ((closureN)self_731409)->elements[0], Cyc_vector_ref(data, r_73709, obj_int2obj(3)));; 
}

static void __lambda_288(void *data, int argc, object self_731410, object k_73724) {
  
closureN_type c_733892;
c_733892.hdr.mark = gc_color_red;
 c_733892.hdr.grayed = 0;
c_733892.tag = closureN_tag;
 c_733892.fn = (function_type)__lambda_287;
c_733892.num_args = 1;
c_733892.num_elements = 3;
c_733892.elements = (object *)alloca(sizeof(object) * 3);
c_733892.elements[0] = ((closureN)self_731410)->elements[0];
c_733892.elements[1] = k_73724;
c_733892.elements[2] = ((closureN)self_731410)->elements[1];

return_closcall2(data,  __glo_odd_127_scheme_base,  &c_733892, Cyc_vector_ref(data, ((closureN)self_731410)->elements[0], obj_int2obj(2)));; 
}

static void __lambda_287(void *data, int argc, object self_731411, object r_73725) {
  if( (boolean_f != r_73725) ){ 
  
closureN_type c_733894;
c_733894.hdr.mark = gc_color_red;
 c_733894.hdr.grayed = 0;
c_733894.tag = closureN_tag;
 c_733894.fn = (function_type)__lambda_286;
c_733894.num_args = 1;
c_733894.num_elements = 1;
c_733894.elements = (object *)alloca(sizeof(object) * 1);
c_733894.elements[0] = ((closureN)self_731411)->elements[1];


double_type local_733903; object c_733904 = Cyc_fast_sub(data,&local_733903,Cyc_vector_ref(data, ((closureN)self_731411)->elements[0], obj_int2obj(2)), obj_int2obj(1));
return_closcall4(data,  __glo_dot_95space,  &c_733894, ((closureN)self_731411)->elements[0], ((closureN)self_731411)->elements[2], c_733904);
} else { 
  return_closcall1(data,  ((closureN)self_731411)->elements[1],  boolean_f);}
; 
}

static void __lambda_286(void *data, int argc, object self_731412, object r_73727) {
  
closureN_type c_733896;
c_733896.hdr.mark = gc_color_red;
 c_733896.hdr.grayed = 0;
c_733896.tag = closureN_tag;
 c_733896.fn = (function_type)__lambda_285;
c_733896.num_args = 1;
c_733896.num_elements = 1;
c_733896.elements = (object *)alloca(sizeof(object) * 1);
c_733896.elements[0] = ((closureN)self_731412)->elements[0];

return_closcall2(data,  __glo_write_91ch,  &c_733896, r_73727);; 
}

static void __lambda_285(void *data, int argc, object self_731413, object r_73726) {
  return_closcall2(data,  __glo_write_91ch,  ((closureN)self_731413)->elements[0], obj_char2obj(92));; 
}

static void __lambda_284(void *data, int argc, object self_731414, object r_73694) {
  
double_type local_733861; object c_733862 = Cyc_fast_sub(data,&local_733861,Cyc_vector_ref(data, ((closureN)self_731414)->elements[0], obj_int2obj(1)), obj_int2obj(1));
return_closcall2(data,  car(((closureN)self_731414)->elements[2]),  ((closureN)self_731414)->elements[1], c_733862);; 
}

static void __lambda_283(void *data, int argc, object self_731415, object k_73740) {
  
closureN_type c_733821;
c_733821.hdr.mark = gc_color_red;
 c_733821.hdr.grayed = 0;
c_733821.tag = closureN_tag;
 c_733821.fn = (function_type)__lambda_282;
c_733821.num_args = 1;
c_733821.num_elements = 3;
c_733821.elements = (object *)alloca(sizeof(object) * 3);
c_733821.elements[0] = ((closureN)self_731415)->elements[0];
c_733821.elements[1] = ((closureN)self_731415)->elements[1];
c_733821.elements[2] = k_73740;

return_closcall2(data,  __glo_odd_127_scheme_base,  &c_733821, Cyc_vector_ref(data, ((closureN)self_731415)->elements[1], obj_int2obj(2)));; 
}

static void __lambda_282(void *data, int argc, object self_731416, object r_73741) {
  if( (boolean_f != r_73741) ){ 
  
closureN_type c_733823;
c_733823.hdr.mark = gc_color_red;
 c_733823.hdr.grayed = 0;
c_733823.tag = closureN_tag;
 c_733823.fn = (function_type)__lambda_280;
c_733823.num_args = 0;
c_733823.num_elements = 2;
c_733823.elements = (object *)alloca(sizeof(object) * 2);
c_733823.elements[0] = ((closureN)self_731416)->elements[0];
c_733823.elements[1] = ((closureN)self_731416)->elements[1];


closureN_type c_733837;
c_733837.hdr.mark = gc_color_red;
 c_733837.hdr.grayed = 0;
c_733837.tag = closureN_tag;
 c_733837.fn = (function_type)__lambda_281;
c_733837.num_args = 1;
c_733837.num_elements = 1;
c_733837.elements = (object *)alloca(sizeof(object) * 1);
c_733837.elements[0] = ((closureN)self_731416)->elements[2];

return_closcall1(data,(closure)&c_733823,  &c_733837);
} else { 
  return_closcall1(data,  ((closureN)self_731416)->elements[2],  boolean_f);}
; 
}

static void __lambda_281(void *data, int argc, object self_731417, object r_73742) {
  return_closcall2(data,  __glo_write_91ch,  ((closureN)self_731417)->elements[0], r_73742);; 
}

static void __lambda_280(void *data, int argc, object self_731418, object k_73743) {
    double_type local_733830; object c_733831 = Cyc_fast_sub(data,&local_733830,Cyc_vector_ref(data, ((closureN)self_731418)->elements[1], obj_int2obj(2)), obj_int2obj(1));
  object c_733826 = Cyc_num_fast_eq_op(data,((closureN)self_731418)->elements[0], c_733831);
if( (boolean_f != c_733826) ){ 
  return_closcall1(data,  k_73743,  obj_char2obj(32));
} else { 
  return_closcall1(data,  k_73743,  obj_char2obj(95));}
; 
}

static void __lambda_279(void *data, int argc, closure _,object k_73776, object c_73329) {
  Cyc_st_add(data, "maze.scm:write-ch");

closureN_type c_733781;
c_733781.hdr.mark = gc_color_red;
 c_733781.hdr.grayed = 0;
c_733781.tag = closureN_tag;
 c_733781.fn = (function_type)__lambda_278;
c_733781.num_args = 1;
c_733781.num_elements = 1;
c_733781.elements = (object *)alloca(sizeof(object) * 1);
c_733781.elements[0] = k_73776;


make_pair(c_733788,c_73329, __glo_output);
return_closcall1(data,(closure)&c_733781,  &c_733788);; 
}

static void __lambda_278(void *data, int argc, object self_731419, object r_73777) {
  return_closcall1(data,  ((closureN)self_731419)->elements[0],  global_set(__glo_output, r_73777));; 
}

static void __lambda_277(void *data, int argc, closure _,object k_73782, object nrows_73331, object ncols_73330) {
  Cyc_st_add(data, "maze.scm:pmaze");

closureN_type c_733768;
c_733768.hdr.mark = gc_color_red;
 c_733768.hdr.grayed = 0;
c_733768.tag = closureN_tag;
 c_733768.fn = (function_type)__lambda_276;
c_733768.num_args = 1;
c_733768.num_elements = 1;
c_733768.elements = (object *)alloca(sizeof(object) * 1);
c_733768.elements[0] = k_73782;

return_closcall3(data,  __glo_make_91maze,  &c_733768, nrows_73331, ncols_73330);; 
}

static void __lambda_276(void *data, int argc, object self_731420, object result_73332) {
  
closureN_type c_733770;
c_733770.hdr.mark = gc_color_red;
 c_733770.hdr.grayed = 0;
c_733770.tag = closureN_tag;
 c_733770.fn = (function_type)__lambda_275;
c_733770.num_args = 3;
c_733770.num_elements = 1;
c_733770.elements = (object *)alloca(sizeof(object) * 1);
c_733770.elements[0] = ((closureN)self_731420)->elements[0];

return_closcall3(data,(closure)&c_733770,  Cyc_vector_ref(data, result_73332, obj_int2obj(0)), Cyc_vector_ref(data, result_73332, obj_int2obj(1)), Cyc_vector_ref(data, result_73332, obj_int2obj(2)));; 
}

static void __lambda_275(void *data, int argc, object self_731421, object cells_73335, object entrance_73334, object exit_73333) {
  return_closcall3(data,  __glo_print_91hexmaze,  ((closureN)self_731421)->elements[0], cells_73335, entrance_73334);; 
}

static void __lambda_274(void *data, int argc, closure _,object k_73789, object nrows_73337, object ncols_73336) {
  Cyc_st_add(data, "maze.scm:make-maze");

closureN_type c_733703;
c_733703.hdr.mark = gc_color_red;
 c_733703.hdr.grayed = 0;
c_733703.tag = closureN_tag;
 c_733703.fn = (function_type)__lambda_273;
c_733703.num_args = 1;
c_733703.num_elements = 3;
c_733703.elements = (object *)alloca(sizeof(object) * 3);
c_733703.elements[0] = k_73789;
c_733703.elements[1] = ncols_73336;
c_733703.elements[2] = nrows_73337;

return_closcall3(data,  __glo_gen_91maze_91array,  &c_733703, nrows_73337, ncols_73336);; 
}

static void __lambda_273(void *data, int argc, object self_731422, object cells_73338) {
  
closureN_type c_733705;
c_733705.hdr.mark = gc_color_red;
 c_733705.hdr.grayed = 0;
c_733705.tag = closureN_tag;
 c_733705.fn = (function_type)__lambda_272;
c_733705.num_args = 1;
c_733705.num_elements = 4;
c_733705.elements = (object *)alloca(sizeof(object) * 4);
c_733705.elements[0] = cells_73338;
c_733705.elements[1] = ((closureN)self_731422)->elements[0];
c_733705.elements[2] = ((closureN)self_731422)->elements[1];
c_733705.elements[3] = ((closureN)self_731422)->elements[2];

return_closcall2(data,  __glo_make_91wall_91vec,  &c_733705, cells_73338);; 
}

static void __lambda_272(void *data, int argc, object self_731423, object r_73806) {
  
closureN_type c_733707;
c_733707.hdr.mark = gc_color_red;
 c_733707.hdr.grayed = 0;
c_733707.tag = closureN_tag;
 c_733707.fn = (function_type)__lambda_271;
c_733707.num_args = 1;
c_733707.num_elements = 4;
c_733707.elements = (object *)alloca(sizeof(object) * 4);
c_733707.elements[0] = ((closureN)self_731423)->elements[0];
c_733707.elements[1] = ((closureN)self_731423)->elements[1];
c_733707.elements[2] = ((closureN)self_731423)->elements[2];
c_733707.elements[3] = ((closureN)self_731423)->elements[3];


make_pair(c_733765,obj_int2obj(20), boolean_f);
return_closcall3(data,  __glo_permute_91vec_67,  &c_733707, r_73806, &c_733765);; 
}

static void __lambda_271(void *data, int argc, object self_731424, object walls_73339) {
  
closureN_type c_733709;
c_733709.hdr.mark = gc_color_red;
 c_733709.hdr.grayed = 0;
c_733709.tag = closureN_tag;
 c_733709.fn = (function_type)__lambda_270;
c_733709.num_args = 1;
c_733709.num_elements = 3;
c_733709.elements = (object *)alloca(sizeof(object) * 3);
c_733709.elements[0] = ((closureN)self_731424)->elements[0];
c_733709.elements[1] = ((closureN)self_731424)->elements[1];
c_733709.elements[2] = ((closureN)self_731424)->elements[3];


double_type local_733759; object c_733760 = Cyc_fast_mul(data,&local_733759,((closureN)self_731424)->elements[3], ((closureN)self_731424)->elements[2]);
return_closcall3(data,  __glo_dig_91maze,  &c_733709, walls_73339, c_733760);; 
}

static void __lambda_270(void *data, int argc, object self_731425, object r_73792) {
  
closureN_type c_733711;
c_733711.hdr.mark = gc_color_red;
 c_733711.hdr.grayed = 0;
c_733711.tag = closureN_tag;
 c_733711.fn = (function_type)__lambda_269;
c_733711.num_args = 1;
c_733711.num_elements = 3;
c_733711.elements = (object *)alloca(sizeof(object) * 3);
c_733711.elements[0] = ((closureN)self_731425)->elements[0];
c_733711.elements[1] = ((closureN)self_731425)->elements[1];
c_733711.elements[2] = ((closureN)self_731425)->elements[2];

return_closcall2(data,  __glo_pick_91entrances,  &c_733711, ((closureN)self_731425)->elements[0]);; 
}

static void __lambda_269(void *data, int argc, object self_731426, object result_73340) {
  
closureN_type c_733713;
c_733713.hdr.mark = gc_color_red;
 c_733713.hdr.grayed = 0;
c_733713.tag = closureN_tag;
 c_733713.fn = (function_type)__lambda_268;
c_733713.num_args = 1;
c_733713.num_elements = 4;
c_733713.elements = (object *)alloca(sizeof(object) * 4);
c_733713.elements[0] = ((closureN)self_731426)->elements[0];
c_733713.elements[1] = ((closureN)self_731426)->elements[1];
c_733713.elements[2] = ((closureN)self_731426)->elements[2];
c_733713.elements[3] = result_73340;

return_closcall4(data,  __glo_href_95rc,  &c_733713, ((closureN)self_731426)->elements[0], obj_int2obj(0), Cyc_vector_ref(data, result_73340, obj_int2obj(1)));; 
}

static void __lambda_268(void *data, int argc, object self_731427, object exit_91cell_73343) {
  
closureN_type c_733715;
c_733715.hdr.mark = gc_color_red;
 c_733715.hdr.grayed = 0;
c_733715.tag = closureN_tag;
 c_733715.fn = (function_type)__lambda_267;
c_733715.num_args = 1;
c_733715.num_elements = 5;
c_733715.elements = (object *)alloca(sizeof(object) * 5);
c_733715.elements[0] = ((closureN)self_731427)->elements[0];
c_733715.elements[1] = exit_91cell_73343;
c_733715.elements[2] = ((closureN)self_731427)->elements[1];
c_733715.elements[3] = ((closureN)self_731427)->elements[2];
c_733715.elements[4] = ((closureN)self_731427)->elements[3];

return_closcall1(data,(closure)&c_733715,  Cyc_vector_ref(data, exit_91cell_73343, obj_int2obj(3)));; 
}

static void __lambda_267(void *data, int argc, object self_731428, object walls_73344) {
  
closureN_type c_733717;
c_733717.hdr.mark = gc_color_red;
 c_733717.hdr.grayed = 0;
c_733717.tag = closureN_tag;
 c_733717.fn = (function_type)__lambda_266;
c_733717.num_args = 1;
c_733717.num_elements = 5;
c_733717.elements = (object *)alloca(sizeof(object) * 5);
c_733717.elements[0] = ((closureN)self_731428)->elements[0];
c_733717.elements[1] = ((closureN)self_731428)->elements[1];
c_733717.elements[2] = ((closureN)self_731428)->elements[2];
c_733717.elements[3] = ((closureN)self_731428)->elements[4];
c_733717.elements[4] = walls_73344;


double_type local_733745; object c_733746 = Cyc_fast_sub(data,&local_733745,((closureN)self_731428)->elements[3], obj_int2obj(1));
return_closcall4(data,  __glo_href_95rc,  &c_733717, ((closureN)self_731428)->elements[0], c_733746, Cyc_vector_ref(data, ((closureN)self_731428)->elements[4], obj_int2obj(0)));; 
}

static void __lambda_266(void *data, int argc, object self_731429, object r_73803) {
  
closureN_type c_733719;
c_733719.hdr.mark = gc_color_red;
 c_733719.hdr.grayed = 0;
c_733719.tag = closureN_tag;
 c_733719.fn = (function_type)__lambda_265;
c_733719.num_args = 1;
c_733719.num_elements = 5;
c_733719.elements = (object *)alloca(sizeof(object) * 5);
c_733719.elements[0] = ((closureN)self_731429)->elements[0];
c_733719.elements[1] = ((closureN)self_731429)->elements[1];
c_733719.elements[2] = ((closureN)self_731429)->elements[2];
c_733719.elements[3] = ((closureN)self_731429)->elements[3];
c_733719.elements[4] = ((closureN)self_731429)->elements[4];

return_closcall2(data,  __glo_reroot_91maze,  &c_733719, r_73803);; 
}

static void __lambda_265(void *data, int argc, object self_731430, object r_73798) {
  
closureN_type c_733721;
c_733721.hdr.mark = gc_color_red;
 c_733721.hdr.grayed = 0;
c_733721.tag = closureN_tag;
 c_733721.fn = (function_type)__lambda_264;
c_733721.num_args = 1;
c_733721.num_elements = 5;
c_733721.elements = (object *)alloca(sizeof(object) * 5);
c_733721.elements[0] = ((closureN)self_731430)->elements[0];
c_733721.elements[1] = ((closureN)self_731430)->elements[1];
c_733721.elements[2] = ((closureN)self_731430)->elements[2];
c_733721.elements[3] = ((closureN)self_731430)->elements[3];
c_733721.elements[4] = ((closureN)self_731430)->elements[4];

return_closcall2(data,  __glo_mark_91path,  &c_733721, ((closureN)self_731430)->elements[1]);; 
}

static void __lambda_264(void *data, int argc, object self_731431, object r_73799) {
  
closureN_type c_733723;
c_733723.hdr.mark = gc_color_red;
 c_733723.hdr.grayed = 0;
c_733723.tag = closureN_tag;
 c_733723.fn = (function_type)__lambda_263;
c_733723.num_args = 1;
c_733723.num_elements = 5;
c_733723.elements = (object *)alloca(sizeof(object) * 5);
c_733723.elements[0] = ((closureN)self_731431)->elements[0];
c_733723.elements[1] = ((closureN)self_731431)->elements[1];
c_733723.elements[2] = ((closureN)self_731431)->elements[2];
c_733723.elements[3] = ((closureN)self_731431)->elements[3];
c_733723.elements[4] = ((closureN)self_731431)->elements[4];

return_closcall2(data,  __glo_bitwise_91not,  &c_733723, __glo_south);; 
}

static void __lambda_263(void *data, int argc, object self_731432, object r_73802) {
  
closureN_type c_733725;
c_733725.hdr.mark = gc_color_red;
 c_733725.hdr.grayed = 0;
c_733725.tag = closureN_tag;
 c_733725.fn = (function_type)__lambda_262;
c_733725.num_args = 1;
c_733725.num_elements = 4;
c_733725.elements = (object *)alloca(sizeof(object) * 4);
c_733725.elements[0] = ((closureN)self_731432)->elements[0];
c_733725.elements[1] = ((closureN)self_731432)->elements[1];
c_733725.elements[2] = ((closureN)self_731432)->elements[2];
c_733725.elements[3] = ((closureN)self_731432)->elements[3];

return_closcall3(data,  __glo_bitwise_91and,  &c_733725, ((closureN)self_731432)->elements[4], r_73802);; 
}

static void __lambda_262(void *data, int argc, object self_731433, object r_73801) {
  
closureN_type c_733727;
c_733727.hdr.mark = gc_color_red;
 c_733727.hdr.grayed = 0;
c_733727.tag = closureN_tag;
 c_733727.fn = (function_type)__lambda_261;
c_733727.num_args = 1;
c_733727.num_elements = 3;
c_733727.elements = (object *)alloca(sizeof(object) * 3);
c_733727.elements[0] = ((closureN)self_731433)->elements[0];
c_733727.elements[1] = ((closureN)self_731433)->elements[2];
c_733727.elements[2] = ((closureN)self_731433)->elements[3];

return_closcall1(data,(closure)&c_733727,  Cyc_vector_set(data, ((closureN)self_731433)->elements[1], obj_int2obj(3), r_73801));; 
}

static void __lambda_261(void *data, int argc, object self_731434, object r_73800) {
  return_closcall4(data,  __glo_vector_scheme_base,  ((closureN)self_731434)->elements[1], ((closureN)self_731434)->elements[0], Cyc_vector_ref(data, ((closureN)self_731434)->elements[2], obj_int2obj(0)), Cyc_vector_ref(data, ((closureN)self_731434)->elements[2], obj_int2obj(1)));; 
}

static void __lambda_260(void *data, int argc, closure _,object k_73810, object proc_73347, object harr_73346, object cell_73345) {
  Cyc_st_add(data, "maze.scm:for-each-hex-child");

closureN_type c_733340;
c_733340.hdr.mark = gc_color_red;
 c_733340.hdr.grayed = 0;
c_733340.tag = closureN_tag;
 c_733340.fn = (function_type)__lambda_231;
c_733340.num_args = 0;
c_733340.num_elements = 3;
c_733340.elements = (object *)alloca(sizeof(object) * 3);
c_733340.elements[0] = cell_73345;
c_733340.elements[1] = harr_73346;
c_733340.elements[2] = proc_73347;


closureN_type c_733372;
c_733372.hdr.mark = gc_color_red;
 c_733372.hdr.grayed = 0;
c_733372.tag = closureN_tag;
 c_733372.fn = (function_type)__lambda_259;
c_733372.num_args = 1;
c_733372.num_elements = 4;
c_733372.elements = (object *)alloca(sizeof(object) * 4);
c_733372.elements[0] = cell_73345;
c_733372.elements[1] = harr_73346;
c_733372.elements[2] = k_73810;
c_733372.elements[3] = proc_73347;

return_closcall1(data,(closure)&c_733340,  &c_733372);; 
}

static void __lambda_259(void *data, int argc, object self_731435, object r_73819) {
  
closureN_type c_733374;
c_733374.hdr.mark = gc_color_red;
 c_733374.hdr.grayed = 0;
c_733374.tag = closureN_tag;
 c_733374.fn = (function_type)__lambda_234;
c_733374.num_args = 0;
c_733374.num_elements = 3;
c_733374.elements = (object *)alloca(sizeof(object) * 3);
c_733374.elements[0] = ((closureN)self_731435)->elements[0];
c_733374.elements[1] = ((closureN)self_731435)->elements[1];
c_733374.elements[2] = ((closureN)self_731435)->elements[3];


closureN_type c_733402;
c_733402.hdr.mark = gc_color_red;
 c_733402.hdr.grayed = 0;
c_733402.tag = closureN_tag;
 c_733402.fn = (function_type)__lambda_258;
c_733402.num_args = 1;
c_733402.num_elements = 4;
c_733402.elements = (object *)alloca(sizeof(object) * 4);
c_733402.elements[0] = ((closureN)self_731435)->elements[0];
c_733402.elements[1] = ((closureN)self_731435)->elements[1];
c_733402.elements[2] = ((closureN)self_731435)->elements[2];
c_733402.elements[3] = ((closureN)self_731435)->elements[3];

return_closcall1(data,(closure)&c_733374,  &c_733402);; 
}

static void __lambda_258(void *data, int argc, object self_731436, object r_73820) {
  
closureN_type c_733404;
c_733404.hdr.mark = gc_color_red;
 c_733404.hdr.grayed = 0;
c_733404.tag = closureN_tag;
 c_733404.fn = (function_type)__lambda_237;
c_733404.num_args = 0;
c_733404.num_elements = 3;
c_733404.elements = (object *)alloca(sizeof(object) * 3);
c_733404.elements[0] = ((closureN)self_731436)->elements[0];
c_733404.elements[1] = ((closureN)self_731436)->elements[1];
c_733404.elements[2] = ((closureN)self_731436)->elements[3];


closureN_type c_733436;
c_733436.hdr.mark = gc_color_red;
 c_733436.hdr.grayed = 0;
c_733436.tag = closureN_tag;
 c_733436.fn = (function_type)__lambda_257;
c_733436.num_args = 1;
c_733436.num_elements = 4;
c_733436.elements = (object *)alloca(sizeof(object) * 4);
c_733436.elements[0] = ((closureN)self_731436)->elements[0];
c_733436.elements[1] = ((closureN)self_731436)->elements[1];
c_733436.elements[2] = ((closureN)self_731436)->elements[2];
c_733436.elements[3] = ((closureN)self_731436)->elements[3];

return_closcall1(data,(closure)&c_733404,  &c_733436);; 
}

static void __lambda_257(void *data, int argc, object self_731437, object r_73821) {
  
closureN_type c_733438;
c_733438.hdr.mark = gc_color_red;
 c_733438.hdr.grayed = 0;
c_733438.tag = closureN_tag;
 c_733438.fn = (function_type)__lambda_244;
c_733438.num_args = 0;
c_733438.num_elements = 3;
c_733438.elements = (object *)alloca(sizeof(object) * 3);
c_733438.elements[0] = ((closureN)self_731437)->elements[0];
c_733438.elements[1] = ((closureN)self_731437)->elements[1];
c_733438.elements[2] = ((closureN)self_731437)->elements[3];


closureN_type c_733538;
c_733538.hdr.mark = gc_color_red;
 c_733538.hdr.grayed = 0;
c_733538.tag = closureN_tag;
 c_733538.fn = (function_type)__lambda_256;
c_733538.num_args = 1;
c_733538.num_elements = 4;
c_733538.elements = (object *)alloca(sizeof(object) * 4);
c_733538.elements[0] = ((closureN)self_731437)->elements[0];
c_733538.elements[1] = ((closureN)self_731437)->elements[1];
c_733538.elements[2] = ((closureN)self_731437)->elements[2];
c_733538.elements[3] = ((closureN)self_731437)->elements[3];

return_closcall1(data,(closure)&c_733438,  &c_733538);; 
}

static void __lambda_256(void *data, int argc, object self_731438, object r_73822) {
  
closureN_type c_733540;
c_733540.hdr.mark = gc_color_red;
 c_733540.hdr.grayed = 0;
c_733540.tag = closureN_tag;
 c_733540.fn = (function_type)__lambda_248;
c_733540.num_args = 0;
c_733540.num_elements = 3;
c_733540.elements = (object *)alloca(sizeof(object) * 3);
c_733540.elements[0] = ((closureN)self_731438)->elements[0];
c_733540.elements[1] = ((closureN)self_731438)->elements[1];
c_733540.elements[2] = ((closureN)self_731438)->elements[3];


closureN_type c_733590;
c_733590.hdr.mark = gc_color_red;
 c_733590.hdr.grayed = 0;
c_733590.tag = closureN_tag;
 c_733590.fn = (function_type)__lambda_255;
c_733590.num_args = 1;
c_733590.num_elements = 4;
c_733590.elements = (object *)alloca(sizeof(object) * 4);
c_733590.elements[0] = ((closureN)self_731438)->elements[0];
c_733590.elements[1] = ((closureN)self_731438)->elements[1];
c_733590.elements[2] = ((closureN)self_731438)->elements[2];
c_733590.elements[3] = ((closureN)self_731438)->elements[3];

return_closcall1(data,(closure)&c_733540,  &c_733590);; 
}

static void __lambda_255(void *data, int argc, object self_731439, object r_73823) {
  
closureN_type c_733592;
c_733592.hdr.mark = gc_color_red;
 c_733592.hdr.grayed = 0;
c_733592.tag = closureN_tag;
 c_733592.fn = (function_type)__lambda_250;
c_733592.num_args = 0;
c_733592.num_elements = 2;
c_733592.elements = (object *)alloca(sizeof(object) * 2);
c_733592.elements[0] = ((closureN)self_731439)->elements[0];
c_733592.elements[1] = ((closureN)self_731439)->elements[1];


closureN_type c_733665;
c_733665.hdr.mark = gc_color_red;
 c_733665.hdr.grayed = 0;
c_733665.tag = closureN_tag;
 c_733665.fn = (function_type)__lambda_254;
c_733665.num_args = 1;
c_733665.num_elements = 4;
c_733665.elements = (object *)alloca(sizeof(object) * 4);
c_733665.elements[0] = ((closureN)self_731439)->elements[0];
c_733665.elements[1] = ((closureN)self_731439)->elements[1];
c_733665.elements[2] = ((closureN)self_731439)->elements[2];
c_733665.elements[3] = ((closureN)self_731439)->elements[3];

return_closcall1(data,(closure)&c_733592,  &c_733665);; 
}

static void __lambda_254(void *data, int argc, object self_731440, object r_73824) {
  if( (boolean_f != r_73824) ){ 
  
closureN_type c_733667;
c_733667.hdr.mark = gc_color_red;
 c_733667.hdr.grayed = 0;
c_733667.tag = closureN_tag;
 c_733667.fn = (function_type)__lambda_253;
c_733667.num_args = 1;
c_733667.num_elements = 2;
c_733667.elements = (object *)alloca(sizeof(object) * 2);
c_733667.elements[0] = ((closureN)self_731440)->elements[2];
c_733667.elements[1] = ((closureN)self_731440)->elements[3];


double_type local_733683; object c_733684 = Cyc_fast_sum(data,&local_733683,Cyc_car(data, Cyc_vector_ref(data, ((closureN)self_731440)->elements[0], obj_int2obj(2))), obj_int2obj(3));

double_type local_733692; object c_733693 = Cyc_fast_sum(data,&local_733692,Cyc_cdr(data, Cyc_vector_ref(data, ((closureN)self_731440)->elements[0], obj_int2obj(2))), obj_int2obj(1));
return_closcall4(data,  __glo_href,  &c_733667, ((closureN)self_731440)->elements[1], c_733684, c_733693);
} else { 
  return_closcall1(data,  ((closureN)self_731440)->elements[2],  boolean_f);}
; 
}

static void __lambda_253(void *data, int argc, object self_731441, object ne_73356) {
  
closureN_type c_733669;
c_733669.hdr.mark = gc_color_red;
 c_733669.hdr.grayed = 0;
c_733669.tag = closureN_tag;
 c_733669.fn = (function_type)__lambda_252;
c_733669.num_args = 1;
c_733669.num_elements = 3;
c_733669.elements = (object *)alloca(sizeof(object) * 3);
c_733669.elements[0] = ((closureN)self_731441)->elements[0];
c_733669.elements[1] = ne_73356;
c_733669.elements[2] = ((closureN)self_731441)->elements[1];

return_closcall1(data,(closure)&c_733669,  Cyc_vector_ref(data, ne_73356, obj_int2obj(3)));; 
}

static void __lambda_252(void *data, int argc, object self_731442, object r_73827) {
  
closureN_type c_733671;
c_733671.hdr.mark = gc_color_red;
 c_733671.hdr.grayed = 0;
c_733671.tag = closureN_tag;
 c_733671.fn = (function_type)__lambda_251;
c_733671.num_args = 1;
c_733671.num_elements = 3;
c_733671.elements = (object *)alloca(sizeof(object) * 3);
c_733671.elements[0] = ((closureN)self_731442)->elements[0];
c_733671.elements[1] = ((closureN)self_731442)->elements[1];
c_733671.elements[2] = ((closureN)self_731442)->elements[2];

return_closcall3(data,  __glo_bit_91test,  &c_733671, r_73827, __glo_south_91west);; 
}

static void __lambda_251(void *data, int argc, object self_731443, object r_73826) {
  if( (boolean_f != r_73826) ){ 
  return_closcall1(data,  ((closureN)self_731443)->elements[0],  boolean_f);
} else { 
  return_closcall2(data,  ((closureN)self_731443)->elements[2],  ((closureN)self_731443)->elements[0], ((closureN)self_731443)->elements[1]);}
; 
}

static void __lambda_250(void *data, int argc, object self_731444, object k_73830) {
    double_type local_733607; object c_733608 = Cyc_fast_sub(data,&local_733607,Cyc_vector_ref(data, ((closureN)self_731444)->elements[1], obj_int2obj(2)), obj_int2obj(1));
  double_type local_733603; object c_733604 = Cyc_fast_mul(data,&local_733603,obj_int2obj(3), c_733608);
  object c_733595 = Cyc_num_fast_lt_op(data,Cyc_car(data, Cyc_vector_ref(data, ((closureN)self_731444)->elements[0], obj_int2obj(2))), c_733604);
if( (boolean_f != c_733595) ){ 
    double_type local_733626; object c_733627 = Cyc_fast_sub(data,&local_733626,Cyc_vector_ref(data, ((closureN)self_731444)->elements[1], obj_int2obj(1)), obj_int2obj(1));
  double_type local_733622; object c_733623 = Cyc_fast_mul(data,&local_733622,obj_int2obj(2), c_733627);
  object c_733614 = Cyc_num_fast_lte_op(data,Cyc_cdr(data, Cyc_vector_ref(data, ((closureN)self_731444)->elements[0], obj_int2obj(2))), c_733623);
if( (boolean_f != c_733614) ){ 
  
double_type local_733646; object c_733647 = Cyc_fast_sub(data,&local_733646,Cyc_vector_ref(data, ((closureN)self_731444)->elements[1], obj_int2obj(1)), obj_int2obj(1));

double_type local_733642; object c_733643 = Cyc_fast_mul(data,&local_733642,obj_int2obj(2), c_733647);

object c_733634 = Cyc_num_fast_lte_op(data,Cyc_cdr(data, Cyc_vector_ref(data, ((closureN)self_731444)->elements[0], obj_int2obj(2))), c_733643);
return_closcall1(data,  k_73830,  c_733634);
} else { 
  
closureN_type c_733652;
c_733652.hdr.mark = gc_color_red;
 c_733652.hdr.grayed = 0;
c_733652.tag = closureN_tag;
 c_733652.fn = (function_type)__lambda_249;
c_733652.num_args = 1;
c_733652.num_elements = 1;
c_733652.elements = (object *)alloca(sizeof(object) * 1);
c_733652.elements[0] = k_73830;

return_closcall3(data,  __glo_mod,  &c_733652, Cyc_car(data, Cyc_vector_ref(data, ((closureN)self_731444)->elements[0], obj_int2obj(2))), obj_int2obj(6));}

} else { 
  return_closcall1(data,  k_73830,  boolean_f);}
; 
}

static void __lambda_249(void *data, int argc, object self_731445, object r_73833) {
  
double_type local_733657; object c_733658 = ((inline_function_type)
                   ((closure)__glo_zero_127_191_191inline_191_191_scheme_base)->fn)(data,&local_733657,r_73833);
return_closcall1(data,  ((closureN)self_731445)->elements[0],  c_733658);; 
}

static void __lambda_248(void *data, int argc, object self_731446, object k_73834) {
    double_type local_733555; object c_733556 = Cyc_fast_sub(data,&local_733555,Cyc_vector_ref(data, ((closureN)self_731446)->elements[1], obj_int2obj(1)), obj_int2obj(1));
  double_type local_733551; object c_733552 = Cyc_fast_mul(data,&local_733551,obj_int2obj(2), c_733556);
  object c_733543 = Cyc_num_fast_lt_op(data,Cyc_cdr(data, Cyc_vector_ref(data, ((closureN)self_731446)->elements[0], obj_int2obj(2))), c_733552);
if( (boolean_f != c_733543) ){ 
  
closureN_type c_733561;
c_733561.hdr.mark = gc_color_red;
 c_733561.hdr.grayed = 0;
c_733561.tag = closureN_tag;
 c_733561.fn = (function_type)__lambda_247;
c_733561.num_args = 1;
c_733561.num_elements = 2;
c_733561.elements = (object *)alloca(sizeof(object) * 2);
c_733561.elements[0] = k_73834;
c_733561.elements[1] = ((closureN)self_731446)->elements[2];


double_type local_733582; object c_733583 = Cyc_fast_sum(data,&local_733582,Cyc_cdr(data, Cyc_vector_ref(data, ((closureN)self_731446)->elements[0], obj_int2obj(2))), obj_int2obj(2));
return_closcall4(data,  __glo_href,  &c_733561, ((closureN)self_731446)->elements[1], Cyc_car(data, Cyc_vector_ref(data, ((closureN)self_731446)->elements[0], obj_int2obj(2))), c_733583);
} else { 
  return_closcall1(data,  k_73834,  boolean_f);}
; 
}

static void __lambda_247(void *data, int argc, object self_731447, object n_73358) {
  
closureN_type c_733563;
c_733563.hdr.mark = gc_color_red;
 c_733563.hdr.grayed = 0;
c_733563.tag = closureN_tag;
 c_733563.fn = (function_type)__lambda_246;
c_733563.num_args = 1;
c_733563.num_elements = 3;
c_733563.elements = (object *)alloca(sizeof(object) * 3);
c_733563.elements[0] = ((closureN)self_731447)->elements[0];
c_733563.elements[1] = n_73358;
c_733563.elements[2] = ((closureN)self_731447)->elements[1];

return_closcall1(data,(closure)&c_733563,  Cyc_vector_ref(data, n_73358, obj_int2obj(3)));; 
}

static void __lambda_246(void *data, int argc, object self_731448, object r_73838) {
  
closureN_type c_733565;
c_733565.hdr.mark = gc_color_red;
 c_733565.hdr.grayed = 0;
c_733565.tag = closureN_tag;
 c_733565.fn = (function_type)__lambda_245;
c_733565.num_args = 1;
c_733565.num_elements = 3;
c_733565.elements = (object *)alloca(sizeof(object) * 3);
c_733565.elements[0] = ((closureN)self_731448)->elements[0];
c_733565.elements[1] = ((closureN)self_731448)->elements[1];
c_733565.elements[2] = ((closureN)self_731448)->elements[2];

return_closcall3(data,  __glo_bit_91test,  &c_733565, r_73838, __glo_south);; 
}

static void __lambda_245(void *data, int argc, object self_731449, object r_73837) {
  if( (boolean_f != r_73837) ){ 
  return_closcall1(data,  ((closureN)self_731449)->elements[0],  boolean_f);
} else { 
  return_closcall2(data,  ((closureN)self_731449)->elements[2],  ((closureN)self_731449)->elements[0], ((closureN)self_731449)->elements[1]);}
; 
}

static void __lambda_244(void *data, int argc, object self_731450, object k_73840) {
  
closureN_type c_733440;
c_733440.hdr.mark = gc_color_red;
 c_733440.hdr.grayed = 0;
c_733440.tag = closureN_tag;
 c_733440.fn = (function_type)__lambda_239;
c_733440.num_args = 0;
c_733440.num_elements = 2;
c_733440.elements = (object *)alloca(sizeof(object) * 2);
c_733440.elements[0] = ((closureN)self_731450)->elements[0];
c_733440.elements[1] = ((closureN)self_731450)->elements[1];


closureN_type c_733502;
c_733502.hdr.mark = gc_color_red;
 c_733502.hdr.grayed = 0;
c_733502.tag = closureN_tag;
 c_733502.fn = (function_type)__lambda_243;
c_733502.num_args = 1;
c_733502.num_elements = 4;
c_733502.elements = (object *)alloca(sizeof(object) * 4);
c_733502.elements[0] = ((closureN)self_731450)->elements[0];
c_733502.elements[1] = ((closureN)self_731450)->elements[1];
c_733502.elements[2] = k_73840;
c_733502.elements[3] = ((closureN)self_731450)->elements[2];

return_closcall1(data,(closure)&c_733440,  &c_733502);; 
}

static void __lambda_243(void *data, int argc, object self_731451, object r_73841) {
  if( (boolean_f != r_73841) ){ 
  
closureN_type c_733504;
c_733504.hdr.mark = gc_color_red;
 c_733504.hdr.grayed = 0;
c_733504.tag = closureN_tag;
 c_733504.fn = (function_type)__lambda_242;
c_733504.num_args = 1;
c_733504.num_elements = 2;
c_733504.elements = (object *)alloca(sizeof(object) * 2);
c_733504.elements[0] = ((closureN)self_731451)->elements[2];
c_733504.elements[1] = ((closureN)self_731451)->elements[3];


double_type local_733520; object c_733521 = Cyc_fast_sub(data,&local_733520,Cyc_car(data, Cyc_vector_ref(data, ((closureN)self_731451)->elements[0], obj_int2obj(2))), obj_int2obj(3));

double_type local_733529; object c_733530 = Cyc_fast_sum(data,&local_733529,Cyc_cdr(data, Cyc_vector_ref(data, ((closureN)self_731451)->elements[0], obj_int2obj(2))), obj_int2obj(1));
return_closcall4(data,  __glo_href,  &c_733504, ((closureN)self_731451)->elements[1], c_733521, c_733530);
} else { 
  return_closcall1(data,  ((closureN)self_731451)->elements[2],  boolean_f);}
; 
}

static void __lambda_242(void *data, int argc, object self_731452, object nw_73359) {
  
closureN_type c_733506;
c_733506.hdr.mark = gc_color_red;
 c_733506.hdr.grayed = 0;
c_733506.tag = closureN_tag;
 c_733506.fn = (function_type)__lambda_241;
c_733506.num_args = 1;
c_733506.num_elements = 3;
c_733506.elements = (object *)alloca(sizeof(object) * 3);
c_733506.elements[0] = ((closureN)self_731452)->elements[0];
c_733506.elements[1] = nw_73359;
c_733506.elements[2] = ((closureN)self_731452)->elements[1];

return_closcall1(data,(closure)&c_733506,  Cyc_vector_ref(data, nw_73359, obj_int2obj(3)));; 
}

static void __lambda_241(void *data, int argc, object self_731453, object r_73844) {
  
closureN_type c_733508;
c_733508.hdr.mark = gc_color_red;
 c_733508.hdr.grayed = 0;
c_733508.tag = closureN_tag;
 c_733508.fn = (function_type)__lambda_240;
c_733508.num_args = 1;
c_733508.num_elements = 3;
c_733508.elements = (object *)alloca(sizeof(object) * 3);
c_733508.elements[0] = ((closureN)self_731453)->elements[0];
c_733508.elements[1] = ((closureN)self_731453)->elements[1];
c_733508.elements[2] = ((closureN)self_731453)->elements[2];

return_closcall3(data,  __glo_bit_91test,  &c_733508, r_73844, __glo_south_91east);; 
}

static void __lambda_240(void *data, int argc, object self_731454, object r_73843) {
  if( (boolean_f != r_73843) ){ 
  return_closcall1(data,  ((closureN)self_731454)->elements[0],  boolean_f);
} else { 
  return_closcall2(data,  ((closureN)self_731454)->elements[2],  ((closureN)self_731454)->elements[0], ((closureN)self_731454)->elements[1]);}
; 
}

static void __lambda_239(void *data, int argc, object self_731455, object k_73847) {
    object c_733443 = Cyc_num_fast_gt_op(data,Cyc_car(data, Cyc_vector_ref(data, ((closureN)self_731455)->elements[0], obj_int2obj(2))), obj_int2obj(0));
if( (boolean_f != c_733443) ){ 
    double_type local_733463; object c_733464 = Cyc_fast_sub(data,&local_733463,Cyc_vector_ref(data, ((closureN)self_731455)->elements[1], obj_int2obj(1)), obj_int2obj(1));
  double_type local_733459; object c_733460 = Cyc_fast_mul(data,&local_733459,obj_int2obj(2), c_733464);
  object c_733451 = Cyc_num_fast_lte_op(data,Cyc_cdr(data, Cyc_vector_ref(data, ((closureN)self_731455)->elements[0], obj_int2obj(2))), c_733460);
if( (boolean_f != c_733451) ){ 
  
double_type local_733483; object c_733484 = Cyc_fast_sub(data,&local_733483,Cyc_vector_ref(data, ((closureN)self_731455)->elements[1], obj_int2obj(1)), obj_int2obj(1));

double_type local_733479; object c_733480 = Cyc_fast_mul(data,&local_733479,obj_int2obj(2), c_733484);

object c_733471 = Cyc_num_fast_lte_op(data,Cyc_cdr(data, Cyc_vector_ref(data, ((closureN)self_731455)->elements[0], obj_int2obj(2))), c_733480);
return_closcall1(data,  k_73847,  c_733471);
} else { 
  
closureN_type c_733489;
c_733489.hdr.mark = gc_color_red;
 c_733489.hdr.grayed = 0;
c_733489.tag = closureN_tag;
 c_733489.fn = (function_type)__lambda_238;
c_733489.num_args = 1;
c_733489.num_elements = 1;
c_733489.elements = (object *)alloca(sizeof(object) * 1);
c_733489.elements[0] = k_73847;

return_closcall3(data,  __glo_mod,  &c_733489, Cyc_car(data, Cyc_vector_ref(data, ((closureN)self_731455)->elements[0], obj_int2obj(2))), obj_int2obj(6));}

} else { 
  return_closcall1(data,  k_73847,  boolean_f);}
; 
}

static void __lambda_238(void *data, int argc, object self_731456, object r_73850) {
  
double_type local_733494; object c_733495 = ((inline_function_type)
                   ((closure)__glo_zero_127_191_191inline_191_191_scheme_base)->fn)(data,&local_733494,r_73850);
return_closcall1(data,  ((closureN)self_731456)->elements[0],  c_733495);; 
}

static void __lambda_237(void *data, int argc, object self_731457, object k_73851) {
  
closureN_type c_733406;
c_733406.hdr.mark = gc_color_red;
 c_733406.hdr.grayed = 0;
c_733406.tag = closureN_tag;
 c_733406.fn = (function_type)__lambda_236;
c_733406.num_args = 1;
c_733406.num_elements = 4;
c_733406.elements = (object *)alloca(sizeof(object) * 4);
c_733406.elements[0] = ((closureN)self_731457)->elements[0];
c_733406.elements[1] = ((closureN)self_731457)->elements[1];
c_733406.elements[2] = k_73851;
c_733406.elements[3] = ((closureN)self_731457)->elements[2];

return_closcall3(data,  __glo_bit_91test,  &c_733406, Cyc_vector_ref(data, ((closureN)self_731457)->elements[0], obj_int2obj(3)), __glo_south_91east);; 
}

static void __lambda_236(void *data, int argc, object self_731458, object r_73852) {
  if( (boolean_f != r_73852) ){ 
  return_closcall1(data,  ((closureN)self_731458)->elements[2],  boolean_f);
} else { 
  
closureN_type c_733410;
c_733410.hdr.mark = gc_color_red;
 c_733410.hdr.grayed = 0;
c_733410.tag = closureN_tag;
 c_733410.fn = (function_type)__lambda_235;
c_733410.num_args = 1;
c_733410.num_elements = 2;
c_733410.elements = (object *)alloca(sizeof(object) * 2);
c_733410.elements[0] = ((closureN)self_731458)->elements[2];
c_733410.elements[1] = ((closureN)self_731458)->elements[3];


double_type local_733417; object c_733418 = Cyc_fast_sum(data,&local_733417,Cyc_car(data, Cyc_vector_ref(data, ((closureN)self_731458)->elements[0], obj_int2obj(2))), obj_int2obj(3));

double_type local_733426; object c_733427 = Cyc_fast_sub(data,&local_733426,Cyc_cdr(data, Cyc_vector_ref(data, ((closureN)self_731458)->elements[0], obj_int2obj(2))), obj_int2obj(1));
return_closcall4(data,  __glo_href,  &c_733410, ((closureN)self_731458)->elements[1], c_733418, c_733427);}
; 
}

static void __lambda_235(void *data, int argc, object self_731459, object r_73853) {
  return_closcall2(data,  ((closureN)self_731459)->elements[1],  ((closureN)self_731459)->elements[0], r_73853);; 
}

static void __lambda_234(void *data, int argc, object self_731460, object k_73856) {
  
closureN_type c_733376;
c_733376.hdr.mark = gc_color_red;
 c_733376.hdr.grayed = 0;
c_733376.tag = closureN_tag;
 c_733376.fn = (function_type)__lambda_233;
c_733376.num_args = 1;
c_733376.num_elements = 4;
c_733376.elements = (object *)alloca(sizeof(object) * 4);
c_733376.elements[0] = ((closureN)self_731460)->elements[0];
c_733376.elements[1] = ((closureN)self_731460)->elements[1];
c_733376.elements[2] = k_73856;
c_733376.elements[3] = ((closureN)self_731460)->elements[2];

return_closcall3(data,  __glo_bit_91test,  &c_733376, Cyc_vector_ref(data, ((closureN)self_731460)->elements[0], obj_int2obj(3)), __glo_south);; 
}

static void __lambda_233(void *data, int argc, object self_731461, object r_73857) {
  if( (boolean_f != r_73857) ){ 
  return_closcall1(data,  ((closureN)self_731461)->elements[2],  boolean_f);
} else { 
  
closureN_type c_733380;
c_733380.hdr.mark = gc_color_red;
 c_733380.hdr.grayed = 0;
c_733380.tag = closureN_tag;
 c_733380.fn = (function_type)__lambda_232;
c_733380.num_args = 1;
c_733380.num_elements = 2;
c_733380.elements = (object *)alloca(sizeof(object) * 2);
c_733380.elements[0] = ((closureN)self_731461)->elements[2];
c_733380.elements[1] = ((closureN)self_731461)->elements[3];


double_type local_733392; object c_733393 = Cyc_fast_sub(data,&local_733392,Cyc_cdr(data, Cyc_vector_ref(data, ((closureN)self_731461)->elements[0], obj_int2obj(2))), obj_int2obj(2));
return_closcall4(data,  __glo_href,  &c_733380, ((closureN)self_731461)->elements[1], Cyc_car(data, Cyc_vector_ref(data, ((closureN)self_731461)->elements[0], obj_int2obj(2))), c_733393);}
; 
}

static void __lambda_232(void *data, int argc, object self_731462, object r_73858) {
  return_closcall2(data,  ((closureN)self_731462)->elements[1],  ((closureN)self_731462)->elements[0], r_73858);; 
}

static void __lambda_231(void *data, int argc, object self_731463, object k_73860) {
  
closureN_type c_733342;
c_733342.hdr.mark = gc_color_red;
 c_733342.hdr.grayed = 0;
c_733342.tag = closureN_tag;
 c_733342.fn = (function_type)__lambda_230;
c_733342.num_args = 1;
c_733342.num_elements = 4;
c_733342.elements = (object *)alloca(sizeof(object) * 4);
c_733342.elements[0] = ((closureN)self_731463)->elements[0];
c_733342.elements[1] = ((closureN)self_731463)->elements[1];
c_733342.elements[2] = k_73860;
c_733342.elements[3] = ((closureN)self_731463)->elements[2];

return_closcall3(data,  __glo_bit_91test,  &c_733342, Cyc_vector_ref(data, ((closureN)self_731463)->elements[0], obj_int2obj(3)), __glo_south_91west);; 
}

static void __lambda_230(void *data, int argc, object self_731464, object r_73861) {
  if( (boolean_f != r_73861) ){ 
  return_closcall1(data,  ((closureN)self_731464)->elements[2],  boolean_f);
} else { 
  
closureN_type c_733346;
c_733346.hdr.mark = gc_color_red;
 c_733346.hdr.grayed = 0;
c_733346.tag = closureN_tag;
 c_733346.fn = (function_type)__lambda_229;
c_733346.num_args = 1;
c_733346.num_elements = 2;
c_733346.elements = (object *)alloca(sizeof(object) * 2);
c_733346.elements[0] = ((closureN)self_731464)->elements[2];
c_733346.elements[1] = ((closureN)self_731464)->elements[3];


double_type local_733353; object c_733354 = Cyc_fast_sub(data,&local_733353,Cyc_car(data, Cyc_vector_ref(data, ((closureN)self_731464)->elements[0], obj_int2obj(2))), obj_int2obj(3));

double_type local_733362; object c_733363 = Cyc_fast_sub(data,&local_733362,Cyc_cdr(data, Cyc_vector_ref(data, ((closureN)self_731464)->elements[0], obj_int2obj(2))), obj_int2obj(1));
return_closcall4(data,  __glo_href,  &c_733346, ((closureN)self_731464)->elements[1], c_733354, c_733363);}
; 
}

static void __lambda_229(void *data, int argc, object self_731465, object r_73862) {
  return_closcall2(data,  ((closureN)self_731465)->elements[1],  ((closureN)self_731465)->elements[0], r_73862);; 
}

static void __lambda_228(void *data, int argc, closure _,object k_73869, object harr_73361) {
  Cyc_st_add(data, "maze.scm:pick-entrances");

closureN_type c_733182;
c_733182.hdr.mark = gc_color_red;
 c_733182.hdr.grayed = 0;
c_733182.tag = closureN_tag;
 c_733182.fn = (function_type)__lambda_227;
c_733182.num_args = 1;
c_733182.num_elements = 2;
c_733182.elements = (object *)alloca(sizeof(object) * 2);
c_733182.elements[0] = harr_73361;
c_733182.elements[1] = k_73869;

return_closcall4(data,  __glo_href_95rc,  &c_733182, harr_73361, obj_int2obj(0), obj_int2obj(0));; 
}

static void __lambda_227(void *data, int argc, object self_731466, object r_73896) {
  
closureN_type c_733184;
c_733184.hdr.mark = gc_color_red;
 c_733184.hdr.grayed = 0;
c_733184.tag = closureN_tag;
 c_733184.fn = (function_type)__lambda_226;
c_733184.num_args = 1;
c_733184.num_elements = 2;
c_733184.elements = (object *)alloca(sizeof(object) * 2);
c_733184.elements[0] = ((closureN)self_731466)->elements[0];
c_733184.elements[1] = ((closureN)self_731466)->elements[1];

return_closcall4(data,  __glo_dfs_91maze,  &c_733184, ((closureN)self_731466)->elements[0], r_73896, __glo_for_91each_91hex_91child);; 
}

static void __lambda_226(void *data, int argc, object self_731467, object r_73870) {
  
closureN_type c_733186;
c_733186.hdr.mark = gc_color_red;
 c_733186.hdr.grayed = 0;
c_733186.tag = closureN_tag;
 c_733186.fn = (function_type)__lambda_225;
c_733186.num_args = 1;
c_733186.num_elements = 2;
c_733186.elements = (object *)alloca(sizeof(object) * 2);
c_733186.elements[0] = ((closureN)self_731467)->elements[0];
c_733186.elements[1] = ((closureN)self_731467)->elements[1];

return_closcall1(data,(closure)&c_733186,  Cyc_vector_ref(data, ((closureN)self_731467)->elements[0], obj_int2obj(1)));; 
}

static void __lambda_225(void *data, int argc, object self_731468, object r_73871) {
  
closureN_type c_733188;
c_733188.hdr.mark = gc_color_red;
 c_733188.hdr.grayed = 0;
c_733188.tag = closureN_tag;
 c_733188.fn = (function_type)__lambda_224;
c_733188.num_args = 1;
c_733188.num_elements = 3;
c_733188.elements = (object *)alloca(sizeof(object) * 3);
c_733188.elements[0] = ((closureN)self_731468)->elements[0];
c_733188.elements[1] = ((closureN)self_731468)->elements[1];
c_733188.elements[2] = r_73871;

return_closcall1(data,(closure)&c_733188,  Cyc_vector_ref(data, ((closureN)self_731468)->elements[0], obj_int2obj(2)));; 
}

static void __lambda_224(void *data, int argc, object self_731469, object r_73872) {
  
closureN_type c_733190;
c_733190.hdr.mark = gc_color_red;
 c_733190.hdr.grayed = 0;
c_733190.tag = closureN_tag;
 c_733190.fn = (function_type)__lambda_223;
c_733190.num_args = 2;
c_733190.num_elements = 2;
c_733190.elements = (object *)alloca(sizeof(object) * 2);
c_733190.elements[0] = ((closureN)self_731469)->elements[0];
c_733190.elements[1] = ((closureN)self_731469)->elements[1];

return_closcall2(data,(closure)&c_733190,  ((closureN)self_731469)->elements[2], r_73872);; 
}

static void __lambda_223(void *data, int argc, object self_731470, object nrows_73363, object ncols_73362) {
  
closureN_type c_733192;
c_733192.hdr.mark = gc_color_red;
 c_733192.hdr.grayed = 0;
c_733192.tag = closureN_tag;
 c_733192.fn = (function_type)__lambda_222;
c_733192.num_args = 1;
c_733192.num_elements = 4;
c_733192.elements = (object *)alloca(sizeof(object) * 4);
c_733192.elements[0] = ((closureN)self_731470)->elements[0];
c_733192.elements[1] = ((closureN)self_731470)->elements[1];
c_733192.elements[2] = ncols_73362;
c_733192.elements[3] = nrows_73363;

return_closcall1(data,(closure)&c_733192,  boolean_f);; 
}

static void __lambda_222(void *data, int argc, object self_731471, object tp_91lp_73368) {
  
closureN_type c_733194;
c_733194.hdr.mark = gc_color_red;
 c_733194.hdr.grayed = 0;
c_733194.tag = closureN_tag;
 c_733194.fn = (function_type)__lambda_221;
c_733194.num_args = 1;
c_733194.num_elements = 4;
c_733194.elements = (object *)alloca(sizeof(object) * 4);
c_733194.elements[0] = ((closureN)self_731471)->elements[0];
c_733194.elements[1] = ((closureN)self_731471)->elements[1];
c_733194.elements[2] = ((closureN)self_731471)->elements[2];
c_733194.elements[3] = ((closureN)self_731471)->elements[3];


make_cell(c_733329,tp_91lp_73368);
return_closcall1(data,(closure)&c_733194,  &c_733329);; 
}

static void __lambda_221(void *data, int argc, object self_731472, object tp_91lp_73368) {
  
closureN_type c_733196;
c_733196.hdr.mark = gc_color_red;
 c_733196.hdr.grayed = 0;
c_733196.tag = closureN_tag;
 c_733196.fn = (function_type)__lambda_205;
c_733196.num_args = 1;
c_733196.num_elements = 3;
c_733196.elements = (object *)alloca(sizeof(object) * 3);
c_733196.elements[0] = ((closureN)self_731472)->elements[1];
c_733196.elements[1] = ((closureN)self_731472)->elements[2];
c_733196.elements[2] = tp_91lp_73368;


closureN_type c_733209;
c_733209.hdr.mark = gc_color_red;
 c_733209.hdr.grayed = 0;
c_733209.tag = closureN_tag;
 c_733209.fn = (function_type)__lambda_220;
c_733209.num_args = 4;
c_733209.num_elements = 4;
c_733209.elements = (object *)alloca(sizeof(object) * 4);
c_733209.elements[0] = ((closureN)self_731472)->elements[0];
c_733209.elements[1] = ((closureN)self_731472)->elements[2];
c_733209.elements[2] = ((closureN)self_731472)->elements[3];
c_733209.elements[3] = tp_91lp_73368;

return_closcall1(data,(closure)&c_733196,  Cyc_set_cell(data, tp_91lp_73368, &c_733209));; 
}

static void __lambda_220(void *data, int argc, object self_731473, object k_73876, object max_91len_73372, object entrance_73371, object exit_73370, object tcol_73369) {
  
closureN_type c_733211;
c_733211.hdr.mark = gc_color_red;
 c_733211.hdr.grayed = 0;
c_733211.tag = closureN_tag;
 c_733211.fn = (function_type)__lambda_219;
c_733211.num_args = 1;
c_733211.num_elements = 9;
c_733211.elements = (object *)alloca(sizeof(object) * 9);
c_733211.elements[0] = entrance_73371;
c_733211.elements[1] = exit_73370;
c_733211.elements[2] = ((closureN)self_731473)->elements[0];
c_733211.elements[3] = k_73876;
c_733211.elements[4] = max_91len_73372;
c_733211.elements[5] = ((closureN)self_731473)->elements[1];
c_733211.elements[6] = ((closureN)self_731473)->elements[2];
c_733211.elements[7] = tcol_73369;
c_733211.elements[8] = ((closureN)self_731473)->elements[3];


object c_733326 = Cyc_num_fast_lt_op(data,tcol_73369, obj_int2obj(0));
return_closcall1(data,(closure)&c_733211,  c_733326);; 
}

static void __lambda_219(void *data, int argc, object self_731474, object r_73877) {
  if( (boolean_f != r_73877) ){ 
  return_closcall3(data,  __glo_vector_scheme_base,  ((closureN)self_731474)->elements[3], ((closureN)self_731474)->elements[0], ((closureN)self_731474)->elements[1]);
} else { 
  
closureN_type c_733217;
c_733217.hdr.mark = gc_color_red;
 c_733217.hdr.grayed = 0;
c_733217.tag = closureN_tag;
 c_733217.fn = (function_type)__lambda_218;
c_733217.num_args = 1;
c_733217.num_elements = 8;
c_733217.elements = (object *)alloca(sizeof(object) * 8);
c_733217.elements[0] = ((closureN)self_731474)->elements[0];
c_733217.elements[1] = ((closureN)self_731474)->elements[1];
c_733217.elements[2] = ((closureN)self_731474)->elements[2];
c_733217.elements[3] = ((closureN)self_731474)->elements[3];
c_733217.elements[4] = ((closureN)self_731474)->elements[4];
c_733217.elements[5] = ((closureN)self_731474)->elements[5];
c_733217.elements[6] = ((closureN)self_731474)->elements[7];
c_733217.elements[7] = ((closureN)self_731474)->elements[8];


double_type local_733320; object c_733321 = Cyc_fast_sub(data,&local_733320,((closureN)self_731474)->elements[6], obj_int2obj(1));
return_closcall4(data,  __glo_href_95rc,  &c_733217, ((closureN)self_731474)->elements[2], c_733321, ((closureN)self_731474)->elements[7]);}
; 
}

static void __lambda_218(void *data, int argc, object self_731475, object top_91cell_73373) {
  
closureN_type c_733219;
c_733219.hdr.mark = gc_color_red;
 c_733219.hdr.grayed = 0;
c_733219.tag = closureN_tag;
 c_733219.fn = (function_type)__lambda_217;
c_733219.num_args = 1;
c_733219.num_elements = 8;
c_733219.elements = (object *)alloca(sizeof(object) * 8);
c_733219.elements[0] = ((closureN)self_731475)->elements[0];
c_733219.elements[1] = ((closureN)self_731475)->elements[1];
c_733219.elements[2] = ((closureN)self_731475)->elements[2];
c_733219.elements[3] = ((closureN)self_731475)->elements[3];
c_733219.elements[4] = ((closureN)self_731475)->elements[4];
c_733219.elements[5] = ((closureN)self_731475)->elements[5];
c_733219.elements[6] = ((closureN)self_731475)->elements[6];
c_733219.elements[7] = ((closureN)self_731475)->elements[7];

return_closcall2(data,  __glo_reroot_91maze,  &c_733219, top_91cell_73373);; 
}

static void __lambda_217(void *data, int argc, object self_731476, object r_73879) {
  
closureN_type c_733221;
c_733221.hdr.mark = gc_color_red;
 c_733221.hdr.grayed = 0;
c_733221.tag = closureN_tag;
 c_733221.fn = (function_type)__lambda_216;
c_733221.num_args = 4;
c_733221.num_elements = 4;
c_733221.elements = (object *)alloca(sizeof(object) * 4);
c_733221.elements[0] = ((closureN)self_731476)->elements[2];
c_733221.elements[1] = ((closureN)self_731476)->elements[3];
c_733221.elements[2] = ((closureN)self_731476)->elements[6];
c_733221.elements[3] = ((closureN)self_731476)->elements[7];


double_type local_733314; object c_733315 = Cyc_fast_sub(data,&local_733314,((closureN)self_731476)->elements[5], obj_int2obj(1));
return_closcall4(data,(closure)&c_733221,  ((closureN)self_731476)->elements[4], ((closureN)self_731476)->elements[0], ((closureN)self_731476)->elements[1], c_733315);; 
}

static void __lambda_216(void *data, int argc, object self_731477, object max_91len_73377, object entrance_73376, object exit_73375, object bcol_73374) {
  
closureN_type c_733223;
c_733223.hdr.mark = gc_color_red;
 c_733223.hdr.grayed = 0;
c_733223.tag = closureN_tag;
 c_733223.fn = (function_type)__lambda_215;
c_733223.num_args = 1;
c_733223.num_elements = 8;
c_733223.elements = (object *)alloca(sizeof(object) * 8);
c_733223.elements[0] = bcol_73374;
c_733223.elements[1] = entrance_73376;
c_733223.elements[2] = exit_73375;
c_733223.elements[3] = ((closureN)self_731477)->elements[0];
c_733223.elements[4] = ((closureN)self_731477)->elements[1];
c_733223.elements[5] = max_91len_73377;
c_733223.elements[6] = ((closureN)self_731477)->elements[2];
c_733223.elements[7] = ((closureN)self_731477)->elements[3];

return_closcall1(data,(closure)&c_733223,  boolean_f);; 
}

static void __lambda_215(void *data, int argc, object self_731478, object bt_91lp_73378) {
  
closureN_type c_733225;
c_733225.hdr.mark = gc_color_red;
 c_733225.hdr.grayed = 0;
c_733225.tag = closureN_tag;
 c_733225.fn = (function_type)__lambda_214;
c_733225.num_args = 1;
c_733225.num_elements = 8;
c_733225.elements = (object *)alloca(sizeof(object) * 8);
c_733225.elements[0] = ((closureN)self_731478)->elements[0];
c_733225.elements[1] = ((closureN)self_731478)->elements[1];
c_733225.elements[2] = ((closureN)self_731478)->elements[2];
c_733225.elements[3] = ((closureN)self_731478)->elements[3];
c_733225.elements[4] = ((closureN)self_731478)->elements[4];
c_733225.elements[5] = ((closureN)self_731478)->elements[5];
c_733225.elements[6] = ((closureN)self_731478)->elements[6];
c_733225.elements[7] = ((closureN)self_731478)->elements[7];


make_cell(c_733308,bt_91lp_73378);
return_closcall1(data,(closure)&c_733225,  &c_733308);; 
}

static void __lambda_214(void *data, int argc, object self_731479, object bt_91lp_73378) {
  
closureN_type c_733227;
c_733227.hdr.mark = gc_color_red;
 c_733227.hdr.grayed = 0;
c_733227.tag = closureN_tag;
 c_733227.fn = (function_type)__lambda_207;
c_733227.num_args = 1;
c_733227.num_elements = 8;
c_733227.elements = (object *)alloca(sizeof(object) * 8);
c_733227.elements[0] = ((closureN)self_731479)->elements[0];
c_733227.elements[1] = bt_91lp_73378;
c_733227.elements[2] = ((closureN)self_731479)->elements[1];
c_733227.elements[3] = ((closureN)self_731479)->elements[2];
c_733227.elements[4] = ((closureN)self_731479)->elements[4];
c_733227.elements[5] = ((closureN)self_731479)->elements[5];
c_733227.elements[6] = ((closureN)self_731479)->elements[6];
c_733227.elements[7] = ((closureN)self_731479)->elements[7];


closureN_type c_733255;
c_733255.hdr.mark = gc_color_red;
 c_733255.hdr.grayed = 0;
c_733255.tag = closureN_tag;
 c_733255.fn = (function_type)__lambda_213;
c_733255.num_args = 4;
c_733255.num_elements = 3;
c_733255.elements = (object *)alloca(sizeof(object) * 3);
c_733255.elements[0] = bt_91lp_73378;
c_733255.elements[1] = ((closureN)self_731479)->elements[3];
c_733255.elements[2] = ((closureN)self_731479)->elements[6];

return_closcall1(data,(closure)&c_733227,  Cyc_set_cell(data, bt_91lp_73378, &c_733255));; 
}

static void __lambda_213(void *data, int argc, object self_731480, object k_73888, object max_91len_73382, object entrance_73381, object exit_73380, object bcol_73379) {
  
closureN_type c_733257;
c_733257.hdr.mark = gc_color_red;
 c_733257.hdr.grayed = 0;
c_733257.tag = closureN_tag;
 c_733257.fn = (function_type)__lambda_212;
c_733257.num_args = 1;
c_733257.num_elements = 8;
c_733257.elements = (object *)alloca(sizeof(object) * 8);
c_733257.elements[0] = bcol_73379;
c_733257.elements[1] = ((closureN)self_731480)->elements[0];
c_733257.elements[2] = entrance_73381;
c_733257.elements[3] = exit_73380;
c_733257.elements[4] = ((closureN)self_731480)->elements[1];
c_733257.elements[5] = k_73888;
c_733257.elements[6] = max_91len_73382;
c_733257.elements[7] = ((closureN)self_731480)->elements[2];


object c_733305 = Cyc_num_fast_lt_op(data,bcol_73379, obj_int2obj(0));
return_closcall1(data,(closure)&c_733257,  c_733305);; 
}

static void __lambda_212(void *data, int argc, object self_731481, object r_73889) {
  if( (boolean_f != r_73889) ){ 
  return_closcall4(data,  __glo_vector_scheme_base,  ((closureN)self_731481)->elements[5], ((closureN)self_731481)->elements[6], ((closureN)self_731481)->elements[2], ((closureN)self_731481)->elements[3]);
} else { 
  
closureN_type c_733264;
c_733264.hdr.mark = gc_color_red;
 c_733264.hdr.grayed = 0;
c_733264.tag = closureN_tag;
 c_733264.fn = (function_type)__lambda_211;
c_733264.num_args = 1;
c_733264.num_elements = 7;
c_733264.elements = (object *)alloca(sizeof(object) * 7);
c_733264.elements[0] = ((closureN)self_731481)->elements[0];
c_733264.elements[1] = ((closureN)self_731481)->elements[1];
c_733264.elements[2] = ((closureN)self_731481)->elements[2];
c_733264.elements[3] = ((closureN)self_731481)->elements[3];
c_733264.elements[4] = ((closureN)self_731481)->elements[5];
c_733264.elements[5] = ((closureN)self_731481)->elements[6];
c_733264.elements[6] = ((closureN)self_731481)->elements[7];

return_closcall4(data,  __glo_href_95rc,  &c_733264, ((closureN)self_731481)->elements[4], obj_int2obj(0), ((closureN)self_731481)->elements[0]);}
; 
}

static void __lambda_211(void *data, int argc, object self_731482, object r_73894) {
  
closureN_type c_733266;
c_733266.hdr.mark = gc_color_red;
 c_733266.hdr.grayed = 0;
c_733266.tag = closureN_tag;
 c_733266.fn = (function_type)__lambda_210;
c_733266.num_args = 1;
c_733266.num_elements = 7;
c_733266.elements = (object *)alloca(sizeof(object) * 7);
c_733266.elements[0] = ((closureN)self_731482)->elements[0];
c_733266.elements[1] = ((closureN)self_731482)->elements[1];
c_733266.elements[2] = ((closureN)self_731482)->elements[2];
c_733266.elements[3] = ((closureN)self_731482)->elements[3];
c_733266.elements[4] = ((closureN)self_731482)->elements[4];
c_733266.elements[5] = ((closureN)self_731482)->elements[5];
c_733266.elements[6] = ((closureN)self_731482)->elements[6];

return_closcall2(data,  __glo_path_91length,  &c_733266, r_73894);; 
}

static void __lambda_210(void *data, int argc, object self_731483, object this_91len_73383) {
  
closureN_type c_733268;
c_733268.hdr.mark = gc_color_red;
 c_733268.hdr.grayed = 0;
c_733268.tag = closureN_tag;
 c_733268.fn = (function_type)__lambda_209;
c_733268.num_args = 1;
c_733268.num_elements = 8;
c_733268.elements = (object *)alloca(sizeof(object) * 8);
c_733268.elements[0] = ((closureN)self_731483)->elements[0];
c_733268.elements[1] = ((closureN)self_731483)->elements[1];
c_733268.elements[2] = ((closureN)self_731483)->elements[2];
c_733268.elements[3] = ((closureN)self_731483)->elements[3];
c_733268.elements[4] = ((closureN)self_731483)->elements[4];
c_733268.elements[5] = ((closureN)self_731483)->elements[5];
c_733268.elements[6] = ((closureN)self_731483)->elements[6];
c_733268.elements[7] = this_91len_73383;


object c_733299 = Cyc_num_fast_gt_op(data,this_91len_73383, ((closureN)self_731483)->elements[5]);
return_closcall1(data,(closure)&c_733268,  c_733299);; 
}

static void __lambda_209(void *data, int argc, object self_731484, object r_73891) {
  if( (boolean_f != r_73891) ){ 
  
closureN_type c_733270;
c_733270.hdr.mark = gc_color_red;
 c_733270.hdr.grayed = 0;
c_733270.tag = closureN_tag;
 c_733270.fn = (function_type)__lambda_208;
c_733270.num_args = 1;
c_733270.num_elements = 5;
c_733270.elements = (object *)alloca(sizeof(object) * 5);
c_733270.elements[0] = ((closureN)self_731484)->elements[0];
c_733270.elements[1] = ((closureN)self_731484)->elements[1];
c_733270.elements[2] = ((closureN)self_731484)->elements[4];
c_733270.elements[3] = ((closureN)self_731484)->elements[6];
c_733270.elements[4] = ((closureN)self_731484)->elements[7];


double_type local_733281; object c_733282 = Cyc_fast_sub(data,&local_733281,((closureN)self_731484)->elements[0], obj_int2obj(1));
return_closcall1(data,(closure)&c_733270,  c_733282);
} else { 
  
double_type local_733294; object c_733295 = Cyc_fast_sub(data,&local_733294,((closureN)self_731484)->elements[0], obj_int2obj(1));
return_closcall5(data,  car(((closureN)self_731484)->elements[1]),  ((closureN)self_731484)->elements[4], ((closureN)self_731484)->elements[5], ((closureN)self_731484)->elements[2], ((closureN)self_731484)->elements[3], c_733295);}
; 
}

static void __lambda_208(void *data, int argc, object self_731485, object r_73892) {
  return_closcall5(data,  car(((closureN)self_731485)->elements[1]),  ((closureN)self_731485)->elements[2], ((closureN)self_731485)->elements[4], ((closureN)self_731485)->elements[3], ((closureN)self_731485)->elements[0], r_73892);; 
}

static void __lambda_207(void *data, int argc, object self_731486, object r_73886) {
  
closureN_type c_733232;
c_733232.hdr.mark = gc_color_red;
 c_733232.hdr.grayed = 0;
c_733232.tag = closureN_tag;
 c_733232.fn = (function_type)__lambda_206;
c_733232.num_args = 1;
c_733232.num_elements = 3;
c_733232.elements = (object *)alloca(sizeof(object) * 3);
c_733232.elements[0] = ((closureN)self_731486)->elements[4];
c_733232.elements[1] = ((closureN)self_731486)->elements[6];
c_733232.elements[2] = ((closureN)self_731486)->elements[7];

return_closcall5(data,  car(((closureN)self_731486)->elements[1]),  &c_733232, ((closureN)self_731486)->elements[5], ((closureN)self_731486)->elements[2], ((closureN)self_731486)->elements[3], ((closureN)self_731486)->elements[0]);; 
}

static void __lambda_206(void *data, int argc, object self_731487, object result_73384) {
  
double_type local_733246; object c_733247 = Cyc_fast_sub(data,&local_733246,((closureN)self_731487)->elements[1], obj_int2obj(1));
return_closcall5(data,  car(((closureN)self_731487)->elements[2]),  ((closureN)self_731487)->elements[0], Cyc_vector_ref(data, result_73384, obj_int2obj(0)), Cyc_vector_ref(data, result_73384, obj_int2obj(1)), Cyc_vector_ref(data, result_73384, obj_int2obj(2)), c_733247);; 
}

static void __lambda_205(void *data, int argc, object self_731488, object r_73874) {
  
double_type local_733204; object c_733205 = Cyc_fast_sub(data,&local_733204,((closureN)self_731488)->elements[1], obj_int2obj(1));
return_closcall5(data,  car(((closureN)self_731488)->elements[2]),  ((closureN)self_731488)->elements[0], obj_int2obj(-1), boolean_f, boolean_f, c_733205);; 
}

static void __lambda_204(void *data, int argc, closure _,object k_73899, object harr_73388) {
  Cyc_st_add(data, "maze.scm:make-wall-vec");

closureN_type c_732799;
c_732799.hdr.mark = gc_color_red;
 c_732799.hdr.grayed = 0;
c_732799.tag = closureN_tag;
 c_732799.fn = (function_type)__lambda_203;
c_732799.num_args = 1;
c_732799.num_elements = 2;
c_732799.elements = (object *)alloca(sizeof(object) * 2);
c_732799.elements[0] = harr_73388;
c_732799.elements[1] = k_73899;

return_closcall1(data,(closure)&c_732799,  NULL);; 
}

static void __lambda_203(void *data, int argc, object self_731489, object walls_73392) {
  
closureN_type c_732801;
c_732801.hdr.mark = gc_color_red;
 c_732801.hdr.grayed = 0;
c_732801.tag = closureN_tag;
 c_732801.fn = (function_type)__lambda_202;
c_732801.num_args = 1;
c_732801.num_elements = 2;
c_732801.elements = (object *)alloca(sizeof(object) * 2);
c_732801.elements[0] = ((closureN)self_731489)->elements[0];
c_732801.elements[1] = ((closureN)self_731489)->elements[1];


make_cell(c_733179,walls_73392);
return_closcall1(data,(closure)&c_732801,  &c_733179);; 
}

static void __lambda_202(void *data, int argc, object self_731490, object walls_73392) {
  
closureN_type c_732803;
c_732803.hdr.mark = gc_color_red;
 c_732803.hdr.grayed = 0;
c_732803.tag = closureN_tag;
 c_732803.fn = (function_type)__lambda_198;
c_732803.num_args = 1;
c_732803.num_elements = 3;
c_732803.elements = (object *)alloca(sizeof(object) * 3);
c_732803.elements[0] = ((closureN)self_731490)->elements[0];
c_732803.elements[1] = ((closureN)self_731490)->elements[1];
c_732803.elements[2] = walls_73392;


closureN_type c_733161;
c_733161.hdr.mark = gc_color_red;
 c_733161.hdr.grayed = 0;
c_733161.tag = closureN_tag;
 c_733161.fn = (function_type)__lambda_201;
c_733161.num_args = 3;
c_733161.num_elements = 1;
c_733161.elements = (object *)alloca(sizeof(object) * 1);
c_733161.elements[0] = walls_73392;

return_closcall1(data,(closure)&c_732803,  &c_733161);; 
}

static void __lambda_201(void *data, int argc, object self_731491, object k_73968, object o_73395, object n_73394, object b_73393) {
  
closureN_type c_733163;
c_733163.hdr.mark = gc_color_red;
 c_733163.hdr.grayed = 0;
c_733163.tag = closureN_tag;
 c_733163.fn = (function_type)__lambda_200;
c_733163.num_args = 1;
c_733163.num_elements = 2;
c_733163.elements = (object *)alloca(sizeof(object) * 2);
c_733163.elements[0] = k_73968;
c_733163.elements[1] = ((closureN)self_731491)->elements[0];

return_closcall5(data,  __glo_vector_scheme_base,  &c_733163, quote_wall, o_73395, n_73394, b_73393);; 
}

static void __lambda_200(void *data, int argc, object self_731492, object r_73970) {
  
closureN_type c_733165;
c_733165.hdr.mark = gc_color_red;
 c_733165.hdr.grayed = 0;
c_733165.tag = closureN_tag;
 c_733165.fn = (function_type)__lambda_199;
c_733165.num_args = 1;
c_733165.num_elements = 2;
c_733165.elements = (object *)alloca(sizeof(object) * 2);
c_733165.elements[0] = ((closureN)self_731492)->elements[0];
c_733165.elements[1] = ((closureN)self_731492)->elements[1];


make_pair(c_733173,r_73970, car(((closureN)self_731492)->elements[1]));
return_closcall1(data,(closure)&c_733165,  &c_733173);; 
}

static void __lambda_199(void *data, int argc, object self_731493, object r_73969) {
  return_closcall1(data,  ((closureN)self_731493)->elements[0],  Cyc_set_cell(data, ((closureN)self_731493)->elements[1], r_73969));; 
}

static void __lambda_198(void *data, int argc, object self_731494, object add_91wall_73396) {
  
closureN_type c_732805;
c_732805.hdr.mark = gc_color_red;
 c_732805.hdr.grayed = 0;
c_732805.tag = closureN_tag;
 c_732805.fn = (function_type)__lambda_197;
c_732805.num_args = 1;
c_732805.num_elements = 4;
c_732805.elements = (object *)alloca(sizeof(object) * 4);
c_732805.elements[0] = add_91wall_73396;
c_732805.elements[1] = ((closureN)self_731494)->elements[0];
c_732805.elements[2] = ((closureN)self_731494)->elements[1];
c_732805.elements[3] = ((closureN)self_731494)->elements[2];

return_closcall1(data,(closure)&c_732805,  boolean_f);; 
}

static void __lambda_197(void *data, int argc, object self_731495, object lp_73132_73404) {
  
closureN_type c_732807;
c_732807.hdr.mark = gc_color_red;
 c_732807.hdr.grayed = 0;
c_732807.tag = closureN_tag;
 c_732807.fn = (function_type)__lambda_196;
c_732807.num_args = 1;
c_732807.num_elements = 4;
c_732807.elements = (object *)alloca(sizeof(object) * 4);
c_732807.elements[0] = ((closureN)self_731495)->elements[0];
c_732807.elements[1] = ((closureN)self_731495)->elements[1];
c_732807.elements[2] = ((closureN)self_731495)->elements[2];
c_732807.elements[3] = ((closureN)self_731495)->elements[3];


make_cell(c_733160,lp_73132_73404);
return_closcall1(data,(closure)&c_732807,  &c_733160);; 
}

static void __lambda_196(void *data, int argc, object self_731496, object lp_73132_73404) {
  
closureN_type c_732809;
c_732809.hdr.mark = gc_color_red;
 c_732809.hdr.grayed = 0;
c_732809.tag = closureN_tag;
 c_732809.fn = (function_type)__lambda_179;
c_732809.num_args = 1;
c_732809.num_elements = 5;
c_732809.elements = (object *)alloca(sizeof(object) * 5);
c_732809.elements[0] = ((closureN)self_731496)->elements[0];
c_732809.elements[1] = ((closureN)self_731496)->elements[1];
c_732809.elements[2] = ((closureN)self_731496)->elements[2];
c_732809.elements[3] = lp_73132_73404;
c_732809.elements[4] = ((closureN)self_731496)->elements[3];


closureN_type c_733009;
c_733009.hdr.mark = gc_color_red;
 c_733009.hdr.grayed = 0;
c_733009.tag = closureN_tag;
 c_733009.fn = (function_type)__lambda_195;
c_733009.num_args = 1;
c_733009.num_elements = 3;
c_733009.elements = (object *)alloca(sizeof(object) * 3);
c_733009.elements[0] = ((closureN)self_731496)->elements[0];
c_733009.elements[1] = ((closureN)self_731496)->elements[1];
c_733009.elements[2] = lp_73132_73404;

return_closcall1(data,(closure)&c_732809,  Cyc_set_cell(data, lp_73132_73404, &c_733009));; 
}

static void __lambda_195(void *data, int argc, object self_731497, object k_73938, object x_73405) {
    object c_733012 = Cyc_num_fast_lt_op(data,x_73405, obj_int2obj(0));
if( (boolean_f != c_733012) ){ 
  
object c_733016 = Cyc_num_fast_lt_op(data,x_73405, obj_int2obj(0));
return_closcall1(data,  k_73938,  c_733016);
} else { 
  
closureN_type c_733018;
c_733018.hdr.mark = gc_color_red;
 c_733018.hdr.grayed = 0;
c_733018.tag = closureN_tag;
 c_733018.fn = (function_type)__lambda_194;
c_733018.num_args = 1;
c_733018.num_elements = 5;
c_733018.elements = (object *)alloca(sizeof(object) * 5);
c_733018.elements[0] = ((closureN)self_731497)->elements[0];
c_733018.elements[1] = ((closureN)self_731497)->elements[1];
c_733018.elements[2] = k_73938;
c_733018.elements[3] = ((closureN)self_731497)->elements[2];
c_733018.elements[4] = x_73405;

return_closcall3(data,  __glo_bitwise_91and,  &c_733018, x_73405, obj_int2obj(1));}
; 
}

static void __lambda_194(void *data, int argc, object self_731498, object r_73965) {
  
closureN_type c_733020;
c_733020.hdr.mark = gc_color_red;
 c_733020.hdr.grayed = 0;
c_733020.tag = closureN_tag;
 c_733020.fn = (function_type)__lambda_193;
c_733020.num_args = 1;
c_733020.num_elements = 6;
c_733020.elements = (object *)alloca(sizeof(object) * 6);
c_733020.elements[0] = ((closureN)self_731498)->elements[0];
c_733020.elements[1] = ((closureN)self_731498)->elements[1];
c_733020.elements[2] = ((closureN)self_731498)->elements[2];
c_733020.elements[3] = ((closureN)self_731498)->elements[3];
c_733020.elements[4] = r_73965;
c_733020.elements[5] = ((closureN)self_731498)->elements[4];

return_closcall1(data,(closure)&c_733020,  boolean_f);; 
}

static void __lambda_193(void *data, int argc, object self_731499, object lp_73136_73408) {
  
closureN_type c_733022;
c_733022.hdr.mark = gc_color_red;
 c_733022.hdr.grayed = 0;
c_733022.tag = closureN_tag;
 c_733022.fn = (function_type)__lambda_192;
c_733022.num_args = 1;
c_733022.num_elements = 6;
c_733022.elements = (object *)alloca(sizeof(object) * 6);
c_733022.elements[0] = ((closureN)self_731499)->elements[0];
c_733022.elements[1] = ((closureN)self_731499)->elements[1];
c_733022.elements[2] = ((closureN)self_731499)->elements[2];
c_733022.elements[3] = ((closureN)self_731499)->elements[3];
c_733022.elements[4] = ((closureN)self_731499)->elements[4];
c_733022.elements[5] = ((closureN)self_731499)->elements[5];


make_cell(c_733157,lp_73136_73408);
return_closcall1(data,(closure)&c_733022,  &c_733157);; 
}

static void __lambda_192(void *data, int argc, object self_731500, object lp_73136_73408) {
  
closureN_type c_733024;
c_733024.hdr.mark = gc_color_red;
 c_733024.hdr.grayed = 0;
c_733024.tag = closureN_tag;
 c_733024.fn = (function_type)__lambda_181;
c_733024.num_args = 1;
c_733024.num_elements = 6;
c_733024.elements = (object *)alloca(sizeof(object) * 6);
c_733024.elements[0] = ((closureN)self_731500)->elements[1];
c_733024.elements[1] = ((closureN)self_731500)->elements[2];
c_733024.elements[2] = ((closureN)self_731500)->elements[3];
c_733024.elements[3] = lp_73136_73408;
c_733024.elements[4] = ((closureN)self_731500)->elements[4];
c_733024.elements[5] = ((closureN)self_731500)->elements[5];


closureN_type c_733058;
c_733058.hdr.mark = gc_color_red;
 c_733058.hdr.grayed = 0;
c_733058.tag = closureN_tag;
 c_733058.fn = (function_type)__lambda_191;
c_733058.num_args = 1;
c_733058.num_elements = 4;
c_733058.elements = (object *)alloca(sizeof(object) * 4);
c_733058.elements[0] = ((closureN)self_731500)->elements[0];
c_733058.elements[1] = ((closureN)self_731500)->elements[1];
c_733058.elements[2] = lp_73136_73408;
c_733058.elements[3] = ((closureN)self_731500)->elements[5];

return_closcall1(data,(closure)&c_733024,  Cyc_set_cell(data, lp_73136_73408, &c_733058));; 
}

static void __lambda_191(void *data, int argc, object self_731501, object k_73945, object y_73409) {
    object c_733061 = Cyc_num_fast_lte_op(data,y_73409, obj_int2obj(1));
if( (boolean_f != c_733061) ){ 
  
object c_733065 = Cyc_num_fast_lte_op(data,y_73409, obj_int2obj(1));
return_closcall1(data,  k_73945,  c_733065);
} else { 
  
closureN_type c_733067;
c_733067.hdr.mark = gc_color_red;
 c_733067.hdr.grayed = 0;
c_733067.tag = closureN_tag;
 c_733067.fn = (function_type)__lambda_190;
c_733067.num_args = 1;
c_733067.num_elements = 6;
c_733067.elements = (object *)alloca(sizeof(object) * 6);
c_733067.elements[0] = ((closureN)self_731501)->elements[0];
c_733067.elements[1] = ((closureN)self_731501)->elements[1];
c_733067.elements[2] = k_73945;
c_733067.elements[3] = ((closureN)self_731501)->elements[2];
c_733067.elements[4] = ((closureN)self_731501)->elements[3];
c_733067.elements[5] = y_73409;

return_closcall4(data,  __glo_href,  &c_733067, ((closureN)self_731501)->elements[1], ((closureN)self_731501)->elements[3], y_73409);}
; 
}

static void __lambda_190(void *data, int argc, object self_731502, object hex_73411) {
  
closureN_type c_733069;
c_733069.hdr.mark = gc_color_red;
 c_733069.hdr.grayed = 0;
c_733069.tag = closureN_tag;
 c_733069.fn = (function_type)__lambda_183;
c_733069.num_args = 0;
c_733069.num_elements = 5;
c_733069.elements = (object *)alloca(sizeof(object) * 5);
c_733069.elements[0] = ((closureN)self_731502)->elements[0];
c_733069.elements[1] = ((closureN)self_731502)->elements[1];
c_733069.elements[2] = hex_73411;
c_733069.elements[3] = ((closureN)self_731502)->elements[4];
c_733069.elements[4] = ((closureN)self_731502)->elements[5];


closureN_type c_733093;
c_733093.hdr.mark = gc_color_red;
 c_733093.hdr.grayed = 0;
c_733093.tag = closureN_tag;
 c_733093.fn = (function_type)__lambda_189;
c_733093.num_args = 1;
c_733093.num_elements = 7;
c_733093.elements = (object *)alloca(sizeof(object) * 7);
c_733093.elements[0] = ((closureN)self_731502)->elements[0];
c_733093.elements[1] = ((closureN)self_731502)->elements[1];
c_733093.elements[2] = hex_73411;
c_733093.elements[3] = ((closureN)self_731502)->elements[2];
c_733093.elements[4] = ((closureN)self_731502)->elements[3];
c_733093.elements[5] = ((closureN)self_731502)->elements[4];
c_733093.elements[6] = ((closureN)self_731502)->elements[5];

return_closcall1(data,(closure)&c_733069,  &c_733093);; 
}

static void __lambda_189(void *data, int argc, object self_731503, object r_73950) {
  
closureN_type c_733095;
c_733095.hdr.mark = gc_color_red;
 c_733095.hdr.grayed = 0;
c_733095.tag = closureN_tag;
 c_733095.fn = (function_type)__lambda_188;
c_733095.num_args = 1;
c_733095.num_elements = 7;
c_733095.elements = (object *)alloca(sizeof(object) * 7);
c_733095.elements[0] = ((closureN)self_731503)->elements[0];
c_733095.elements[1] = ((closureN)self_731503)->elements[1];
c_733095.elements[2] = ((closureN)self_731503)->elements[2];
c_733095.elements[3] = ((closureN)self_731503)->elements[3];
c_733095.elements[4] = ((closureN)self_731503)->elements[4];
c_733095.elements[5] = ((closureN)self_731503)->elements[5];
c_733095.elements[6] = ((closureN)self_731503)->elements[6];


double_type local_733150; object c_733151 = Cyc_fast_sub(data,&local_733150,((closureN)self_731503)->elements[6], obj_int2obj(2));
return_closcall4(data,  __glo_href,  &c_733095, ((closureN)self_731503)->elements[1], ((closureN)self_731503)->elements[5], c_733151);; 
}

static void __lambda_188(void *data, int argc, object self_731504, object r_73957) {
  
closureN_type c_733098;
c_733098.hdr.mark = gc_color_red;
 c_733098.hdr.grayed = 0;
c_733098.tag = closureN_tag;
 c_733098.fn = (function_type)__lambda_187;
c_733098.num_args = 1;
c_733098.num_elements = 7;
c_733098.elements = (object *)alloca(sizeof(object) * 7);
c_733098.elements[0] = ((closureN)self_731504)->elements[0];
c_733098.elements[1] = ((closureN)self_731504)->elements[1];
c_733098.elements[2] = ((closureN)self_731504)->elements[2];
c_733098.elements[3] = ((closureN)self_731504)->elements[3];
c_733098.elements[4] = ((closureN)self_731504)->elements[4];
c_733098.elements[5] = ((closureN)self_731504)->elements[5];
c_733098.elements[6] = ((closureN)self_731504)->elements[6];

return_closcall4(data,  ((closureN)self_731504)->elements[0],  &c_733098, ((closureN)self_731504)->elements[2], r_73957, __glo_south);; 
}

static void __lambda_187(void *data, int argc, object self_731505, object r_73951) {
  
closureN_type c_733100;
c_733100.hdr.mark = gc_color_red;
 c_733100.hdr.grayed = 0;
c_733100.tag = closureN_tag;
 c_733100.fn = (function_type)__lambda_185;
c_733100.num_args = 0;
c_733100.num_elements = 5;
c_733100.elements = (object *)alloca(sizeof(object) * 5);
c_733100.elements[0] = ((closureN)self_731505)->elements[0];
c_733100.elements[1] = ((closureN)self_731505)->elements[1];
c_733100.elements[2] = ((closureN)self_731505)->elements[2];
c_733100.elements[3] = ((closureN)self_731505)->elements[5];
c_733100.elements[4] = ((closureN)self_731505)->elements[6];


closureN_type c_733134;
c_733134.hdr.mark = gc_color_red;
 c_733134.hdr.grayed = 0;
c_733134.tag = closureN_tag;
 c_733134.fn = (function_type)__lambda_186;
c_733134.num_args = 1;
c_733134.num_elements = 3;
c_733134.elements = (object *)alloca(sizeof(object) * 3);
c_733134.elements[0] = ((closureN)self_731505)->elements[3];
c_733134.elements[1] = ((closureN)self_731505)->elements[4];
c_733134.elements[2] = ((closureN)self_731505)->elements[6];

return_closcall1(data,(closure)&c_733100,  &c_733134);; 
}

static void __lambda_186(void *data, int argc, object self_731506, object r_73947) {
  
double_type local_733142; object c_733143 = Cyc_fast_sub(data,&local_733142,((closureN)self_731506)->elements[2], obj_int2obj(2));
return_closcall2(data,  car(((closureN)self_731506)->elements[1]),  ((closureN)self_731506)->elements[0], c_733143);; 
}

static void __lambda_185(void *data, int argc, object self_731507, object k_73952) {
    double_type local_733111; object c_733112 = Cyc_fast_sub(data,&local_733111,Cyc_vector_ref(data, ((closureN)self_731507)->elements[1], obj_int2obj(2)), obj_int2obj(1));
  double_type local_733107; object c_733108 = Cyc_fast_mul(data,&local_733107,obj_int2obj(3), c_733112);
  object c_733103 = Cyc_num_fast_lt_op(data,((closureN)self_731507)->elements[3], c_733108);
if( (boolean_f != c_733103) ){ 
  
closureN_type c_733117;
c_733117.hdr.mark = gc_color_red;
 c_733117.hdr.grayed = 0;
c_733117.tag = closureN_tag;
 c_733117.fn = (function_type)__lambda_184;
c_733117.num_args = 1;
c_733117.num_elements = 3;
c_733117.elements = (object *)alloca(sizeof(object) * 3);
c_733117.elements[0] = ((closureN)self_731507)->elements[0];
c_733117.elements[1] = ((closureN)self_731507)->elements[2];
c_733117.elements[2] = k_73952;


double_type local_733125; object c_733126 = Cyc_fast_sum(data,&local_733125,((closureN)self_731507)->elements[3], obj_int2obj(3));

double_type local_733130; object c_733131 = Cyc_fast_sub(data,&local_733130,((closureN)self_731507)->elements[4], obj_int2obj(1));
return_closcall4(data,  __glo_href,  &c_733117, ((closureN)self_731507)->elements[1], c_733126, c_733131);
} else { 
  return_closcall1(data,  k_73952,  boolean_f);}
; 
}

static void __lambda_184(void *data, int argc, object self_731508, object r_73954) {
  return_closcall4(data,  ((closureN)self_731508)->elements[0],  ((closureN)self_731508)->elements[2], ((closureN)self_731508)->elements[1], r_73954, __glo_south_91east);; 
}

static void __lambda_183(void *data, int argc, object self_731509, object k_73959) {
    double_type local_733072; object c_733073 = ((inline_function_type)
                   ((closure)__glo_zero_127_191_191inline_191_191_scheme_base)->fn)(data,&local_733072,((closureN)self_731509)->elements[3]);
if( (boolean_f != c_733073) ){ 
  return_closcall1(data,  k_73959,  boolean_f);
} else { 
  
closureN_type c_733077;
c_733077.hdr.mark = gc_color_red;
 c_733077.hdr.grayed = 0;
c_733077.tag = closureN_tag;
 c_733077.fn = (function_type)__lambda_182;
c_733077.num_args = 1;
c_733077.num_elements = 3;
c_733077.elements = (object *)alloca(sizeof(object) * 3);
c_733077.elements[0] = ((closureN)self_731509)->elements[0];
c_733077.elements[1] = ((closureN)self_731509)->elements[2];
c_733077.elements[2] = k_73959;


double_type local_733085; object c_733086 = Cyc_fast_sub(data,&local_733085,((closureN)self_731509)->elements[3], obj_int2obj(3));

double_type local_733090; object c_733091 = Cyc_fast_sub(data,&local_733090,((closureN)self_731509)->elements[4], obj_int2obj(1));
return_closcall4(data,  __glo_href,  &c_733077, ((closureN)self_731509)->elements[1], c_733086, c_733091);}
; 
}

static void __lambda_182(void *data, int argc, object self_731510, object r_73961) {
  return_closcall4(data,  ((closureN)self_731510)->elements[0],  ((closureN)self_731510)->elements[2], ((closureN)self_731510)->elements[1], r_73961, __glo_south_91west);; 
}

static void __lambda_181(void *data, int argc, object self_731511, object r_73943) {
  
closureN_type c_733029;
c_733029.hdr.mark = gc_color_red;
 c_733029.hdr.grayed = 0;
c_733029.tag = closureN_tag;
 c_733029.fn = (function_type)__lambda_180;
c_733029.num_args = 1;
c_733029.num_elements = 3;
c_733029.elements = (object *)alloca(sizeof(object) * 3);
c_733029.elements[0] = ((closureN)self_731511)->elements[1];
c_733029.elements[1] = ((closureN)self_731511)->elements[2];
c_733029.elements[2] = ((closureN)self_731511)->elements[5];


double_type local_733050; object c_733051 = Cyc_fast_sub(data,&local_733050,Cyc_vector_ref(data, ((closureN)self_731511)->elements[0], obj_int2obj(1)), obj_int2obj(1));

double_type local_733046; object c_733047 = Cyc_fast_mul(data,&local_733046,c_733051, obj_int2obj(2));

double_type local_733042; object c_733043 = Cyc_fast_sum(data,&local_733042,c_733047, ((closureN)self_731511)->elements[4]);
return_closcall2(data,  car(((closureN)self_731511)->elements[3]),  &c_733029, c_733043);; 
}

static void __lambda_180(void *data, int argc, object self_731512, object r_73940) {
  
double_type local_733037; object c_733038 = Cyc_fast_sub(data,&local_733037,((closureN)self_731512)->elements[2], obj_int2obj(3));
return_closcall2(data,  car(((closureN)self_731512)->elements[1]),  ((closureN)self_731512)->elements[0], c_733038);; 
}

static void __lambda_179(void *data, int argc, object self_731513, object r_73936) {
  
closureN_type c_732814;
c_732814.hdr.mark = gc_color_red;
 c_732814.hdr.grayed = 0;
c_732814.tag = closureN_tag;
 c_732814.fn = (function_type)__lambda_178;
c_732814.num_args = 1;
c_732814.num_elements = 4;
c_732814.elements = (object *)alloca(sizeof(object) * 4);
c_732814.elements[0] = ((closureN)self_731513)->elements[0];
c_732814.elements[1] = ((closureN)self_731513)->elements[1];
c_732814.elements[2] = ((closureN)self_731513)->elements[2];
c_732814.elements[3] = ((closureN)self_731513)->elements[4];


double_type local_733002; object c_733003 = Cyc_fast_sub(data,&local_733002,Cyc_vector_ref(data, ((closureN)self_731513)->elements[1], obj_int2obj(2)), obj_int2obj(1));

double_type local_732998; object c_732999 = Cyc_fast_mul(data,&local_732998,c_733003, obj_int2obj(3));
return_closcall2(data,  car(((closureN)self_731513)->elements[3]),  &c_732814, c_732999);; 
}

static void __lambda_178(void *data, int argc, object self_731514, object r_73905) {
  
closureN_type c_732816;
c_732816.hdr.mark = gc_color_red;
 c_732816.hdr.grayed = 0;
c_732816.tag = closureN_tag;
 c_732816.fn = (function_type)__lambda_176;
c_732816.num_args = 0;
c_732816.num_elements = 2;
c_732816.elements = (object *)alloca(sizeof(object) * 2);
c_732816.elements[0] = ((closureN)self_731514)->elements[0];
c_732816.elements[1] = ((closureN)self_731514)->elements[1];


closureN_type c_732987;
c_732987.hdr.mark = gc_color_red;
 c_732987.hdr.grayed = 0;
c_732987.tag = closureN_tag;
 c_732987.fn = (function_type)__lambda_177;
c_732987.num_args = 1;
c_732987.num_elements = 2;
c_732987.elements = (object *)alloca(sizeof(object) * 2);
c_732987.elements[0] = ((closureN)self_731514)->elements[2];
c_732987.elements[1] = ((closureN)self_731514)->elements[3];

return_closcall1(data,(closure)&c_732816,  &c_732987);; 
}

static void __lambda_177(void *data, int argc, object self_731515, object r_73906) {
  
object c_732992 = Cyc_list2vector(data,  ((closureN)self_731515)->elements[0],car(((closureN)self_731515)->elements[1]));
return_closcall1(data,  ((closureN)self_731515)->elements[0],  c_732992);; 
}

static void __lambda_176(void *data, int argc, object self_731516, object k_73907) {
    object c_732819 = Cyc_num_fast_gt_op(data,Cyc_vector_ref(data, ((closureN)self_731516)->elements[1], obj_int2obj(2)), obj_int2obj(1));
if( (boolean_f != c_732819) ){ 
  
closureN_type c_732824;
c_732824.hdr.mark = gc_color_red;
 c_732824.hdr.grayed = 0;
c_732824.tag = closureN_tag;
 c_732824.fn = (function_type)__lambda_175;
c_732824.num_args = 1;
c_732824.num_elements = 3;
c_732824.elements = (object *)alloca(sizeof(object) * 3);
c_732824.elements[0] = ((closureN)self_731516)->elements[0];
c_732824.elements[1] = ((closureN)self_731516)->elements[1];
c_732824.elements[2] = k_73907;


double_type local_732981; object c_732982 = Cyc_fast_sub(data,&local_732981,Cyc_vector_ref(data, ((closureN)self_731516)->elements[1], obj_int2obj(2)), obj_int2obj(2));
return_closcall3(data,  __glo_div,  &c_732824, c_732982, obj_int2obj(2));
} else { 
  return_closcall1(data,  k_73907,  boolean_f);}
; 
}

static void __lambda_175(void *data, int argc, object self_731517, object r_73933) {
  
closureN_type c_732826;
c_732826.hdr.mark = gc_color_red;
 c_732826.hdr.grayed = 0;
c_732826.tag = closureN_tag;
 c_732826.fn = (function_type)__lambda_174;
c_732826.num_args = 1;
c_732826.num_elements = 4;
c_732826.elements = (object *)alloca(sizeof(object) * 4);
c_732826.elements[0] = ((closureN)self_731517)->elements[0];
c_732826.elements[1] = ((closureN)self_731517)->elements[1];
c_732826.elements[2] = ((closureN)self_731517)->elements[2];
c_732826.elements[3] = r_73933;


double_type local_732977; object c_732978 = Cyc_fast_mul(data,&local_732977,obj_int2obj(6), r_73933);

double_type local_732973; object c_732974 = Cyc_fast_sum(data,&local_732973,obj_int2obj(3), c_732978);
return_closcall4(data,  __glo_href,  &c_732826, ((closureN)self_731517)->elements[1], c_732974, obj_int2obj(1));; 
}

static void __lambda_174(void *data, int argc, object self_731518, object rmoc_91hex_73402) {
  
closureN_type c_732828;
c_732828.hdr.mark = gc_color_red;
 c_732828.hdr.grayed = 0;
c_732828.tag = closureN_tag;
 c_732828.fn = (function_type)__lambda_160;
c_732828.num_args = 0;
c_732828.num_elements = 4;
c_732828.elements = (object *)alloca(sizeof(object) * 4);
c_732828.elements[0] = ((closureN)self_731518)->elements[0];
c_732828.elements[1] = ((closureN)self_731518)->elements[1];
c_732828.elements[2] = ((closureN)self_731518)->elements[3];
c_732828.elements[3] = rmoc_91hex_73402;


closureN_type c_732871;
c_732871.hdr.mark = gc_color_red;
 c_732871.hdr.grayed = 0;
c_732871.tag = closureN_tag;
 c_732871.fn = (function_type)__lambda_173;
c_732871.num_args = 1;
c_732871.num_elements = 5;
c_732871.elements = (object *)alloca(sizeof(object) * 5);
c_732871.elements[0] = ((closureN)self_731518)->elements[0];
c_732871.elements[1] = ((closureN)self_731518)->elements[1];
c_732871.elements[2] = ((closureN)self_731518)->elements[2];
c_732871.elements[3] = ((closureN)self_731518)->elements[3];
c_732871.elements[4] = rmoc_91hex_73402;

return_closcall1(data,(closure)&c_732828,  &c_732871);; 
}

static void __lambda_173(void *data, int argc, object self_731519, object r_73926) {
  
closureN_type c_732873;
c_732873.hdr.mark = gc_color_red;
 c_732873.hdr.grayed = 0;
c_732873.tag = closureN_tag;
 c_732873.fn = (function_type)__lambda_172;
c_732873.num_args = 1;
c_732873.num_elements = 5;
c_732873.elements = (object *)alloca(sizeof(object) * 5);
c_732873.elements[0] = ((closureN)self_731519)->elements[0];
c_732873.elements[1] = ((closureN)self_731519)->elements[1];
c_732873.elements[2] = ((closureN)self_731519)->elements[2];
c_732873.elements[3] = ((closureN)self_731519)->elements[3];
c_732873.elements[4] = ((closureN)self_731519)->elements[4];


double_type local_732967; object c_732968 = Cyc_fast_mul(data,&local_732967,obj_int2obj(6), ((closureN)self_731519)->elements[3]);

double_type local_732963; object c_732964 = Cyc_fast_sum(data,&local_732963,obj_int2obj(3), c_732968);

double_type local_732959; object c_732960 = Cyc_fast_sub(data,&local_732959,c_732964, obj_int2obj(3));
return_closcall4(data,  __glo_href,  &c_732873, ((closureN)self_731519)->elements[1], c_732960, obj_int2obj(0));; 
}

static void __lambda_172(void *data, int argc, object self_731520, object r_73927) {
  
closureN_type c_732876;
c_732876.hdr.mark = gc_color_red;
 c_732876.hdr.grayed = 0;
c_732876.tag = closureN_tag;
 c_732876.fn = (function_type)__lambda_171;
c_732876.num_args = 1;
c_732876.num_elements = 4;
c_732876.elements = (object *)alloca(sizeof(object) * 4);
c_732876.elements[0] = ((closureN)self_731520)->elements[0];
c_732876.elements[1] = ((closureN)self_731520)->elements[1];
c_732876.elements[2] = ((closureN)self_731520)->elements[2];
c_732876.elements[3] = ((closureN)self_731520)->elements[3];

return_closcall4(data,  ((closureN)self_731520)->elements[0],  &c_732876, ((closureN)self_731520)->elements[4], r_73927, __glo_south_91west);; 
}

static void __lambda_171(void *data, int argc, object self_731521, object r_73910) {
  
closureN_type c_732878;
c_732878.hdr.mark = gc_color_red;
 c_732878.hdr.grayed = 0;
c_732878.tag = closureN_tag;
 c_732878.fn = (function_type)__lambda_170;
c_732878.num_args = 1;
c_732878.num_elements = 4;
c_732878.elements = (object *)alloca(sizeof(object) * 4);
c_732878.elements[0] = ((closureN)self_731521)->elements[0];
c_732878.elements[1] = ((closureN)self_731521)->elements[1];
c_732878.elements[2] = ((closureN)self_731521)->elements[2];
c_732878.elements[3] = ((closureN)self_731521)->elements[3];

return_closcall1(data,(closure)&c_732878,  boolean_f);; 
}

static void __lambda_170(void *data, int argc, object self_731522, object lp_73140_73399) {
  
closureN_type c_732880;
c_732880.hdr.mark = gc_color_red;
 c_732880.hdr.grayed = 0;
c_732880.tag = closureN_tag;
 c_732880.fn = (function_type)__lambda_169;
c_732880.num_args = 1;
c_732880.num_elements = 4;
c_732880.elements = (object *)alloca(sizeof(object) * 4);
c_732880.elements[0] = ((closureN)self_731522)->elements[0];
c_732880.elements[1] = ((closureN)self_731522)->elements[1];
c_732880.elements[2] = ((closureN)self_731522)->elements[2];
c_732880.elements[3] = ((closureN)self_731522)->elements[3];


make_cell(c_732954,lp_73140_73399);
return_closcall1(data,(closure)&c_732880,  &c_732954);; 
}

static void __lambda_169(void *data, int argc, object self_731523, object lp_73140_73399) {
  
closureN_type c_732882;
c_732882.hdr.mark = gc_color_red;
 c_732882.hdr.grayed = 0;
c_732882.tag = closureN_tag;
 c_732882.fn = (function_type)__lambda_161;
c_732882.num_args = 1;
c_732882.num_elements = 3;
c_732882.elements = (object *)alloca(sizeof(object) * 3);
c_732882.elements[0] = ((closureN)self_731523)->elements[2];
c_732882.elements[1] = lp_73140_73399;
c_732882.elements[2] = ((closureN)self_731523)->elements[3];


closureN_type c_732903;
c_732903.hdr.mark = gc_color_red;
 c_732903.hdr.grayed = 0;
c_732903.tag = closureN_tag;
 c_732903.fn = (function_type)__lambda_168;
c_732903.num_args = 1;
c_732903.num_elements = 3;
c_732903.elements = (object *)alloca(sizeof(object) * 3);
c_732903.elements[0] = ((closureN)self_731523)->elements[0];
c_732903.elements[1] = ((closureN)self_731523)->elements[1];
c_732903.elements[2] = lp_73140_73399;

return_closcall1(data,(closure)&c_732882,  Cyc_set_cell(data, lp_73140_73399, &c_732903));; 
}

static void __lambda_168(void *data, int argc, object self_731524, object k_73914, object x_73400) {
    object c_732906 = Cyc_num_fast_lt_op(data,x_73400, obj_int2obj(3));
if( (boolean_f != c_732906) ){ 
  
object c_732910 = Cyc_num_fast_lt_op(data,x_73400, obj_int2obj(3));
return_closcall1(data,  k_73914,  c_732910);
} else { 
  
closureN_type c_732912;
c_732912.hdr.mark = gc_color_red;
 c_732912.hdr.grayed = 0;
c_732912.tag = closureN_tag;
 c_732912.fn = (function_type)__lambda_167;
c_732912.num_args = 1;
c_732912.num_elements = 5;
c_732912.elements = (object *)alloca(sizeof(object) * 5);
c_732912.elements[0] = ((closureN)self_731524)->elements[0];
c_732912.elements[1] = ((closureN)self_731524)->elements[1];
c_732912.elements[2] = k_73914;
c_732912.elements[3] = ((closureN)self_731524)->elements[2];
c_732912.elements[4] = x_73400;

return_closcall4(data,  __glo_href,  &c_732912, ((closureN)self_731524)->elements[1], x_73400, obj_int2obj(1));}
; 
}

static void __lambda_167(void *data, int argc, object self_731525, object r_73922) {
  
closureN_type c_732914;
c_732914.hdr.mark = gc_color_red;
 c_732914.hdr.grayed = 0;
c_732914.tag = closureN_tag;
 c_732914.fn = (function_type)__lambda_166;
c_732914.num_args = 1;
c_732914.num_elements = 6;
c_732914.elements = (object *)alloca(sizeof(object) * 6);
c_732914.elements[0] = ((closureN)self_731525)->elements[0];
c_732914.elements[1] = ((closureN)self_731525)->elements[1];
c_732914.elements[2] = ((closureN)self_731525)->elements[2];
c_732914.elements[3] = ((closureN)self_731525)->elements[3];
c_732914.elements[4] = r_73922;
c_732914.elements[5] = ((closureN)self_731525)->elements[4];


double_type local_732948; object c_732949 = Cyc_fast_sub(data,&local_732948,((closureN)self_731525)->elements[4], obj_int2obj(3));
return_closcall4(data,  __glo_href,  &c_732914, ((closureN)self_731525)->elements[1], c_732949, obj_int2obj(0));; 
}

static void __lambda_166(void *data, int argc, object self_731526, object r_73923) {
  
closureN_type c_732917;
c_732917.hdr.mark = gc_color_red;
 c_732917.hdr.grayed = 0;
c_732917.tag = closureN_tag;
 c_732917.fn = (function_type)__lambda_165;
c_732917.num_args = 1;
c_732917.num_elements = 5;
c_732917.elements = (object *)alloca(sizeof(object) * 5);
c_732917.elements[0] = ((closureN)self_731526)->elements[0];
c_732917.elements[1] = ((closureN)self_731526)->elements[1];
c_732917.elements[2] = ((closureN)self_731526)->elements[2];
c_732917.elements[3] = ((closureN)self_731526)->elements[3];
c_732917.elements[4] = ((closureN)self_731526)->elements[5];

return_closcall4(data,  ((closureN)self_731526)->elements[0],  &c_732917, ((closureN)self_731526)->elements[4], r_73923, __glo_south_91west);; 
}

static void __lambda_165(void *data, int argc, object self_731527, object r_73916) {
  
closureN_type c_732919;
c_732919.hdr.mark = gc_color_red;
 c_732919.hdr.grayed = 0;
c_732919.tag = closureN_tag;
 c_732919.fn = (function_type)__lambda_164;
c_732919.num_args = 1;
c_732919.num_elements = 5;
c_732919.elements = (object *)alloca(sizeof(object) * 5);
c_732919.elements[0] = ((closureN)self_731527)->elements[0];
c_732919.elements[1] = ((closureN)self_731527)->elements[1];
c_732919.elements[2] = ((closureN)self_731527)->elements[2];
c_732919.elements[3] = ((closureN)self_731527)->elements[3];
c_732919.elements[4] = ((closureN)self_731527)->elements[4];

return_closcall4(data,  __glo_href,  &c_732919, ((closureN)self_731527)->elements[1], ((closureN)self_731527)->elements[4], obj_int2obj(1));; 
}

static void __lambda_164(void *data, int argc, object self_731528, object r_73919) {
  
closureN_type c_732921;
c_732921.hdr.mark = gc_color_red;
 c_732921.hdr.grayed = 0;
c_732921.tag = closureN_tag;
 c_732921.fn = (function_type)__lambda_163;
c_732921.num_args = 1;
c_732921.num_elements = 5;
c_732921.elements = (object *)alloca(sizeof(object) * 5);
c_732921.elements[0] = ((closureN)self_731528)->elements[0];
c_732921.elements[1] = ((closureN)self_731528)->elements[2];
c_732921.elements[2] = ((closureN)self_731528)->elements[3];
c_732921.elements[3] = r_73919;
c_732921.elements[4] = ((closureN)self_731528)->elements[4];


double_type local_732939; object c_732940 = Cyc_fast_sum(data,&local_732939,((closureN)self_731528)->elements[4], obj_int2obj(3));
return_closcall4(data,  __glo_href,  &c_732921, ((closureN)self_731528)->elements[1], c_732940, obj_int2obj(0));; 
}

static void __lambda_163(void *data, int argc, object self_731529, object r_73920) {
  
closureN_type c_732924;
c_732924.hdr.mark = gc_color_red;
 c_732924.hdr.grayed = 0;
c_732924.tag = closureN_tag;
 c_732924.fn = (function_type)__lambda_162;
c_732924.num_args = 1;
c_732924.num_elements = 3;
c_732924.elements = (object *)alloca(sizeof(object) * 3);
c_732924.elements[0] = ((closureN)self_731529)->elements[1];
c_732924.elements[1] = ((closureN)self_731529)->elements[2];
c_732924.elements[2] = ((closureN)self_731529)->elements[4];

return_closcall4(data,  ((closureN)self_731529)->elements[0],  &c_732924, ((closureN)self_731529)->elements[3], r_73920, __glo_south_91east);; 
}

static void __lambda_162(void *data, int argc, object self_731530, object r_73917) {
  
double_type local_732932; object c_732933 = Cyc_fast_sub(data,&local_732932,((closureN)self_731530)->elements[2], obj_int2obj(6));
return_closcall2(data,  car(((closureN)self_731530)->elements[1]),  ((closureN)self_731530)->elements[0], c_732933);; 
}

static void __lambda_161(void *data, int argc, object self_731531, object r_73912) {
  
double_type local_732898; object c_732899 = Cyc_fast_mul(data,&local_732898,obj_int2obj(6), ((closureN)self_731531)->elements[2]);

double_type local_732894; object c_732895 = Cyc_fast_sum(data,&local_732894,obj_int2obj(3), c_732899);

double_type local_732890; object c_732891 = Cyc_fast_sub(data,&local_732890,c_732895, obj_int2obj(6));
return_closcall2(data,  car(((closureN)self_731531)->elements[1]),  ((closureN)self_731531)->elements[0], c_732891);; 
}

static void __lambda_160(void *data, int argc, object self_731532, object k_73929) {
    double_type local_732838; object c_732839 = Cyc_fast_mul(data,&local_732838,obj_int2obj(6), ((closureN)self_731532)->elements[2]);
  double_type local_732834; object c_732835 = Cyc_fast_sum(data,&local_732834,obj_int2obj(3), c_732839);
  double_type local_732847; object c_732848 = Cyc_fast_sub(data,&local_732847,Cyc_vector_ref(data, ((closureN)self_731532)->elements[1], obj_int2obj(2)), obj_int2obj(1));
  double_type local_732843; object c_732844 = Cyc_fast_mul(data,&local_732843,obj_int2obj(3), c_732848);
  object c_732831 = Cyc_num_fast_lt_op(data,c_732835, c_732844);
if( (boolean_f != c_732831) ){ 
  
closureN_type c_732853;
c_732853.hdr.mark = gc_color_red;
 c_732853.hdr.grayed = 0;
c_732853.tag = closureN_tag;
 c_732853.fn = (function_type)__lambda_159;
c_732853.num_args = 1;
c_732853.num_elements = 3;
c_732853.elements = (object *)alloca(sizeof(object) * 3);
c_732853.elements[0] = ((closureN)self_731532)->elements[0];
c_732853.elements[1] = k_73929;
c_732853.elements[2] = ((closureN)self_731532)->elements[3];


double_type local_732865; object c_732866 = Cyc_fast_sub(data,&local_732865,Cyc_vector_ref(data, ((closureN)self_731532)->elements[1], obj_int2obj(2)), obj_int2obj(1));

double_type local_732861; object c_732862 = Cyc_fast_mul(data,&local_732861,obj_int2obj(3), c_732866);
return_closcall4(data,  __glo_href,  &c_732853, ((closureN)self_731532)->elements[1], c_732862, obj_int2obj(0));
} else { 
  return_closcall1(data,  k_73929,  boolean_f);}
; 
}

static void __lambda_159(void *data, int argc, object self_731533, object r_73931) {
  return_closcall4(data,  ((closureN)self_731533)->elements[0],  ((closureN)self_731533)->elements[1], ((closureN)self_731533)->elements[2], r_73931, __glo_south_91east);; 
}

static void __lambda_158(void *data, int argc, closure _,object k_73974, object r_73413, object c_73412) {
  Cyc_st_add(data, "maze.scm:gen-maze-array");

mclosure0(c_732789, (function_type)__lambda_157);c_732789.num_args = 2;
return_closcall4(data,  __glo_harr_91tabulate,  k_73974, r_73413, c_73412, &c_732789);; 
}

static void __lambda_157(void *data, int argc, object self_731534, object k_73976, object x_73415, object y_73414) {
  
make_pair(c_732793,obj_int2obj(1), NULL);

make_pair(c_732796,x_73415, y_73414);
return_closcall7(data,  __glo_vector_scheme_base,  k_73976, quote_cell, &c_732793, &c_732796, obj_int2obj(-1), boolean_f, boolean_f);; 
}

static void __lambda_156(void *data, int argc, closure _,object k_73987, object nrows_73418, object ncols_73417, object proc_73416) {
  Cyc_st_add(data, "maze.scm:harr-tabulate");

closureN_type c_732661;
c_732661.hdr.mark = gc_color_red;
 c_732661.hdr.grayed = 0;
c_732661.tag = closureN_tag;
 c_732661.fn = (function_type)__lambda_155;
c_732661.num_args = 1;
c_732661.num_elements = 4;
c_732661.elements = (object *)alloca(sizeof(object) * 4);
c_732661.elements[0] = k_73987;
c_732661.elements[1] = ncols_73417;
c_732661.elements[2] = nrows_73418;
c_732661.elements[3] = proc_73416;


double_type local_732785; object c_732786 = Cyc_fast_mul(data,&local_732785,nrows_73418, ncols_73417);

object c_732782 = Cyc_make_vector(data,(closure)&c_732661,1,c_732786);
return_closcall1(data,(closure)&c_732661,  c_732782);; 
}

static void __lambda_155(void *data, int argc, object self_731535, object v_73419) {
  
closureN_type c_732663;
c_732663.hdr.mark = gc_color_red;
 c_732663.hdr.grayed = 0;
c_732663.tag = closureN_tag;
 c_732663.fn = (function_type)__lambda_154;
c_732663.num_args = 1;
c_732663.num_elements = 5;
c_732663.elements = (object *)alloca(sizeof(object) * 5);
c_732663.elements[0] = ((closureN)self_731535)->elements[0];
c_732663.elements[1] = ((closureN)self_731535)->elements[1];
c_732663.elements[2] = ((closureN)self_731535)->elements[2];
c_732663.elements[3] = ((closureN)self_731535)->elements[3];
c_732663.elements[4] = v_73419;

return_closcall1(data,(closure)&c_732663,  boolean_f);; 
}

static void __lambda_154(void *data, int argc, object self_731536, object lp_73113_73421) {
  
closureN_type c_732665;
c_732665.hdr.mark = gc_color_red;
 c_732665.hdr.grayed = 0;
c_732665.tag = closureN_tag;
 c_732665.fn = (function_type)__lambda_153;
c_732665.num_args = 1;
c_732665.num_elements = 5;
c_732665.elements = (object *)alloca(sizeof(object) * 5);
c_732665.elements[0] = ((closureN)self_731536)->elements[0];
c_732665.elements[1] = ((closureN)self_731536)->elements[1];
c_732665.elements[2] = ((closureN)self_731536)->elements[2];
c_732665.elements[3] = ((closureN)self_731536)->elements[3];
c_732665.elements[4] = ((closureN)self_731536)->elements[4];


make_cell(c_732779,lp_73113_73421);
return_closcall1(data,(closure)&c_732665,  &c_732779);; 
}

static void __lambda_153(void *data, int argc, object self_731537, object lp_73113_73421) {
  
closureN_type c_732667;
c_732667.hdr.mark = gc_color_red;
 c_732667.hdr.grayed = 0;
c_732667.tag = closureN_tag;
 c_732667.fn = (function_type)__lambda_142;
c_732667.num_args = 1;
c_732667.num_elements = 5;
c_732667.elements = (object *)alloca(sizeof(object) * 5);
c_732667.elements[0] = ((closureN)self_731537)->elements[0];
c_732667.elements[1] = lp_73113_73421;
c_732667.elements[2] = ((closureN)self_731537)->elements[1];
c_732667.elements[3] = ((closureN)self_731537)->elements[2];
c_732667.elements[4] = ((closureN)self_731537)->elements[4];


closureN_type c_732685;
c_732685.hdr.mark = gc_color_red;
 c_732685.hdr.grayed = 0;
c_732685.tag = closureN_tag;
 c_732685.fn = (function_type)__lambda_152;
c_732685.num_args = 1;
c_732685.num_elements = 4;
c_732685.elements = (object *)alloca(sizeof(object) * 4);
c_732685.elements[0] = lp_73113_73421;
c_732685.elements[1] = ((closureN)self_731537)->elements[1];
c_732685.elements[2] = ((closureN)self_731537)->elements[3];
c_732685.elements[3] = ((closureN)self_731537)->elements[4];

return_closcall1(data,(closure)&c_732667,  Cyc_set_cell(data, lp_73113_73421, &c_732685));; 
}

static void __lambda_152(void *data, int argc, object self_731538, object k_73993, object r_73422) {
    object c_732688 = Cyc_num_fast_lt_op(data,r_73422, obj_int2obj(0));
if( (boolean_f != c_732688) ){ 
  
object c_732692 = Cyc_num_fast_lt_op(data,r_73422, obj_int2obj(0));
return_closcall1(data,  k_73993,  c_732692);
} else { 
  
closureN_type c_732694;
c_732694.hdr.mark = gc_color_red;
 c_732694.hdr.grayed = 0;
c_732694.tag = closureN_tag;
 c_732694.fn = (function_type)__lambda_151;
c_732694.num_args = 1;
c_732694.num_elements = 6;
c_732694.elements = (object *)alloca(sizeof(object) * 6);
c_732694.elements[0] = k_73993;
c_732694.elements[1] = ((closureN)self_731538)->elements[0];
c_732694.elements[2] = ((closureN)self_731538)->elements[1];
c_732694.elements[3] = ((closureN)self_731538)->elements[2];
c_732694.elements[4] = r_73422;
c_732694.elements[5] = ((closureN)self_731538)->elements[3];


double_type local_732774; object c_732775 = Cyc_fast_mul(data,&local_732774,r_73422, ((closureN)self_731538)->elements[1]);
return_closcall1(data,(closure)&c_732694,  c_732775);}
; 
}

static void __lambda_151(void *data, int argc, object self_731539, object i_73424) {
  
closureN_type c_732696;
c_732696.hdr.mark = gc_color_red;
 c_732696.hdr.grayed = 0;
c_732696.tag = closureN_tag;
 c_732696.fn = (function_type)__lambda_150;
c_732696.num_args = 1;
c_732696.num_elements = 7;
c_732696.elements = (object *)alloca(sizeof(object) * 7);
c_732696.elements[0] = i_73424;
c_732696.elements[1] = ((closureN)self_731539)->elements[0];
c_732696.elements[2] = ((closureN)self_731539)->elements[1];
c_732696.elements[3] = ((closureN)self_731539)->elements[2];
c_732696.elements[4] = ((closureN)self_731539)->elements[3];
c_732696.elements[5] = ((closureN)self_731539)->elements[4];
c_732696.elements[6] = ((closureN)self_731539)->elements[5];

return_closcall1(data,(closure)&c_732696,  boolean_f);; 
}

static void __lambda_150(void *data, int argc, object self_731540, object lp_73117_73426) {
  
closureN_type c_732698;
c_732698.hdr.mark = gc_color_red;
 c_732698.hdr.grayed = 0;
c_732698.tag = closureN_tag;
 c_732698.fn = (function_type)__lambda_149;
c_732698.num_args = 1;
c_732698.num_elements = 7;
c_732698.elements = (object *)alloca(sizeof(object) * 7);
c_732698.elements[0] = ((closureN)self_731540)->elements[0];
c_732698.elements[1] = ((closureN)self_731540)->elements[1];
c_732698.elements[2] = ((closureN)self_731540)->elements[2];
c_732698.elements[3] = ((closureN)self_731540)->elements[3];
c_732698.elements[4] = ((closureN)self_731540)->elements[4];
c_732698.elements[5] = ((closureN)self_731540)->elements[5];
c_732698.elements[6] = ((closureN)self_731540)->elements[6];


make_cell(c_732771,lp_73117_73426);
return_closcall1(data,(closure)&c_732698,  &c_732771);; 
}

static void __lambda_149(void *data, int argc, object self_731541, object lp_73117_73426) {
  
closureN_type c_732700;
c_732700.hdr.mark = gc_color_red;
 c_732700.hdr.grayed = 0;
c_732700.tag = closureN_tag;
 c_732700.fn = (function_type)__lambda_144;
c_732700.num_args = 1;
c_732700.num_elements = 5;
c_732700.elements = (object *)alloca(sizeof(object) * 5);
c_732700.elements[0] = ((closureN)self_731541)->elements[0];
c_732700.elements[1] = ((closureN)self_731541)->elements[1];
c_732700.elements[2] = ((closureN)self_731541)->elements[2];
c_732700.elements[3] = lp_73117_73426;
c_732700.elements[4] = ((closureN)self_731541)->elements[5];


closureN_type c_732719;
c_732719.hdr.mark = gc_color_red;
 c_732719.hdr.grayed = 0;
c_732719.tag = closureN_tag;
 c_732719.fn = (function_type)__lambda_148;
c_732719.num_args = 2;
c_732719.num_elements = 5;
c_732719.elements = (object *)alloca(sizeof(object) * 5);
c_732719.elements[0] = lp_73117_73426;
c_732719.elements[1] = ((closureN)self_731541)->elements[3];
c_732719.elements[2] = ((closureN)self_731541)->elements[4];
c_732719.elements[3] = ((closureN)self_731541)->elements[5];
c_732719.elements[4] = ((closureN)self_731541)->elements[6];

return_closcall1(data,(closure)&c_732700,  Cyc_set_cell(data, lp_73117_73426, &c_732719));; 
}

static void __lambda_148(void *data, int argc, object self_731542, object k_731000, object c_73428, object i_73427) {
    object c_732722 = Cyc_num_fast_eq_op(data,c_73428, ((closureN)self_731542)->elements[1]);
if( (boolean_f != c_732722) ){ 
  
object c_732727 = Cyc_num_fast_eq_op(data,c_73428, ((closureN)self_731542)->elements[1]);
return_closcall1(data,  k_731000,  c_732727);
} else { 
  
closureN_type c_732730;
c_732730.hdr.mark = gc_color_red;
 c_732730.hdr.grayed = 0;
c_732730.tag = closureN_tag;
 c_732730.fn = (function_type)__lambda_147;
c_732730.num_args = 1;
c_732730.num_elements = 7;
c_732730.elements = (object *)alloca(sizeof(object) * 7);
c_732730.elements[0] = c_73428;
c_732730.elements[1] = i_73427;
c_732730.elements[2] = k_731000;
c_732730.elements[3] = ((closureN)self_731542)->elements[0];
c_732730.elements[4] = ((closureN)self_731542)->elements[2];
c_732730.elements[5] = ((closureN)self_731542)->elements[3];
c_732730.elements[6] = ((closureN)self_731542)->elements[4];

return_closcall3(data,  __glo_bitwise_91and,  &c_732730, c_73428, obj_int2obj(1));}
; 
}

static void __lambda_147(void *data, int argc, object self_731543, object r_731009) {
  
closureN_type c_732733;
c_732733.hdr.mark = gc_color_red;
 c_732733.hdr.grayed = 0;
c_732733.tag = closureN_tag;
 c_732733.fn = (function_type)__lambda_146;
c_732733.num_args = 1;
c_732733.num_elements = 5;
c_732733.elements = (object *)alloca(sizeof(object) * 5);
c_732733.elements[0] = ((closureN)self_731543)->elements[0];
c_732733.elements[1] = ((closureN)self_731543)->elements[1];
c_732733.elements[2] = ((closureN)self_731543)->elements[2];
c_732733.elements[3] = ((closureN)self_731543)->elements[3];
c_732733.elements[4] = ((closureN)self_731543)->elements[6];


double_type local_732757; object c_732758 = Cyc_fast_mul(data,&local_732757,obj_int2obj(3), ((closureN)self_731543)->elements[0]);

double_type local_732766; object c_732767 = Cyc_fast_mul(data,&local_732766,obj_int2obj(2), ((closureN)self_731543)->elements[5]);

double_type local_732762; object c_732763 = Cyc_fast_sum(data,&local_732762,c_732767, r_731009);
return_closcall3(data,  ((closureN)self_731543)->elements[4],  &c_732733, c_732758, c_732763);; 
}

static void __lambda_146(void *data, int argc, object self_731544, object r_731005) {
  
closureN_type c_732735;
c_732735.hdr.mark = gc_color_red;
 c_732735.hdr.grayed = 0;
c_732735.tag = closureN_tag;
 c_732735.fn = (function_type)__lambda_145;
c_732735.num_args = 1;
c_732735.num_elements = 4;
c_732735.elements = (object *)alloca(sizeof(object) * 4);
c_732735.elements[0] = ((closureN)self_731544)->elements[0];
c_732735.elements[1] = ((closureN)self_731544)->elements[1];
c_732735.elements[2] = ((closureN)self_731544)->elements[2];
c_732735.elements[3] = ((closureN)self_731544)->elements[3];

return_closcall1(data,(closure)&c_732735,  Cyc_vector_set(data, ((closureN)self_731544)->elements[4], ((closureN)self_731544)->elements[1], r_731005));; 
}

static void __lambda_145(void *data, int argc, object self_731545, object r_731002) {
  
double_type local_732743; object c_732744 = Cyc_fast_sum(data,&local_732743,((closureN)self_731545)->elements[0], obj_int2obj(1));

double_type local_732748; object c_732749 = Cyc_fast_sum(data,&local_732748,((closureN)self_731545)->elements[1], obj_int2obj(1));
return_closcall3(data,  car(((closureN)self_731545)->elements[3]),  ((closureN)self_731545)->elements[2], c_732744, c_732749);; 
}

static void __lambda_144(void *data, int argc, object self_731546, object r_73998) {
  
closureN_type c_732705;
c_732705.hdr.mark = gc_color_red;
 c_732705.hdr.grayed = 0;
c_732705.tag = closureN_tag;
 c_732705.fn = (function_type)__lambda_143;
c_732705.num_args = 1;
c_732705.num_elements = 3;
c_732705.elements = (object *)alloca(sizeof(object) * 3);
c_732705.elements[0] = ((closureN)self_731546)->elements[1];
c_732705.elements[1] = ((closureN)self_731546)->elements[2];
c_732705.elements[2] = ((closureN)self_731546)->elements[4];

return_closcall3(data,  car(((closureN)self_731546)->elements[3]),  &c_732705, obj_int2obj(0), ((closureN)self_731546)->elements[0]);; 
}

static void __lambda_143(void *data, int argc, object self_731547, object r_73995) {
  
double_type local_732713; object c_732714 = Cyc_fast_sub(data,&local_732713,((closureN)self_731547)->elements[2], obj_int2obj(1));
return_closcall2(data,  car(((closureN)self_731547)->elements[1]),  ((closureN)self_731547)->elements[0], c_732714);; 
}

static void __lambda_142(void *data, int argc, object self_731548, object r_73991) {
  
closureN_type c_732672;
c_732672.hdr.mark = gc_color_red;
 c_732672.hdr.grayed = 0;
c_732672.tag = closureN_tag;
 c_732672.fn = (function_type)__lambda_141;
c_732672.num_args = 1;
c_732672.num_elements = 4;
c_732672.elements = (object *)alloca(sizeof(object) * 4);
c_732672.elements[0] = ((closureN)self_731548)->elements[0];
c_732672.elements[1] = ((closureN)self_731548)->elements[2];
c_732672.elements[2] = ((closureN)self_731548)->elements[3];
c_732672.elements[3] = ((closureN)self_731548)->elements[4];


double_type local_732680; object c_732681 = Cyc_fast_sub(data,&local_732680,((closureN)self_731548)->elements[3], obj_int2obj(1));
return_closcall2(data,  car(((closureN)self_731548)->elements[1]),  &c_732672, c_732681);; 
}

static void __lambda_141(void *data, int argc, object self_731549, object r_73989) {
  return_closcall5(data,  __glo_vector_scheme_base,  ((closureN)self_731549)->elements[0], quote_harr, ((closureN)self_731549)->elements[2], ((closureN)self_731549)->elements[1], ((closureN)self_731549)->elements[3]);; 
}

static void __lambda_140(void *data, int argc, closure _,object k_731013, object ha_73432, object r_73431, object c_73430) {
  Cyc_st_add(data, "maze.scm:href/rc");

double_type local_732655; object c_732656 = Cyc_fast_mul(data,&local_732655,Cyc_vector_ref(data, ha_73432, obj_int2obj(2)), r_73431);

double_type local_732651; object c_732652 = Cyc_fast_sum(data,&local_732651,c_732656, c_73430);
return_closcall1(data,  k_731013,  Cyc_vector_ref(data, Cyc_vector_ref(data, ha_73432, obj_int2obj(3)), c_732652));; 
}

static void __lambda_139(void *data, int argc, closure _,object k_731020, object ha_73435, object x_73434, object y_73433) {
  Cyc_st_add(data, "maze.scm:href");

closureN_type c_732618;
c_732618.hdr.mark = gc_color_red;
 c_732618.hdr.grayed = 0;
c_732618.tag = closureN_tag;
 c_732618.fn = (function_type)__lambda_138;
c_732618.num_args = 1;
c_732618.num_elements = 3;
c_732618.elements = (object *)alloca(sizeof(object) * 3);
c_732618.elements[0] = ha_73435;
c_732618.elements[1] = k_731020;
c_732618.elements[2] = x_73434;

return_closcall3(data,  __glo_div,  &c_732618, y_73433, obj_int2obj(2));; 
}

static void __lambda_138(void *data, int argc, object self_731550, object r_731021) {
  
closureN_type c_732620;
c_732620.hdr.mark = gc_color_red;
 c_732620.hdr.grayed = 0;
c_732620.tag = closureN_tag;
 c_732620.fn = (function_type)__lambda_137;
c_732620.num_args = 1;
c_732620.num_elements = 3;
c_732620.elements = (object *)alloca(sizeof(object) * 3);
c_732620.elements[0] = ((closureN)self_731550)->elements[0];
c_732620.elements[1] = ((closureN)self_731550)->elements[1];
c_732620.elements[2] = r_731021;

return_closcall3(data,  __glo_div,  &c_732620, ((closureN)self_731550)->elements[2], obj_int2obj(3));; 
}

static void __lambda_137(void *data, int argc, object self_731551, object r_731022) {
  
closureN_type c_732622;
c_732622.hdr.mark = gc_color_red;
 c_732622.hdr.grayed = 0;
c_732622.tag = closureN_tag;
 c_732622.fn = (function_type)__lambda_136;
c_732622.num_args = 2;
c_732622.num_elements = 2;
c_732622.elements = (object *)alloca(sizeof(object) * 2);
c_732622.elements[0] = ((closureN)self_731551)->elements[0];
c_732622.elements[1] = ((closureN)self_731551)->elements[1];

return_closcall2(data,(closure)&c_732622,  ((closureN)self_731551)->elements[2], r_731022);; 
}

static void __lambda_136(void *data, int argc, object self_731552, object r_73437, object c_73436) {
  
double_type local_732636; object c_732637 = Cyc_fast_mul(data,&local_732636,Cyc_vector_ref(data, ((closureN)self_731552)->elements[0], obj_int2obj(2)), r_73437);

double_type local_732632; object c_732633 = Cyc_fast_sum(data,&local_732632,c_732637, c_73436);
return_closcall1(data,  ((closureN)self_731552)->elements[1],  Cyc_vector_ref(data, Cyc_vector_ref(data, ((closureN)self_731552)->elements[0], obj_int2obj(3)), c_732633));; 
}

static void __lambda_135(void *data, int argc, closure _,object k_731029, object o_73438) {
  Cyc_st_add(data, "maze.scm:harr:elts");
return_closcall1(data,  k_731029,  Cyc_vector_ref(data, o_73438, obj_int2obj(3)));; 
}

static void __lambda_134(void *data, int argc, closure _,object k_731032, object o_73439) {
  Cyc_st_add(data, "maze.scm:harr:ncols");
return_closcall1(data,  k_731032,  Cyc_vector_ref(data, o_73439, obj_int2obj(2)));; 
}

static void __lambda_133(void *data, int argc, closure _,object k_731035, object o_73440) {
  Cyc_st_add(data, "maze.scm:harr:nrows");
return_closcall1(data,  k_731035,  Cyc_vector_ref(data, o_73440, obj_int2obj(1)));; 
}

static void __lambda_132(void *data, int argc, closure _,object k_731038, object nrows_73443, object ncols_73442, object elts_73441) {
  Cyc_st_add(data, "maze.scm:make-harr");
return_closcall5(data,  __glo_vector_scheme_base,  k_731038, quote_harr, nrows_73443, ncols_73442, elts_73441);; 
}

static void __lambda_131(void *data, int argc, closure _,object k_731042, object node_73444) {
  Cyc_st_add(data, "maze.scm:mark-path");

closureN_type c_732567;
c_732567.hdr.mark = gc_color_red;
 c_732567.hdr.grayed = 0;
c_732567.tag = closureN_tag;
 c_732567.fn = (function_type)__lambda_130;
c_732567.num_args = 1;
c_732567.num_elements = 1;
c_732567.elements = (object *)alloca(sizeof(object) * 1);
c_732567.elements[0] = k_731042;

return_closcall1(data,(closure)&c_732567,  node_73444);; 
}

static void __lambda_130(void *data, int argc, object self_731553, object node_73445) {
  
closureN_type c_732569;
c_732569.hdr.mark = gc_color_red;
 c_732569.hdr.grayed = 0;
c_732569.tag = closureN_tag;
 c_732569.fn = (function_type)__lambda_129;
c_732569.num_args = 1;
c_732569.num_elements = 2;
c_732569.elements = (object *)alloca(sizeof(object) * 2);
c_732569.elements[0] = ((closureN)self_731553)->elements[0];
c_732569.elements[1] = node_73445;

return_closcall1(data,(closure)&c_732569,  boolean_f);; 
}

static void __lambda_129(void *data, int argc, object self_731554, object lp_73446) {
  
closureN_type c_732571;
c_732571.hdr.mark = gc_color_red;
 c_732571.hdr.grayed = 0;
c_732571.tag = closureN_tag;
 c_732571.fn = (function_type)__lambda_128;
c_732571.num_args = 1;
c_732571.num_elements = 2;
c_732571.elements = (object *)alloca(sizeof(object) * 2);
c_732571.elements[0] = ((closureN)self_731554)->elements[0];
c_732571.elements[1] = ((closureN)self_731554)->elements[1];


make_cell(c_732601,lp_73446);
return_closcall1(data,(closure)&c_732571,  &c_732601);; 
}

static void __lambda_128(void *data, int argc, object self_731555, object lp_73446) {
  
closureN_type c_732573;
c_732573.hdr.mark = gc_color_red;
 c_732573.hdr.grayed = 0;
c_732573.tag = closureN_tag;
 c_732573.fn = (function_type)__lambda_124;
c_732573.num_args = 1;
c_732573.num_elements = 3;
c_732573.elements = (object *)alloca(sizeof(object) * 3);
c_732573.elements[0] = ((closureN)self_731555)->elements[0];
c_732573.elements[1] = lp_73446;
c_732573.elements[2] = ((closureN)self_731555)->elements[1];


closureN_type c_732582;
c_732582.hdr.mark = gc_color_red;
 c_732582.hdr.grayed = 0;
c_732582.tag = closureN_tag;
 c_732582.fn = (function_type)__lambda_127;
c_732582.num_args = 1;
c_732582.num_elements = 1;
c_732582.elements = (object *)alloca(sizeof(object) * 1);
c_732582.elements[0] = lp_73446;

return_closcall1(data,(closure)&c_732573,  Cyc_set_cell(data, lp_73446, &c_732582));; 
}

static void __lambda_127(void *data, int argc, object self_731556, object k_731045, object node_73447) {
  
closureN_type c_732584;
c_732584.hdr.mark = gc_color_red;
 c_732584.hdr.grayed = 0;
c_732584.tag = closureN_tag;
 c_732584.fn = (function_type)__lambda_126;
c_732584.num_args = 1;
c_732584.num_elements = 3;
c_732584.elements = (object *)alloca(sizeof(object) * 3);
c_732584.elements[0] = k_731045;
c_732584.elements[1] = ((closureN)self_731556)->elements[0];
c_732584.elements[2] = node_73447;

return_closcall1(data,(closure)&c_732584,  Cyc_vector_set(data, node_73447, obj_int2obj(5), boolean_t));; 
}

static void __lambda_126(void *data, int argc, object self_731557, object r_731046) {
  
closureN_type c_732586;
c_732586.hdr.mark = gc_color_red;
 c_732586.hdr.grayed = 0;
c_732586.tag = closureN_tag;
 c_732586.fn = (function_type)__lambda_125;
c_732586.num_args = 1;
c_732586.num_elements = 2;
c_732586.elements = (object *)alloca(sizeof(object) * 2);
c_732586.elements[0] = ((closureN)self_731557)->elements[0];
c_732586.elements[1] = ((closureN)self_731557)->elements[1];

return_closcall1(data,(closure)&c_732586,  Cyc_vector_ref(data, ((closureN)self_731557)->elements[2], obj_int2obj(4)));; 
}

static void __lambda_125(void *data, int argc, object self_731558, object tmp_73111_73448) {
  if( (boolean_f != tmp_73111_73448) ){ 
  return_closcall2(data,  car(((closureN)self_731558)->elements[1]),  ((closureN)self_731558)->elements[0], tmp_73111_73448);
} else { 
  return_closcall1(data,  ((closureN)self_731558)->elements[0],  boolean_f);}
; 
}

static void __lambda_124(void *data, int argc, object self_731559, object r_731043) {
  return_closcall2(data,  car(((closureN)self_731559)->elements[1]),  ((closureN)self_731559)->elements[0], ((closureN)self_731559)->elements[2]);; 
}

static void __lambda_123(void *data, int argc, closure _,object k_731050, object cell_73449) {
  Cyc_st_add(data, "maze.scm:path-length");

closureN_type c_732535;
c_732535.hdr.mark = gc_color_red;
 c_732535.hdr.grayed = 0;
c_732535.tag = closureN_tag;
 c_732535.fn = (function_type)__lambda_122;
c_732535.num_args = 1;
c_732535.num_elements = 2;
c_732535.elements = (object *)alloca(sizeof(object) * 2);
c_732535.elements[0] = cell_73449;
c_732535.elements[1] = k_731050;

return_closcall1(data,(closure)&c_732535,  boolean_f);; 
}

static void __lambda_122(void *data, int argc, object self_731560, object lp_73105_73452) {
  
closureN_type c_732537;
c_732537.hdr.mark = gc_color_red;
 c_732537.hdr.grayed = 0;
c_732537.tag = closureN_tag;
 c_732537.fn = (function_type)__lambda_121;
c_732537.num_args = 1;
c_732537.num_elements = 2;
c_732537.elements = (object *)alloca(sizeof(object) * 2);
c_732537.elements[0] = ((closureN)self_731560)->elements[0];
c_732537.elements[1] = ((closureN)self_731560)->elements[1];


make_cell(c_732564,lp_73105_73452);
return_closcall1(data,(closure)&c_732537,  &c_732564);; 
}

static void __lambda_121(void *data, int argc, object self_731561, object lp_73105_73452) {
  
closureN_type c_732539;
c_732539.hdr.mark = gc_color_red;
 c_732539.hdr.grayed = 0;
c_732539.tag = closureN_tag;
 c_732539.fn = (function_type)__lambda_119;
c_732539.num_args = 1;
c_732539.num_elements = 3;
c_732539.elements = (object *)alloca(sizeof(object) * 3);
c_732539.elements[0] = ((closureN)self_731561)->elements[0];
c_732539.elements[1] = ((closureN)self_731561)->elements[1];
c_732539.elements[2] = lp_73105_73452;


closureN_type c_732550;
c_732550.hdr.mark = gc_color_red;
 c_732550.hdr.grayed = 0;
c_732550.tag = closureN_tag;
 c_732550.fn = (function_type)__lambda_120;
c_732550.num_args = 2;
c_732550.num_elements = 1;
c_732550.elements = (object *)alloca(sizeof(object) * 1);
c_732550.elements[0] = lp_73105_73452;

return_closcall1(data,(closure)&c_732539,  Cyc_set_cell(data, lp_73105_73452, &c_732550));; 
}

static void __lambda_120(void *data, int argc, object self_731562, object k_731054, object len_73454, object node_73453) {
  if( (boolean_f != node_73453) ){ 
  
double_type local_732557; object c_732558 = Cyc_fast_sum(data,&local_732557,len_73454, obj_int2obj(1));
return_closcall3(data,  car(((closureN)self_731562)->elements[0]),  k_731054, c_732558, Cyc_vector_ref(data, node_73453, obj_int2obj(4)));
} else { 
  return_closcall1(data,  k_731054,  len_73454);}
; 
}

static void __lambda_119(void *data, int argc, object self_731563, object r_731052) {
  return_closcall3(data,  car(((closureN)self_731563)->elements[2]),  ((closureN)self_731563)->elements[1], obj_int2obj(0), Cyc_vector_ref(data, ((closureN)self_731563)->elements[0], obj_int2obj(4)));; 
}

static void __lambda_118(void *data, int argc, closure _,object k_731059, object new_91root_73455) {
  Cyc_st_add(data, "maze.scm:reroot-maze");

closureN_type c_732494;
c_732494.hdr.mark = gc_color_red;
 c_732494.hdr.grayed = 0;
c_732494.tag = closureN_tag;
 c_732494.fn = (function_type)__lambda_117;
c_732494.num_args = 1;
c_732494.num_elements = 1;
c_732494.elements = (object *)alloca(sizeof(object) * 1);
c_732494.elements[0] = k_731059;

return_closcall1(data,(closure)&c_732494,  new_91root_73455);; 
}

static void __lambda_117(void *data, int argc, object self_731564, object node_73457) {
  
closureN_type c_732496;
c_732496.hdr.mark = gc_color_red;
 c_732496.hdr.grayed = 0;
c_732496.tag = closureN_tag;
 c_732496.fn = (function_type)__lambda_116;
c_732496.num_args = 1;
c_732496.num_elements = 2;
c_732496.elements = (object *)alloca(sizeof(object) * 2);
c_732496.elements[0] = ((closureN)self_731564)->elements[0];
c_732496.elements[1] = node_73457;

return_closcall1(data,(closure)&c_732496,  boolean_f);; 
}

static void __lambda_116(void *data, int argc, object self_731565, object lp_73458) {
  
closureN_type c_732498;
c_732498.hdr.mark = gc_color_red;
 c_732498.hdr.grayed = 0;
c_732498.tag = closureN_tag;
 c_732498.fn = (function_type)__lambda_115;
c_732498.num_args = 1;
c_732498.num_elements = 2;
c_732498.elements = (object *)alloca(sizeof(object) * 2);
c_732498.elements[0] = ((closureN)self_731565)->elements[0];
c_732498.elements[1] = ((closureN)self_731565)->elements[1];


make_cell(c_732532,lp_73458);
return_closcall1(data,(closure)&c_732498,  &c_732532);; 
}

static void __lambda_115(void *data, int argc, object self_731566, object lp_73458) {
  
closureN_type c_732500;
c_732500.hdr.mark = gc_color_red;
 c_732500.hdr.grayed = 0;
c_732500.tag = closureN_tag;
 c_732500.fn = (function_type)__lambda_111;
c_732500.num_args = 1;
c_732500.num_elements = 3;
c_732500.elements = (object *)alloca(sizeof(object) * 3);
c_732500.elements[0] = ((closureN)self_731566)->elements[0];
c_732500.elements[1] = lp_73458;
c_732500.elements[2] = ((closureN)self_731566)->elements[1];


closureN_type c_732509;
c_732509.hdr.mark = gc_color_red;
 c_732509.hdr.grayed = 0;
c_732509.tag = closureN_tag;
 c_732509.fn = (function_type)__lambda_114;
c_732509.num_args = 2;
c_732509.num_elements = 1;
c_732509.elements = (object *)alloca(sizeof(object) * 1);
c_732509.elements[0] = lp_73458;

return_closcall1(data,(closure)&c_732500,  Cyc_set_cell(data, lp_73458, &c_732509));; 
}

static void __lambda_114(void *data, int argc, object self_731567, object k_731062, object node_73460, object new_91parent_73459) {
  
closureN_type c_732511;
c_732511.hdr.mark = gc_color_red;
 c_732511.hdr.grayed = 0;
c_732511.tag = closureN_tag;
 c_732511.fn = (function_type)__lambda_113;
c_732511.num_args = 1;
c_732511.num_elements = 4;
c_732511.elements = (object *)alloca(sizeof(object) * 4);
c_732511.elements[0] = k_731062;
c_732511.elements[1] = ((closureN)self_731567)->elements[0];
c_732511.elements[2] = new_91parent_73459;
c_732511.elements[3] = node_73460;

return_closcall1(data,(closure)&c_732511,  Cyc_vector_ref(data, node_73460, obj_int2obj(4)));; 
}

static void __lambda_113(void *data, int argc, object self_731568, object old_91parent_73461) {
  
closureN_type c_732513;
c_732513.hdr.mark = gc_color_red;
 c_732513.hdr.grayed = 0;
c_732513.tag = closureN_tag;
 c_732513.fn = (function_type)__lambda_112;
c_732513.num_args = 1;
c_732513.num_elements = 4;
c_732513.elements = (object *)alloca(sizeof(object) * 4);
c_732513.elements[0] = ((closureN)self_731568)->elements[0];
c_732513.elements[1] = ((closureN)self_731568)->elements[1];
c_732513.elements[2] = ((closureN)self_731568)->elements[3];
c_732513.elements[3] = old_91parent_73461;

return_closcall1(data,(closure)&c_732513,  Cyc_vector_set(data, ((closureN)self_731568)->elements[3], obj_int2obj(4), ((closureN)self_731568)->elements[2]));; 
}

static void __lambda_112(void *data, int argc, object self_731569, object r_731064) {
  if( (boolean_f != ((closureN)self_731569)->elements[3]) ){ 
  return_closcall3(data,  car(((closureN)self_731569)->elements[1]),  ((closureN)self_731569)->elements[0], ((closureN)self_731569)->elements[3], ((closureN)self_731569)->elements[2]);
} else { 
  return_closcall1(data,  ((closureN)self_731569)->elements[0],  boolean_f);}
; 
}

static void __lambda_111(void *data, int argc, object self_731570, object r_731060) {
  return_closcall3(data,  car(((closureN)self_731570)->elements[1]),  ((closureN)self_731570)->elements[0], ((closureN)self_731570)->elements[2], boolean_f);; 
}

static void __lambda_110(void *data, int argc, closure _,object k_731067, object maze_73464, object root_73463, object do_91children_73462) {
  Cyc_st_add(data, "maze.scm:dfs-maze");

closureN_type c_732449;
c_732449.hdr.mark = gc_color_red;
 c_732449.hdr.grayed = 0;
c_732449.tag = closureN_tag;
 c_732449.fn = (function_type)__lambda_109;
c_732449.num_args = 1;
c_732449.num_elements = 3;
c_732449.elements = (object *)alloca(sizeof(object) * 3);
c_732449.elements[0] = do_91children_73462;
c_732449.elements[1] = k_731067;
c_732449.elements[2] = maze_73464;

return_closcall1(data,(closure)&c_732449,  root_73463);; 
}

static void __lambda_109(void *data, int argc, object self_731571, object node_73466) {
  
closureN_type c_732451;
c_732451.hdr.mark = gc_color_red;
 c_732451.hdr.grayed = 0;
c_732451.tag = closureN_tag;
 c_732451.fn = (function_type)__lambda_108;
c_732451.num_args = 1;
c_732451.num_elements = 4;
c_732451.elements = (object *)alloca(sizeof(object) * 4);
c_732451.elements[0] = ((closureN)self_731571)->elements[0];
c_732451.elements[1] = ((closureN)self_731571)->elements[1];
c_732451.elements[2] = ((closureN)self_731571)->elements[2];
c_732451.elements[3] = node_73466;

return_closcall1(data,(closure)&c_732451,  boolean_f);; 
}

static void __lambda_108(void *data, int argc, object self_731572, object search_73467) {
  
closureN_type c_732453;
c_732453.hdr.mark = gc_color_red;
 c_732453.hdr.grayed = 0;
c_732453.tag = closureN_tag;
 c_732453.fn = (function_type)__lambda_107;
c_732453.num_args = 1;
c_732453.num_elements = 4;
c_732453.elements = (object *)alloca(sizeof(object) * 4);
c_732453.elements[0] = ((closureN)self_731572)->elements[0];
c_732453.elements[1] = ((closureN)self_731572)->elements[1];
c_732453.elements[2] = ((closureN)self_731572)->elements[2];
c_732453.elements[3] = ((closureN)self_731572)->elements[3];


make_cell(c_732491,search_73467);
return_closcall1(data,(closure)&c_732453,  &c_732491);; 
}

static void __lambda_107(void *data, int argc, object self_731573, object search_73467) {
  
closureN_type c_732455;
c_732455.hdr.mark = gc_color_red;
 c_732455.hdr.grayed = 0;
c_732455.tag = closureN_tag;
 c_732455.fn = (function_type)__lambda_102;
c_732455.num_args = 1;
c_732455.num_elements = 3;
c_732455.elements = (object *)alloca(sizeof(object) * 3);
c_732455.elements[0] = ((closureN)self_731573)->elements[1];
c_732455.elements[1] = ((closureN)self_731573)->elements[3];
c_732455.elements[2] = search_73467;


closureN_type c_732464;
c_732464.hdr.mark = gc_color_red;
 c_732464.hdr.grayed = 0;
c_732464.tag = closureN_tag;
 c_732464.fn = (function_type)__lambda_106;
c_732464.num_args = 2;
c_732464.num_elements = 3;
c_732464.elements = (object *)alloca(sizeof(object) * 3);
c_732464.elements[0] = ((closureN)self_731573)->elements[0];
c_732464.elements[1] = ((closureN)self_731573)->elements[2];
c_732464.elements[2] = search_73467;

return_closcall1(data,(closure)&c_732455,  Cyc_set_cell(data, search_73467, &c_732464));; 
}

static void __lambda_106(void *data, int argc, object self_731574, object k_731070, object node_73469, object parent_73468) {
  
closureN_type c_732466;
c_732466.hdr.mark = gc_color_red;
 c_732466.hdr.grayed = 0;
c_732466.tag = closureN_tag;
 c_732466.fn = (function_type)__lambda_105;
c_732466.num_args = 1;
c_732466.num_elements = 6;
c_732466.elements = (object *)alloca(sizeof(object) * 6);
c_732466.elements[0] = ((closureN)self_731574)->elements[0];
c_732466.elements[1] = k_731070;
c_732466.elements[2] = ((closureN)self_731574)->elements[1];
c_732466.elements[3] = node_73469;
c_732466.elements[4] = parent_73468;
c_732466.elements[5] = ((closureN)self_731574)->elements[2];

return_closcall1(data,(closure)&c_732466,  Cyc_vector_set(data, node_73469, obj_int2obj(4), parent_73468));; 
}

static void __lambda_105(void *data, int argc, object self_731575, object r_731071) {
  
closureN_type c_732470;
c_732470.hdr.mark = gc_color_red;
 c_732470.hdr.grayed = 0;
c_732470.tag = closureN_tag;
 c_732470.fn = (function_type)__lambda_104;
c_732470.num_args = 1;
c_732470.num_elements = 3;
c_732470.elements = (object *)alloca(sizeof(object) * 3);
c_732470.elements[0] = ((closureN)self_731575)->elements[3];
c_732470.elements[1] = ((closureN)self_731575)->elements[4];
c_732470.elements[2] = ((closureN)self_731575)->elements[5];

return_closcall4(data,  ((closureN)self_731575)->elements[0],  ((closureN)self_731575)->elements[1], &c_732470, ((closureN)self_731575)->elements[2], ((closureN)self_731575)->elements[3]);; 
}

static void __lambda_104(void *data, int argc, object self_731576, object k_731073, object child_73470) {
  
closureN_type c_732472;
c_732472.hdr.mark = gc_color_red;
 c_732472.hdr.grayed = 0;
c_732472.tag = closureN_tag;
 c_732472.fn = (function_type)__lambda_103;
c_732472.num_args = 1;
c_732472.num_elements = 4;
c_732472.elements = (object *)alloca(sizeof(object) * 4);
c_732472.elements[0] = child_73470;
c_732472.elements[1] = k_731073;
c_732472.elements[2] = ((closureN)self_731576)->elements[0];
c_732472.elements[3] = ((closureN)self_731576)->elements[2];

return_closcall1(data,(closure)&c_732472,  Cyc_eq(child_73470, ((closureN)self_731576)->elements[1]));; 
}

static void __lambda_103(void *data, int argc, object self_731577, object r_731074) {
  if( (boolean_f != r_731074) ){ 
  return_closcall1(data,  ((closureN)self_731577)->elements[1],  boolean_f);
} else { 
  return_closcall3(data,  car(((closureN)self_731577)->elements[3]),  ((closureN)self_731577)->elements[1], ((closureN)self_731577)->elements[0], ((closureN)self_731577)->elements[2]);}
; 
}

static void __lambda_102(void *data, int argc, object self_731578, object r_731068) {
  return_closcall3(data,  car(((closureN)self_731578)->elements[2]),  ((closureN)self_731578)->elements[0], ((closureN)self_731578)->elements[1], boolean_f);; 
}

static void __lambda_101(void *data, int argc, closure _,object k_731077, object walls_73472, object ncells_73471) {
  Cyc_st_add(data, "maze.scm:dig-maze");

closureN_type c_732380;
c_732380.hdr.mark = gc_color_red;
 c_732380.hdr.grayed = 0;
c_732380.tag = closureN_tag;
 c_732380.fn = (function_type)__lambda_100;
c_732380.num_args = 1;
c_732380.num_elements = 2;
c_732380.elements = (object *)alloca(sizeof(object) * 2);
c_732380.elements[0] = ncells_73471;
c_732380.elements[1] = walls_73472;

return_closcall2(data,  __glo_call_91with_91current_91continuation_scheme_base,  k_731077, &c_732380);; 
}

static void __lambda_100(void *data, int argc, object self_731579, object k_731079, object quit_73473) {
  
closureN_type c_732382;
c_732382.hdr.mark = gc_color_red;
 c_732382.hdr.grayed = 0;
c_732382.tag = closureN_tag;
 c_732382.fn = (function_type)__lambda_99;
c_732382.num_args = 1;
c_732382.num_elements = 2;
c_732382.elements = (object *)alloca(sizeof(object) * 2);
c_732382.elements[0] = ((closureN)self_731579)->elements[0];
c_732382.elements[1] = quit_73473;

return_closcall3(data,  __glo_vector_91for_91each_91rev,  k_731079, &c_732382, ((closureN)self_731579)->elements[1]);; 
}

static void __lambda_99(void *data, int argc, object self_731580, object k_731081, object wall_73474) {
  
closureN_type c_732384;
c_732384.hdr.mark = gc_color_red;
 c_732384.hdr.grayed = 0;
c_732384.tag = closureN_tag;
 c_732384.fn = (function_type)__lambda_98;
c_732384.num_args = 1;
c_732384.num_elements = 4;
c_732384.elements = (object *)alloca(sizeof(object) * 4);
c_732384.elements[0] = k_731081;
c_732384.elements[1] = ((closureN)self_731580)->elements[0];
c_732384.elements[2] = ((closureN)self_731580)->elements[1];
c_732384.elements[3] = wall_73474;

return_closcall3(data,  __glo_set_91equal_127,  &c_732384, Cyc_vector_ref(data, Cyc_vector_ref(data, wall_73474, obj_int2obj(1)), obj_int2obj(1)), Cyc_vector_ref(data, Cyc_vector_ref(data, wall_73474, obj_int2obj(2)), obj_int2obj(1)));; 
}

static void __lambda_98(void *data, int argc, object self_731581, object r_731086) {
  if( (boolean_f != r_731086) ){ 
  return_closcall1(data,  ((closureN)self_731581)->elements[0],  boolean_f);
} else { 
  
closureN_type c_732388;
c_732388.hdr.mark = gc_color_red;
 c_732388.hdr.grayed = 0;
c_732388.tag = closureN_tag;
 c_732388.fn = (function_type)__lambda_97;
c_732388.num_args = 1;
c_732388.num_elements = 4;
c_732388.elements = (object *)alloca(sizeof(object) * 4);
c_732388.elements[0] = ((closureN)self_731581)->elements[0];
c_732388.elements[1] = ((closureN)self_731581)->elements[1];
c_732388.elements[2] = ((closureN)self_731581)->elements[2];
c_732388.elements[3] = ((closureN)self_731581)->elements[3];

return_closcall2(data,  __glo_bitwise_91not,  &c_732388, Cyc_vector_ref(data, ((closureN)self_731581)->elements[3], obj_int2obj(3)));}
; 
}

static void __lambda_97(void *data, int argc, object self_731582, object r_731088) {
  
closureN_type c_732390;
c_732390.hdr.mark = gc_color_red;
 c_732390.hdr.grayed = 0;
c_732390.tag = closureN_tag;
 c_732390.fn = (function_type)__lambda_96;
c_732390.num_args = 2;
c_732390.num_elements = 4;
c_732390.elements = (object *)alloca(sizeof(object) * 4);
c_732390.elements[0] = ((closureN)self_731582)->elements[0];
c_732390.elements[1] = ((closureN)self_731582)->elements[1];
c_732390.elements[2] = ((closureN)self_731582)->elements[2];
c_732390.elements[3] = ((closureN)self_731582)->elements[3];

return_closcall2(data,(closure)&c_732390,  Cyc_vector_ref(data, Cyc_vector_ref(data, ((closureN)self_731582)->elements[3], obj_int2obj(1)), obj_int2obj(3)), r_731088);; 
}

static void __lambda_96(void *data, int argc, object self_731583, object walls_73480, object wall_91mask_73479) {
  
closureN_type c_732392;
c_732392.hdr.mark = gc_color_red;
 c_732392.hdr.grayed = 0;
c_732392.tag = closureN_tag;
 c_732392.fn = (function_type)__lambda_95;
c_732392.num_args = 1;
c_732392.num_elements = 6;
c_732392.elements = (object *)alloca(sizeof(object) * 6);
c_732392.elements[0] = ((closureN)self_731583)->elements[0];
c_732392.elements[1] = ((closureN)self_731583)->elements[1];
c_732392.elements[2] = ((closureN)self_731583)->elements[2];
c_732392.elements[3] = ((closureN)self_731583)->elements[3];
c_732392.elements[4] = wall_91mask_73479;
c_732392.elements[5] = walls_73480;

return_closcall3(data,  __glo_union_67,  &c_732392, Cyc_vector_ref(data, Cyc_vector_ref(data, ((closureN)self_731583)->elements[3], obj_int2obj(1)), obj_int2obj(1)), Cyc_vector_ref(data, Cyc_vector_ref(data, ((closureN)self_731583)->elements[3], obj_int2obj(2)), obj_int2obj(1)));; 
}

static void __lambda_95(void *data, int argc, object self_731584, object r_731089) {
  
closureN_type c_732394;
c_732394.hdr.mark = gc_color_red;
 c_732394.hdr.grayed = 0;
c_732394.tag = closureN_tag;
 c_732394.fn = (function_type)__lambda_94;
c_732394.num_args = 1;
c_732394.num_elements = 4;
c_732394.elements = (object *)alloca(sizeof(object) * 4);
c_732394.elements[0] = ((closureN)self_731584)->elements[0];
c_732394.elements[1] = ((closureN)self_731584)->elements[1];
c_732394.elements[2] = ((closureN)self_731584)->elements[2];
c_732394.elements[3] = ((closureN)self_731584)->elements[3];

return_closcall3(data,  __glo_bitwise_91and,  &c_732394, ((closureN)self_731584)->elements[5], ((closureN)self_731584)->elements[4]);; 
}

static void __lambda_94(void *data, int argc, object self_731585, object r_731093) {
  
closureN_type c_732396;
c_732396.hdr.mark = gc_color_red;
 c_732396.hdr.grayed = 0;
c_732396.tag = closureN_tag;
 c_732396.fn = (function_type)__lambda_93;
c_732396.num_args = 1;
c_732396.num_elements = 4;
c_732396.elements = (object *)alloca(sizeof(object) * 4);
c_732396.elements[0] = ((closureN)self_731585)->elements[0];
c_732396.elements[1] = ((closureN)self_731585)->elements[1];
c_732396.elements[2] = ((closureN)self_731585)->elements[2];
c_732396.elements[3] = ((closureN)self_731585)->elements[3];

return_closcall1(data,(closure)&c_732396,  Cyc_vector_set(data, Cyc_vector_ref(data, ((closureN)self_731585)->elements[3], obj_int2obj(1)), obj_int2obj(3), r_731093));; 
}

static void __lambda_93(void *data, int argc, object self_731586, object r_731090) {
  
closureN_type c_732398;
c_732398.hdr.mark = gc_color_red;
 c_732398.hdr.grayed = 0;
c_732398.tag = closureN_tag;
 c_732398.fn = (function_type)__lambda_92;
c_732398.num_args = 1;
c_732398.num_elements = 3;
c_732398.elements = (object *)alloca(sizeof(object) * 3);
c_732398.elements[0] = ((closureN)self_731586)->elements[0];
c_732398.elements[1] = ((closureN)self_731586)->elements[1];
c_732398.elements[2] = ((closureN)self_731586)->elements[2];

return_closcall2(data,  __glo_set_91size,  &c_732398, Cyc_vector_ref(data, Cyc_vector_ref(data, ((closureN)self_731586)->elements[3], obj_int2obj(1)), obj_int2obj(1)));; 
}

static void __lambda_92(void *data, int argc, object self_731587, object r_731092) {
    object c_732401 = Cyc_num_fast_eq_op(data,r_731092, ((closureN)self_731587)->elements[1]);
if( (boolean_f != c_732401) ){ 
  return_closcall2(data,  ((closureN)self_731587)->elements[2],  ((closureN)self_731587)->elements[0], boolean_f);
} else { 
  return_closcall1(data,  ((closureN)self_731587)->elements[0],  boolean_f);}
; 
}

static void __lambda_91(void *data, int argc, closure _,object k_731097, object v_73482, object random_91state_73481) {
  Cyc_st_add(data, "maze.scm:permute-vec!");

closureN_type c_732302;
c_732302.hdr.mark = gc_color_red;
 c_732302.hdr.grayed = 0;
c_732302.tag = closureN_tag;
 c_732302.fn = (function_type)__lambda_90;
c_732302.num_args = 1;
c_732302.num_elements = 3;
c_732302.elements = (object *)alloca(sizeof(object) * 3);
c_732302.elements[0] = k_731097;
c_732302.elements[1] = random_91state_73481;
c_732302.elements[2] = v_73482;

return_closcall1(data,(closure)&c_732302,  Cyc_vector_length(data, v_73482));; 
}

static void __lambda_90(void *data, int argc, object self_731588, object r_731110) {
  
closureN_type c_732304;
c_732304.hdr.mark = gc_color_red;
 c_732304.hdr.grayed = 0;
c_732304.tag = closureN_tag;
 c_732304.fn = (function_type)__lambda_89;
c_732304.num_args = 1;
c_732304.num_elements = 4;
c_732304.elements = (object *)alloca(sizeof(object) * 4);
c_732304.elements[0] = ((closureN)self_731588)->elements[0];
c_732304.elements[1] = r_731110;
c_732304.elements[2] = ((closureN)self_731588)->elements[1];
c_732304.elements[3] = ((closureN)self_731588)->elements[2];

return_closcall1(data,(closure)&c_732304,  boolean_f);; 
}

static void __lambda_89(void *data, int argc, object self_731589, object lp_73484) {
  
closureN_type c_732306;
c_732306.hdr.mark = gc_color_red;
 c_732306.hdr.grayed = 0;
c_732306.tag = closureN_tag;
 c_732306.fn = (function_type)__lambda_88;
c_732306.num_args = 1;
c_732306.num_elements = 4;
c_732306.elements = (object *)alloca(sizeof(object) * 4);
c_732306.elements[0] = ((closureN)self_731589)->elements[0];
c_732306.elements[1] = ((closureN)self_731589)->elements[1];
c_732306.elements[2] = ((closureN)self_731589)->elements[2];
c_732306.elements[3] = ((closureN)self_731589)->elements[3];


make_cell(c_732375,lp_73484);
return_closcall1(data,(closure)&c_732306,  &c_732375);; 
}

static void __lambda_88(void *data, int argc, object self_731590, object lp_73484) {
  
closureN_type c_732308;
c_732308.hdr.mark = gc_color_red;
 c_732308.hdr.grayed = 0;
c_732308.tag = closureN_tag;
 c_732308.fn = (function_type)__lambda_79;
c_732308.num_args = 1;
c_732308.num_elements = 4;
c_732308.elements = (object *)alloca(sizeof(object) * 4);
c_732308.elements[0] = ((closureN)self_731590)->elements[0];
c_732308.elements[1] = lp_73484;
c_732308.elements[2] = ((closureN)self_731590)->elements[1];
c_732308.elements[3] = ((closureN)self_731590)->elements[3];


closureN_type c_732324;
c_732324.hdr.mark = gc_color_red;
 c_732324.hdr.grayed = 0;
c_732324.tag = closureN_tag;
 c_732324.fn = (function_type)__lambda_87;
c_732324.num_args = 1;
c_732324.num_elements = 3;
c_732324.elements = (object *)alloca(sizeof(object) * 3);
c_732324.elements[0] = lp_73484;
c_732324.elements[1] = ((closureN)self_731590)->elements[2];
c_732324.elements[2] = ((closureN)self_731590)->elements[3];

return_closcall1(data,(closure)&c_732308,  Cyc_set_cell(data, lp_73484, &c_732324));; 
}

static void __lambda_87(void *data, int argc, object self_731591, object k_731102, object i_73485) {
  
closureN_type c_732326;
c_732326.hdr.mark = gc_color_red;
 c_732326.hdr.grayed = 0;
c_732326.tag = closureN_tag;
 c_732326.fn = (function_type)__lambda_86;
c_732326.num_args = 1;
c_732326.num_elements = 5;
c_732326.elements = (object *)alloca(sizeof(object) * 5);
c_732326.elements[0] = i_73485;
c_732326.elements[1] = k_731102;
c_732326.elements[2] = ((closureN)self_731591)->elements[0];
c_732326.elements[3] = ((closureN)self_731591)->elements[1];
c_732326.elements[4] = ((closureN)self_731591)->elements[2];


object c_732372 = Cyc_num_fast_gt_op(data,i_73485, obj_int2obj(1));
return_closcall1(data,(closure)&c_732326,  c_732372);; 
}

static void __lambda_86(void *data, int argc, object self_731592, object r_731103) {
  if( (boolean_f != r_731103) ){ 
  
closureN_type c_732328;
c_732328.hdr.mark = gc_color_red;
 c_732328.hdr.grayed = 0;
c_732328.tag = closureN_tag;
 c_732328.fn = (function_type)__lambda_85;
c_732328.num_args = 1;
c_732328.num_elements = 5;
c_732328.elements = (object *)alloca(sizeof(object) * 5);
c_732328.elements[0] = ((closureN)self_731592)->elements[0];
c_732328.elements[1] = ((closureN)self_731592)->elements[1];
c_732328.elements[2] = ((closureN)self_731592)->elements[2];
c_732328.elements[3] = ((closureN)self_731592)->elements[3];
c_732328.elements[4] = ((closureN)self_731592)->elements[4];

return_closcall1(data,(closure)&c_732328,  Cyc_vector_ref(data, ((closureN)self_731592)->elements[4], ((closureN)self_731592)->elements[0]));
} else { 
  return_closcall1(data,  ((closureN)self_731592)->elements[1],  boolean_f);}
; 
}

static void __lambda_85(void *data, int argc, object self_731593, object r_731106) {
  
closureN_type c_732330;
c_732330.hdr.mark = gc_color_red;
 c_732330.hdr.grayed = 0;
c_732330.tag = closureN_tag;
 c_732330.fn = (function_type)__lambda_84;
c_732330.num_args = 1;
c_732330.num_elements = 5;
c_732330.elements = (object *)alloca(sizeof(object) * 5);
c_732330.elements[0] = ((closureN)self_731593)->elements[0];
c_732330.elements[1] = ((closureN)self_731593)->elements[1];
c_732330.elements[2] = ((closureN)self_731593)->elements[2];
c_732330.elements[3] = r_731106;
c_732330.elements[4] = ((closureN)self_731593)->elements[4];

return_closcall3(data,  __glo_random_91int,  &c_732330, ((closureN)self_731593)->elements[0], ((closureN)self_731593)->elements[3]);; 
}

static void __lambda_84(void *data, int argc, object self_731594, object r_731107) {
  
closureN_type c_732332;
c_732332.hdr.mark = gc_color_red;
 c_732332.hdr.grayed = 0;
c_732332.tag = closureN_tag;
 c_732332.fn = (function_type)__lambda_83;
c_732332.num_args = 2;
c_732332.num_elements = 4;
c_732332.elements = (object *)alloca(sizeof(object) * 4);
c_732332.elements[0] = ((closureN)self_731594)->elements[0];
c_732332.elements[1] = ((closureN)self_731594)->elements[1];
c_732332.elements[2] = ((closureN)self_731594)->elements[2];
c_732332.elements[3] = ((closureN)self_731594)->elements[4];

return_closcall2(data,(closure)&c_732332,  ((closureN)self_731594)->elements[3], r_731107);; 
}

static void __lambda_83(void *data, int argc, object self_731595, object elt_91i_73487, object j_73486) {
  
closureN_type c_732334;
c_732334.hdr.mark = gc_color_red;
 c_732334.hdr.grayed = 0;
c_732334.tag = closureN_tag;
 c_732334.fn = (function_type)__lambda_82;
c_732334.num_args = 1;
c_732334.num_elements = 6;
c_732334.elements = (object *)alloca(sizeof(object) * 6);
c_732334.elements[0] = elt_91i_73487;
c_732334.elements[1] = ((closureN)self_731595)->elements[0];
c_732334.elements[2] = j_73486;
c_732334.elements[3] = ((closureN)self_731595)->elements[1];
c_732334.elements[4] = ((closureN)self_731595)->elements[2];
c_732334.elements[5] = ((closureN)self_731595)->elements[3];

return_closcall1(data,(closure)&c_732334,  Cyc_vector_ref(data, ((closureN)self_731595)->elements[3], j_73486));; 
}

static void __lambda_82(void *data, int argc, object self_731596, object r_731109) {
  
closureN_type c_732336;
c_732336.hdr.mark = gc_color_red;
 c_732336.hdr.grayed = 0;
c_732336.tag = closureN_tag;
 c_732336.fn = (function_type)__lambda_81;
c_732336.num_args = 1;
c_732336.num_elements = 6;
c_732336.elements = (object *)alloca(sizeof(object) * 6);
c_732336.elements[0] = ((closureN)self_731596)->elements[0];
c_732336.elements[1] = ((closureN)self_731596)->elements[1];
c_732336.elements[2] = ((closureN)self_731596)->elements[2];
c_732336.elements[3] = ((closureN)self_731596)->elements[3];
c_732336.elements[4] = ((closureN)self_731596)->elements[4];
c_732336.elements[5] = ((closureN)self_731596)->elements[5];

return_closcall1(data,(closure)&c_732336,  Cyc_vector_set(data, ((closureN)self_731596)->elements[5], ((closureN)self_731596)->elements[1], r_731109));; 
}

static void __lambda_81(void *data, int argc, object self_731597, object r_731108) {
  
closureN_type c_732338;
c_732338.hdr.mark = gc_color_red;
 c_732338.hdr.grayed = 0;
c_732338.tag = closureN_tag;
 c_732338.fn = (function_type)__lambda_80;
c_732338.num_args = 1;
c_732338.num_elements = 3;
c_732338.elements = (object *)alloca(sizeof(object) * 3);
c_732338.elements[0] = ((closureN)self_731597)->elements[1];
c_732338.elements[1] = ((closureN)self_731597)->elements[3];
c_732338.elements[2] = ((closureN)self_731597)->elements[4];

return_closcall1(data,(closure)&c_732338,  Cyc_vector_set(data, ((closureN)self_731597)->elements[5], ((closureN)self_731597)->elements[2], ((closureN)self_731597)->elements[0]));; 
}

static void __lambda_80(void *data, int argc, object self_731598, object r_731104) {
  
double_type local_732346; object c_732347 = Cyc_fast_sub(data,&local_732346,((closureN)self_731598)->elements[0], obj_int2obj(1));
return_closcall2(data,  car(((closureN)self_731598)->elements[2]),  ((closureN)self_731598)->elements[1], c_732347);; 
}

static void __lambda_79(void *data, int argc, object self_731599, object r_731100) {
  
closureN_type c_732313;
c_732313.hdr.mark = gc_color_red;
 c_732313.hdr.grayed = 0;
c_732313.tag = closureN_tag;
 c_732313.fn = (function_type)__lambda_78;
c_732313.num_args = 1;
c_732313.num_elements = 2;
c_732313.elements = (object *)alloca(sizeof(object) * 2);
c_732313.elements[0] = ((closureN)self_731599)->elements[0];
c_732313.elements[1] = ((closureN)self_731599)->elements[3];


double_type local_732319; object c_732320 = Cyc_fast_sub(data,&local_732319,((closureN)self_731599)->elements[2], obj_int2obj(1));
return_closcall2(data,  car(((closureN)self_731599)->elements[1]),  &c_732313, c_732320);; 
}

static void __lambda_78(void *data, int argc, object self_731600, object r_731098) {
  return_closcall1(data,  ((closureN)self_731600)->elements[0],  ((closureN)self_731600)->elements[1]);; 
}

static void __lambda_77(void *data, int argc, closure _,object k_731113, object proc_73489, object v_73488) {
  Cyc_st_add(data, "maze.scm:vector-for-each-rev");

closureN_type c_732257;
c_732257.hdr.mark = gc_color_red;
 c_732257.hdr.grayed = 0;
c_732257.tag = closureN_tag;
 c_732257.fn = (function_type)__lambda_76;
c_732257.num_args = 1;
c_732257.num_elements = 3;
c_732257.elements = (object *)alloca(sizeof(object) * 3);
c_732257.elements[0] = k_731113;
c_732257.elements[1] = proc_73489;
c_732257.elements[2] = v_73488;

return_closcall1(data,(closure)&c_732257,  boolean_f);; 
}

static void __lambda_76(void *data, int argc, object self_731601, object lp_73491) {
  
closureN_type c_732259;
c_732259.hdr.mark = gc_color_red;
 c_732259.hdr.grayed = 0;
c_732259.tag = closureN_tag;
 c_732259.fn = (function_type)__lambda_75;
c_732259.num_args = 1;
c_732259.num_elements = 3;
c_732259.elements = (object *)alloca(sizeof(object) * 3);
c_732259.elements[0] = ((closureN)self_731601)->elements[0];
c_732259.elements[1] = ((closureN)self_731601)->elements[1];
c_732259.elements[2] = ((closureN)self_731601)->elements[2];


make_cell(c_732299,lp_73491);
return_closcall1(data,(closure)&c_732259,  &c_732299);; 
}

static void __lambda_75(void *data, int argc, object self_731602, object lp_73491) {
  
closureN_type c_732261;
c_732261.hdr.mark = gc_color_red;
 c_732261.hdr.grayed = 0;
c_732261.tag = closureN_tag;
 c_732261.fn = (function_type)__lambda_72;
c_732261.num_args = 1;
c_732261.num_elements = 3;
c_732261.elements = (object *)alloca(sizeof(object) * 3);
c_732261.elements[0] = ((closureN)self_731602)->elements[0];
c_732261.elements[1] = lp_73491;
c_732261.elements[2] = ((closureN)self_731602)->elements[2];


closureN_type c_732276;
c_732276.hdr.mark = gc_color_red;
 c_732276.hdr.grayed = 0;
c_732276.tag = closureN_tag;
 c_732276.fn = (function_type)__lambda_74;
c_732276.num_args = 1;
c_732276.num_elements = 3;
c_732276.elements = (object *)alloca(sizeof(object) * 3);
c_732276.elements[0] = lp_73491;
c_732276.elements[1] = ((closureN)self_731602)->elements[1];
c_732276.elements[2] = ((closureN)self_731602)->elements[2];

return_closcall1(data,(closure)&c_732261,  Cyc_set_cell(data, lp_73491, &c_732276));; 
}

static void __lambda_74(void *data, int argc, object self_731603, object k_731117, object i_73492) {
    object c_732279 = Cyc_num_fast_gte_op(data,i_73492, obj_int2obj(0));
if( (boolean_f != c_732279) ){ 
  
closureN_type c_732282;
c_732282.hdr.mark = gc_color_red;
 c_732282.hdr.grayed = 0;
c_732282.tag = closureN_tag;
 c_732282.fn = (function_type)__lambda_73;
c_732282.num_args = 1;
c_732282.num_elements = 3;
c_732282.elements = (object *)alloca(sizeof(object) * 3);
c_732282.elements[0] = i_73492;
c_732282.elements[1] = k_731117;
c_732282.elements[2] = ((closureN)self_731603)->elements[0];

return_closcall2(data,  ((closureN)self_731603)->elements[1],  &c_732282, Cyc_vector_ref(data, ((closureN)self_731603)->elements[2], i_73492));
} else { 
  return_closcall1(data,  k_731117,  boolean_f);}
; 
}

static void __lambda_73(void *data, int argc, object self_731604, object r_731119) {
  
double_type local_732290; object c_732291 = Cyc_fast_sub(data,&local_732290,((closureN)self_731604)->elements[0], obj_int2obj(1));
return_closcall2(data,  car(((closureN)self_731604)->elements[2]),  ((closureN)self_731604)->elements[1], c_732291);; 
}

static void __lambda_72(void *data, int argc, object self_731605, object r_731115) {
  
double_type local_732269; object c_732270 = Cyc_fast_sub(data,&local_732269,Cyc_vector_length(data, ((closureN)self_731605)->elements[2]), obj_int2obj(1));
return_closcall2(data,  car(((closureN)self_731605)->elements[1]),  ((closureN)self_731605)->elements[0], c_732270);; 
}

static void __lambda_71(void *data, int argc, closure _,object k_731125, object o_73494, object v_73493) {
  Cyc_st_add(data, "maze.scm:set-cell:mark");
return_closcall1(data,  k_731125,  Cyc_vector_set(data, o_73494, obj_int2obj(5), v_73493));; 
}

static void __lambda_70(void *data, int argc, closure _,object k_731128, object o_73495) {
  Cyc_st_add(data, "maze.scm:cell:mark");
return_closcall1(data,  k_731128,  Cyc_vector_ref(data, o_73495, obj_int2obj(5)));; 
}

static void __lambda_69(void *data, int argc, closure _,object k_731131, object o_73497, object v_73496) {
  Cyc_st_add(data, "maze.scm:set-cell:parent");
return_closcall1(data,  k_731131,  Cyc_vector_set(data, o_73497, obj_int2obj(4), v_73496));; 
}

static void __lambda_68(void *data, int argc, closure _,object k_731134, object o_73498) {
  Cyc_st_add(data, "maze.scm:cell:parent");
return_closcall1(data,  k_731134,  Cyc_vector_ref(data, o_73498, obj_int2obj(4)));; 
}

static void __lambda_67(void *data, int argc, closure _,object k_731137, object o_73500, object v_73499) {
  Cyc_st_add(data, "maze.scm:set-cell:walls");
return_closcall1(data,  k_731137,  Cyc_vector_set(data, o_73500, obj_int2obj(3), v_73499));; 
}

static void __lambda_66(void *data, int argc, closure _,object k_731140, object o_73501) {
  Cyc_st_add(data, "maze.scm:cell:walls");
return_closcall1(data,  k_731140,  Cyc_vector_ref(data, o_73501, obj_int2obj(3)));; 
}

static void __lambda_65(void *data, int argc, closure _,object k_731143, object o_73502) {
  Cyc_st_add(data, "maze.scm:cell:id");
return_closcall1(data,  k_731143,  Cyc_vector_ref(data, o_73502, obj_int2obj(2)));; 
}

static void __lambda_64(void *data, int argc, closure _,object k_731146, object o_73503) {
  Cyc_st_add(data, "maze.scm:cell:reachable");
return_closcall1(data,  k_731146,  Cyc_vector_ref(data, o_73503, obj_int2obj(1)));; 
}

static void __lambda_63(void *data, int argc, closure _,object k_731149, object reachable_73505, object id_73504) {
  Cyc_st_add(data, "maze.scm:make-cell");
return_closcall7(data,  __glo_vector_scheme_base,  k_731149, quote_cell, reachable_73505, id_73504, obj_int2obj(-1), boolean_f, boolean_f);; 
}

static void __lambda_62(void *data, int argc, closure _,object k_731153, object o_73506) {
  Cyc_st_add(data, "maze.scm:wall:bit");
return_closcall1(data,  k_731153,  Cyc_vector_ref(data, o_73506, obj_int2obj(3)));; 
}

static void __lambda_61(void *data, int argc, closure _,object k_731156, object o_73507) {
  Cyc_st_add(data, "maze.scm:wall:neighbor");
return_closcall1(data,  k_731156,  Cyc_vector_ref(data, o_73507, obj_int2obj(2)));; 
}

static void __lambda_60(void *data, int argc, closure _,object k_731159, object o_73508) {
  Cyc_st_add(data, "maze.scm:wall:owner");
return_closcall1(data,  k_731159,  Cyc_vector_ref(data, o_73508, obj_int2obj(1)));; 
}

static void __lambda_59(void *data, int argc, closure _,object k_731162, object owner_73511, object neighbor_73510, object bit_73509) {
  Cyc_st_add(data, "maze.scm:make-wall");
return_closcall5(data,  __glo_vector_scheme_base,  k_731162, quote_wall, owner_73511, neighbor_73510, bit_73509);; 
}

static void __lambda_58(void *data, int argc, closure _,object k_731166, object s1_73513, object s2_73512) {
  Cyc_st_add(data, "maze.scm:union!");

closureN_type c_732159;
c_732159.hdr.mark = gc_color_red;
 c_732159.hdr.grayed = 0;
c_732159.tag = closureN_tag;
 c_732159.fn = (function_type)__lambda_57;
c_732159.num_args = 1;
c_732159.num_elements = 2;
c_732159.elements = (object *)alloca(sizeof(object) * 2);
c_732159.elements[0] = k_731166;
c_732159.elements[1] = s2_73512;

return_closcall2(data,  __glo_get_91set_91root,  &c_732159, s1_73513);; 
}

static void __lambda_57(void *data, int argc, object self_731606, object r1_73514) {
  
closureN_type c_732161;
c_732161.hdr.mark = gc_color_red;
 c_732161.hdr.grayed = 0;
c_732161.tag = closureN_tag;
 c_732161.fn = (function_type)__lambda_56;
c_732161.num_args = 1;
c_732161.num_elements = 2;
c_732161.elements = (object *)alloca(sizeof(object) * 2);
c_732161.elements[0] = ((closureN)self_731606)->elements[0];
c_732161.elements[1] = r1_73514;

return_closcall2(data,  __glo_get_91set_91root,  &c_732161, ((closureN)self_731606)->elements[1]);; 
}

static void __lambda_56(void *data, int argc, object self_731607, object r2_73515) {
  
closureN_type c_732163;
c_732163.hdr.mark = gc_color_red;
 c_732163.hdr.grayed = 0;
c_732163.tag = closureN_tag;
 c_732163.fn = (function_type)__lambda_55;
c_732163.num_args = 1;
c_732163.num_elements = 3;
c_732163.elements = (object *)alloca(sizeof(object) * 3);
c_732163.elements[0] = ((closureN)self_731607)->elements[0];
c_732163.elements[1] = ((closureN)self_731607)->elements[1];
c_732163.elements[2] = r2_73515;

return_closcall2(data,  __glo_set_91size,  &c_732163, ((closureN)self_731607)->elements[1]);; 
}

static void __lambda_55(void *data, int argc, object self_731608, object n1_73516) {
  
closureN_type c_732165;
c_732165.hdr.mark = gc_color_red;
 c_732165.hdr.grayed = 0;
c_732165.tag = closureN_tag;
 c_732165.fn = (function_type)__lambda_54;
c_732165.num_args = 1;
c_732165.num_elements = 4;
c_732165.elements = (object *)alloca(sizeof(object) * 4);
c_732165.elements[0] = ((closureN)self_731608)->elements[0];
c_732165.elements[1] = n1_73516;
c_732165.elements[2] = ((closureN)self_731608)->elements[1];
c_732165.elements[3] = ((closureN)self_731608)->elements[2];

return_closcall2(data,  __glo_set_91size,  &c_732165, ((closureN)self_731608)->elements[2]);; 
}

static void __lambda_54(void *data, int argc, object self_731609, object n2_73517) {
    object c_732168 = Cyc_num_fast_gt_op(data,((closureN)self_731609)->elements[1], n2_73517);
if( (boolean_f != c_732168) ){ 
  
closureN_type c_732171;
c_732171.hdr.mark = gc_color_red;
 c_732171.hdr.grayed = 0;
c_732171.tag = closureN_tag;
 c_732171.fn = (function_type)__lambda_52;
c_732171.num_args = 1;
c_732171.num_elements = 4;
c_732171.elements = (object *)alloca(sizeof(object) * 4);
c_732171.elements[0] = ((closureN)self_731609)->elements[0];
c_732171.elements[1] = ((closureN)self_731609)->elements[1];
c_732171.elements[2] = n2_73517;
c_732171.elements[3] = ((closureN)self_731609)->elements[2];

return_closcall1(data,(closure)&c_732171,  Cyc_set_cdr(data, ((closureN)self_731609)->elements[3], ((closureN)self_731609)->elements[2]));
} else { 
  
closureN_type c_732188;
c_732188.hdr.mark = gc_color_red;
 c_732188.hdr.grayed = 0;
c_732188.tag = closureN_tag;
 c_732188.fn = (function_type)__lambda_53;
c_732188.num_args = 1;
c_732188.num_elements = 4;
c_732188.elements = (object *)alloca(sizeof(object) * 4);
c_732188.elements[0] = ((closureN)self_731609)->elements[0];
c_732188.elements[1] = ((closureN)self_731609)->elements[1];
c_732188.elements[2] = n2_73517;
c_732188.elements[3] = ((closureN)self_731609)->elements[3];

return_closcall1(data,(closure)&c_732188,  Cyc_set_cdr(data, ((closureN)self_731609)->elements[2], ((closureN)self_731609)->elements[3]));}
; 
}

static void __lambda_53(void *data, int argc, object self_731610, object r_731174) {
  
double_type local_732196; object c_732197 = Cyc_fast_sum(data,&local_732196,((closureN)self_731610)->elements[1], ((closureN)self_731610)->elements[2]);
return_closcall1(data,  ((closureN)self_731610)->elements[0],  Cyc_set_car(data, ((closureN)self_731610)->elements[3], c_732197));; 
}

static void __lambda_52(void *data, int argc, object self_731611, object r_731173) {
  
double_type local_732179; object c_732180 = Cyc_fast_sum(data,&local_732179,((closureN)self_731611)->elements[1], ((closureN)self_731611)->elements[2]);
return_closcall1(data,  ((closureN)self_731611)->elements[0],  Cyc_set_car(data, ((closureN)self_731611)->elements[3], c_732180));; 
}

static void __lambda_51(void *data, int argc, closure _,object k_731177, object s_73519) {
  Cyc_st_add(data, "maze.scm:set-size");

closureN_type c_732152;
c_732152.hdr.mark = gc_color_red;
 c_732152.hdr.grayed = 0;
c_732152.tag = closureN_tag;
 c_732152.fn = (function_type)__lambda_50;
c_732152.num_args = 1;
c_732152.num_elements = 1;
c_732152.elements = (object *)alloca(sizeof(object) * 1);
c_732152.elements[0] = k_731177;

return_closcall2(data,  __glo_get_91set_91root,  &c_732152, s_73519);; 
}

static void __lambda_50(void *data, int argc, object self_731612, object r_731178) {
  return_closcall1(data,  ((closureN)self_731612)->elements[0],  Cyc_car(data, r_731178));; 
}

static void __lambda_49(void *data, int argc, closure _,object k_731181, object s1_73521, object s2_73520) {
  Cyc_st_add(data, "maze.scm:set-equal?");

closureN_type c_732141;
c_732141.hdr.mark = gc_color_red;
 c_732141.hdr.grayed = 0;
c_732141.tag = closureN_tag;
 c_732141.fn = (function_type)__lambda_48;
c_732141.num_args = 1;
c_732141.num_elements = 2;
c_732141.elements = (object *)alloca(sizeof(object) * 2);
c_732141.elements[0] = k_731181;
c_732141.elements[1] = s2_73520;

return_closcall2(data,  __glo_get_91set_91root,  &c_732141, s1_73521);; 
}

static void __lambda_48(void *data, int argc, object self_731613, object r_731182) {
  
closureN_type c_732143;
c_732143.hdr.mark = gc_color_red;
 c_732143.hdr.grayed = 0;
c_732143.tag = closureN_tag;
 c_732143.fn = (function_type)__lambda_47;
c_732143.num_args = 1;
c_732143.num_elements = 2;
c_732143.elements = (object *)alloca(sizeof(object) * 2);
c_732143.elements[0] = ((closureN)self_731613)->elements[0];
c_732143.elements[1] = r_731182;

return_closcall2(data,  __glo_get_91set_91root,  &c_732143, ((closureN)self_731613)->elements[1]);; 
}

static void __lambda_47(void *data, int argc, object self_731614, object r_731183) {
  return_closcall1(data,  ((closureN)self_731614)->elements[0],  Cyc_eq(((closureN)self_731614)->elements[1], r_731183));; 
}

static void __lambda_46(void *data, int argc, closure _,object k_731186, object s_73522) {
  Cyc_st_add(data, "maze.scm:get-set-root");

closureN_type c_732052;
c_732052.hdr.mark = gc_color_red;
 c_732052.hdr.grayed = 0;
c_732052.tag = closureN_tag;
 c_732052.fn = (function_type)__lambda_45;
c_732052.num_args = 1;
c_732052.num_elements = 2;
c_732052.elements = (object *)alloca(sizeof(object) * 2);
c_732052.elements[0] = k_731186;
c_732052.elements[1] = s_73522;

return_closcall1(data,(closure)&c_732052,  s_73522);; 
}

static void __lambda_45(void *data, int argc, object self_731615, object r_73523) {
  
closureN_type c_732054;
c_732054.hdr.mark = gc_color_red;
 c_732054.hdr.grayed = 0;
c_732054.tag = closureN_tag;
 c_732054.fn = (function_type)__lambda_44;
c_732054.num_args = 1;
c_732054.num_elements = 3;
c_732054.elements = (object *)alloca(sizeof(object) * 3);
c_732054.elements[0] = ((closureN)self_731615)->elements[0];
c_732054.elements[1] = r_73523;
c_732054.elements[2] = ((closureN)self_731615)->elements[1];

return_closcall1(data,(closure)&c_732054,  boolean_f);; 
}

static void __lambda_44(void *data, int argc, object self_731616, object lp_73524) {
  
closureN_type c_732056;
c_732056.hdr.mark = gc_color_red;
 c_732056.hdr.grayed = 0;
c_732056.tag = closureN_tag;
 c_732056.fn = (function_type)__lambda_43;
c_732056.num_args = 1;
c_732056.num_elements = 3;
c_732056.elements = (object *)alloca(sizeof(object) * 3);
c_732056.elements[0] = ((closureN)self_731616)->elements[0];
c_732056.elements[1] = ((closureN)self_731616)->elements[1];
c_732056.elements[2] = ((closureN)self_731616)->elements[2];


make_cell(c_732138,lp_73524);
return_closcall1(data,(closure)&c_732056,  &c_732138);; 
}

static void __lambda_43(void *data, int argc, object self_731617, object lp_73524) {
  
closureN_type c_732058;
c_732058.hdr.mark = gc_color_red;
 c_732058.hdr.grayed = 0;
c_732058.tag = closureN_tag;
 c_732058.fn = (function_type)__lambda_30;
c_732058.num_args = 1;
c_732058.num_elements = 3;
c_732058.elements = (object *)alloca(sizeof(object) * 3);
c_732058.elements[0] = ((closureN)self_731617)->elements[0];
c_732058.elements[1] = lp_73524;
c_732058.elements[2] = ((closureN)self_731617)->elements[1];


closureN_type c_732067;
c_732067.hdr.mark = gc_color_red;
 c_732067.hdr.grayed = 0;
c_732067.tag = closureN_tag;
 c_732067.fn = (function_type)__lambda_42;
c_732067.num_args = 1;
c_732067.num_elements = 2;
c_732067.elements = (object *)alloca(sizeof(object) * 2);
c_732067.elements[0] = lp_73524;
c_732067.elements[1] = ((closureN)self_731617)->elements[2];

return_closcall1(data,(closure)&c_732058,  Cyc_set_cell(data, lp_73524, &c_732067));; 
}

static void __lambda_42(void *data, int argc, object self_731618, object k_731189, object r_73525) {
  if( (boolean_f != Cyc_is_pair(Cyc_cdr(data, r_73525))) ){ 
  return_closcall2(data,  car(((closureN)self_731618)->elements[0]),  k_731189, Cyc_cdr(data, r_73525));
} else { 
  
closureN_type c_732079;
c_732079.hdr.mark = gc_color_red;
 c_732079.hdr.grayed = 0;
c_732079.tag = closureN_tag;
 c_732079.fn = (function_type)__lambda_40;
c_732079.num_args = 0;
c_732079.num_elements = 2;
c_732079.elements = (object *)alloca(sizeof(object) * 2);
c_732079.elements[0] = r_73525;
c_732079.elements[1] = ((closureN)self_731618)->elements[1];


closureN_type c_732132;
c_732132.hdr.mark = gc_color_red;
 c_732132.hdr.grayed = 0;
c_732132.tag = closureN_tag;
 c_732132.fn = (function_type)__lambda_41;
c_732132.num_args = 1;
c_732132.num_elements = 2;
c_732132.elements = (object *)alloca(sizeof(object) * 2);
c_732132.elements[0] = k_731189;
c_732132.elements[1] = r_73525;

return_closcall1(data,(closure)&c_732079,  &c_732132);}
; 
}

static void __lambda_41(void *data, int argc, object self_731619, object r_731192) {
  return_closcall1(data,  ((closureN)self_731619)->elements[0],  ((closureN)self_731619)->elements[1]);; 
}

static void __lambda_40(void *data, int argc, object self_731620, object k_731193) {
  
closureN_type c_732081;
c_732081.hdr.mark = gc_color_red;
 c_732081.hdr.grayed = 0;
c_732081.tag = closureN_tag;
 c_732081.fn = (function_type)__lambda_39;
c_732081.num_args = 1;
c_732081.num_elements = 3;
c_732081.elements = (object *)alloca(sizeof(object) * 3);
c_732081.elements[0] = k_731193;
c_732081.elements[1] = ((closureN)self_731620)->elements[0];
c_732081.elements[2] = ((closureN)self_731620)->elements[1];

return_closcall1(data,(closure)&c_732081,  Cyc_eq(((closureN)self_731620)->elements[0], ((closureN)self_731620)->elements[1]));; 
}

static void __lambda_39(void *data, int argc, object self_731621, object r_731194) {
  if( (boolean_f != r_731194) ){ 
  return_closcall1(data,  ((closureN)self_731621)->elements[0],  boolean_f);
} else { 
  
closureN_type c_732085;
c_732085.hdr.mark = gc_color_red;
 c_732085.hdr.grayed = 0;
c_732085.tag = closureN_tag;
 c_732085.fn = (function_type)__lambda_38;
c_732085.num_args = 1;
c_732085.num_elements = 2;
c_732085.elements = (object *)alloca(sizeof(object) * 2);
c_732085.elements[0] = ((closureN)self_731621)->elements[0];
c_732085.elements[1] = ((closureN)self_731621)->elements[1];

return_closcall1(data,(closure)&c_732085,  ((closureN)self_731621)->elements[2]);}
; 
}

static void __lambda_38(void *data, int argc, object self_731622, object x_73527) {
  
closureN_type c_732087;
c_732087.hdr.mark = gc_color_red;
 c_732087.hdr.grayed = 0;
c_732087.tag = closureN_tag;
 c_732087.fn = (function_type)__lambda_37;
c_732087.num_args = 1;
c_732087.num_elements = 3;
c_732087.elements = (object *)alloca(sizeof(object) * 3);
c_732087.elements[0] = ((closureN)self_731622)->elements[0];
c_732087.elements[1] = ((closureN)self_731622)->elements[1];
c_732087.elements[2] = x_73527;

return_closcall1(data,(closure)&c_732087,  boolean_f);; 
}

static void __lambda_37(void *data, int argc, object self_731623, object lp_73528) {
  
closureN_type c_732089;
c_732089.hdr.mark = gc_color_red;
 c_732089.hdr.grayed = 0;
c_732089.tag = closureN_tag;
 c_732089.fn = (function_type)__lambda_36;
c_732089.num_args = 1;
c_732089.num_elements = 3;
c_732089.elements = (object *)alloca(sizeof(object) * 3);
c_732089.elements[0] = ((closureN)self_731623)->elements[0];
c_732089.elements[1] = ((closureN)self_731623)->elements[1];
c_732089.elements[2] = ((closureN)self_731623)->elements[2];


make_cell(c_732126,lp_73528);
return_closcall1(data,(closure)&c_732089,  &c_732126);; 
}

static void __lambda_36(void *data, int argc, object self_731624, object lp_73528) {
  
closureN_type c_732091;
c_732091.hdr.mark = gc_color_red;
 c_732091.hdr.grayed = 0;
c_732091.tag = closureN_tag;
 c_732091.fn = (function_type)__lambda_31;
c_732091.num_args = 1;
c_732091.num_elements = 3;
c_732091.elements = (object *)alloca(sizeof(object) * 3);
c_732091.elements[0] = ((closureN)self_731624)->elements[0];
c_732091.elements[1] = lp_73528;
c_732091.elements[2] = ((closureN)self_731624)->elements[2];


closureN_type c_732100;
c_732100.hdr.mark = gc_color_red;
 c_732100.hdr.grayed = 0;
c_732100.tag = closureN_tag;
 c_732100.fn = (function_type)__lambda_35;
c_732100.num_args = 1;
c_732100.num_elements = 2;
c_732100.elements = (object *)alloca(sizeof(object) * 2);
c_732100.elements[0] = lp_73528;
c_732100.elements[1] = ((closureN)self_731624)->elements[1];

return_closcall1(data,(closure)&c_732091,  Cyc_set_cell(data, lp_73528, &c_732100));; 
}

static void __lambda_35(void *data, int argc, object self_731625, object k_731197, object x_73529) {
  
closureN_type c_732102;
c_732102.hdr.mark = gc_color_red;
 c_732102.hdr.grayed = 0;
c_732102.tag = closureN_tag;
 c_732102.fn = (function_type)__lambda_34;
c_732102.num_args = 1;
c_732102.num_elements = 4;
c_732102.elements = (object *)alloca(sizeof(object) * 4);
c_732102.elements[0] = k_731197;
c_732102.elements[1] = ((closureN)self_731625)->elements[0];
c_732102.elements[2] = ((closureN)self_731625)->elements[1];
c_732102.elements[3] = x_73529;

return_closcall1(data,(closure)&c_732102,  Cyc_cdr(data, x_73529));; 
}

static void __lambda_34(void *data, int argc, object self_731626, object next_73530) {
  
closureN_type c_732104;
c_732104.hdr.mark = gc_color_red;
 c_732104.hdr.grayed = 0;
c_732104.tag = closureN_tag;
 c_732104.fn = (function_type)__lambda_33;
c_732104.num_args = 1;
c_732104.num_elements = 5;
c_732104.elements = (object *)alloca(sizeof(object) * 5);
c_732104.elements[0] = ((closureN)self_731626)->elements[0];
c_732104.elements[1] = ((closureN)self_731626)->elements[1];
c_732104.elements[2] = next_73530;
c_732104.elements[3] = ((closureN)self_731626)->elements[2];
c_732104.elements[4] = ((closureN)self_731626)->elements[3];

return_closcall1(data,(closure)&c_732104,  Cyc_eq(((closureN)self_731626)->elements[2], next_73530));; 
}

static void __lambda_33(void *data, int argc, object self_731627, object r_731199) {
  if( (boolean_f != r_731199) ){ 
  return_closcall1(data,  ((closureN)self_731627)->elements[0],  boolean_f);
} else { 
  
closureN_type c_732108;
c_732108.hdr.mark = gc_color_red;
 c_732108.hdr.grayed = 0;
c_732108.tag = closureN_tag;
 c_732108.fn = (function_type)__lambda_32;
c_732108.num_args = 1;
c_732108.num_elements = 3;
c_732108.elements = (object *)alloca(sizeof(object) * 3);
c_732108.elements[0] = ((closureN)self_731627)->elements[0];
c_732108.elements[1] = ((closureN)self_731627)->elements[1];
c_732108.elements[2] = ((closureN)self_731627)->elements[2];

return_closcall1(data,(closure)&c_732108,  Cyc_set_cdr(data, ((closureN)self_731627)->elements[4], ((closureN)self_731627)->elements[3]));}
; 
}

static void __lambda_32(void *data, int argc, object self_731628, object r_731200) {
  return_closcall2(data,  car(((closureN)self_731628)->elements[1]),  ((closureN)self_731628)->elements[0], ((closureN)self_731628)->elements[2]);; 
}

static void __lambda_31(void *data, int argc, object self_731629, object r_731195) {
  return_closcall2(data,  car(((closureN)self_731629)->elements[1]),  ((closureN)self_731629)->elements[0], ((closureN)self_731629)->elements[2]);; 
}

static void __lambda_30(void *data, int argc, object self_731630, object r_731187) {
  return_closcall2(data,  car(((closureN)self_731630)->elements[1]),  ((closureN)self_731630)->elements[0], ((closureN)self_731630)->elements[2]);; 
}

static void __lambda_29(void *data, int argc, closure _,object k_731203, object nelts_73531) {
  Cyc_st_add(data, "maze.scm:base-set");

make_pair(c_732049,nelts_73531, NULL);
return_closcall1(data,  k_731203,  &c_732049);; 
}

static void __lambda_28(void *data, int argc, closure _,object k_731207, object n_73533, object state_73532) {
  Cyc_st_add(data, "maze.scm:random-int");

closureN_type c_732041;
c_732041.hdr.mark = gc_color_red;
 c_732041.hdr.grayed = 0;
c_732041.tag = closureN_tag;
 c_732041.fn = (function_type)__lambda_27;
c_732041.num_args = 1;
c_732041.num_elements = 2;
c_732041.elements = (object *)alloca(sizeof(object) * 2);
c_732041.elements[0] = k_731207;
c_732041.elements[1] = n_73533;

return_closcall2(data,  __glo_rand,  &c_732041, state_73532);; 
}

static void __lambda_27(void *data, int argc, object self_731631, object r_731208) {
  return_closcall3(data,  __glo_mod,  ((closureN)self_731631)->elements[0], r_731208, ((closureN)self_731631)->elements[1]);; 
}

static void __lambda_26(void *data, int argc, closure _,object k_731211, object state_73534) {
  Cyc_st_add(data, "maze.scm:rand");

closureN_type c_731969;
c_731969.hdr.mark = gc_color_red;
 c_731969.hdr.grayed = 0;
c_731969.tag = closureN_tag;
 c_731969.fn = (function_type)__lambda_25;
c_731969.num_args = 1;
c_731969.num_elements = 2;
c_731969.elements = (object *)alloca(sizeof(object) * 2);
c_731969.elements[0] = k_731211;
c_731969.elements[1] = state_73534;

return_closcall1(data,(closure)&c_731969,  Cyc_car(data, state_73534));; 
}

static void __lambda_25(void *data, int argc, object self_731632, object seed_73539) {
  
closureN_type c_731971;
c_731971.hdr.mark = gc_color_red;
 c_731971.hdr.grayed = 0;
c_731971.tag = closureN_tag;
 c_731971.fn = (function_type)__lambda_24;
c_731971.num_args = 1;
c_731971.num_elements = 3;
c_731971.elements = (object *)alloca(sizeof(object) * 3);
c_731971.elements[0] = ((closureN)self_731632)->elements[0];
c_731971.elements[1] = seed_73539;
c_731971.elements[2] = ((closureN)self_731632)->elements[1];

return_closcall3(data,  __glo_div,  &c_731971, seed_73539, obj_int2obj(2787));; 
}

static void __lambda_24(void *data, int argc, object self_731633, object hi_73540) {
  
closureN_type c_731973;
c_731973.hdr.mark = gc_color_red;
 c_731973.hdr.grayed = 0;
c_731973.tag = closureN_tag;
 c_731973.fn = (function_type)__lambda_23;
c_731973.num_args = 1;
c_731973.num_elements = 3;
c_731973.elements = (object *)alloca(sizeof(object) * 3);
c_731973.elements[0] = hi_73540;
c_731973.elements[1] = ((closureN)self_731633)->elements[0];
c_731973.elements[2] = ((closureN)self_731633)->elements[2];

return_closcall3(data,  __glo_mod,  &c_731973, ((closureN)self_731633)->elements[1], obj_int2obj(2787));; 
}

static void __lambda_23(void *data, int argc, object self_731634, object lo_73541) {
  
closureN_type c_731975;
c_731975.hdr.mark = gc_color_red;
 c_731975.hdr.grayed = 0;
c_731975.tag = closureN_tag;
 c_731975.fn = (function_type)__lambda_20;
c_731975.num_args = 0;
c_731975.num_elements = 2;
c_731975.elements = (object *)alloca(sizeof(object) * 2);
c_731975.elements[0] = ((closureN)self_731634)->elements[0];
c_731975.elements[1] = lo_73541;


closureN_type c_732027;
c_732027.hdr.mark = gc_color_red;
 c_732027.hdr.grayed = 0;
c_732027.tag = closureN_tag;
 c_732027.fn = (function_type)__lambda_22;
c_732027.num_args = 1;
c_732027.num_elements = 2;
c_732027.elements = (object *)alloca(sizeof(object) * 2);
c_732027.elements[0] = ((closureN)self_731634)->elements[1];
c_732027.elements[1] = ((closureN)self_731634)->elements[2];

return_closcall1(data,(closure)&c_731975,  &c_732027);; 
}

static void __lambda_22(void *data, int argc, object self_731635, object val_73543) {
  
closureN_type c_732029;
c_732029.hdr.mark = gc_color_red;
 c_732029.hdr.grayed = 0;
c_732029.tag = closureN_tag;
 c_732029.fn = (function_type)__lambda_21;
c_732029.num_args = 1;
c_732029.num_elements = 2;
c_732029.elements = (object *)alloca(sizeof(object) * 2);
c_732029.elements[0] = ((closureN)self_731635)->elements[0];
c_732029.elements[1] = val_73543;

return_closcall1(data,(closure)&c_732029,  Cyc_set_car(data, ((closureN)self_731635)->elements[1], val_73543));; 
}

static void __lambda_21(void *data, int argc, object self_731636, object r_731217) {
  return_closcall1(data,  ((closureN)self_731636)->elements[0],  ((closureN)self_731636)->elements[1]);; 
}

static void __lambda_20(void *data, int argc, object self_731637, object k_731218) {
    double_type local_731985; object c_731986 = Cyc_fast_mul(data,&local_731985,obj_int2obj(2813), ((closureN)self_731637)->elements[1]);
  double_type local_731990; object c_731991 = Cyc_fast_mul(data,&local_731990,obj_int2obj(2699), ((closureN)self_731637)->elements[0]);
  double_type local_731981; object c_731982 = Cyc_fast_sub(data,&local_731981,c_731986, c_731991);
  object c_731978 = Cyc_num_fast_gt_op(data,c_731982, obj_int2obj(0));
if( (boolean_f != c_731978) ){ 
  
double_type local_732000; object c_732001 = Cyc_fast_mul(data,&local_732000,obj_int2obj(2813), ((closureN)self_731637)->elements[1]);

double_type local_732005; object c_732006 = Cyc_fast_mul(data,&local_732005,obj_int2obj(2699), ((closureN)self_731637)->elements[0]);

double_type local_731996; object c_731997 = Cyc_fast_sub(data,&local_731996,c_732001, c_732006);
return_closcall1(data,  k_731218,  c_731997);
} else { 
  
double_type local_732019; object c_732020 = Cyc_fast_mul(data,&local_732019,obj_int2obj(2813), ((closureN)self_731637)->elements[1]);

double_type local_732024; object c_732025 = Cyc_fast_mul(data,&local_732024,obj_int2obj(2699), ((closureN)self_731637)->elements[0]);

double_type local_732015; object c_732016 = Cyc_fast_sub(data,&local_732015,c_732020, c_732025);

double_type local_732011; object c_732012 = Cyc_fast_sum(data,&local_732011,c_732016, obj_int2obj(8388607));
return_closcall1(data,  k_731218,  c_732012);}
; 
}

static void __lambda_19(void *data, int argc, closure _,object k_731224, object n_73544) {
  Cyc_st_add(data, "maze.scm:random-state");

make_pair(c_731966,n_73544, boolean_f);
return_closcall1(data,  k_731224,  &c_731966);; 
}

static void __lambda_18(void *data, int argc, closure _,object k_731227, object x_73546, object y_73545) {
  Cyc_st_add(data, "maze.scm:mod");

closureN_type c_731847;
c_731847.hdr.mark = gc_color_red;
 c_731847.hdr.grayed = 0;
c_731847.tag = closureN_tag;
 c_731847.fn = (function_type)__lambda_16;
c_731847.num_args = 0;
c_731847.num_elements = 2;
c_731847.elements = (object *)alloca(sizeof(object) * 2);
c_731847.elements[0] = x_73546;
c_731847.elements[1] = y_73545;


closureN_type c_731865;
c_731865.hdr.mark = gc_color_red;
 c_731865.hdr.grayed = 0;
c_731865.tag = closureN_tag;
 c_731865.fn = (function_type)__lambda_17;
c_731865.num_args = 1;
c_731865.num_elements = 3;
c_731865.elements = (object *)alloca(sizeof(object) * 3);
c_731865.elements[0] = k_731227;
c_731865.elements[1] = x_73546;
c_731865.elements[2] = y_73545;

return_closcall1(data,(closure)&c_731847,  &c_731865);; 
}

static void __lambda_17(void *data, int argc, object self_731638, object r_731228) {
  if( (boolean_f != r_731228) ){ 
  return_closcall3(data,  __glo_remainder_scheme_base,  ((closureN)self_731638)->elements[0], ((closureN)self_731638)->elements[1], ((closureN)self_731638)->elements[2]);
} else { 
    object c_731872 = Cyc_num_fast_lt_op(data,((closureN)self_731638)->elements[2], obj_int2obj(0));
if( (boolean_f != c_731872) ){ 
    double_type local_731888; object c_731889 = ((inline_function_type)
                   ((closure)__glo_quotient_191_191inline_191_191_scheme_base)->fn)(data,&local_731888,((closureN)self_731638)->elements[1], ((closureN)self_731638)->elements[2]);
  double_type local_731884; object c_731885 = Cyc_fast_mul(data,&local_731884,c_731889, ((closureN)self_731638)->elements[2]);
  double_type local_731879; object c_731880 = Cyc_fast_sub(data,&local_731879,((closureN)self_731638)->elements[1], c_731885);
  object c_731876 = Cyc_num_fast_eq_op(data,c_731880, obj_int2obj(0));
if( (boolean_f != c_731876) ){ 
  return_closcall1(data,  ((closureN)self_731638)->elements[0],  obj_int2obj(0));
} else { 
  
double_type local_731912; object c_731913 = ((inline_function_type)
                   ((closure)__glo_quotient_191_191inline_191_191_scheme_base)->fn)(data,&local_731912,((closureN)self_731638)->elements[1], ((closureN)self_731638)->elements[2]);

double_type local_731908; object c_731909 = Cyc_fast_mul(data,&local_731908,c_731913, ((closureN)self_731638)->elements[2]);

double_type local_731903; object c_731904 = Cyc_fast_sub(data,&local_731903,((closureN)self_731638)->elements[1], c_731909);

double_type local_731899; object c_731900 = Cyc_fast_sub(data,&local_731899,c_731904, ((closureN)self_731638)->elements[2]);
return_closcall1(data,  ((closureN)self_731638)->elements[0],  c_731900);}

} else { 
    double_type local_731932; object c_731933 = ((inline_function_type)
                   ((closure)__glo_quotient_191_191inline_191_191_scheme_base)->fn)(data,&local_731932,((closureN)self_731638)->elements[1], ((closureN)self_731638)->elements[2]);
  double_type local_731928; object c_731929 = Cyc_fast_mul(data,&local_731928,c_731933, ((closureN)self_731638)->elements[2]);
  double_type local_731923; object c_731924 = Cyc_fast_sub(data,&local_731923,((closureN)self_731638)->elements[1], c_731929);
  object c_731920 = Cyc_num_fast_eq_op(data,c_731924, obj_int2obj(0));
if( (boolean_f != c_731920) ){ 
  return_closcall1(data,  ((closureN)self_731638)->elements[0],  obj_int2obj(0));
} else { 
  
double_type local_731956; object c_731957 = ((inline_function_type)
                   ((closure)__glo_quotient_191_191inline_191_191_scheme_base)->fn)(data,&local_731956,((closureN)self_731638)->elements[1], ((closureN)self_731638)->elements[2]);

double_type local_731952; object c_731953 = Cyc_fast_mul(data,&local_731952,c_731957, ((closureN)self_731638)->elements[2]);

double_type local_731947; object c_731948 = Cyc_fast_sub(data,&local_731947,((closureN)self_731638)->elements[1], c_731953);

double_type local_731943; object c_731944 = Cyc_fast_sum(data,&local_731943,c_731948, ((closureN)self_731638)->elements[2]);
return_closcall1(data,  ((closureN)self_731638)->elements[0],  c_731944);}
}
}
; 
}

static void __lambda_16(void *data, int argc, object self_731639, object k_731238) {
    double_type local_731850; object c_731851 = ((inline_function_type)
                   ((closure)__glo_exact_91integer_127_191_191inline_191_191_scheme_base)->fn)(data,&local_731850,((closureN)self_731639)->elements[0]);
if( (boolean_f != c_731851) ){ 
    double_type local_731855; object c_731856 = ((inline_function_type)
                   ((closure)__glo_exact_91integer_127_191_191inline_191_191_scheme_base)->fn)(data,&local_731855,((closureN)self_731639)->elements[1]);
if( (boolean_f != c_731856) ){ 
  
object c_731861 = Cyc_num_fast_gte_op(data,((closureN)self_731639)->elements[0], obj_int2obj(0));
return_closcall1(data,  k_731238,  c_731861);
} else { 
  return_closcall1(data,  k_731238,  boolean_f);}

} else { 
  return_closcall1(data,  k_731238,  boolean_f);}
; 
}

static void __lambda_15(void *data, int argc, closure _,object k_731243, object x_73552, object y_73551) {
  Cyc_st_add(data, "maze.scm:div");

closureN_type c_731736;
c_731736.hdr.mark = gc_color_red;
 c_731736.hdr.grayed = 0;
c_731736.tag = closureN_tag;
 c_731736.fn = (function_type)__lambda_13;
c_731736.num_args = 0;
c_731736.num_elements = 2;
c_731736.elements = (object *)alloca(sizeof(object) * 2);
c_731736.elements[0] = x_73552;
c_731736.elements[1] = y_73551;


closureN_type c_731754;
c_731754.hdr.mark = gc_color_red;
 c_731754.hdr.grayed = 0;
c_731754.tag = closureN_tag;
 c_731754.fn = (function_type)__lambda_14;
c_731754.num_args = 1;
c_731754.num_elements = 3;
c_731754.elements = (object *)alloca(sizeof(object) * 3);
c_731754.elements[0] = k_731243;
c_731754.elements[1] = x_73552;
c_731754.elements[2] = y_73551;

return_closcall1(data,(closure)&c_731736,  &c_731754);; 
}

static void __lambda_14(void *data, int argc, object self_731640, object r_731244) {
  if( (boolean_f != r_731244) ){ 
  
double_type local_731759; object c_731760 = ((inline_function_type)
                   ((closure)__glo_quotient_191_191inline_191_191_scheme_base)->fn)(data,&local_731759,((closureN)self_731640)->elements[1], ((closureN)self_731640)->elements[2]);
return_closcall1(data,  ((closureN)self_731640)->elements[0],  c_731760);
} else { 
    object c_731765 = Cyc_num_fast_lt_op(data,((closureN)self_731640)->elements[2], obj_int2obj(0));
if( (boolean_f != c_731765) ){ 
    double_type local_731781; object c_731782 = ((inline_function_type)
                   ((closure)__glo_quotient_191_191inline_191_191_scheme_base)->fn)(data,&local_731781,((closureN)self_731640)->elements[1], ((closureN)self_731640)->elements[2]);
  double_type local_731777; object c_731778 = Cyc_fast_mul(data,&local_731777,c_731782, ((closureN)self_731640)->elements[2]);
  double_type local_731772; object c_731773 = Cyc_fast_sub(data,&local_731772,((closureN)self_731640)->elements[1], c_731778);
  object c_731769 = Cyc_num_fast_eq_op(data,c_731773, obj_int2obj(0));
if( (boolean_f != c_731769) ){ 
  
double_type local_731790; object c_731791 = ((inline_function_type)
                   ((closure)__glo_quotient_191_191inline_191_191_scheme_base)->fn)(data,&local_731790,((closureN)self_731640)->elements[1], ((closureN)self_731640)->elements[2]);
return_closcall1(data,  ((closureN)self_731640)->elements[0],  c_731791);
} else { 
  
double_type local_731802; object c_731803 = ((inline_function_type)
                   ((closure)__glo_quotient_191_191inline_191_191_scheme_base)->fn)(data,&local_731802,((closureN)self_731640)->elements[1], ((closureN)self_731640)->elements[2]);

double_type local_731798; object c_731799 = Cyc_fast_sum(data,&local_731798,c_731803, obj_int2obj(1));
return_closcall1(data,  ((closureN)self_731640)->elements[0],  c_731799);}

} else { 
    double_type local_731820; object c_731821 = ((inline_function_type)
                   ((closure)__glo_quotient_191_191inline_191_191_scheme_base)->fn)(data,&local_731820,((closureN)self_731640)->elements[1], ((closureN)self_731640)->elements[2]);
  double_type local_731816; object c_731817 = Cyc_fast_mul(data,&local_731816,c_731821, ((closureN)self_731640)->elements[2]);
  double_type local_731811; object c_731812 = Cyc_fast_sub(data,&local_731811,((closureN)self_731640)->elements[1], c_731817);
  object c_731808 = Cyc_num_fast_eq_op(data,c_731812, obj_int2obj(0));
if( (boolean_f != c_731808) ){ 
  
double_type local_731829; object c_731830 = ((inline_function_type)
                   ((closure)__glo_quotient_191_191inline_191_191_scheme_base)->fn)(data,&local_731829,((closureN)self_731640)->elements[1], ((closureN)self_731640)->elements[2]);
return_closcall1(data,  ((closureN)self_731640)->elements[0],  c_731830);
} else { 
  
double_type local_731841; object c_731842 = ((inline_function_type)
                   ((closure)__glo_quotient_191_191inline_191_191_scheme_base)->fn)(data,&local_731841,((closureN)self_731640)->elements[1], ((closureN)self_731640)->elements[2]);

double_type local_731837; object c_731838 = Cyc_fast_sub(data,&local_731837,c_731842, obj_int2obj(1));
return_closcall1(data,  ((closureN)self_731640)->elements[0],  c_731838);}
}
}
; 
}

static void __lambda_13(void *data, int argc, object self_731641, object k_731254) {
    double_type local_731739; object c_731740 = ((inline_function_type)
                   ((closure)__glo_exact_91integer_127_191_191inline_191_191_scheme_base)->fn)(data,&local_731739,((closureN)self_731641)->elements[0]);
if( (boolean_f != c_731740) ){ 
    double_type local_731744; object c_731745 = ((inline_function_type)
                   ((closure)__glo_exact_91integer_127_191_191inline_191_191_scheme_base)->fn)(data,&local_731744,((closureN)self_731641)->elements[1]);
if( (boolean_f != c_731745) ){ 
  
object c_731750 = Cyc_num_fast_gte_op(data,((closureN)self_731641)->elements[0], obj_int2obj(0));
return_closcall1(data,  k_731254,  c_731750);
} else { 
  return_closcall1(data,  k_731254,  boolean_f);}

} else { 
  return_closcall1(data,  k_731254,  boolean_f);}
; 
}

static void __lambda_12(void *data, int argc, closure _,object k_731259, object x_73558, object y_73557) {
  Cyc_st_add(data, "maze.scm:bitwise-and");

closureN_type c_731667;
c_731667.hdr.mark = gc_color_red;
 c_731667.hdr.grayed = 0;
c_731667.tag = closureN_tag;
 c_731667.fn = (function_type)__lambda_11;
c_731667.num_args = 1;
c_731667.num_elements = 3;
c_731667.elements = (object *)alloca(sizeof(object) * 3);
c_731667.elements[0] = k_731259;
c_731667.elements[1] = x_73558;
c_731667.elements[2] = y_73557;


object c_731733 = Cyc_num_fast_eq_op(data,x_73558, obj_int2obj(0));
return_closcall1(data,(closure)&c_731667,  c_731733);; 
}

static void __lambda_11(void *data, int argc, object self_731642, object r_731260) {
  if( (boolean_f != r_731260) ){ 
  return_closcall1(data,  ((closureN)self_731642)->elements[0],  obj_int2obj(0));
} else { 
  
closureN_type c_731671;
c_731671.hdr.mark = gc_color_red;
 c_731671.hdr.grayed = 0;
c_731671.tag = closureN_tag;
 c_731671.fn = (function_type)__lambda_10;
c_731671.num_args = 1;
c_731671.num_elements = 3;
c_731671.elements = (object *)alloca(sizeof(object) * 3);
c_731671.elements[0] = ((closureN)self_731642)->elements[0];
c_731671.elements[1] = ((closureN)self_731642)->elements[1];
c_731671.elements[2] = ((closureN)self_731642)->elements[2];


object c_731729 = Cyc_num_fast_eq_op(data,((closureN)self_731642)->elements[2], obj_int2obj(0));
return_closcall1(data,(closure)&c_731671,  c_731729);}
; 
}

static void __lambda_10(void *data, int argc, object self_731643, object r_731261) {
  if( (boolean_f != r_731261) ){ 
  return_closcall1(data,  ((closureN)self_731643)->elements[0],  obj_int2obj(0));
} else { 
  
closureN_type c_731675;
c_731675.hdr.mark = gc_color_red;
 c_731675.hdr.grayed = 0;
c_731675.tag = closureN_tag;
 c_731675.fn = (function_type)__lambda_9;
c_731675.num_args = 1;
c_731675.num_elements = 3;
c_731675.elements = (object *)alloca(sizeof(object) * 3);
c_731675.elements[0] = ((closureN)self_731643)->elements[0];
c_731675.elements[1] = ((closureN)self_731643)->elements[1];
c_731675.elements[2] = ((closureN)self_731643)->elements[2];


object c_731725 = Cyc_num_fast_eq_op(data,((closureN)self_731643)->elements[1], obj_int2obj(-1));
return_closcall1(data,(closure)&c_731675,  c_731725);}
; 
}

static void __lambda_9(void *data, int argc, object self_731644, object r_731262) {
  if( (boolean_f != r_731262) ){ 
  return_closcall1(data,  ((closureN)self_731644)->elements[0],  ((closureN)self_731644)->elements[2]);
} else { 
  
closureN_type c_731680;
c_731680.hdr.mark = gc_color_red;
 c_731680.hdr.grayed = 0;
c_731680.tag = closureN_tag;
 c_731680.fn = (function_type)__lambda_8;
c_731680.num_args = 1;
c_731680.num_elements = 3;
c_731680.elements = (object *)alloca(sizeof(object) * 3);
c_731680.elements[0] = ((closureN)self_731644)->elements[0];
c_731680.elements[1] = ((closureN)self_731644)->elements[1];
c_731680.elements[2] = ((closureN)self_731644)->elements[2];


object c_731721 = Cyc_num_fast_eq_op(data,((closureN)self_731644)->elements[2], obj_int2obj(-1));
return_closcall1(data,(closure)&c_731680,  c_731721);}
; 
}

static void __lambda_8(void *data, int argc, object self_731645, object r_731263) {
  if( (boolean_f != r_731263) ){ 
  return_closcall1(data,  ((closureN)self_731645)->elements[0],  ((closureN)self_731645)->elements[1]);
} else { 
  
closureN_type c_731685;
c_731685.hdr.mark = gc_color_red;
 c_731685.hdr.grayed = 0;
c_731685.tag = closureN_tag;
 c_731685.fn = (function_type)__lambda_7;
c_731685.num_args = 1;
c_731685.num_elements = 3;
c_731685.elements = (object *)alloca(sizeof(object) * 3);
c_731685.elements[0] = ((closureN)self_731645)->elements[0];
c_731685.elements[1] = ((closureN)self_731645)->elements[1];
c_731685.elements[2] = ((closureN)self_731645)->elements[2];

return_closcall3(data,  __glo_div,  &c_731685, ((closureN)self_731645)->elements[1], obj_int2obj(2));}
; 
}

static void __lambda_7(void *data, int argc, object self_731646, object r_731268) {
  
closureN_type c_731687;
c_731687.hdr.mark = gc_color_red;
 c_731687.hdr.grayed = 0;
c_731687.tag = closureN_tag;
 c_731687.fn = (function_type)__lambda_6;
c_731687.num_args = 1;
c_731687.num_elements = 4;
c_731687.elements = (object *)alloca(sizeof(object) * 4);
c_731687.elements[0] = ((closureN)self_731646)->elements[0];
c_731687.elements[1] = r_731268;
c_731687.elements[2] = ((closureN)self_731646)->elements[1];
c_731687.elements[3] = ((closureN)self_731646)->elements[2];

return_closcall3(data,  __glo_div,  &c_731687, ((closureN)self_731646)->elements[2], obj_int2obj(2));; 
}

static void __lambda_6(void *data, int argc, object self_731647, object r_731269) {
  
closureN_type c_731689;
c_731689.hdr.mark = gc_color_red;
 c_731689.hdr.grayed = 0;
c_731689.tag = closureN_tag;
 c_731689.fn = (function_type)__lambda_5;
c_731689.num_args = 1;
c_731689.num_elements = 3;
c_731689.elements = (object *)alloca(sizeof(object) * 3);
c_731689.elements[0] = ((closureN)self_731647)->elements[0];
c_731689.elements[1] = ((closureN)self_731647)->elements[2];
c_731689.elements[2] = ((closureN)self_731647)->elements[3];

return_closcall3(data,  __glo_bitwise_91and,  &c_731689, ((closureN)self_731647)->elements[1], r_731269);; 
}

static void __lambda_5(void *data, int argc, object self_731648, object z_73559) {
  
closureN_type c_731691;
c_731691.hdr.mark = gc_color_red;
 c_731691.hdr.grayed = 0;
c_731691.tag = closureN_tag;
 c_731691.fn = (function_type)__lambda_3;
c_731691.num_args = 0;
c_731691.num_elements = 2;
c_731691.elements = (object *)alloca(sizeof(object) * 2);
c_731691.elements[0] = ((closureN)self_731648)->elements[1];
c_731691.elements[1] = ((closureN)self_731648)->elements[2];


closureN_type c_731700;
c_731700.hdr.mark = gc_color_red;
 c_731700.hdr.grayed = 0;
c_731700.tag = closureN_tag;
 c_731700.fn = (function_type)__lambda_4;
c_731700.num_args = 1;
c_731700.num_elements = 2;
c_731700.elements = (object *)alloca(sizeof(object) * 2);
c_731700.elements[0] = ((closureN)self_731648)->elements[0];
c_731700.elements[1] = z_73559;

return_closcall1(data,(closure)&c_731691,  &c_731700);; 
}

static void __lambda_4(void *data, int argc, object self_731649, object r_731265) {
  if( (boolean_f != r_731265) ){ 
  
object c_731705 = Cyc_sum(data,  ((closureN)self_731649)->elements[0],3,((closureN)self_731649)->elements[1], ((closureN)self_731649)->elements[1], obj_int2obj(1));
return_closcall1(data,  ((closureN)self_731649)->elements[0],  c_731705);
} else { 
  
double_type local_731712; object c_731713 = Cyc_fast_sum(data,&local_731712,((closureN)self_731649)->elements[1], ((closureN)self_731649)->elements[1]);
return_closcall1(data,  ((closureN)self_731649)->elements[0],  c_731713);}
; 
}

static void __lambda_3(void *data, int argc, object self_731650, object k_731266) {
  
closureN_type c_731693;
c_731693.hdr.mark = gc_color_red;
 c_731693.hdr.grayed = 0;
c_731693.tag = closureN_tag;
 c_731693.fn = (function_type)__lambda_2;
c_731693.num_args = 1;
c_731693.num_elements = 2;
c_731693.elements = (object *)alloca(sizeof(object) * 2);
c_731693.elements[0] = k_731266;
c_731693.elements[1] = ((closureN)self_731650)->elements[1];

return_closcall2(data,  __glo_odd_127_scheme_base,  &c_731693, ((closureN)self_731650)->elements[0]);; 
}

static void __lambda_2(void *data, int argc, object self_731651, object r_731267) {
  if( (boolean_f != r_731267) ){ 
  return_closcall2(data,  __glo_odd_127_scheme_base,  ((closureN)self_731651)->elements[0], ((closureN)self_731651)->elements[1]);
} else { 
  return_closcall1(data,  ((closureN)self_731651)->elements[0],  boolean_f);}
; 
}

static void __lambda_1(void *data, int argc, closure _,object k_731272, object x_73560) {
  Cyc_st_add(data, "maze.scm:bitwise-not");

closureN_type c_731655;
c_731655.hdr.mark = gc_color_red;
 c_731655.hdr.grayed = 0;
c_731655.tag = closureN_tag;
 c_731655.fn = (function_type)__lambda_0;
c_731655.num_args = 1;
c_731655.num_elements = 1;
c_731655.elements = (object *)alloca(sizeof(object) * 1);
c_731655.elements[0] = k_731272;


object c_731664 = Cyc_sub(data,(closure)&c_731655,1,x_73560);
return_closcall1(data,(closure)&c_731655,  c_731664);; 
}

static void __lambda_0(void *data, int argc, object self_731652, object r_731273) {
  
double_type local_731660; object c_731661 = Cyc_fast_sub(data,&local_731660,r_731273, obj_int2obj(1));
return_closcall1(data,  ((closureN)self_731652)->elements[0],  c_731661);; 
}

static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value);
extern void c_schemecyclonecommon_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemebase_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemetime_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemewrite_entry_pt(void *data, int argc, closure cont, object value);
extern void c_scheme_char_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemeread_entry_pt(void *data, int argc, closure cont, object value);
static void c_entry_pt(data, argc, env,cont) void *data; int argc; closure env,cont; { 
Cyc_set_globals_changed((gc_thread_data *)data);
  quote_harr = find_or_add_symbol("harr");
  quote_cell = find_or_add_symbol("cell");
  quote_wall = find_or_add_symbol("wall");

  add_global((object *) &__glo_this_91scheme_91implementation_91name);
  add_global((object *) &__glo_run_91r7rs_91benchmark);
  add_global((object *) &__glo_hide);
  add_global((object *) &__glo_main);
  add_global((object *) &__glo_run);
  add_global((object *) &__glo_display_91hexbottom);
  add_global((object *) &__glo_dot_95space);
  add_global((object *) &__glo_bit_91test);
  add_global((object *) &__glo_print_91hexmaze);
  add_global((object *) &__glo_write_91ch);
  add_global((object *) &__glo_output);
  add_global((object *) &__glo_pmaze);
  add_global((object *) &__glo_make_91maze);
  add_global((object *) &__glo_for_91each_91hex_91child);
  add_global((object *) &__glo_pick_91entrances);
  add_global((object *) &__glo_make_91wall_91vec);
  add_global((object *) &__glo_gen_91maze_91array);
  add_global((object *) &__glo_south_91east);
  add_global((object *) &__glo_south);
  add_global((object *) &__glo_south_91west);
  add_global((object *) &__glo_harr_91tabulate);
  add_global((object *) &__glo_href_95rc);
  add_global((object *) &__glo_href);
  add_global((object *) &__glo_harr_117elts);
  add_global((object *) &__glo_harr_117ncols);
  add_global((object *) &__glo_harr_117nrows);
  add_global((object *) &__glo_make_91harr);
  add_global((object *) &__glo_mark_91path);
  add_global((object *) &__glo_path_91length);
  add_global((object *) &__glo_reroot_91maze);
  add_global((object *) &__glo_dfs_91maze);
  add_global((object *) &__glo_dig_91maze);
  add_global((object *) &__glo_permute_91vec_67);
  add_global((object *) &__glo_vector_91for_91each_91rev);
  add_global((object *) &__glo_set_91cell_117mark);
  add_global((object *) &__glo_cell_117mark);
  add_global((object *) &__glo_set_91cell_117parent);
  add_global((object *) &__glo_cell_117parent);
  add_global((object *) &__glo_set_91cell_117walls);
  add_global((object *) &__glo_cell_117walls);
  add_global((object *) &__glo_cell_117id);
  add_global((object *) &__glo_cell_117reachable);
  add_global((object *) &__glo_make_91cell);
  add_global((object *) &__glo_wall_117bit);
  add_global((object *) &__glo_wall_117neighbor);
  add_global((object *) &__glo_wall_117owner);
  add_global((object *) &__glo_make_91wall);
  add_global((object *) &__glo_union_67);
  add_global((object *) &__glo_set_91size);
  add_global((object *) &__glo_set_91equal_127);
  add_global((object *) &__glo_get_91set_91root);
  add_global((object *) &__glo_base_91set);
  add_global((object *) &__glo_random_91int);
  add_global((object *) &__glo_rand);
  add_global((object *) &__glo_random_91state);
  add_global((object *) &__glo_mod);
  add_global((object *) &__glo_div);
  add_global((object *) &__glo_bitwise_91and);
  add_global((object *) &__glo_bitwise_91not);
  add_symbol(quote_harr);
  add_symbol(quote_cell);
  add_symbol(quote_wall);
  mclosure0(c_734548, (function_type)__lambda_433);c_734548.num_args = 0; 
  __glo_this_91scheme_91implementation_91name = &c_734548; 
  mclosure0(c_734362, (function_type)__lambda_431);c_734362.num_args = 4; 
  __glo_run_91r7rs_91benchmark = &c_734362; 
  mclosure0(c_734338, (function_type)__lambda_387);c_734338.num_args = 2; 
  __glo_hide = &c_734338; 
  mclosure0(c_734280, (function_type)__lambda_380);c_734280.num_args = 0; 
  __glo_main = &c_734280; 
  mclosure0(c_734269, (function_type)__lambda_367);c_734269.num_args = 2; 
  __glo_run = &c_734269; 
  mclosure0(c_734232, (function_type)__lambda_364);c_734232.num_args = 1; 
  __glo_display_91hexbottom = &c_734232; 
  mclosure0(c_734210, (function_type)__lambda_352);c_734210.num_args = 3; 
  __glo_dot_95space = &c_734210; 
  mclosure0(c_734197, (function_type)__lambda_348);c_734197.num_args = 2; 
  __glo_bit_91test = &c_734197; 
  mclosure0(c_733789, (function_type)__lambda_346);c_733789.num_args = 2; 
  __glo_print_91hexmaze = &c_733789; 
  mclosure0(c_733779, (function_type)__lambda_279);c_733779.num_args = 1; 
  __glo_write_91ch = &c_733779; 
  mclosure0(c_733766, (function_type)__lambda_277);c_733766.num_args = 2; 
  __glo_pmaze = &c_733766; 
  mclosure0(c_733701, (function_type)__lambda_274);c_733701.num_args = 2; 
  __glo_make_91maze = &c_733701; 
  mclosure0(c_733338, (function_type)__lambda_260);c_733338.num_args = 3; 
  __glo_for_91each_91hex_91child = &c_733338; 
  mclosure0(c_733180, (function_type)__lambda_228);c_733180.num_args = 1; 
  __glo_pick_91entrances = &c_733180; 
  mclosure0(c_732797, (function_type)__lambda_204);c_732797.num_args = 1; 
  __glo_make_91wall_91vec = &c_732797; 
  mclosure0(c_732787, (function_type)__lambda_158);c_732787.num_args = 2; 
  __glo_gen_91maze_91array = &c_732787; 
  mclosure0(c_732659, (function_type)__lambda_156);c_732659.num_args = 3; 
  __glo_harr_91tabulate = &c_732659; 
  mclosure0(c_732643, (function_type)__lambda_140);c_732643.num_args = 3; 
  __glo_href_95rc = &c_732643; 
  mclosure0(c_732616, (function_type)__lambda_139);c_732616.num_args = 3; 
  __glo_href = &c_732616; 
  mclosure0(c_732612, (function_type)__lambda_135);c_732612.num_args = 1; 
  __glo_harr_117elts = &c_732612; 
  mclosure0(c_732608, (function_type)__lambda_134);c_732608.num_args = 1; 
  __glo_harr_117ncols = &c_732608; 
  mclosure0(c_732604, (function_type)__lambda_133);c_732604.num_args = 1; 
  __glo_harr_117nrows = &c_732604; 
  mclosure0(c_732602, (function_type)__lambda_132);c_732602.num_args = 3; 
  __glo_make_91harr = &c_732602; 
  mclosure0(c_732565, (function_type)__lambda_131);c_732565.num_args = 1; 
  __glo_mark_91path = &c_732565; 
  mclosure0(c_732533, (function_type)__lambda_123);c_732533.num_args = 1; 
  __glo_path_91length = &c_732533; 
  mclosure0(c_732492, (function_type)__lambda_118);c_732492.num_args = 1; 
  __glo_reroot_91maze = &c_732492; 
  mclosure0(c_732447, (function_type)__lambda_110);c_732447.num_args = 3; 
  __glo_dfs_91maze = &c_732447; 
  mclosure0(c_732378, (function_type)__lambda_101);c_732378.num_args = 2; 
  __glo_dig_91maze = &c_732378; 
  mclosure0(c_732300, (function_type)__lambda_91);c_732300.num_args = 2; 
  __glo_permute_91vec_67 = &c_732300; 
  mclosure0(c_732255, (function_type)__lambda_77);c_732255.num_args = 2; 
  __glo_vector_91for_91each_91rev = &c_732255; 
  mclosure0(c_732251, (function_type)__lambda_71);c_732251.num_args = 2; 
  __glo_set_91cell_117mark = &c_732251; 
  mclosure0(c_732247, (function_type)__lambda_70);c_732247.num_args = 1; 
  __glo_cell_117mark = &c_732247; 
  mclosure0(c_732243, (function_type)__lambda_69);c_732243.num_args = 2; 
  __glo_set_91cell_117parent = &c_732243; 
  mclosure0(c_732239, (function_type)__lambda_68);c_732239.num_args = 1; 
  __glo_cell_117parent = &c_732239; 
  mclosure0(c_732235, (function_type)__lambda_67);c_732235.num_args = 2; 
  __glo_set_91cell_117walls = &c_732235; 
  mclosure0(c_732231, (function_type)__lambda_66);c_732231.num_args = 1; 
  __glo_cell_117walls = &c_732231; 
  mclosure0(c_732227, (function_type)__lambda_65);c_732227.num_args = 1; 
  __glo_cell_117id = &c_732227; 
  mclosure0(c_732223, (function_type)__lambda_64);c_732223.num_args = 1; 
  __glo_cell_117reachable = &c_732223; 
  mclosure0(c_732221, (function_type)__lambda_63);c_732221.num_args = 2; 
  __glo_make_91cell = &c_732221; 
  mclosure0(c_732217, (function_type)__lambda_62);c_732217.num_args = 1; 
  __glo_wall_117bit = &c_732217; 
  mclosure0(c_732213, (function_type)__lambda_61);c_732213.num_args = 1; 
  __glo_wall_117neighbor = &c_732213; 
  mclosure0(c_732209, (function_type)__lambda_60);c_732209.num_args = 1; 
  __glo_wall_117owner = &c_732209; 
  mclosure0(c_732207, (function_type)__lambda_59);c_732207.num_args = 3; 
  __glo_make_91wall = &c_732207; 
  mclosure0(c_732157, (function_type)__lambda_58);c_732157.num_args = 2; 
  __glo_union_67 = &c_732157; 
  mclosure0(c_732150, (function_type)__lambda_51);c_732150.num_args = 1; 
  __glo_set_91size = &c_732150; 
  mclosure0(c_732139, (function_type)__lambda_49);c_732139.num_args = 2; 
  __glo_set_91equal_127 = &c_732139; 
  mclosure0(c_732050, (function_type)__lambda_46);c_732050.num_args = 1; 
  __glo_get_91set_91root = &c_732050; 
  mclosure0(c_732045, (function_type)__lambda_29);c_732045.num_args = 1; 
  __glo_base_91set = &c_732045; 
  mclosure0(c_732039, (function_type)__lambda_28);c_732039.num_args = 2; 
  __glo_random_91int = &c_732039; 
  mclosure0(c_731967, (function_type)__lambda_26);c_731967.num_args = 1; 
  __glo_rand = &c_731967; 
  mclosure0(c_731962, (function_type)__lambda_19);c_731962.num_args = 1; 
  __glo_random_91state = &c_731962; 
  mclosure0(c_731845, (function_type)__lambda_18);c_731845.num_args = 2; 
  __glo_mod = &c_731845; 
  mclosure0(c_731734, (function_type)__lambda_15);c_731734.num_args = 2; 
  __glo_div = &c_731734; 
  mclosure0(c_731665, (function_type)__lambda_12);c_731665.num_args = 2; 
  __glo_bitwise_91and = &c_731665; 
  mclosure0(c_731653, (function_type)__lambda_1);c_731653.num_args = 1; 
  __glo_bitwise_91not = &c_731653; 
  __glo_output = boolean_f; 
  __glo_south_91east = obj_int2obj(4); 
  __glo_south = obj_int2obj(2); 
  __glo_south_91west = obj_int2obj(1); 

  make_cvar(cvar_734558, (object *)&__glo_this_91scheme_91implementation_91name);make_pair(pair_734559, find_or_add_symbol("this-scheme-implementation-name"), &cvar_734558);
  make_cvar(cvar_734560, (object *)&__glo_run_91r7rs_91benchmark);make_pair(pair_734561, find_or_add_symbol("run-r7rs-benchmark"), &cvar_734560);
  make_cvar(cvar_734562, (object *)&__glo_hide);make_pair(pair_734563, find_or_add_symbol("hide"), &cvar_734562);
  make_cvar(cvar_734564, (object *)&__glo_main);make_pair(pair_734565, find_or_add_symbol("main"), &cvar_734564);
  make_cvar(cvar_734566, (object *)&__glo_run);make_pair(pair_734567, find_or_add_symbol("run"), &cvar_734566);
  make_cvar(cvar_734568, (object *)&__glo_display_91hexbottom);make_pair(pair_734569, find_or_add_symbol("display-hexbottom"), &cvar_734568);
  make_cvar(cvar_734570, (object *)&__glo_dot_95space);make_pair(pair_734571, find_or_add_symbol("dot/space"), &cvar_734570);
  make_cvar(cvar_734572, (object *)&__glo_bit_91test);make_pair(pair_734573, find_or_add_symbol("bit-test"), &cvar_734572);
  make_cvar(cvar_734574, (object *)&__glo_print_91hexmaze);make_pair(pair_734575, find_or_add_symbol("print-hexmaze"), &cvar_734574);
  make_cvar(cvar_734576, (object *)&__glo_write_91ch);make_pair(pair_734577, find_or_add_symbol("write-ch"), &cvar_734576);
  make_cvar(cvar_734578, (object *)&__glo_output);make_pair(pair_734579, find_or_add_symbol("output"), &cvar_734578);
  make_cvar(cvar_734580, (object *)&__glo_pmaze);make_pair(pair_734581, find_or_add_symbol("pmaze"), &cvar_734580);
  make_cvar(cvar_734582, (object *)&__glo_make_91maze);make_pair(pair_734583, find_or_add_symbol("make-maze"), &cvar_734582);
  make_cvar(cvar_734584, (object *)&__glo_for_91each_91hex_91child);make_pair(pair_734585, find_or_add_symbol("for-each-hex-child"), &cvar_734584);
  make_cvar(cvar_734586, (object *)&__glo_pick_91entrances);make_pair(pair_734587, find_or_add_symbol("pick-entrances"), &cvar_734586);
  make_cvar(cvar_734588, (object *)&__glo_make_91wall_91vec);make_pair(pair_734589, find_or_add_symbol("make-wall-vec"), &cvar_734588);
  make_cvar(cvar_734590, (object *)&__glo_gen_91maze_91array);make_pair(pair_734591, find_or_add_symbol("gen-maze-array"), &cvar_734590);
  make_cvar(cvar_734592, (object *)&__glo_south_91east);make_pair(pair_734593, find_or_add_symbol("south-east"), &cvar_734592);
  make_cvar(cvar_734594, (object *)&__glo_south);make_pair(pair_734595, find_or_add_symbol("south"), &cvar_734594);
  make_cvar(cvar_734596, (object *)&__glo_south_91west);make_pair(pair_734597, find_or_add_symbol("south-west"), &cvar_734596);
  make_cvar(cvar_734598, (object *)&__glo_harr_91tabulate);make_pair(pair_734599, find_or_add_symbol("harr-tabulate"), &cvar_734598);
  make_cvar(cvar_734600, (object *)&__glo_href_95rc);make_pair(pair_734601, find_or_add_symbol("href/rc"), &cvar_734600);
  make_cvar(cvar_734602, (object *)&__glo_href);make_pair(pair_734603, find_or_add_symbol("href"), &cvar_734602);
  make_cvar(cvar_734604, (object *)&__glo_harr_117elts);make_pair(pair_734605, find_or_add_symbol("harr:elts"), &cvar_734604);
  make_cvar(cvar_734606, (object *)&__glo_harr_117ncols);make_pair(pair_734607, find_or_add_symbol("harr:ncols"), &cvar_734606);
  make_cvar(cvar_734608, (object *)&__glo_harr_117nrows);make_pair(pair_734609, find_or_add_symbol("harr:nrows"), &cvar_734608);
  make_cvar(cvar_734610, (object *)&__glo_make_91harr);make_pair(pair_734611, find_or_add_symbol("make-harr"), &cvar_734610);
  make_cvar(cvar_734612, (object *)&__glo_mark_91path);make_pair(pair_734613, find_or_add_symbol("mark-path"), &cvar_734612);
  make_cvar(cvar_734614, (object *)&__glo_path_91length);make_pair(pair_734615, find_or_add_symbol("path-length"), &cvar_734614);
  make_cvar(cvar_734616, (object *)&__glo_reroot_91maze);make_pair(pair_734617, find_or_add_symbol("reroot-maze"), &cvar_734616);
  make_cvar(cvar_734618, (object *)&__glo_dfs_91maze);make_pair(pair_734619, find_or_add_symbol("dfs-maze"), &cvar_734618);
  make_cvar(cvar_734620, (object *)&__glo_dig_91maze);make_pair(pair_734621, find_or_add_symbol("dig-maze"), &cvar_734620);
  make_cvar(cvar_734622, (object *)&__glo_permute_91vec_67);make_pair(pair_734623, find_or_add_symbol("permute-vec!"), &cvar_734622);
  make_cvar(cvar_734624, (object *)&__glo_vector_91for_91each_91rev);make_pair(pair_734625, find_or_add_symbol("vector-for-each-rev"), &cvar_734624);
  make_cvar(cvar_734626, (object *)&__glo_set_91cell_117mark);make_pair(pair_734627, find_or_add_symbol("set-cell:mark"), &cvar_734626);
  make_cvar(cvar_734628, (object *)&__glo_cell_117mark);make_pair(pair_734629, find_or_add_symbol("cell:mark"), &cvar_734628);
  make_cvar(cvar_734630, (object *)&__glo_set_91cell_117parent);make_pair(pair_734631, find_or_add_symbol("set-cell:parent"), &cvar_734630);
  make_cvar(cvar_734632, (object *)&__glo_cell_117parent);make_pair(pair_734633, find_or_add_symbol("cell:parent"), &cvar_734632);
  make_cvar(cvar_734634, (object *)&__glo_set_91cell_117walls);make_pair(pair_734635, find_or_add_symbol("set-cell:walls"), &cvar_734634);
  make_cvar(cvar_734636, (object *)&__glo_cell_117walls);make_pair(pair_734637, find_or_add_symbol("cell:walls"), &cvar_734636);
  make_cvar(cvar_734638, (object *)&__glo_cell_117id);make_pair(pair_734639, find_or_add_symbol("cell:id"), &cvar_734638);
  make_cvar(cvar_734640, (object *)&__glo_cell_117reachable);make_pair(pair_734641, find_or_add_symbol("cell:reachable"), &cvar_734640);
  make_cvar(cvar_734642, (object *)&__glo_make_91cell);make_pair(pair_734643, find_or_add_symbol("make-cell"), &cvar_734642);
  make_cvar(cvar_734644, (object *)&__glo_wall_117bit);make_pair(pair_734645, find_or_add_symbol("wall:bit"), &cvar_734644);
  make_cvar(cvar_734646, (object *)&__glo_wall_117neighbor);make_pair(pair_734647, find_or_add_symbol("wall:neighbor"), &cvar_734646);
  make_cvar(cvar_734648, (object *)&__glo_wall_117owner);make_pair(pair_734649, find_or_add_symbol("wall:owner"), &cvar_734648);
  make_cvar(cvar_734650, (object *)&__glo_make_91wall);make_pair(pair_734651, find_or_add_symbol("make-wall"), &cvar_734650);
  make_cvar(cvar_734652, (object *)&__glo_union_67);make_pair(pair_734653, find_or_add_symbol("union!"), &cvar_734652);
  make_cvar(cvar_734654, (object *)&__glo_set_91size);make_pair(pair_734655, find_or_add_symbol("set-size"), &cvar_734654);
  make_cvar(cvar_734656, (object *)&__glo_set_91equal_127);make_pair(pair_734657, find_or_add_symbol("set-equal?"), &cvar_734656);
  make_cvar(cvar_734658, (object *)&__glo_get_91set_91root);make_pair(pair_734659, find_or_add_symbol("get-set-root"), &cvar_734658);
  make_cvar(cvar_734660, (object *)&__glo_base_91set);make_pair(pair_734661, find_or_add_symbol("base-set"), &cvar_734660);
  make_cvar(cvar_734662, (object *)&__glo_random_91int);make_pair(pair_734663, find_or_add_symbol("random-int"), &cvar_734662);
  make_cvar(cvar_734664, (object *)&__glo_rand);make_pair(pair_734665, find_or_add_symbol("rand"), &cvar_734664);
  make_cvar(cvar_734666, (object *)&__glo_random_91state);make_pair(pair_734667, find_or_add_symbol("random-state"), &cvar_734666);
  make_cvar(cvar_734668, (object *)&__glo_mod);make_pair(pair_734669, find_or_add_symbol("mod"), &cvar_734668);
  make_cvar(cvar_734670, (object *)&__glo_div);make_pair(pair_734671, find_or_add_symbol("div"), &cvar_734670);
  make_cvar(cvar_734672, (object *)&__glo_bitwise_91and);make_pair(pair_734673, find_or_add_symbol("bitwise-and"), &cvar_734672);
  make_cvar(cvar_734674, (object *)&__glo_bitwise_91not);make_pair(pair_734675, find_or_add_symbol("bitwise-not"), &cvar_734674);
make_pair(c_734676, &pair_734559,Cyc_global_variables);
make_pair(c_734677, &pair_734561, &c_734676);
make_pair(c_734678, &pair_734563, &c_734677);
make_pair(c_734679, &pair_734565, &c_734678);
make_pair(c_734680, &pair_734567, &c_734679);
make_pair(c_734681, &pair_734569, &c_734680);
make_pair(c_734682, &pair_734571, &c_734681);
make_pair(c_734683, &pair_734573, &c_734682);
make_pair(c_734684, &pair_734575, &c_734683);
make_pair(c_734685, &pair_734577, &c_734684);
make_pair(c_734686, &pair_734579, &c_734685);
make_pair(c_734687, &pair_734581, &c_734686);
make_pair(c_734688, &pair_734583, &c_734687);
make_pair(c_734689, &pair_734585, &c_734688);
make_pair(c_734690, &pair_734587, &c_734689);
make_pair(c_734691, &pair_734589, &c_734690);
make_pair(c_734692, &pair_734591, &c_734691);
make_pair(c_734693, &pair_734593, &c_734692);
make_pair(c_734694, &pair_734595, &c_734693);
make_pair(c_734695, &pair_734597, &c_734694);
make_pair(c_734696, &pair_734599, &c_734695);
make_pair(c_734697, &pair_734601, &c_734696);
make_pair(c_734698, &pair_734603, &c_734697);
make_pair(c_734699, &pair_734605, &c_734698);
make_pair(c_734700, &pair_734607, &c_734699);
make_pair(c_734701, &pair_734609, &c_734700);
make_pair(c_734702, &pair_734611, &c_734701);
make_pair(c_734703, &pair_734613, &c_734702);
make_pair(c_734704, &pair_734615, &c_734703);
make_pair(c_734705, &pair_734617, &c_734704);
make_pair(c_734706, &pair_734619, &c_734705);
make_pair(c_734707, &pair_734621, &c_734706);
make_pair(c_734708, &pair_734623, &c_734707);
make_pair(c_734709, &pair_734625, &c_734708);
make_pair(c_734710, &pair_734627, &c_734709);
make_pair(c_734711, &pair_734629, &c_734710);
make_pair(c_734712, &pair_734631, &c_734711);
make_pair(c_734713, &pair_734633, &c_734712);
make_pair(c_734714, &pair_734635, &c_734713);
make_pair(c_734715, &pair_734637, &c_734714);
make_pair(c_734716, &pair_734639, &c_734715);
make_pair(c_734717, &pair_734641, &c_734716);
make_pair(c_734718, &pair_734643, &c_734717);
make_pair(c_734719, &pair_734645, &c_734718);
make_pair(c_734720, &pair_734647, &c_734719);
make_pair(c_734721, &pair_734649, &c_734720);
make_pair(c_734722, &pair_734651, &c_734721);
make_pair(c_734723, &pair_734653, &c_734722);
make_pair(c_734724, &pair_734655, &c_734723);
make_pair(c_734725, &pair_734657, &c_734724);
make_pair(c_734726, &pair_734659, &c_734725);
make_pair(c_734727, &pair_734661, &c_734726);
make_pair(c_734728, &pair_734663, &c_734727);
make_pair(c_734729, &pair_734665, &c_734728);
make_pair(c_734730, &pair_734667, &c_734729);
make_pair(c_734731, &pair_734669, &c_734730);
make_pair(c_734732, &pair_734671, &c_734731);
make_pair(c_734733, &pair_734673, &c_734732);
make_pair(c_734734, &pair_734675, &c_734733);
Cyc_global_variables = &c_734734;
mclosure1(c_done, c_entry_pt_first_lambda, &c_done);
mclosure1(c_734735, c_schemeread_entry_pt, &c_done);
mclosure1(c_734736, c_scheme_char_entry_pt, &c_734735);
mclosure1(c_734737, c_schemewrite_entry_pt, &c_734736);
mclosure1(c_734738, c_schemetime_entry_pt, &c_734737);
mclosure1(c_734739, c_schemebase_entry_pt, &c_734738);
mclosure1(c_734740, c_schemecyclonecommon_entry_pt, &c_734739);
(c_734740.fn)(data, 0, &c_734740, &c_734740);
}
static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value) {
  
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    return_closcall1(data,  __glo_main,  primitive__75halt);
;
}
int main(int argc, char **argv, char **envp)
{gc_thread_data *thd;
 long stack_size = global_stack_size = STACK_SIZE;
 long heap_size = global_heap_size = HEAP_SIZE;
 mclosure0(clos_halt,&Cyc_halt);  // Halt if final closure is reached
 mclosure0(entry_pt,&c_entry_pt); // First function to execute
 _cyc_argc = argc;
 _cyc_argv = argv;
 set_env_variables(envp);
 gc_initialize();
 thd = malloc(sizeof(gc_thread_data));
 gc_thread_data_init(thd, 0, (char *) &stack_size, stack_size);
 thd->gc_cont = &entry_pt;
 thd->gc_args[0] = &clos_halt;
 thd->gc_num_args = 1;
 thd->thread_id = pthread_self();
 gc_add_mutator(thd);
 Cyc_heap_init(heap_size);
 thd->thread_state = CYC_THREAD_STATE_RUNNABLE;
 Cyc_start_trampoline(thd);
 return 0;}
