(lambda (k118)
  (let ((k119 (##core#lambda
                (r120)
                (let ((t13 r120))
                  (let ((k122 (##core#lambda
                                (r123)
                                (let ((t14 r123))
                                  (let ((k125 (##core#lambda
                                                (r126)
                                                (let ((t15 r126))
                                                  (let ((x10 (##core#undefined)))
                                                    (let ((x911 x10))
                                                      (let ((t128 (set! x10 #f x911)))
                                                        (let ((t12 t128))
                                                          (let ((t16 1))
                                                            (let ((k129 (##core#lambda (r130) (k118 r130))))
                                                              (let ((k132 (##core#lambda (r133) (r133 k129))))
                                                                (chicken.base#implicit-exit-handler k132))))))))))))
                                    (##core#callunit expand k125))))))
                    (##core#callunit eval k122))))))
    (##core#callunit library k119)))