;; -*- mode:scheme -*-
(λ (k118)
  (let ((k119 (κ
                (r120)
                (let ((t11 r120))
                  (let ((k122 (κ
                                (r123)
                                (let ((t12 r123))
                                  (let ((t125 (set! factorial
                                                #f
                                                (λ (k127 n10)
                                                  (let ((k128 (κ (r129) (k127 r129))))
                                                    (let ((k131 (κ
                                                                  (r132)
                                                                  (if r132
                                                                    (k128 1)
                                                                    (let ((k134 (κ (r135) (k128 r135))))
                                                                      (let ((k138 (κ
                                                                                    (r139)
                                                                                    (let ((a137 r139)) (scheme#* k134 n10 a137)))))
                                                                        (let ((k142 (κ
                                                                                      (r143)
                                                                                      (let ((a141 r143)) (factorial k138 a141)))))
                                                                          (scheme#- k142 n10 1))))))))
                                                      (scheme#zero? k131 n10)))))))
                                    (let ((t13 t125))
                                      (let ((k145 (κ (r146) (k118 r146))))
                                        (let ((k148 (κ (r149) (r149 k145))))
                                          (chicken.base#implicit-exit-handler k148)))))))))
                    (##core#callunit eval k122))))))
    (##core#callunit library k119)))