((lambda ()
   (letrec (;;gap
            (top-id-bound-var-name426
             (lambda (sym1057 marks1055 top-ribcage1056)
               ((lambda (token1058)
                  ((lambda (t1059)
                     (if t1059
                         ;;keep form
                         ((lambda (id1060)
                            (call-with-values
                              (lambda ()
                                (if (symbol? id1060)
                                    (values
                                      id1060
                                      (make-resolved-id416
                                        sym1057
                                        marks1055
                                        id1060))
                                    (values
                                      (resolved-id-var-name418 id1060)
                                      id1060)))
                              ;;gap
                              ))
                          t1059)
                         ;;gap
                         ))
                   (lookup-import-binding-name413
                     sym1057
                     token1058
                     marks1055)))
                (top-ribcage-key376 top-ribcage1056))))
            ;;big gap
            (chi-top446
             (lambda (e1788
                      r1783
                      w1787
                      ctem1784
                      rtem1786
                      top-ribcage1785)
               (call-with-values
                 (lambda ()
                   (syntax-type444 e1788 r1783 w1787 '#f top-ribcage1785))
                 (lambda (type1793 value1789 e1792 w1790 ae1791)
                   ((lambda (t1794)
                      (if (memv t1794 '(begin-form))
                          ;;gap
                          (if (memv t1794 '(local-syntax-form))
                              ;;gap
                              (if (memv t1794 '(eval-when-form))
                                  ;;gap
                                  (if (memv t1794 '(define-syntax-form))
                                      ;;keep form
                                      (parse-define-syntax492
                                        e1792
                                        w1790
                                        ae1791
                                        (lambda (id1821 rhs1819 w1820)
                                          ((lambda (id1822)
                                             (begin (if (displaced-lexical?309
                                                          id1822
                                                          r1783)
                                                        (displaced-lexical-error310
                                                          id1822)
                                                        (void))
                                                    (if (not (top-ribcage-mutable?377
                                                               top-ribcage1785))
                                                        (syntax-error
                                                          (source-wrap440
                                                            e1792
                                                            w1820
                                                            ae1791)
                                                          '"invalid definition in read-only environment")
                                                        (void))
                                                    ((lambda (sym1823)
                                                       (call-with-values
                                                         (lambda ()
                                                           (top-id-bound-var-name426
                                                             sym1823
                                                             (wrap-marks326
                                                               (syntax-object-wrap66
                                                                 id1822))
                                                             top-ribcage1785))
                                                         (lambda (valsym1825
                                                                  bound-id1824)
                                                           (begin (if (not (eq? (id-var-name431
                                                                                  id1822
                                                                                  '(()))
                                                                                valsym1825))
                                                                      (syntax-error
                                                                        (source-wrap440
                                                                          e1792
                                                                          w1820
                                                                          ae1791)
                                                                        '"definition not permitted")
                                                                      (void))
                                                                  (if (read-only-binding?143
                                                                        valsym1825)
                                                                      (syntax-error
                                                                        (source-wrap440
                                                                          e1792
                                                                          w1820
                                                                          ae1791)
                                                                        '"invalid definition of read-only identifier")
                                                                      (void))
                                                                  (ct-eval/residualize480
                                                                    ctem1784
                                                                    (lambda ()
                                                                      (list '$sc-put-cte
                                                                            (list 'quote
                                                                                  bound-id1824)
                                                                            (chi481
                                                                              rhs1819
                                                                              (transformer-env308
                                                                                r1783)
                                                                              w1820)
                                                                            (list 'quote
                                                                                  (top-ribcage-key376
                                                                                    top-ribcage1785)))))))))
                                                     ((lambda (x1826)
                                                        ((lambda (e1827)
                                                           (if (annotation?132
                                                                 e1827)
                                                               (annotation-expression
                                                                 e1827)
                                                               e1827))
                                                         (if (syntax-object?64
                                                               x1826)
                                                             (syntax-object-expression65
                                                               x1826)
                                                             x1826)))
                                                      id1822))))
                                           (wrap439 id1821 w1820))))
                                      (if (memv t1794 '(define-form))
                                          ;;keep form
                                          (parse-define491
                                            e1792
                                            w1790
                                            ae1791
                                            (lambda (id1830 rhs1828 w1829)
                                              ;;keep form
                                              ((lambda (id1831)
                                                 (begin (if (displaced-lexical?309
                                                              id1831
                                                              r1783)
                                                            (displaced-lexical-error310
                                                              id1831)
                                                            (void))
                                                        (if (not (top-ribcage-mutable?377
                                                                   top-ribcage1785))
                                                            ;;gap
                                                            (void))
                                                        ;;keep form
                                                        ((lambda (sym1832)
                                                           (call-with-values
                                                             (lambda ()
                                                               (top-id-bound-var-name426
                                                                 sym1832
                                                                 (wrap-marks326
                                                                   (syntax-object-wrap66
                                                                     id1831))
                                                                 top-ribcage1785))
                                                             (lambda (valsym1834
                                                                      bound-id1833)
                                                               (begin (if (not (eq? (id-var-name431
                                                                                      id1831
                                                                                      '(()))
                                                                                    valsym1834))
                                                                          (syntax-error
                                                                            (source-wrap440
                                                                              e1792
                                                                              w1829
                                                                              ae1791)
                                                                            '"definition not permitted")
                                                                          (void))
                                                                      (if (read-only-binding?143
                                                                            valsym1834)
                                                                          (syntax-error
                                                                            (source-wrap440
                                                                              e1792
                                                                              w1829
                                                                              ae1791)
                                                                            '"invalid definition of read-only identifier")
                                                                          (void))
                                                                      ;;gap
                                                                      ))))
                                                         ((lambda (x1835)
                                                            ((lambda (e1836)
                                                               (if (annotation?132
                                                                     e1836)
                                                                   (annotation-expression
                                                                     e1836)
                                                                   e1836))
                                                             (if (syntax-object?64
                                                                   x1835)
                                                                 (syntax-object-expression65
                                                                   x1835)
                                                                 x1835)))
                                                          id1831))))
                                               (wrap439 id1830 w1829))))
                                          (if (memv t1794 '($module-form))
                                              ;;gap
                                              (if (memv t1794
                                                        '($import-form))
                                                  ;;bigger gap
                                                  (rt-eval/residualize479
                                                    rtem1786
                                                    (lambda ()
                                                      (chi-expr482
                                                        type1793
                                                        value1789
                                                        e1792
                                                        r1783
                                                        w1790
                                                        ae1791)))))))))))
                    type1793)))))
            )
     (write "Hi Per!"))))