(
(13 2)
(73)
(17 __primitives)
(26)
(16 __primitives)
(13 0)
(23
  (18 1)
  (14 0 0 n1)
  (0)
  (25)
  (name ())
)
(37)
(26)
(16 __primitives)
(13 1)
(23
  (18 1)
  (14 0 0 n1)
  (1)
  (25)
  (name ())
)
(37)
(23
  (83 0)
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (23
    (18 8)
    (13 ())
    (15 0 0 token-type)
    (26)
    (13 0)
    (15 0 1 paren-level)
    (26)
    (13 #\space)
    (15 0 2 ch)
    (26)
    (13 #\space)
    (15 0 3 previous-ch)
    (26)
    (13 9)
    (79)
    (15 0 4 tab-char)
    (26)
    (13 13)
    (79)
    (15 0 5 carriage-return)
    (26)
    (13 #\space)
    (13 #\newline)
    (14 0 4 tab-char)
    (14 0 5 carriage-return)
    (13 ())
    (2)
    (2)
    (2)
    (2)
    (15 0 6 white-space)
    (26)
    (23
      (18 0)
      (13 ())
      (13 ())
      (13 ())
      (13 ())
      (13 ())
      (13 ())
      (23
        (18 6)
        (23
          (18 1)
          (14 0 0 l)
          (31)
          (23
            (18 1)
            (14 0 0 size)
            (73)
            (23
              (18 1)
              (22 () 670)
              (13 ())
              (23
                (18 1)
                (23
                  (18 1)
                  (14 0 0 i)
                  (14 3 0 size)
                  (47)
                  (21 () 671)
                  (13 ())
                  (25)
                  671
                  (14 2 0 v)
                  (14 0 0 i)
                  (14 4 0 l)
                  (0)
                  (37)
                  (26)
                  (14 4 0 l)
                  (1)
                  (15 4 0 l)
                  (26)
                  (14 0 0 i)
                  (13 1)
                  (42)
                  (14 1 0 loop)
                  (24 1)
                  (name loop)
                )
                (15 0 0 loop)
                (26)
                (13 0)
                (14 0 0 loop)
                (24 1)
                (name ())
              )
              (24 1)
              670
              (26)
              (14 0 0 v)
              (25)
              (name ())
            )
            (24 1)
            (name ())
          )
          (24 1)
          (name my-list->vector)
        )
        (15 0 0 my-list->vector)
        (26)
        (23
          (18 0)
          (13 ())
          (13 ())
          (13 ())
          (13 ())
          (13 ())
          (13 ())
          (13 ())
          (13 ())
          (13 ())
          (13 ())
          (13 ())
          (13 ())
          (13 ())
          (13 ())
          (13 ())
          (13 ())
          (13 ())
          (13 ())
          (13 ())
          (13 ())
          (23
            (18 20)
            (13 ())
            (15 0 0 token)
            (26)
            (13 ())
            (15 0 1 token-list)
            (26)
            (13 ())
            (15 0 2 token-new)
            (26)
            (13 ())
            (15 0 3 token-tail)
            (26)
            (23
              (18 0)
              (14 5 2 ch)
              (63)
              (23
                (18 1)
                (14 0 0 g:::2)
                (21 () 673)
                (14 0 0 g:::2)
                (25)
                673
                (14 6 2 ch)
                (62)
                (25)
                (name ())
              )
              (24 1)
              (name char-alpha-numeric?)
            )
            (15 0 4 char-alpha-numeric?)
            (26)
            (23
              (18 0)
              (22 () 675)
              (13 ())
              (23
                (18 1)
                (23
                  (18 0)
                  (22 () 676)
                  (14 3 4 char-alpha-numeric?)
                  (24 0)
                  676
                  (21 () 679)
                  (22 () 677)
                  (14 3 6 get-ch)
                  (24 0)
                  677
                  (26)
                  (22 () 678)
                  (14 3 5 skip-past-alpha)
                  (24 0)
                  678
                  (26)
                  (14 1 0 loop)
                  (24 0)
                  679
                  (13 ())
                  (25)
                  (name loop)
                )
                (15 0 0 loop)
                (26)
                (14 0 0 loop)
                (25)
                (name ())
              )
              (24 1)
              675
              (24 0)
              (name skip-past-alpha)
            )
            (15 0 5 skip-past-alpha)
            (26)
            (23
              (18 0)
              (56)
              (15 5 2 ch)
              (26)
              (14 5 2 ch)
              (13 #\newline)
              (61)
              (21 () 681)
              (13 #\space)
              (15 5 2 ch)
              (25)
              681
              (13 ())
              (25)
              (name get-ch)
            )
            (15 0 6 get-ch)
            (26)
            (23
              (18 0)
              (56)
              (15 5 2 ch)
              (25)
              (name get-ch-no-newline)
            )
            (15 0 7 get-ch-no-newline)
            (26)
            (23
              (18 0)
              (14 5 2 ch)
              (13 #\newline)
              (61)
              (21 () 684)
              (14 1 6 get-ch)
              (24 0)
              684
              (22 () 683)
              (14 1 7 get-ch-no-newline)
              (24 0)
              683
              (26)
              (14 1 8 skip-line)
              (24 0)
              (name skip-line)
            )
            (15 0 8 skip-line)
            (26)
            (23
              (18 0)
              (14 5 2 ch)
              (38)
              (21 () 692)
              (13 ())
              (25)
              692
              (14 5 2 ch)
              (13 #\;)
              (61)
              (21 () 690)
              (22 () 686)
              (14 1 8 skip-line)
              (24 0)
              686
              (26)
              (14 1 9 skip-blanks)
              (24 0)
              690
              (14 5 2 ch)
              (14 5 6 white-space)
              (28)
              (21 () 688)
              (22 () 687)
              (14 1 6 get-ch)
              (24 0)
              687
              (26)
              (14 1 9 skip-blanks)
              (24 0)
              688
              (13 ())
              (25)
              (name skip-blanks)
            )
            (15 0 9 skip-blanks)
            (26)
            (23
              (18 0)
              (14 1 3 token-tail)
              (14 5 2 ch)
              (54)
              (26)
              (14 5 2 ch)
              (15 5 3 previous-ch)
              (26)
              (14 1 6 get-ch)
              (24 0)
              (name replace-last-ch)
            )
            (15 0 10 replace-last-ch)
            (26)
            (23
              (18 0)
              (14 5 2 ch)
              (13 ())
              (2)
              (15 1 2 token-new)
              (26)
              (14 1 1 token-list)
              (7)
              (21 () 694)
              (14 1 2 token-new)
              (15 1 1 token-list)
              (26)
              (14 1 2 token-new)
              (15 1 3 token-tail)
              (26)
              (19 () 695)
              694
              (14 1 3 token-tail)
              (14 1 2 token-new)
              (55)
              (26)
              (14 1 3 token-tail)
              (1)
              (15 1 3 token-tail)
              (26)
              695
              (14 5 2 ch)
              (15 5 3 previous-ch)
              (26)
              (14 1 6 get-ch)
              (24 0)
              (name append-to-list)
            )
            (15 0 11 append-to-list)
            (26)
            (23
              (18 0)
              (22 () 696)
              (14 1 6 get-ch)
              (24 0)
              696
              (26)
              (22 () 697)
              (22 () 698)
              (13 ())
              (23
                (18 1)
                (23
                  (18 0)
                  (22 () 699)
                  (14 7 2 ch)
                  (14 7 6 white-space)
                  (28)
                  (23
                    (18 1)
                    (14 0 0 g:::3)
                    (21 () 702)
                    (14 0 0 g:::3)
                    (25)
                    702
                    (14 8 2 ch)
                    (13 (#\( #\)))
                    (28)
                    (23
                      (18 1)
                      (14 0 0 g:::4)
                      (21 () 700)
                      (14 0 0 g:::4)
                      (25)
                      700
                      (14 9 2 ch)
                      (38)
                      (25)
                      (name ())
                    )
                    (24 1)
                    (name ())
                  )
                  (24 1)
                  699
                  (8)
                  (21 () 705)
                  (22 () 704)
                  (14 3 11 append-to-list)
                  (24 0)
                  704
                  (26)
                  (14 1 0 loop)
                  (24 0)
                  705
                  (13 ())
                  (25)
                  (name loop)
                )
                (15 0 0 loop)
                (26)
                (14 0 0 loop)
                (25)
                (name ())
              )
              (24 1)
              698
              (24 0)
              697
              (26)
              (22 () 707)
              (14 1 1 token-list)
              (16 reverse)
              (24 1)
              707
              (15 1 1 token-list)
              (26)
              (13 0)
              (15 1 0 token)
              (26)
              (13 1)
              (22 () 708)
              (13 ())
              (23
                (18 1)
                (23
                  (18 1)
                  (14 3 1 token-list)
                  (7)
                  (8)
                  (21 () 711)
                  (14 3 1 token-list)
                  (0)
                  (23
                    (18 1)
                    (14 0 0 dig)
                    (13 #\1)
                    (61)
                    (21 () 709)
                    (14 4 0 token)
                    (14 1 0 power)
                    (42)
                    (15 4 0 token)
                    (26)
                    (19 () 710)
                    709
                    710
                    (14 4 1 token-list)
                    (1)
                    (15 4 1 token-list)
                    (26)
                    (14 1 0 power)
                    (13 2)
                    (44)
                    (14 2 0 loop)
                    (24 1)
                    (name ())
                  )
                  (24 1)
                  711
                  (13 ())
                  (25)
                  (name loop)
                )
                (15 0 0 loop)
                (26)
                (14 0 0 loop)
                (25)
                (name ())
              )
              (24 1)
              708
              (24 1)
              (name get-binary-radix-number)
            )
            (15 0 12 get-binary-radix-number)
            (26)
            (23
              (18 1)
              (14 0 0 dig)
              (62)
              (21 () 713)
              (14 0 0 dig)
              (78)
              (13 #\0)
              (78)
              (43)
              (25)
              713
              (14 0 0 dig)
              (78)
              (13 #\a)
              (78)
              (43)
              (13 10)
              (42)
              (25)
              (name hex-dig)
            )
            (15 0 13 hex-dig)
            (26)
            (23
              (18 0)
              (22 () 715)
              (14 1 6 get-ch)
              (24 0)
              715
              (26)
              (22 () 716)
              (22 () 717)
              (13 ())
              (23
                (18 1)
                (23
                  (18 0)
                  (22 () 718)
                  (14 7 2 ch)
                  (14 7 6 white-space)
                  (28)
                  (23
                    (18 1)
                    (14 0 0 g:::5)
                    (21 () 721)
                    (14 0 0 g:::5)
                    (25)
                    721
                    (14 8 2 ch)
                    (13 (#\( #\)))
                    (28)
                    (23
                      (18 1)
                      (14 0 0 g:::6)
                      (21 () 719)
                      (14 0 0 g:::6)
                      (25)
                      719
                      (14 9 2 ch)
                      (38)
                      (25)
                      (name ())
                    )
                    (24 1)
                    (name ())
                  )
                  (24 1)
                  718
                  (8)
                  (21 () 724)
                  (22 () 723)
                  (14 3 11 append-to-list)
                  (24 0)
                  723
                  (26)
                  (14 1 0 loop)
                  (24 0)
                  724
                  (13 ())
                  (25)
                  (name loop)
                )
                (15 0 0 loop)
                (26)
                (14 0 0 loop)
                (25)
                (name ())
              )
              (24 1)
              717
              (24 0)
              716
              (26)
              (22 () 726)
              (14 1 1 token-list)
              (16 reverse)
              (24 1)
              726
              (15 1 1 token-list)
              (26)
              (13 0)
              (15 1 0 token)
              (26)
              (13 1)
              (22 () 727)
              (13 ())
              (23
                (18 1)
                (23
                  (18 1)
                  (14 3 1 token-list)
                  (7)
                  (8)
                  (21 () 729)
                  (14 3 1 token-list)
                  (0)
                  (23
                    (18 1)
                    (14 0 0 dig)
                    (65)
                    (15 0 0 dig)
                    (26)
                    (14 4 0 token)
                    (14 1 0 power)
                    (22 () 728)
                    (14 0 0 dig)
                    (14 4 13 hex-dig)
                    (24 1)
                    728
                    (44)
                    (42)
                    (15 4 0 token)
                    (26)
                    (14 4 1 token-list)
                    (1)
                    (15 4 1 token-list)
                    (26)
                    (14 1 0 power)
                    (13 16)
                    (44)
                    (14 2 0 loop)
                    (24 1)
                    (name ())
                  )
                  (24 1)
                  729
                  (13 ())
                  (25)
                  (name loop)
                )
                (15 0 0 loop)
                (26)
                (14 0 0 loop)
                (25)
                (name ())
              )
              (24 1)
              727
              (24 1)
              (name get-hex-radix-number)
            )
            (15 0 14 get-hex-radix-number)
            (26)
            (23
              (18 0)
              (22 () 731)
              (14 1 6 get-ch)
              (24 0)
              731
              (26)
              (14 5 2 ch)
              (13 (#\t #\f))
              (29)
              (21 () 750)
              (13 boolean-tok)
              (15 5 0 token-type)
              (26)
              (14 5 2 ch)
              (13 #\t)
              (61)
              (21 () 732)
              (13 #t)
              (15 1 0 token)
              (26)
              (19 () 733)
              732
              (13 #f)
              (15 1 0 token)
              (26)
              733
              (14 1 6 get-ch)
              (24 0)
              750
              (14 5 2 ch)
              (13 (#\b #\x))
              (29)
              (21 () 748)
              (13 symbol-tok)
              (15 5 0 token-type)
              (26)
              (14 5 2 ch)
              (13 #\b)
              (61)
              (21 () 734)
              (14 1 12 get-binary-radix-number)
              (24 0)
              734
              (14 1 14 get-hex-radix-number)
              (24 0)
              748
              (14 5 2 ch)
              (13 #\\)
              (61)
              (21 () 746)
              (13 char-tok)
              (15 5 0 token-type)
              (26)
              (22 () 736)
              (14 1 6 get-ch)
              (24 0)
              736
              (26)
              (14 5 2 ch)
              (15 1 0 token)
              (26)
              (14 5 2 ch)
              (23
                (18 1)
                (22 () 737)
                (14 2 6 get-ch)
                (24 0)
                737
                (26)
                (14 0 0 first-ch)
                (23
                  (18 1)
                  (14 0 0 g:::7)
                  (13 #\s)
                  (76)
                  (21 () 744)
                  (14 7 2 ch)
                  (13 #\p)
                  (61)
                  (21 () 738)
                  (13 #\space)
                  (15 3 0 token)
                  (26)
                  (14 3 5 skip-past-alpha)
                  (24 0)
                  738
                  (13 ())
                  (25)
                  744
                  (14 0 0 g:::7)
                  (13 #\n)
                  (76)
                  (21 () 742)
                  (14 7 2 ch)
                  (13 #\e)
                  (61)
                  (21 () 740)
                  (13 #\newline)
                  (15 3 0 token)
                  (26)
                  (14 3 5 skip-past-alpha)
                  (24 0)
                  740
                  (13 ())
                  (25)
                  742
                  (13 #f)
                  (25)
                  (name ())
                )
                (24 1)
                (name ())
              )
              (24 1)
              746
              (13 vector-tok)
              (15 5 0 token-type)
              (25)
              (name get-vector)
            )
            (15 0 15 get-vector)
            (26)
            (23
              (18 0)
              (22 () 752)
              (14 1 6 get-ch)
              (24 0)
              752
              (26)
              (22 () 753)
              (22 () 754)
              (13 ())
              (23
                (18 1)
                (23
                  (18 0)
                  (22 () 755)
                  (14 7 2 ch)
                  (13 #\")
                  (61)
                  (23
                    (18 1)
                    (14 0 0 g:::8)
                    (21 () 756)
                    (14 0 0 g:::8)
                    (25)
                    756
                    (14 8 2 ch)
                    (38)
                    (25)
                    (name ())
                  )
                  (24 1)
                  755
                  (8)
                  (21 () 762)
                  (22 () 758)
                  (14 3 11 append-to-list)
                  (24 0)
                  758
                  (26)
                  (14 7 3 previous-ch)
                  (13 #\\)
                  (61)
                  (21 () 760)
                  (22 () 759)
                  (14 3 10 replace-last-ch)
                  (24 0)
                  759
                  (26)
                  (19 () 761)
                  760
                  761
                  (14 1 0 loop)
                  (24 0)
                  762
                  (13 ())
                  (25)
                  (name loop)
                )
                (15 0 0 loop)
                (26)
                (14 0 0 loop)
                (25)
                (name ())
              )
              (24 1)
              754
              (24 0)
              753
              (26)
              (22 () 764)
              (14 1 6 get-ch)
              (24 0)
              764
              (26)
              (13 string-tok)
              (15 5 0 token-type)
              (26)
              (22 () 765)
              (14 1 1 token-list)
              (16 list->string)
              (24 1)
              765
              (15 1 0 token)
              (25)
              (name get-string)
            )
            (15 0 16 get-string)
            (26)
            (23
              (18 1)
              (14 0 0 token)
              (14 0 0 token)
              (31)
              (13 1)
              (43)
              (60)
              (23
                (18 1)
                (14 0 0 token-tail)
                (13 #\e)
                (13 #\0)
                (13 ())
                (2)
                (2)
                (55)
                (25)
                (name ())
              )
              (24 1)
              (name append-e0!)
            )
            (15 0 17 append-e0!)
            (26)
            (23
              (18 1)
              (13 ())
              (13 ())
              (13 ())
              (13 ())
              (13 ())
              (13 ())
              (13 ())
              (13 ())
              (13 ())
              (13 ())
              (13 ())
              (13 ())
              (13 ())
              (13 ())
              (13 ())
              (23
                (18 15)
                (13 #\space)
                (15 0 0 ch)
                (26)
                (13 0)
                (79)
                (15 0 1 end-of-token)
                (26)
                (13 #f)
                (15 0 2 return)
                (26)
                (13 #f)
                (15 0 3 has-decimal)
                (26)
                (13 #f)
                (15 0 4 has-e)
                (26)
                (14 1 0 token)
                (15 0 5 save-token)
                (26)
                (23
                  (18 0)
                  (14 2 0 token)
                  (7)
                  (21 () 773)
                  (14 1 1 end-of-token)
                  (15 1 0 ch)
                  (25)
                  773
                  (14 2 0 token)
                  (0)
                  (15 1 0 ch)
                  (26)
                  (14 1 0 ch)
                  (13 #\.)
                  (61)
                  (21 () 771)
                  (13 #t)
                  (15 1 3 has-decimal)
                  (26)
                  (19 () 772)
                  771
                  (22 () 766)
                  (14 1 0 ch)
                  (13 #\e)
                  (61)
                  (23
                    (18 1)
                    (14 0 0 g:::9)
                    (21 () 767)
                    (14 0 0 g:::9)
                    (25)
                    767
                    (14 2 0 ch)
                    (13 #\E)
                    (61)
                    (25)
                    (name ())
                  )
                  (24 1)
                  766
                  (21 () 769)
                  (13 #t)
                  (15 1 4 has-e)
                  (26)
                  (19 () 770)
                  769
                  770
                  772
                  (14 2 0 token)
                  (1)
                  (15 2 0 token)
                  (25)
                  (name next-ch)
                )
                (15 0 6 next-ch)
                (26)
                (23
                  (18 0)
                  (22 () 775)
                  (14 1 6 next-ch)
                  (24 0)
                  775
                  (26)
                  (14 1 0 ch)
                  (13 #\-)
                  (61)
                  (21 () 780)
                  (14 1 8 state-1)
                  (24 0)
                  780
                  (14 1 0 ch)
                  (62)
                  (21 () 778)
                  (14 1 9 state-2)
                  (24 0)
                  778
                  (14 1 0 ch)
                  (13 #\.)
                  (61)
                  (21 () 776)
                  (14 1 10 state-3)
                  (24 0)
                  776
                  (13 ())
                  (25)
                  (name state-0)
                )
                (15 0 7 state-0)
                (26)
                (23
                  (18 0)
                  (22 () 782)
                  (14 1 6 next-ch)
                  (24 0)
                  782
                  (26)
                  (14 1 0 ch)
                  (13 #\.)
                  (61)
                  (21 () 785)
                  (14 1 10 state-3)
                  (24 0)
                  785
                  (14 1 0 ch)
                  (62)
                  (21 () 783)
                  (14 1 9 state-2)
                  (24 0)
                  783
                  (13 ())
                  (25)
                  (name state-1)
                )
                (15 0 8 state-1)
                (26)
                (23
                  (18 0)
                  (22 () 787)
                  (14 1 6 next-ch)
                  (24 0)
                  787
                  (26)
                  (14 1 0 ch)
                  (13 #\.)
                  (61)
                  (21 () 797)
                  (14 1 10 state-3)
                  (24 0)
                  797
                  (14 1 0 ch)
                  (62)
                  (21 () 795)
                  (14 1 9 state-2)
                  (24 0)
                  795
                  (22 () 788)
                  (14 1 0 ch)
                  (13 #\e)
                  (61)
                  (23
                    (18 1)
                    (14 0 0 g:::10)
                    (21 () 789)
                    (14 0 0 g:::10)
                    (25)
                    789
                    (14 2 0 ch)
                    (13 #\E)
                    (61)
                    (25)
                    (name ())
                  )
                  (24 1)
                  788
                  (21 () 793)
                  (14 1 11 state-4)
                  (24 0)
                  793
                  (14 1 0 ch)
                  (14 1 1 end-of-token)
                  (61)
                  (21 () 791)
                  (14 1 14 state-7)
                  (24 0)
                  791
                  (13 ())
                  (25)
                  (name state-2)
                )
                (15 0 9 state-2)
                (26)
                (23
                  (18 0)
                  (22 () 799)
                  (14 1 6 next-ch)
                  (24 0)
                  799
                  (26)
                  (22 () 800)
                  (14 1 0 ch)
                  (13 #\e)
                  (61)
                  (23
                    (18 1)
                    (14 0 0 g:::11)
                    (21 () 801)
                    (14 0 0 g:::11)
                    (25)
                    801
                    (14 2 0 ch)
                    (13 #\E)
                    (61)
                    (25)
                    (name ())
                  )
                  (24 1)
                  800
                  (21 () 807)
                  (14 1 11 state-4)
                  (24 0)
                  807
                  (14 1 0 ch)
                  (62)
                  (21 () 805)
                  (14 1 10 state-3)
                  (24 0)
                  805
                  (14 1 0 ch)
                  (14 1 1 end-of-token)
                  (61)
                  (21 () 803)
                  (14 1 14 state-7)
                  (24 0)
                  803
                  (13 ())
                  (25)
                  (name state-3)
                )
                (15 0 10 state-3)
                (26)
                (23
                  (18 0)
                  (22 () 809)
                  (14 1 6 next-ch)
                  (24 0)
                  809
                  (26)
                  (22 () 810)
                  (14 1 0 ch)
                  (13 #\+)
                  (61)
                  (23
                    (18 1)
                    (14 0 0 g:::12)
                    (21 () 811)
                    (14 0 0 g:::12)
                    (25)
                    811
                    (14 2 0 ch)
                    (13 #\-)
                    (61)
                    (25)
                    (name ())
                  )
                  (24 1)
                  810
                  (21 () 815)
                  (14 1 12 state-5)
                  (24 0)
                  815
                  (14 1 0 ch)
                  (62)
                  (21 () 813)
                  (14 1 13 state-6)
                  (24 0)
                  813
                  (13 ())
                  (25)
                  (name state-4)
                )
                (15 0 11 state-4)
                (26)
                (23
                  (18 0)
                  (22 () 817)
                  (14 1 6 next-ch)
                  (24 0)
                  817
                  (26)
                  (14 1 0 ch)
                  (62)
                  (21 () 818)
                  (14 1 13 state-6)
                  (24 0)
                  818
                  (13 ())
                  (25)
                  (name state-5)
                )
                (15 0 12 state-5)
                (26)
                (23
                  (18 0)
                  (22 () 820)
                  (14 1 6 next-ch)
                  (24 0)
                  820
                  (26)
                  (14 1 0 ch)
                  (14 1 1 end-of-token)
                  (61)
                  (21 () 823)
                  (14 1 14 state-7)
                  (24 0)
                  823
                  (14 1 0 ch)
                  (62)
                  (21 () 821)
                  (14 1 13 state-6)
                  (24 0)
                  821
                  (13 ())
                  (25)
                  (name state-6)
                )
                (15 0 13 state-6)
                (26)
                (23
                  (18 0)
                  (14 1 3 has-decimal)
                  (21 () 825)
                  (14 1 4 has-e)
                  (8)
                  (19 () 826)
                  825
                  (13 #f)
                  826
                  (21 () 828)
                  (22 () 827)
                  (14 1 5 save-token)
                  (14 3 17 append-e0!)
                  (24 1)
                  827
                  (26)
                  (19 () 829)
                  828
                  829
                  (13 #t)
                  (15 1 2 return)
                  (25)
                  (name state-7)
                )
                (15 0 14 state-7)
                (26)
                (22 () 830)
                (14 0 7 state-0)
                (24 0)
                830
                (26)
                (14 0 2 return)
                (25)
                (name ())
              )
              (24 15)
              (name number-token?)
            )
            (15 0 18 number-token?)
            (26)
            (23
              (18 0)
              (22 () 831)
              (22 () 832)
              (13 ())
              (23
                (18 1)
                (23
                  (18 0)
                  (22 () 833)
                  (14 7 2 ch)
                  (14 7 6 white-space)
                  (28)
                  (23
                    (18 1)
                    (14 0 0 g:::13)
                    (21 () 836)
                    (14 0 0 g:::13)
                    (25)
                    836
                    (14 8 2 ch)
                    (13 (#\( #\)))
                    (28)
                    (23
                      (18 1)
                      (14 0 0 g:::14)
                      (21 () 834)
                      (14 0 0 g:::14)
                      (25)
                      834
                      (14 9 2 ch)
                      (38)
                      (25)
                      (name ())
                    )
                    (24 1)
                    (name ())
                  )
                  (24 1)
                  833
                  (8)
                  (21 () 839)
                  (14 7 2 ch)
                  (65)
                  (15 7 2 ch)
                  (26)
                  (22 () 838)
                  (14 3 11 append-to-list)
                  (24 0)
                  838
                  (26)
                  (14 1 0 loop)
                  (24 0)
                  839
                  (13 ())
                  (25)
                  (name loop)
                )
                (15 0 0 loop)
                (26)
                (14 0 0 loop)
                (25)
                (name ())
              )
              (24 1)
              832
              (24 0)
              831
              (26)
              (14 1 1 token-list)
              (13 (#\.))
              (53)
              (21 () 846)
              (13 dot-tok)
              (15 5 0 token-type)
              (25)
              846
              (13 symbol-tok)
              (15 5 0 token-type)
              (26)
              (22 () 841)
              (14 1 1 token-list)
              (14 1 18 number-token?)
              (24 1)
              841
              (21 () 844)
              (22 () 842)
              (14 1 1 token-list)
              (16 list->string)
              (24 1)
              842
              (70)
              (15 1 0 token)
              (25)
              844
              (22 () 843)
              (14 1 1 token-list)
              (16 list->string)
              (24 1)
              843
              (69)
              (15 1 0 token)
              (25)
              (name get-symbol)
            )
            (15 0 19 get-symbol)
            (26)
            (22 () 848)
            (14 0 9 skip-blanks)
            (24 0)
            848
            (26)
            (14 4 2 ch)
            (38)
            (21 () 869)
            (13 eof-tok)
            (15 4 0 token-type)
            (26)
            (14 4 2 ch)
            (15 0 0 token)
            (26)
            (19 () 870)
            869
            (22 () 849)
            (14 4 2 ch)
            (13 ((#\( opar-tok) (#\) cpar-tok) (#\' tic-tok) (#\, comma-tok) (#\` backtic-tok) (#\# vector-tok) (#\" string-tok)))
            (92)
            (23
              (18 1)
              (14 0 0 match)
              (21 () 867)
              (14 0 0 match)
              (11)
              (23
                (18 1)
                (14 0 0 g:::15)
                (13 (opar-tok cpar-tok tic-tok backtic-tok))
                (91)
                (21 () 865)
                (14 1 0 match)
                (11)
                (15 6 0 token-type)
                (26)
                (14 6 2 ch)
                (15 2 0 token)
                (26)
                (14 6 0 token-type)
                (13 opar-tok)
                (5)
                (21 () 854)
                (14 6 1 paren-level)
                (13 1)
                (42)
                (15 6 1 paren-level)
                (26)
                (14 2 6 get-ch)
                (24 0)
                854
                (14 6 0 token-type)
                (13 cpar-tok)
                (5)
                (21 () 852)
                (14 6 1 paren-level)
                (13 1)
                (43)
                (15 6 1 paren-level)
                (26)
                (14 6 1 paren-level)
                (13 0)
                (51)
                (21 () 850)
                (14 2 6 get-ch)
                (24 0)
                850
                (13 ())
                (25)
                852
                (14 2 6 get-ch)
                (24 0)
                865
                (14 0 0 g:::15)
                (13 comma-tok)
                (76)
                (21 () 863)
                (14 1 0 match)
                (11)
                (15 6 0 token-type)
                (26)
                (14 6 2 ch)
                (15 2 0 token)
                (26)
                (22 () 856)
                (14 2 6 get-ch)
                (24 0)
                856
                (26)
                (14 6 2 ch)
                (13 #\@)
                (61)
                (21 () 857)
                (13 at-tok)
                (15 6 0 token-type)
                (26)
                (14 6 2 ch)
                (15 2 0 token)
                (26)
                (14 2 6 get-ch)
                (24 0)
                857
                (13 ())
                (25)
                863
                (14 0 0 g:::15)
                (13 vector-tok)
                (76)
                (21 () 861)
                (14 2 15 get-vector)
                (24 0)
                861
                (14 0 0 g:::15)
                (13 string-tok)
                (76)
                (21 () 859)
                (14 2 16 get-string)
                (24 0)
                859
                (13 #f)
                (25)
                (name ())
              )
              (24 1)
              867
              (14 1 19 get-symbol)
              (24 0)
              (name ())
            )
            (24 1)
            849
            (26)
            870
            (14 0 0 token)
            (25)
            (name ())
          )
          (24 20)
          (name get-token)
        )
        (15 0 1 get-token)
        (26)
        (23
          (18 1)
          (13 "bad sexpr")
          (14 0 0 sexpr)
          (16 error)
          (24 2)
          (name bad-sexpr)
        )
        (15 0 2 bad-sexpr)
        (26)
        (23
          (18 0)
          (22 () 871)
          (14 1 1 get-token)
          (24 0)
          871
          (23
            (18 1)
            (14 4 0 token-type)
            (23
              (18 1)
              (14 0 0 g:::16)
              (13 opar-tok)
              (76)
              (21 () 896)
              (22 () 872)
              (14 3 4 read-list)
              (24 0)
              872
              (15 1 0 token)
              (26)
              (22 () 873)
              (14 3 1 get-token)
              (24 0)
              873
              (26)
              (14 1 0 token)
              (25)
              896
              (14 0 0 g:::16)
              (13 tic-tok)
              (76)
              (21 () 894)
              (13 quote)
              (22 () 874)
              (14 5 7 readin)
              (24 0)
              874
              (13 ())
              (2)
              (2)
              (13 ())
              (2)
              (15 1 0 token)
              (26)
              (14 1 0 token)
              (25)
              894
              (14 0 0 g:::16)
              (13 backtic-tok)
              (76)
              (21 () 892)
              (13 quasiquote)
              (22 () 875)
              (14 5 7 readin)
              (24 0)
              875
              (13 ())
              (2)
              (2)
              (13 ())
              (2)
              (15 1 0 token)
              (26)
              (14 1 0 token)
              (25)
              892
              (14 0 0 g:::16)
              (13 comma-tok)
              (76)
              (21 () 890)
              (13 unquote)
              (22 () 876)
              (14 5 7 readin)
              (24 0)
              876
              (13 ())
              (2)
              (2)
              (13 ())
              (2)
              (15 1 0 token)
              (26)
              (14 1 0 token)
              (25)
              890
              (14 0 0 g:::16)
              (13 at-tok)
              (76)
              (21 () 888)
              (13 unquote-splicing)
              (22 () 877)
              (14 5 7 readin)
              (24 0)
              877
              (13 ())
              (2)
              (2)
              (13 ())
              (2)
              (15 1 0 token)
              (26)
              (14 1 0 token)
              (25)
              888
              (22 () 878)
              (14 5 0 token-type)
              (13 symbol-tok)
              (5)
              (23
                (18 1)
                (14 0 0 g:::17)
                (21 () 879)
                (14 0 0 g:::17)
                (25)
                879
                (14 6 0 token-type)
                (13 string-tok)
                (5)
                (25)
                (name ())
              )
              (24 1)
              878
              (8)
              (21 () 882)
              (22 () 881)
              (14 1 0 token)
              (14 3 2 bad-sexpr)
              (24 1)
              881
              (26)
              (19 () 883)
              882
              883
              (22 () 884)
              (14 3 1 get-token)
              (24 0)
              884
              (26)
              (14 5 0 token-type)
              (13 cpar-tok)
              (5)
              (8)
              (21 () 886)
              (22 () 885)
              (13 "expecting close paren")
              (14 3 2 bad-sexpr)
              (24 1)
              885
              (26)
              (19 () 887)
              886
              887
              (14 1 0 token)
              (25)
              (name ())
            )
            (24 1)
            (name ())
          )
          (24 1)
          (name read-dot-token)
        )
        (15 0 3 read-dot-token)
        (26)
        (23
          (18 0)
          (13 ())
          (13 ())
          (13 ())
          (23
            (18 3)
            (22 () 898)
            (22 () 899)
            (14 2 1 get-token)
            (24 0)
            899
            (22 () 900)
            (13 ())
            (23
              (18 1)
              (23
                (18 1)
                (14 6 0 token-type)
                (13 cpar-tok)
                (5)
                (8)
                (21 () 930)
                (22 () 901)
                (14 6 0 token-type)
                (23
                  (18 1)
                  (14 0 0 g:::18)
                  (13 opar-tok)
                  (76)
                  (21 () 923)
                  (22 () 902)
                  (14 5 4 read-list)
                  (24 0)
                  902
                  (13 ())
                  (2)
                  (15 3 2 new)
                  (25)
                  923
                  (14 0 0 g:::18)
                  (13 dot-tok)
                  (76)
                  (21 () 921)
                  (14 3 1 tail)
                  (22 () 903)
                  (14 5 3 read-dot-token)
                  (24 0)
                  903
                  (55)
                  (26)
                  (13 was-dot-tok)
                  (15 7 0 token-type)
                  (25)
                  921
                  (14 0 0 g:::18)
                  (13 eof-tok)
                  (76)
                  (21 () 919)
                  (13 "unexpected end of file")
                  (14 5 2 bad-sexpr)
                  (24 1)
                  919
                  (14 0 0 g:::18)
                  (13 tic-tok)
                  (76)
                  (21 () 917)
                  (13 quote)
                  (22 () 904)
                  (14 7 7 readin)
                  (24 0)
                  904
                  (13 ())
                  (2)
                  (2)
                  (13 ())
                  (2)
                  (15 3 2 new)
                  (25)
                  917
                  (14 0 0 g:::18)
                  (13 backtic-tok)
                  (76)
                  (21 () 915)
                  (13 quasiquote)
                  (22 () 905)
                  (14 7 7 readin)
                  (24 0)
                  905
                  (13 ())
                  (2)
                  (2)
                  (13 ())
                  (2)
                  (15 3 2 new)
                  (25)
                  915
                  (14 0 0 g:::18)
                  (13 comma-tok)
                  (76)
                  (21 () 913)
                  (13 unquote)
                  (22 () 906)
                  (14 7 7 readin)
                  (24 0)
                  906
                  (13 ())
                  (2)
                  (2)
                  (13 ())
                  (2)
                  (15 3 2 new)
                  (25)
                  913
                  (14 0 0 g:::18)
                  (13 at-tok)
                  (76)
                  (21 () 911)
                  (13 unquote-splicing)
                  (22 () 907)
                  (14 7 7 readin)
                  (24 0)
                  907
                  (13 ())
                  (2)
                  (2)
                  (13 ())
                  (2)
                  (15 3 2 new)
                  (25)
                  911
                  (14 0 0 g:::18)
                  (13 vector-tok)
                  (76)
                  (21 () 909)
                  (22 () 908)
                  (14 5 5 read-vector)
                  (24 0)
                  908
                  (13 ())
                  (2)
                  (15 3 2 new)
                  (25)
                  909
                  (14 1 0 token)
                  (13 ())
                  (2)
                  (15 3 2 new)
                  (25)
                  (name ())
                )
                (24 1)
                901
                (26)
                (14 6 0 token-type)
                (13 was-dot-tok)
                (5)
                (21 () 928)
                (13 cpar-tok)
                (15 6 0 token-type)
                (25)
                928
                (14 2 0 lst)
                (7)
                (21 () 925)
                (14 2 2 new)
                (15 2 0 lst)
                (26)
                (14 2 2 new)
                (15 2 1 tail)
                (26)
                (19 () 926)
                925
                (14 2 1 tail)
                (14 2 2 new)
                (55)
                (26)
                (14 2 1 tail)
                (1)
                (15 2 1 tail)
                (26)
                926
                (22 () 927)
                (14 4 1 get-token)
                (24 0)
                927
                (14 1 0 loop)
                (24 1)
                930
                (13 ())
                (25)
                (name loop)
              )
              (15 0 0 loop)
              (26)
              (14 0 0 loop)
              (25)
              (name ())
            )
            (24 1)
            900
            (24 1)
            898
            (26)
            (14 0 0 lst)
            (25)
            (name ())
          )
          (24 3)
          (name read-list)
        )
        (15 0 4 read-list)
        (26)
        (23
          (18 0)
          (22 () 932)
          (14 1 1 get-token)
          (24 0)
          932
          (26)
          (14 3 0 token-type)
          (13 opar-tok)
          (5)
          (21 () 934)
          (22 () 933)
          (14 1 4 read-list)
          (24 0)
          933
          (14 1 0 my-list->vector)
          (24 1)
          934
          (13 "expecting open paren")
          (14 1 2 bad-sexpr)
          (24 1)
          (name read-vector)
        )
        (15 0 5 read-vector)
        (26)
        (22 () 936)
        (14 0 1 get-token)
        (24 0)
        936
        (23
          (18 1)
          (14 3 0 token-type)
          (23
            (18 1)
            (14 0 0 g:::19)
            (13 opar-tok)
            (76)
            (21 () 953)
            (14 2 4 read-list)
            (24 0)
            953
            (14 0 0 g:::19)
            (13 tic-tok)
            (76)
            (21 () 951)
            (13 quote)
            (22 () 937)
            (14 4 7 readin)
            (24 0)
            937
            (13 ())
            (2)
            (2)
            (25)
            951
            (14 0 0 g:::19)
            (13 backtic-tok)
            (76)
            (21 () 949)
            (13 quasiquote)
            (22 () 938)
            (14 4 7 readin)
            (24 0)
            938
            (13 ())
            (2)
            (2)
            (25)
            949
            (14 0 0 g:::19)
            (13 comma-tok)
            (76)
            (21 () 947)
            (13 unquote)
            (22 () 939)
            (14 4 7 readin)
            (24 0)
            939
            (13 ())
            (2)
            (2)
            (25)
            947
            (14 0 0 g:::19)
            (13 at-tok)
            (76)
            (21 () 945)
            (13 unquote-splicing)
            (22 () 940)
            (14 4 7 readin)
            (24 0)
            940
            (13 ())
            (2)
            (2)
            (25)
            945
            (14 0 0 g:::19)
            (13 vector-tok)
            (76)
            (21 () 943)
            (14 2 5 read-vector)
            (24 0)
            943
            (14 0 0 g:::19)
            (13 cpar-tok)
            (76)
            (21 () 941)
            (13 "unexpected close paren")
            (14 2 2 bad-sexpr)
            (24 1)
            941
            (14 1 0 token)
            (25)
            (name ())
          )
          (24 1)
          (name ())
        )
        (24 1)
        (name ())
      )
      (24 6)
      (name readin)
    )
    (15 0 7 readin)
    (26)
    (14 0 7 readin)
    (24 0)
    (name ())
  )
  (24 8)
  (name read)
)
(17 read)
(26)
(23
  (83 1)
  (13 "Error: ")
  (39)
  (26)
  (14 0 0 reason)
  (39)
  (26)
  (22 () 955)
  (23
    (18 1)
    (13 " ")
    (39)
    (26)
    (14 0 0 arg)
    (39)
    (25)
    (name ())
  )
  (14 0 1 args)
  (16 for-each)
  (24 2)
  955
  (26)
  (40)
  (26)
  (13 1)
  (87)
  (25)
  (name error)
)
(17 error)
(26)
(23
  (18 1)
  (13 ())
  (23
    (18 1)
    (23
      (18 2)
      (14 0 0 x)
      (7)
      (21 () 956)
      (14 0 1 y)
      (25)
      956
      (14 0 0 x)
      (1)
      (14 0 0 x)
      (0)
      (14 0 1 y)
      (2)
      (14 1 0 rev)
      (24 2)
      (name rev)
    )
    (15 0 0 rev)
    (26)
    (14 1 0 x)
    (13 ())
    (14 0 0 rev)
    (24 2)
    (name ())
  )
  (24 1)
  (name reverse)
)
(17 reverse)
(26)
(23
  (18 1)
  (13 ())
  (23
    (18 1)
    (22 () 958)
    (13 ())
    (23
      (18 1)
      (23
        (18 1)
        (14 0 0 i)
        (14 3 0 v)
        (35)
        (47)
        (21 () 959)
        (13 ())
        (25)
        959
        (14 3 0 v)
        (14 0 0 i)
        (36)
        (14 2 0 l)
        (2)
        (15 2 0 l)
        (26)
        (14 0 0 i)
        (13 1)
        (42)
        (14 1 0 loop)
        (24 1)
        (name loop)
      )
      (15 0 0 loop)
      (26)
      (13 0)
      (14 0 0 loop)
      (24 1)
      (name ())
    )
    (24 1)
    958
    (26)
    (14 0 0 l)
    (16 reverse)
    (24 1)
    (name ())
  )
  (24 1)
  (name vector->list)
)
(17 vector->list)
(26)
(23
  (18 2)
  (14 0 0 x)
  (68)
  (14 0 1 y)
  (68)
  (42)
  (66)
  (23
    (18 1)
    (22 () 961)
    (13 0)
    (14 1 0 x)
    (68)
    (22 () 962)
    (13 ())
    (23
      (18 1)
      (23
        (18 2)
        (14 0 0 index)
        (14 0 1 size)
        (49)
        (21 () 963)
        (14 2 0 z)
        (14 0 0 index)
        (14 3 0 x)
        (14 0 0 index)
        (57)
        (58)
        (26)
        (14 0 0 index)
        (13 1)
        (42)
        (14 0 1 size)
        (14 1 0 loop)
        (24 2)
        963
        (13 ())
        (25)
        (name loop)
      )
      (15 0 0 loop)
      (26)
      (14 0 0 loop)
      (25)
      (name ())
    )
    (24 1)
    962
    (24 2)
    961
    (26)
    (22 () 965)
    (13 0)
    (14 1 1 y)
    (68)
    (22 () 966)
    (13 ())
    (23
      (18 1)
      (23
        (18 2)
        (14 0 0 index)
        (14 0 1 size)
        (49)
        (21 () 967)
        (14 2 0 z)
        (14 0 0 index)
        (14 3 0 x)
        (68)
        (42)
        (14 3 1 y)
        (14 0 0 index)
        (57)
        (58)
        (26)
        (14 0 0 index)
        (13 1)
        (42)
        (14 0 1 size)
        (14 1 0 loop)
        (24 2)
        967
        (13 ())
        (25)
        (name loop)
      )
      (15 0 0 loop)
      (26)
      (14 0 0 loop)
      (25)
      (name ())
    )
    (24 1)
    966
    (24 2)
    965
    (26)
    (14 0 0 z)
    (25)
    (name ())
  )
  (24 1)
  (name string-append)
)
(17 string-append)
(26)
(23
  (18 1)
  (13 ())
  (13 ())
  (13 ())
  (23
    (18 3)
    (14 1 0 charlist)
    (31)
    (15 0 0 len)
    (26)
    (14 0 0 len)
    (66)
    (15 0 1 newstr)
    (26)
    (23
      (18 4)
      (14 0 1 i)
      (14 0 2 len)
      (47)
      (21 () 969)
      (14 0 0 str)
      (25)
      969
      (14 0 0 str)
      (14 0 1 i)
      (14 0 3 charlist)
      (0)
      (58)
      (26)
      (14 0 0 str)
      (14 0 1 i)
      (13 1)
      (42)
      (14 0 2 len)
      (14 0 3 charlist)
      (1)
      (14 1 2 fill-string!)
      (24 4)
      (name fill-string!)
    )
    (15 0 2 fill-string!)
    (26)
    (14 0 1 newstr)
    (13 0)
    (14 0 0 len)
    (14 1 0 charlist)
    (14 0 2 fill-string!)
    (24 4)
    (name ())
  )
  (24 3)
  (name list->string)
)
(17 list->string)
(26)
(23
  (83 1)
  (13 ())
  (23
    (18 1)
    (23
      (18 2)
      (14 0 1 l)
      (7)
      (21 () 973)
      (13 ())
      (25)
      973
      (22 () 971)
      (14 0 1 l)
      (0)
      (14 0 0 p)
      (24 1)
      971
      (22 () 972)
      (14 0 0 p)
      (14 0 1 l)
      (1)
      (14 1 0 map-over-single-list)
      (24 2)
      972
      (2)
      (25)
      (name map-over-single-list)
    )
    (15 0 0 map-over-single-list)
    (26)
    (13 ())
    (14 1 1 lists)
    (28)
    (21 () 979)
    (13 ())
    (25)
    979
    (22 () 975)
    (22 () 976)
    (16 __primitives)
    (13 0)
    (36)
    (14 1 1 lists)
    (14 0 0 map-over-single-list)
    (24 2)
    976
    (85)
    (14 1 0 proc)
    (84)
    975
    (26)
    (22 () 977)
    (14 1 0 proc)
    (22 () 978)
    (16 __primitives)
    (13 1)
    (36)
    (14 1 1 lists)
    (14 0 0 map-over-single-list)
    (24 2)
    978
    (2)
    (85)
    (16 for-each)
    (84)
    977
    (25)
    (name ())
  )
  (24 1)
  (name for-each)
)
(17 for-each)
(26)
(23
  (18 2)
  (14 0 0 x)
  (39)
  (26)
  (14 0 1 y)
  (39)
  (26)
  (40)
  (26)
  (13 1)
  (87)
  (25)
  (name my-error)
)
(17 my-error)
(26)
(23
  (18 2)
  (14 0 0 x)
  (7)
  (21 () 0)
  (14 0 1 y)
  (25)
  0
  (14 0 0 x)
  (1)
  (14 0 0 x)
  (0)
  (14 0 1 y)
  (2)
  (16 reverse-core)
  (24 2)
  (name reverse-core)
)
(17 reverse-core)
(26)
(23
  (18 1)
  (14 0 0 x)
  (13 ())
  (16 reverse-core)
  (24 2)
  (name rev)
)
(17 rev)
(26)
(23
  (18 2)
  (14 0 0 x)
  (7)
  (21 () 3)
  (14 0 1 y)
  (25)
  3
  (14 0 0 x)
  (0)
  (22 () 2)
  (14 0 0 x)
  (1)
  (14 0 1 y)
  (16 append2)
  (24 2)
  2
  (2)
  (25)
  (name append2)
)
(17 append2)
(26)
(13 0)
(17 label-count)
(26)
(23
  (18 0)
  (16 label-count)
  (13 1)
  (42)
  (17 label-count)
  (26)
  (16 label-count)
  (13 1)
  (43)
  (25)
  (name gen-label)
)
(17 gen-label)
(26)
(13 0)
(17 gensym-count)
(26)
(23
  (18 0)
  (13 "g:::")
  (23
    (18 1)
    (16 gensym-count)
    (71)
    (23
      (18 1)
      (22 () 5)
      (14 1 0 prefix)
      (14 0 0 string-number)
      (16 string-append)
      (24 2)
      5
      (69)
      (23
        (18 1)
        (16 gensym-count)
        (13 1)
        (42)
        (17 gensym-count)
        (26)
        (14 0 0 symbol)
        (25)
        (name ())
      )
      (24 1)
      (name ())
    )
    (24 1)
    (name ())
  )
  (24 1)
  (name gensym)
)
(17 gensym)
(26)
(23
  (18 1)
  (14 0 0 line)
  (74)
  (26)
  (40)
  (26)
  (14 0 0 line)
  (25)
  (name write-line)
)
(17 write-line)
(26)
(23
  (18 1)
  (14 0 0 line)
  (39)
  (26)
  (40)
  (26)
  (14 0 0 line)
  (25)
  (name display-line)
)
(17 display-line)
(26)
(23
  (18 1)
  (14 0 0 level)
  (13 0)
  (51)
  (21 () 6)
  (13 "  ")
  (39)
  (26)
  (14 0 0 level)
  (13 1)
  (43)
  (16 indent)
  (24 1)
  6
  (13 ())
  (25)
  (name indent)
)
(17 indent)
(26)
(23
  (18 1)
  (14 0 0 opcode)
  (32)
  (21 () 12)
  (14 0 0 opcode)
  (25)
  12
  (14 0 0 opcode)
  (13 label)
  (5)
  (21 () 10)
  (14 0 0 opcode)
  (25)
  10
  (14 0 0 opcode)
  (13 ((car 0) (cdr 1) (cons 2) (list? 3) (symbol? 4) (eq? 5) (quote 6) (null? 7) (not 8) (caar 9) (cdar 10) (cadr 11) (cddr 12) (const 13) (lvar 14) (lset 15) (gvar 16) (gset 17) (args 18) (br 19) (btr 20) (bfl 21) (save 22) (proc 23) (callj 24) (return 25) (pop 26) (list-ref 27) (memq 28) (member 29) (assq 30) (length 31) (number? 32) (string? 33) (vector? 34) (vector-length 35) (vector-ref 36) (vector-set! 37) (eof-object? 38) (display 39) (newline 40) (/ 41) (+ 42) (- 43) (* 44) (quotient 45) (remainder 46) (= 47) (modulo 48) (< 49) (<= 50) (> 51) (>= 52) (equal? 53) (set-car! 54) (set-cdr! 55) (read-char 56) (string-ref 57) (string-set! 58) (write-char 59) (list-tail 60) (char=? 61) (char-numeric? 62) (char-alphabetic? 63) (char-upcase 64) (char-downcase 65) (make-string 66) (string=? 67) (string-length 68) (string->symbol 69) (string->number 70) (number->string 71) (symbol->string 72) (make-vector 73) (write 74) (trace 75) (eqv? 76) (char? 77) (char->integer 78) (integer->char 79) (halt 80) (pair? 81) (symbol-hash 82) (argsd 83) (callnj 84) (argl 85) (procedure? 86) (exit 87) (boolean? 88) (cc 89) (setcc 90) (memv 91) (assv 92) (integer? 93) (make-vector-with-fill 94) (make-string-with-fill 95) (bitwise-and 96) (bitwise-or 97) (bitwise-ior 97) (bitwise-not 98) (bitwise-xor 99) (arithmetic-shift 100) (string<? 101) (string>? 102) (string<=? 103) (string>=? 104) (string-ci<? 105) (string-ci>? 106) (string-ci<=? 107) (string-ci>=? 108) (string-ci=? 109) (real? 110) (exact->inexact 115) (inexact->exact 116)))
  (30)
  (23
    (18 1)
    (14 0 0 x)
    (21 () 8)
    (14 0 0 x)
    (11)
    (25)
    8
    (13 "* error ")
    (39)
    (26)
    (14 1 0 opcode)
    (39)
    (26)
    (40)
    (26)
    (13 999)
    (25)
    (name ())
  )
  (24 1)
  (name opcode-value)
)
(17 opcode-value)
(26)
(23
  (18 1)
  (14 0 0 instruction)
  (4)
  (21 () 15)
  (14 0 0 instruction)
  (16 opcode-value)
  (24 1)
  15
  (22 () 14)
  (14 0 0 instruction)
  (0)
  (16 opcode-value)
  (24 1)
  14
  (14 0 0 instruction)
  (1)
  (2)
  (13 ())
  (2)
  (25)
  (name gen-instruction)
)
(17 gen-instruction)
(26)
(23
  (18 1)
  (22 () 17)
  (14 0 0 opcode)
  (16 gen-instruction)
  (24 1)
  17
  (13 ())
  (2)
  (13 ())
  (2)
  (25)
  (name gen-opcode)
)
(17 gen-opcode)
(26)
(23
  (18 0)
  (13 ())
  (25)
  (name compile-nothing)
)
(17 compile-nothing)
(26)
(23
  (18 3)
  (14 0 1 val?)
  (21 () 21)
  (14 0 2 more?)
  (21 () 19)
  (14 0 0 instruction)
  (25)
  19
  (14 0 0 instruction)
  (22 () 18)
  (16 compile-return)
  (24 0)
  18
  (16 append2)
  (24 2)
  21
  (16 compile-nothing)
  (24 0)
  (name val-more)
)
(17 val-more)
(26)
(23
  (18 3)
  (22 () 23)
  (13 const)
  (14 0 0 const)
  (13 ())
  (2)
  (2)
  (16 gen-instruction)
  (24 1)
  23
  (14 0 1 val?)
  (14 0 2 more?)
  (16 val-more)
  (24 3)
  (name compile-const)
)
(17 compile-const)
(26)
(23
  (18 4)
  (22 () 24)
  (13 lvar)
  (14 0 1 location)
  (0)
  (14 0 1 location)
  (1)
  (14 0 0 var)
  (13 ())
  (2)
  (2)
  (2)
  (2)
  (16 gen-instruction)
  (24 1)
  24
  (14 0 2 val?)
  (14 0 3 more?)
  (16 val-more)
  (24 3)
  (name compile-local)
)
(17 compile-local)
(26)
(23
  (18 3)
  (22 () 25)
  (13 gvar)
  (14 0 0 var)
  (13 ())
  (2)
  (2)
  (16 gen-instruction)
  (24 1)
  25
  (14 0 1 val?)
  (14 0 2 more?)
  (16 val-more)
  (24 3)
  (name compile-global)
)
(17 compile-global)
(26)
(23
  (18 4)
  (14 0 1 location)
  (7)
  (21 () 26)
  (14 0 0 var)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-global)
  (24 3)
  26
  (14 0 0 var)
  (14 0 1 location)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-local)
  (24 4)
  (name compile-var)
)
(17 compile-var)
(26)
(23
  (18 2)
  (13 lset)
  (14 0 1 location)
  (0)
  (14 0 1 location)
  (1)
  (14 0 0 var)
  (13 ())
  (2)
  (2)
  (2)
  (2)
  (16 gen-instruction)
  (24 1)
  (name compile-local-set)
)
(17 compile-local-set)
(26)
(23
  (18 1)
  (13 gset)
  (14 0 0 var)
  (13 ())
  (2)
  (2)
  (16 gen-instruction)
  (24 1)
  (name compile-global-set)
)
(17 compile-global-set)
(26)
(23
  (18 2)
  (14 0 1 location)
  (7)
  (21 () 28)
  (14 0 0 var)
  (16 compile-global-set)
  (24 1)
  28
  (14 0 0 var)
  (14 0 1 location)
  (16 compile-local-set)
  (24 2)
  (name compile-set!)
)
(17 compile-set!)
(26)
(23
  (18 1)
  (13 ())
  (14 0 0 label)
  (13 ())
  (2)
  (2)
  (25)
  (name make-label)
)
(17 make-label)
(26)
(23
  (18 1)
  (13 br)
  (22 () 30)
  (14 0 0 label)
  (16 make-label)
  (24 1)
  30
  (2)
  (16 gen-instruction)
  (24 1)
  (name compile-br)
)
(17 compile-br)
(26)
(23
  (18 1)
  (13 btr)
  (22 () 31)
  (14 0 0 label)
  (16 make-label)
  (24 1)
  31
  (2)
  (16 gen-instruction)
  (24 1)
  (name compile-btr)
)
(17 compile-btr)
(26)
(23
  (18 1)
  (13 bfl)
  (22 () 32)
  (14 0 0 label)
  (16 make-label)
  (24 1)
  32
  (2)
  (16 gen-instruction)
  (24 1)
  (name compile-bfl)
)
(17 compile-bfl)
(26)
(23
  (18 1)
  (13 label)
  (14 0 0 label)
  (13 ())
  (2)
  (2)
  (16 gen-instruction)
  (24 1)
  (name compile-label)
)
(17 compile-label)
(26)
(23
  (18 0)
  (13 pop)
  (13 ())
  (2)
  (16 gen-instruction)
  (24 1)
  (name compile-pop)
)
(17 compile-pop)
(26)
(23
  (18 2)
  (14 0 0 args)
  (7)
  (21 () 39)
  (13 args)
  (14 0 1 n)
  (13 ())
  (2)
  (2)
  (16 gen-instruction)
  (24 1)
  39
  (14 0 0 args)
  (4)
  (21 () 37)
  (13 argsd)
  (14 0 1 n)
  (13 ())
  (2)
  (2)
  (16 gen-instruction)
  (24 1)
  37
  (14 0 0 args)
  (81)
  (21 () 33)
  (14 0 0 args)
  (0)
  (4)
  (19 () 34)
  33
  (13 #f)
  34
  (21 () 35)
  (14 0 0 args)
  (1)
  (14 0 1 n)
  (13 1)
  (42)
  (16 compile-args)
  (24 2)
  35
  (13 "illegal argument list -- ")
  (14 0 0 args)
  (16 my-error)
  (24 2)
  (name compile-args)
)
(17 compile-args)
(26)
(23
  (18 0)
  (13 return)
  (13 ())
  (2)
  (16 gen-instruction)
  (24 1)
  (name compile-return)
)
(17 compile-return)
(26)
(23
  (18 1)
  (13 save)
  (22 () 41)
  (14 0 0 label)
  (16 make-label)
  (24 1)
  41
  (2)
  (16 gen-instruction)
  (24 1)
  (name compile-save)
)
(17 compile-save)
(26)
(23
  (18 1)
  (13 callj)
  (14 0 0 n)
  (13 ())
  (2)
  (2)
  (16 gen-instruction)
  (24 1)
  (name compile-callj)
)
(17 compile-callj)
(26)
(23
  (18 0)
  (13 callnj)
  (13 ())
  (2)
  (16 gen-instruction)
  (24 1)
  (name compile-callnj)
)
(17 compile-callnj)
(26)
(23
  (18 0)
  (13 argl)
  (13 ())
  (2)
  (16 gen-instruction)
  (24 1)
  (name compile-argl)
)
(17 compile-argl)
(26)
(23
  (18 1)
  (14 0 0 more?)
  (21 () 42)
  (16 compile-nothing)
  (24 0)
  42
  (16 compile-return)
  (24 0)
  (name if-no-more-compile-return)
)
(17 if-no-more-compile-return)
(26)
(23
  (18 1)
  (14 0 0 val?)
  (21 () 44)
  (16 compile-nothing)
  (24 0)
  44
  (16 compile-pop)
  (24 0)
  (name if-no-val-compile-pop)
)
(17 if-no-val-compile-pop)
(26)
(23
  (18 2)
  (14 0 0 more?)
  (21 () 46)
  (14 0 1 target)
  (16 compile-br)
  (24 1)
  46
  (16 compile-nothing)
  (24 0)
  (name if-more-compile-br)
)
(17 if-more-compile-br)
(26)
(23
  (18 2)
  (14 0 0 more?)
  (21 () 48)
  (14 0 1 target)
  (16 compile-label)
  (24 1)
  48
  (16 compile-nothing)
  (24 0)
  (name if-more-compile-label)
)
(17 if-more-compile-label)
(26)
(23
  (18 3)
  (14 0 1 a)
  (7)
  (21 () 52)
  (13 ())
  (25)
  52
  (14 0 0 x)
  (14 0 1 a)
  (0)
  (5)
  (21 () 50)
  (14 0 2 n)
  (25)
  50
  (14 0 0 x)
  (14 0 1 a)
  (1)
  (14 0 2 n)
  (13 1)
  (42)
  (16 position)
  (24 3)
  (name position)
)
(17 position)
(26)
(23
  (18 3)
  (14 0 1 env)
  (7)
  (21 () 57)
  (13 ())
  (25)
  57
  (22 () 54)
  (14 0 0 var)
  (14 0 1 env)
  (0)
  (13 0)
  (16 position)
  (24 3)
  54
  (23
    (18 1)
    (14 0 0 y)
    (32)
    (21 () 55)
    (14 1 2 x)
    (14 0 0 y)
    (2)
    (25)
    55
    (14 1 0 var)
    (14 1 1 env)
    (1)
    (14 1 2 x)
    (13 1)
    (42)
    (16 variable-location2)
    (24 3)
    (name ())
  )
  (24 1)
  (name variable-location2)
)
(17 variable-location2)
(26)
(23
  (18 2)
  (14 0 1 env)
  (7)
  (21 () 59)
  (13 ())
  (25)
  59
  (14 0 0 var)
  (14 0 1 env)
  (13 0)
  (16 variable-location2)
  (24 3)
  (name variable-location)
)
(17 variable-location)
(26)
(23
  (18 3)
  (22 () 61)
  (14 0 0 proc)
  (14 0 2 env)
  (16 variable-location)
  (24 2)
  61
  (7)
  (21 () 90)
  (14 0 0 proc)
  (23
    (18 1)
    (14 0 0 g:::0)
    (13 display)
    (76)
    (21 () 88)
    (14 1 1 n-args)
    (13 1)
    (47)
    (21 () 62)
    (13 (display #t))
    (25)
    62
    (13 (displayfile #t))
    (25)
    88
    (14 0 0 g:::0)
    (13 write)
    (76)
    (21 () 86)
    (14 1 1 n-args)
    (13 1)
    (47)
    (21 () 64)
    (13 (write #t))
    (25)
    64
    (13 (writefile #t))
    (25)
    86
    (14 0 0 g:::0)
    (13 write-char)
    (76)
    (21 () 84)
    (14 1 1 n-args)
    (13 1)
    (47)
    (21 () 66)
    (13 (write-char #t))
    (25)
    66
    (13 (writecharfile #t))
    (25)
    84
    (14 0 0 g:::0)
    (13 newline)
    (76)
    (21 () 82)
    (14 1 1 n-args)
    (13 0)
    (47)
    (21 () 68)
    (13 (newline #t))
    (25)
    68
    (13 (newlinefile #t))
    (25)
    82
    (14 0 0 g:::0)
    (13 read-char)
    (76)
    (21 () 80)
    (14 1 1 n-args)
    (13 0)
    (47)
    (21 () 70)
    (13 (read-char #f))
    (25)
    70
    (13 (readcharfile #f))
    (25)
    80
    (14 0 0 g:::0)
    (13 make-vector)
    (76)
    (21 () 78)
    (14 1 1 n-args)
    (13 1)
    (47)
    (21 () 72)
    (13 (make-vector #f))
    (25)
    72
    (13 (make-vector-with-fill #f))
    (25)
    78
    (14 0 0 g:::0)
    (13 make-string)
    (76)
    (21 () 76)
    (14 1 1 n-args)
    (13 1)
    (47)
    (21 () 74)
    (13 (make-string #f))
    (25)
    74
    (13 (make-string-with-fill #f))
    (25)
    76
    (14 1 0 proc)
    (13 ((car #f) (cdr #f) (caar #f) (cadr #f) (cdar #f) (cddr #f) (list-ref #f) (list-tail #f) (eqv? #f) (memq #f) (memv #f) (member #f) (assq #f) (assv #f) (cons #f) (not #f) (null? #f) (eq? #f) (symbol? #f) (pair? #f) (list? #f) (number? #f) (string? #f) (string-length #f) (string-ref #f) (string-set! #t) (string=? #f) (string<? #f) (string>? #f) (string<=? #f) (string>=? #f) (string-ci<? #f) (string-ci>? #f) (string-ci<=? #f) (string-ci>=? #f) (string-ci=? #f) (string->symbol #f) (symbol->string #f) (string->number #f) (number->string #f) (symbol-hash #f) (char? #f) (char=? #f) (char-alphabetic? #f) (char-numeric? #f) (char-upcase #f) (char-downcase #f) (char->integer #f) (integer->char #f) (integer? #f) (real? #f) (+ #f) (- #f) (* #f) (/ #f) (quotient #f) (remainder #f) (modulo #f) (bitwise-and #f) (bitwise-or #f) (bitwise-ior #f) (bitwise-xor #f) (bitwise-not #f) (arithmetic-shift #f) (inexact->exact #f) (exact->inexact #f) (length #f) (= #f) (< #f) (> #f) (<= #f) (>= #f) (equal? #f) (set-car! #t) (set-cdr! #t) (vector? #f) (vector-length #f) (vector-ref #f) (vector-set! #t) (boolean? #f) (procedure? #f) (eval #t) (apply #t) (write #t) (write-char #t) (newline #t) (read-char #f) (eof-object? #f) (exit #t)))
    (30)
    (25)
    (name ())
  )
  (24 1)
  90
  (13 #f)
  (25)
  (name primitive-procedure?)
)
(17 primitive-procedure?)
(26)
(23
  (18 1)
  (14 0 0 primitive-procedure)
  (11)
  (13 #t)
  (5)
  (25)
  (name primitive-has-side-effect?)
)
(17 primitive-has-side-effect?)
(26)
(23
  (18 2)
  (14 0 0 val?)
  (21 () 95)
  (13 #f)
  (25)
  95
  (22 () 92)
  (14 0 1 primitive-procedure)
  (16 primitive-has-side-effect?)
  (24 1)
  92
  (21 () 93)
  (13 #f)
  (25)
  93
  (13 #t)
  (25)
  (name no-val-and-no-side-effect?)
)
(17 no-val-and-no-side-effect?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 107)
  (13 #t)
  (25)
  107
  (14 0 0 e)
  (32)
  (21 () 105)
  (13 #t)
  (25)
  105
  (14 0 0 e)
  (33)
  (21 () 103)
  (13 #t)
  (25)
  103
  (14 0 0 e)
  (13 #f)
  (5)
  (21 () 101)
  (13 #t)
  (25)
  101
  (14 0 0 e)
  (13 #t)
  (5)
  (21 () 99)
  (13 #t)
  (25)
  99
  (14 0 0 e)
  (77)
  (21 () 97)
  (13 #t)
  (25)
  97
  (13 #f)
  (25)
  (name self-evaluating?)
)
(17 self-evaluating?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 109)
  (13 #f)
  (19 () 110)
  109
  (14 0 0 e)
  (4)
  (8)
  110
  (21 () 111)
  (14 0 0 e)
  (0)
  (13 quote)
  (5)
  (25)
  111
  (13 #f)
  (25)
  (name quoted?)
)
(17 quoted?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (11)
  (25)
  (name text-of-quotation)
)
(17 text-of-quotation)
(26)
(23
  (18 1)
  (22 () 113)
  (14 0 0 e)
  (16 check-call/cc)
  (24 1)
  113
  (26)
  (22 () 114)
  (14 0 0 e)
  (16 log-library-procedure-call)
  (24 1)
  114
  (26)
  (14 0 0 e)
  (4)
  (25)
  (name variable?)
)
(17 variable?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 115)
  (13 #f)
  (25)
  115
  (14 0 0 e)
  (0)
  (13 set!)
  (5)
  (25)
  (name assignment?)
)
(17 assignment?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (11)
  (25)
  (name assignment-variable)
)
(17 assignment-variable)
(26)
(23
  (18 1)
  (14 0 0 e)
  (12)
  (0)
  (25)
  (name assignment-value)
)
(17 assignment-value)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 117)
  (13 #f)
  (25)
  117
  (14 0 0 e)
  (0)
  (13 define)
  (5)
  (25)
  (name definition?)
)
(17 definition?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 119)
  (13 #f)
  (25)
  119
  (14 0 0 e)
  (0)
  (13 lambda)
  (5)
  (25)
  (name lambda?)
)
(17 lambda?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 121)
  (13 #f)
  (25)
  121
  (14 0 0 e)
  (0)
  (13 cond)
  (5)
  (25)
  (name conditional?)
)
(17 conditional?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 123)
  (13 #f)
  (25)
  123
  (14 0 0 e)
  (0)
  (13 if)
  (5)
  (25)
  (name if?)
)
(17 if?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 125)
  (13 #f)
  (25)
  125
  (14 0 0 e)
  (0)
  (13 let)
  (5)
  (25)
  (name let?)
)
(17 let?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 127)
  (13 #f)
  (25)
  127
  (14 0 0 e)
  (0)
  (13 let*)
  (5)
  (25)
  (name let*?)
)
(17 let*?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 129)
  (13 #f)
  (25)
  129
  (14 0 0 e)
  (0)
  (13 letrec)
  (5)
  (25)
  (name letrec?)
)
(17 letrec?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 131)
  (13 #f)
  (25)
  131
  (14 0 0 e)
  (0)
  (13 begin)
  (5)
  (25)
  (name begin?)
)
(17 begin?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 133)
  (13 #f)
  (25)
  133
  (14 0 0 e)
  (0)
  (13 list)
  (5)
  (25)
  (name list-?)
)
(17 list-?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 137)
  (13 #f)
  (25)
  137
  (14 0 0 e)
  (0)
  (13 (+ - * /))
  (28)
  (21 () 135)
  (14 0 0 e)
  (1)
  (31)
  (13 2)
  (47)
  (8)
  (25)
  135
  (13 #f)
  (25)
  (name arith-terms?)
)
(17 arith-terms?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 139)
  (13 #f)
  (25)
  139
  (14 0 0 e)
  (0)
  (13 or)
  (5)
  (25)
  (name or?)
)
(17 or?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 141)
  (13 #f)
  (25)
  141
  (14 0 0 e)
  (0)
  (13 and)
  (5)
  (25)
  (name and?)
)
(17 and?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 143)
  (13 #f)
  (25)
  143
  (14 0 0 e)
  (0)
  (13 while)
  (5)
  (25)
  (name while?)
)
(17 while?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 145)
  (13 #f)
  (25)
  145
  (14 0 0 e)
  (0)
  (13 case)
  (5)
  (25)
  (name case?)
)
(17 case?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 147)
  (13 #f)
  (25)
  147
  (14 0 0 e)
  (0)
  (13 do)
  (5)
  (25)
  (name do?)
)
(17 do?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 149)
  (13 #f)
  (25)
  149
  (14 0 0 e)
  (0)
  (13 quasiquote)
  (5)
  (25)
  (name quasiquoted?)
)
(17 quasiquoted?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 151)
  (13 #f)
  (25)
  151
  (14 0 0 e)
  (0)
  (13 string)
  (5)
  (25)
  (name string-?)
)
(17 string-?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (1)
  (25)
  (name clauses)
)
(17 clauses)
(26)
(23
  (18 1)
  (14 0 0 clauses)
  (7)
  (25)
  (name no-clauses?)
)
(17 no-clauses?)
(26)
(23
  (18 1)
  (14 0 0 clauses)
  (0)
  (25)
  (name first-clause)
)
(17 first-clause)
(26)
(23
  (18 1)
  (14 0 0 clauses)
  (1)
  (25)
  (name rest-clauses)
)
(17 rest-clauses)
(26)
(23
  (18 1)
  (14 0 0 clause)
  (1)
  (25)
  (name actions)
)
(17 actions)
(26)
(23
  (18 1)
  (14 0 0 clause)
  (81)
  (21 () 153)
  (14 0 0 clause)
  (0)
  (25)
  153
  (13 ())
  (25)
  (name predicate)
)
(17 predicate)
(26)
(23
  (18 1)
  (22 () 155)
  (14 0 0 clause)
  (16 predicate)
  (24 1)
  155
  (13 else)
  (5)
  (25)
  (name else-clause?)
)
(17 else-clause?)
(26)
(23
  (18 1)
  (14 0 0 seq)
  (1)
  (7)
  (25)
  (name last-exp?)
)
(17 last-exp?)
(26)
(23
  (18 1)
  (14 0 0 e)
  (4)
  (8)
  (25)
  (name application?)
)
(17 application?)
(26)
(13 #f)
(17 program-has-call/cc)
(26)
(13 23)
(13 18)
(13 1)
(13 ())
(2)
(2)
(13 89)
(13 ())
(2)
(13 14)
(13 0)
(13 0)
(13 f)
(13 ())
(2)
(2)
(2)
(2)
(13 24)
(13 1)
(13 ())
(2)
(2)
(13 ())
(2)
(2)
(2)
(2)
(13 ())
(2)
(2)
(13 17)
(13 call/cc)
(13 ())
(2)
(2)
(13 26)
(13 ())
(2)
(13 ())
(2)
(2)
(2)
(13 ())
(2)
(17 call/cc-code)
(26)
(13 zero?)
(13 #f)
(13 (define zero? (lambda (x) (= x 0))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 positive?)
(13 #f)
(13 (define positive? (lambda (x) (> x 0))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 negative?)
(13 #f)
(13 (define negative? (lambda (x) (< x 0))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 abs)
(13 #f)
(13 (define abs (lambda (x) (if (< x 0) (- x) x))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 truncate)
(13 #f)
(13 (define (truncate x) (exact->inexact (inexact->exact x))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 floor)
(13 #f)
(13 (define (floor x) (if (>= x 0.000000000000e0) (truncate x) (let ((y (truncate x))) (if (= x y) y (- y 0.100000000000e1))))))
(13 (truncate))
(13 ())
(2)
(2)
(2)
(2)
(13 ceiling)
(13 #f)
(13 (define (ceiling x) (- (floor (- x)))))
(13 (floor))
(13 ())
(2)
(2)
(2)
(2)
(13 round)
(13 #f)
(13 (define (round x) (floor (+ x 0.500000000000e0))))
(13 (floor))
(13 ())
(2)
(2)
(2)
(2)
(13 even?)
(13 #f)
(13 (define (even? x) (= 0 (modulo x 2))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 odd?)
(13 #f)
(13 (define (odd? x) (= 1 (modulo x 2))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 gcd)
(13 #f)
(13 (define (gcd a b) (if (= b 0) (abs a) (gcd b (modulo a b)))))
(13 (abs))
(13 ())
(2)
(2)
(2)
(2)
(13 lcm)
(13 #f)
(13 (define (lcm a b) (quotient (abs (* a b)) (gcd a b))))
(13 (abs gcd))
(13 ())
(2)
(2)
(2)
(2)
(13 list)
(13 #f)
(13 (define list (lambda x x)))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 read)
(13 #f)
(13 (define read (lambda args (letrec ((token-type (quote ())) (paren-level 0) (ch #\space) (previous-ch #\space) (tab-char (integer->char 9)) (carriage-return (integer->char 13)) (white-space (list #\space #\newline tab-char carriage-return)) (readin (lambda () (letrec ((my-list->vector (lambda (l) (let ((size (length l))) (let ((v (make-vector size))) (do ((i 0 (+ i 1))) ((= i size)) (vector-set! v i (car l)) (set! l (cdr l))) v)))) (get-token (lambda () (letrec ((token (quote ())) (token-list (quote ())) (token-new (quote ())) (token-tail (quote ())) (char-alpha-numeric? (lambda () (or (char-alphabetic? ch) (char-numeric? ch)))) (skip-past-alpha (lambda () (let loop () (if (char-alpha-numeric?) (begin (get-ch) (skip-past-alpha) (loop)))))) (get-ch (lambda () (set! ch (read-char)) (if (char=? ch #\newline) (set! ch #\space)))) (get-ch-no-newline (lambda () (set! ch (read-char)))) (skip-line (lambda () (if (char=? ch #\newline) (get-ch) (begin (get-ch-no-newline) (skip-line))))) (skip-blanks (lambda () (cond ((eof-object? ch)) ((char=? ch #\;) (skip-line) (skip-blanks)) ((memq ch white-space) (get-ch) (skip-blanks)) (else (quote ()))))) (replace-last-ch (lambda () (set-car! token-tail ch) (set! previous-ch ch) (get-ch))) (append-to-list (lambda () (set! token-new (list ch)) (if (not (null? token-list)) (begin (set-cdr! token-tail token-new) (set! token-tail (cdr token-tail))) (begin (set! token-list token-new) (set! token-tail token-new))) (set! previous-ch ch) (get-ch))) (get-binary-radix-number (lambda () (get-ch) (let loop () (if (not (or (memq ch white-space) (memq ch (quote (#\( #\)))) (eof-object? ch))) (begin (append-to-list) (loop)))) (set! token-list (reverse token-list)) (set! token 0) (let loop ((power 1)) (if (not (null? token-list)) (let ((dig (car token-list))) (if (char=? dig #\1) (set! token (+ token power))) (set! token-list (cdr token-list)) (loop (* power 2))))))) (hex-dig (lambda (dig) (if (char-numeric? dig) (- (char->integer dig) (char->integer #\0)) (+ (- (char->integer dig) (char->integer #\a)) 10)))) (get-hex-radix-number (lambda () (get-ch) (let loop () (if (not (or (memq ch white-space) (memq ch (quote (#\( #\)))) (eof-object? ch))) (begin (append-to-list) (loop)))) (set! token-list (reverse token-list)) (set! token 0) (let loop ((power 1)) (if (not (null? token-list)) (let ((dig (car token-list))) (set! dig (char-downcase dig)) (set! token (+ token (* power (hex-dig dig)))) (set! token-list (cdr token-list)) (loop (* power 16))))))) (get-vector (lambda () (get-ch) (if (member ch (quote (#\t #\f))) (begin (set! token-type (quote boolean-tok)) (if (char=? ch #\t) (set! token #t) (set! token #f)) (get-ch)) (if (member ch (quote (#\b #\x))) (begin (set! token-type (quote symbol-tok)) (if (char=? ch #\b) (get-binary-radix-number) (get-hex-radix-number))) (if (char=? ch #\\) (begin (set! token-type (quote char-tok)) (get-ch) (set! token ch) (let ((first-ch ch)) (get-ch) (case first-ch ((#\s) (if (char=? ch #\p) (begin (set! token #\space) (skip-past-alpha)))) ((#\n) (if (char=? ch #\e) (begin (set! token #\newline) (skip-past-alpha))))))) (set! token-type (quote vector-tok))))))) (get-string (lambda () (get-ch) (let loop () (if (not (or (char=? ch #\") (eof-object? ch))) (begin (append-to-list) (if (char=? previous-ch #\\) (replace-last-ch)) (loop)))) (get-ch) (set! token-type (quote string-tok)) (set! token (list->string token-list)))) (append-e0! (lambda (token) (let ((token-tail (list-tail token (- (length token) 1)))) (set-cdr! token-tail (list #\e #\0))))) (number-token? (lambda (token) (letrec ((ch #\space) (end-of-token (integer->char 0)) (return #f) (has-decimal #f) (has-e #f) (save-token token) (next-ch (lambda () (if (null? token) (set! ch end-of-token) (begin (set! ch (car token)) (if (char=? ch #\.) (set! has-decimal #t) (if (or (char=? ch #\e) (char=? ch #\E)) (set! has-e #t))) (set! token (cdr token)))))) (state-0 (lambda () (next-ch) (cond ((char=? ch #\-) (state-1)) ((char-numeric? ch) (state-2)) ((char=? ch #\.) (state-3)) (else (quote ()))))) (state-1 (lambda () (next-ch) (cond ((char=? ch #\.) (state-3)) ((char-numeric? ch) (state-2)) (else (quote ()))))) (state-2 (lambda () (next-ch) (cond ((char=? ch #\.) (state-3)) ((char-numeric? ch) (state-2)) ((or (char=? ch #\e) (char=? ch #\E)) (state-4)) ((char=? ch end-of-token) (state-7)) (else (quote ()))))) (state-3 (lambda () (next-ch) (cond ((or (char=? ch #\e) (char=? ch #\E)) (state-4)) ((char-numeric? ch) (state-3)) ((char=? ch end-of-token) (state-7)) (else (quote ()))))) (state-4 (lambda () (next-ch) (cond ((or (char=? ch #\+) (char=? ch #\-)) (state-5)) ((char-numeric? ch) (state-6)) (else (quote ()))))) (state-5 (lambda () (next-ch) (if (char-numeric? ch) (state-6)))) (state-6 (lambda () (next-ch) (cond ((char=? ch end-of-token) (state-7)) ((char-numeric? ch) (state-6)) (else (quote ()))))) (state-7 (lambda () (if (and has-decimal (not has-e)) (append-e0! save-token)) (set! return #t)))) (state-0) return))) (get-symbol (lambda () (let loop () (if (not (or (memq ch white-space) (memq ch (quote (#\( #\)))) (eof-object? ch))) (begin (set! ch (char-downcase ch)) (append-to-list) (loop)))) (if (equal? token-list (quote (#\.))) (set! token-type (quote dot-tok)) (begin (set! token-type (quote symbol-tok)) (if (number-token? token-list) (set! token (string->number (list->string token-list))) (set! token (string->symbol (list->string token-list))))))))) (skip-blanks) (if (eof-object? ch) (begin (set! token-type (quote eof-tok)) (set! token ch)) (let ((match (assv ch (quote ((#\( opar-tok) (#\) cpar-tok) (#\' tic-tok) (#\, comma-tok) (#\` backtic-tok) (#\# vector-tok) (#\" string-tok)))))) (if match (case (cadr match) ((opar-tok cpar-tok tic-tok backtic-tok) (set! token-type (cadr match)) (set! token ch) (cond ((eq? token-type (quote opar-tok)) (set! paren-level (+ paren-level 1)) (get-ch)) ((eq? token-type (quote cpar-tok)) (set! paren-level (- paren-level 1)) (if (> paren-level 0) (get-ch))) (else (get-ch)))) ((comma-tok) (set! token-type (cadr match)) (set! token ch) (get-ch) (if (char=? ch #\@) (begin (set! token-type (quote at-tok)) (set! token ch) (get-ch)))) ((vector-tok) (get-vector)) ((string-tok) (get-string))) (get-symbol)))) token))) (bad-sexpr (lambda (sexpr) (error "bad sexpr" sexpr))) (read-dot-token (lambda () (let ((token (get-token))) (case token-type ((opar-tok) (set! token (read-list)) (get-token) token) ((tic-tok) (set! token (list (cons (quote quote) (list (readin))))) token) ((backtic-tok) (set! token (list (cons (quote quasiquote) (list (readin))))) token) ((comma-tok) (set! token (list (cons (quote unquote) (list (readin))))) token) ((at-tok) (set! token (list (cons (quote unquote-splicing) (list (readin))))) token) (else (if (not (or (eq? token-type (quote symbol-tok)) (eq? token-type (quote string-tok)))) (bad-sexpr token)) (get-token) (if (not (eq? token-type (quote cpar-tok))) (bad-sexpr "expecting close paren")) token))))) (read-list (lambda () (let ((lst (quote ())) (tail (quote ())) (new (quote ()))) (let loop ((token (get-token))) (if (not (eq? token-type (quote cpar-tok))) (begin (case token-type ((opar-tok) (set! new (list (read-list)))) ((dot-tok) (set-cdr! tail (read-dot-token)) (set! token-type (quote was-dot-tok))) ((eof-tok) (bad-sexpr "unexpected end of file")) ((tic-tok) (set! new (list (cons (quote quote) (list (readin)))))) ((backtic-tok) (set! new (list (cons (quote quasiquote) (list (readin)))))) ((comma-tok) (set! new (list (cons (quote unquote) (list (readin)))))) ((at-tok) (set! new (list (cons (quote unquote-splicing) (list (readin)))))) ((vector-tok) (set! new (list (read-vector)))) (else (set! new (list token)))) (if (not (eq? token-type (quote was-dot-tok))) (begin (if (not (null? lst)) (begin (set-cdr! tail new) (set! tail (cdr tail))) (begin (set! lst new) (set! tail new))) (loop (get-token))) (begin (set! token-type (quote cpar-tok))))))) lst))) (read-vector (lambda () (get-token) (if (eq? token-type (quote opar-tok)) (my-list->vector (read-list)) (bad-sexpr "expecting open paren"))))) (let ((token (get-token))) (case token-type ((opar-tok) (read-list)) ((tic-tok) (cons (quote quote) (list (readin)))) ((backtic-tok) (cons (quote quasiquote) (list (readin)))) ((comma-tok) (cons (quote unquote) (list (readin)))) ((at-tok) (cons (quote unquote-splicing) (list (readin)))) ((vector-tok) (read-vector)) ((cpar-tok) (bad-sexpr "unexpected close paren")) (else token))))))) (readin)))))
(13 (error list->string reverse))
(13 ())
(2)
(2)
(2)
(2)
(13 error)
(13 #f)
(13 (define (error reason . args) (display "Error: ") (display reason) (for-each (lambda (arg) (display " ") (display arg)) args) (newline) (exit 1)))
(13 (for-each))
(13 ())
(2)
(2)
(2)
(2)
(13 fold-right)
(13 #f)
(13 (define (fold-right f init seq) (if (null? seq) init (f (car seq) (fold-right f init (cdr seq))))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 fold-left)
(13 #f)
(13 (define (fold-left f init seq) (if (null? seq) init (fold-left f (f init (car seq)) (cdr seq)))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 reverse)
(13 #f)
(13 (define (reverse x) (letrec ((rev (lambda (x y) (cond ((null? x) y) (else (rev (cdr x) (cons (car x) y))))))) (rev x (quote ())))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 max)
(13 #f)
(13 (define (max first . rest) (fold-left (lambda (x y) (if (> x y) x y)) first rest)))
(13 (fold-left))
(13 ())
(2)
(2)
(2)
(2)
(13 min)
(13 #f)
(13 (define (min first . rest) (fold-left (lambda (x y) (if (< x y) x y)) first rest)))
(13 (fold-left))
(13 ())
(2)
(2)
(2)
(2)
(13 complex?)
(13 #f)
(13 (define (complex? x) (number? x)))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 rational?)
(13 #f)
(13 (define (rational? x) (integer? x)))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 exact?)
(13 #f)
(13 (define (exact? x) (integer? x)))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 inexact?)
(13 #f)
(13 (define (inexact? x) (not (integer? x))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 append)
(13 #f)
(13 (define (append . lsts) (letrec ((append-two (lambda (list1 list2) (if (null? list1) list2 (cons (car list1) (append-two (cdr list1) list2))))) (improper-list? (lambda (l) (not (or (null? l) (pair? l))))) (fold-right-append (lambda (f init seq) (cond ((null? seq) init) ((null? (car seq)) (cadr seq)) ((null? (cdr seq)) (append-two (car seq) (cdr seq))) ((not (pair? (cdr seq))) (append-two (car seq) (cdr seq))) ((improper-list? (cdr (cadr seq))) (append-two (car seq) (cadr seq))) (else (f (car seq) (fold-right-append f init (cdr seq)))))))) (cond ((null? lsts) (quote ())) ((null? (cdr lsts)) (car lsts)) (else (fold-right-append (lambda (sublist acc) (append-two sublist acc)) (quote ()) lsts))))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 char-lower-case?)
(13 #f)
(13 (define (char-lower-case? x) (let ((x (char->integer x))) (and (>= x 97) (<= x 122)))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 char-upper-case?)
(13 #f)
(13 (define (char-upper-case? x) (let ((x (char->integer x))) (and (>= x 65) (<= x 90)))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 char-whitespace?)
(13 #f)
(13 (define (char-whitespace? x) (let ((x (char->integer x))) (or (= x 32) (= x 10) (= x 9) (= x 13)))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 char<?)
(13 #f)
(13 (define (char<? x y) (< (char->integer x) (char->integer y))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 char>?)
(13 #f)
(13 (define (char>? x y) (> (char->integer x) (char->integer y))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 char<=?)
(13 #f)
(13 (define (char<=? x y) (<= (char->integer x) (char->integer y))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 char>=?)
(13 #f)
(13 (define (char>=? x y) (>= (char->integer x) (char->integer y))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 char-ci=?)
(13 #f)
(13 (define (char-ci=? x y) (= (char->integer (char-upcase x)) (char->integer (char-upcase y)))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 char-ci<?)
(13 #f)
(13 (define (char-ci<? x y) (< (char->integer (char-upcase x)) (char->integer (char-upcase y)))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 char-ci>?)
(13 #f)
(13 (define (char-ci>? x y) (> (char->integer (char-upcase x)) (char->integer (char-upcase y)))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 char-ci<=?)
(13 #f)
(13 (define (char-ci<=? x y) (<= (char->integer (char-upcase x)) (char->integer (char-upcase y)))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 char-ci>=?)
(13 #f)
(13 (define (char-ci>=? x y) (>= (char->integer (char-upcase x)) (char->integer (char-upcase y)))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 assoc)
(13 #f)
(13 (define (assoc thing alist) (if (null? alist) #f (if (equal? (car (car alist)) thing) (car alist) (assoc thing (cdr alist))))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 list->vector)
(13 #f)
(13 (define (list->vector l) (let ((size (length l))) (let ((v (make-vector size))) (do ((i 0 (+ i 1))) ((= i size)) (vector-set! v i (car l)) (set! l (cdr l))) v))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 vector->list)
(13 #f)
(13 (define (vector->list v) (let ((l (quote ()))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (set! l (cons (vector-ref v i) l))) (reverse l))))
(13 (reverse))
(13 ())
(2)
(2)
(2)
(2)
(13 vector)
(13 #f)
(13 (define (vector . x) (list->vector x)))
(13 (list->vector))
(13 ())
(2)
(2)
(2)
(2)
(13 string)
(13 #f)
(13 (define (string . x) (list->string x)))
(13 (list->string))
(13 ())
(2)
(2)
(2)
(2)
(13 string-append)
(13 #f)
(13 (define (string-append x y) (let ((z (make-string (+ (string-length x) (string-length y))))) (let loop ((index 0) (size (string-length x))) (if (< index size) (begin (string-set! z index (string-ref x index)) (loop (+ index 1) size)))) (let loop ((index 0) (size (string-length y))) (if (< index size) (begin (string-set! z (+ index (string-length x)) (string-ref y index)) (loop (+ index 1) size)))) z)))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 list->string)
(13 #f)
(13 (define (list->string charlist) (letrec ((len (length charlist)) (newstr (make-string len)) (fill-string! (lambda (str i len charlist) (if (= i len) str (begin (string-set! str i (car charlist)) (fill-string! str (+ i 1) len (cdr charlist))))))) (fill-string! newstr 0 len charlist))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 string-fill!)
(13 #f)
(13 (define (string-fill! s e) (let ((n (string-length s))) (let loop ((i 0)) (if (= i n) s (begin (string-set! s i e) (loop (+ i 1))))))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 string->list)
(13 #f)
(13 (define (string->list s) (let loop ((n (- (string-length s) 1)) (l (quote ()))) (if (= n -1) l (loop (- n 1) (cons (string-ref s n) l))))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 substring)
(13 #f)
(13 (define (substring str start end) (if (not (string? str)) (error (quote substring) "not a string")) (let* ((size (- end start)) (sub-string (make-string size))) (do ((i 0 (+ i 1))) ((= i size)) (string-set! sub-string i (string-ref str (+ start i)))) sub-string)))
(13 (error))
(13 ())
(2)
(2)
(2)
(2)
(13 string-copy)
(13 #f)
(13 (define (string-copy str) (if (not (string? str)) (error (quote string-copy) "not a string")) (let* ((size (string-length str)) (new-str (make-string size))) (do ((i 0 (+ i 1))) ((= i size)) (string-set! new-str i (string-ref str i))) new-str)))
(13 (error))
(13 ())
(2)
(2)
(2)
(2)
(13 map)
(13 #f)
(13 (define map (lambda alistofargs (let ((functor (car alistofargs)) (listoffunctorargs (cdr alistofargs))) (letrec ((error (lambda (x y) (display x) (display " ") (display y) (newline) (exit 1))) (map1 (lambda (functor alist) (if (null? alist) (quote ()) (cons (functor (car alist)) (map1 functor (cdr alist)))))) (mapn (lambda (functor alistoflists) (if (null? (car alistoflists)) (quote ()) (let ((alistofcars (map1 car alistoflists)) (alistofcdrs (map1 cdr alistoflists))) (cons (apply functor alistofcars) (mapn functor alistofcdrs)))))) (are-alltrue? (lambda (alistofbooleans) (if (null? alistofbooleans) #t (if (car alistofbooleans) (are-alltrue? (cdr alistofbooleans)) #f))))) (cond ((not (procedure? functor)) (error (quote map) "first argument must be a procedure")) ((not (and (are-alltrue? (map1 list? listoffunctorargs)) (let ((listoflengths (map1 length listoffunctorargs))) (are-alltrue? (map1 (lambda (x) (equal? x (car listoflengths))) (cdr listoflengths)))))) (error (quote map) "second and remaining arguments must be lists of equal length")) (else (mapn functor listoffunctorargs))))))))
(13 (error))
(13 ())
(2)
(2)
(2)
(2)
(13 for-each)
(13 #f)
(13 (define for-each (lambda (proc . lists) (letrec ((map-over-single-list (lambda (p l) (if (null? l) (quote ()) (cons (p (car l)) (map-over-single-list p (cdr l))))))) (if (memq (quote ()) lists) (quote ()) (begin (apply proc (map-over-single-list car lists)) (apply for-each (cons proc (map-over-single-list cdr lists)))))))))
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(13 ())
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(17 library-procedures)
(26)
(23
  (18 1)
  (14 0 0 dependencies)
  (7)
  (8)
  (21 () 157)
  (14 0 0 dependencies)
  (0)
  (23
    (18 1)
    (22 () 156)
    (14 0 0 dependency)
    (16 log-library-procedure-call)
    (24 1)
    156
    (26)
    (14 1 0 dependencies)
    (1)
    (16 log-library-dependencies)
    (24 1)
    (name ())
  )
  (24 1)
  157
  (13 ())
  (25)
  (name log-library-dependencies)
)
(17 log-library-dependencies)
(26)
(23
  (18 1)
  (14 0 0 proc)
  (4)
  (21 () 161)
  (14 0 0 proc)
  (16 library-procedures)
  (30)
  (23
    (18 1)
    (14 0 0 library-procedure)
    (21 () 159)
    (14 0 0 library-procedure)
    (1)
    (13 #t)
    (54)
    (26)
    (14 0 0 library-procedure)
    (12)
    (11)
    (16 log-library-dependencies)
    (24 1)
    159
    (13 ())
    (25)
    (name ())
  )
  (24 1)
  161
  (13 ())
  (25)
  (name log-library-procedure-call)
)
(17 log-library-procedure-call)
(26)
(23
  (18 1)
  (14 0 0 proc)
  (4)
  (21 () 165)
  (14 0 0 proc)
  (13 call/cc)
  (5)
  (21 () 163)
  (13 #t)
  (17 program-has-call/cc)
  (25)
  163
  (13 ())
  (25)
  165
  (13 ())
  (25)
  (name check-call/cc)
)
(17 check-call/cc)
(26)
(23
  (18 1)
  (14 0 0 app)
  (0)
  (25)
  (name operator)
)
(17 operator)
(26)
(23
  (18 1)
  (14 0 0 app)
  (1)
  (25)
  (name operands)
)
(17 operands)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 169)
  (13 #f)
  (25)
  169
  (14 0 0 e)
  (0)
  (81)
  (21 () 167)
  (14 0 0 e)
  (0)
  (16 definition?)
  (24 1)
  167
  (13 #f)
  (25)
  (name internal-definition?)
)
(17 internal-definition?)
(26)
(23
  (18 1)
  (14 0 0 body)
  (7)
  (21 () 178)
  (13 ())
  (25)
  178
  (22 () 171)
  (14 0 0 body)
  (16 internal-definition?)
  (24 1)
  171
  (21 () 176)
  (14 0 0 body)
  (0)
  (1)
  (0)
  (4)
  (21 () 173)
  (14 0 0 body)
  (0)
  (1)
  (19 () 174)
  173
  (14 0 0 body)
  (0)
  (1)
  (9)
  (13 lambda)
  (14 0 0 body)
  (10)
  (10)
  (22 () 172)
  (13 begin)
  (13 ())
  (2)
  (14 0 0 body)
  (0)
  (12)
  (16 append2)
  (24 2)
  172
  (13 ())
  (2)
  (2)
  (2)
  (13 ())
  (2)
  (2)
  174
  (22 () 175)
  (14 0 0 body)
  (1)
  (16 transform-internal-defines)
  (24 1)
  175
  (2)
  (25)
  176
  (13 ())
  (25)
  (name transform-internal-defines)
)
(17 transform-internal-defines)
(26)
(23
  (18 1)
  (22 () 180)
  (14 0 0 body)
  (16 internal-definition?)
  (24 1)
  180
  (21 () 183)
  (22 () 181)
  (14 0 0 body)
  (16 transform-internal-defines)
  (24 1)
  181
  (23
    (18 1)
    (13 letrec)
    (14 0 0 transformed)
    (22 () 182)
    (13 begin)
    (13 ())
    (2)
    (14 1 0 body)
    (14 0 0 transformed)
    (31)
    (60)
    (16 append2)
    (24 2)
    182
    (13 ())
    (2)
    (2)
    (2)
    (13 ())
    (2)
    (25)
    (name ())
  )
  (24 1)
  183
  (14 0 0 body)
  (25)
  (name try-transform-internal-defines)
)
(17 try-transform-internal-defines)
(26)
(23
  (18 5)
  (14 0 2 val?)
  (21 () 190)
  (22 () 185)
  (14 0 0 e)
  (11)
  (22 () 186)
  (14 0 0 e)
  (12)
  (16 try-transform-internal-defines)
  (24 1)
  186
  (23
    (18 2)
    (13 proc)
    (22 () 187)
    (22 () 188)
    (14 0 0 args)
    (14 0 1 body)
    (14 1 1 env)
    (16 compile-lambda)
    (24 3)
    188
    (13 name)
    (14 1 4 name)
    (13 ())
    (2)
    (2)
    (13 ())
    (2)
    (16 append2)
    (24 2)
    187
    (13 ())
    (2)
    (2)
    (16 gen-instruction)
    (24 1)
    (name ())
  )
  (24 2)
  185
  (22 () 189)
  (14 0 3 more?)
  (16 if-no-more-compile-return)
  (24 1)
  189
  (16 append2)
  (24 2)
  190
  (16 compile-nothing)
  (24 0)
  (name compile-procedure)
)
(17 compile-procedure)
(26)
(23
  (18 1)
  (14 0 0 code)
  (7)
  (21 () 194)
  (13 #f)
  (25)
  194
  (14 0 0 code)
  (0)
  (32)
  (21 () 192)
  (14 0 0 code)
  (0)
  (13 23)
  (47)
  (25)
  192
  (13 #f)
  (25)
  (name compound-procedure?)
)
(17 compound-procedure?)
(26)
(23
  (18 5)
  (22 () 196)
  (22 () 197)
  (14 0 1 val)
  (14 0 2 env)
  (13 #t)
  (13 #t)
  (14 0 0 var)
  (16 compile)
  (24 5)
  197
  (22 () 198)
  (14 0 0 var)
  (22 () 199)
  (14 0 0 var)
  (14 0 2 env)
  (16 variable-location)
  (24 2)
  199
  (16 compile-set!)
  (24 2)
  198
  (16 append2)
  (24 2)
  196
  (23
    (18 1)
    (14 1 4 more?)
    (21 () 204)
    (14 1 3 val?)
    (21 () 201)
    (14 0 0 dummy)
    (25)
    201
    (14 0 0 dummy)
    (22 () 200)
    (16 compile-pop)
    (24 0)
    200
    (16 append2)
    (24 2)
    204
    (14 0 0 dummy)
    (22 () 203)
    (16 compile-return)
    (24 0)
    203
    (16 append2)
    (24 2)
    (name ())
  )
  (24 1)
  (name compile-assignment)
)
(17 compile-assignment)
(26)
(23
  (18 1)
  (22 () 206)
  (14 0 0 e)
  (11)
  (16 variable?)
  (24 1)
  206
  (21 () 207)
  (14 0 0 e)
  (11)
  (25)
  207
  (14 0 0 e)
  (11)
  (0)
  (25)
  (name definition-variable)
)
(17 definition-variable)
(26)
(23
  (18 1)
  (22 () 209)
  (14 0 0 e)
  (11)
  (16 variable?)
  (24 1)
  209
  (21 () 210)
  (14 0 0 e)
  (12)
  (0)
  (25)
  210
  (13 lambda)
  (14 0 0 e)
  (11)
  (1)
  (14 0 0 e)
  (12)
  (2)
  (2)
  (25)
  (name definition-value)
)
(17 definition-value)
(26)
(23
  (18 4)
  (22 () 212)
  (22 () 213)
  (14 0 0 e)
  (16 definition-variable)
  (24 1)
  213
  (22 () 214)
  (14 0 0 e)
  (16 definition-value)
  (24 1)
  214
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-assignment)
  (24 5)
  212
  (22 () 215)
  (16 compile-pop)
  (24 0)
  215
  (16 append2)
  (24 2)
  (name compile-definition)
)
(17 compile-definition)
(26)
(23
  (18 4)
  (14 0 0 e)
  (7)
  (21 () 221)
  (13 ())
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-const)
  (24 3)
  221
  (22 () 216)
  (14 0 0 e)
  (16 last-exp?)
  (24 1)
  216
  (21 () 219)
  (14 0 0 e)
  (0)
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (13 ())
  (16 compile)
  (24 5)
  219
  (22 () 217)
  (14 0 0 e)
  (0)
  (14 0 1 env)
  (13 #f)
  (13 #t)
  (13 ())
  (16 compile)
  (24 5)
  217
  (22 () 218)
  (14 0 0 e)
  (1)
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-sequence)
  (24 4)
  218
  (16 append2)
  (24 2)
  (name compile-sequence)
)
(17 compile-sequence)
(26)
(23
  (18 1)
  (14 0 0 dotted-list)
  (7)
  (21 () 226)
  (13 ())
  (25)
  226
  (14 0 0 dotted-list)
  (4)
  (21 () 224)
  (14 0 0 dotted-list)
  (13 ())
  (2)
  (25)
  224
  (14 0 0 dotted-list)
  (0)
  (22 () 223)
  (14 0 0 dotted-list)
  (1)
  (16 make-true-list)
  (24 1)
  223
  (2)
  (25)
  (name make-true-list)
)
(17 make-true-list)
(26)
(23
  (18 3)
  (22 () 228)
  (14 0 0 args)
  (13 0)
  (16 compile-args)
  (24 2)
  228
  (22 () 229)
  (14 0 1 body)
  (22 () 230)
  (14 0 0 args)
  (16 make-true-list)
  (24 1)
  230
  (14 0 2 env)
  (2)
  (13 #t)
  (13 #f)
  (16 compile-sequence)
  (24 4)
  229
  (16 append2)
  (24 2)
  (name compile-lambda)
)
(17 compile-lambda)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 242)
  (13 #f)
  (25)
  242
  (22 () 231)
  (22 () 232)
  (14 0 0 e)
  (16 first-clause)
  (24 1)
  232
  (16 else-clause?)
  (24 1)
  231
  (21 () 240)
  (13 begin)
  (22 () 233)
  (22 () 234)
  (14 0 0 e)
  (16 first-clause)
  (24 1)
  234
  (16 actions)
  (24 1)
  233
  (2)
  (25)
  240
  (13 if)
  (22 () 235)
  (22 () 236)
  (14 0 0 e)
  (16 first-clause)
  (24 1)
  236
  (16 predicate)
  (24 1)
  235
  (13 begin)
  (22 () 237)
  (22 () 238)
  (14 0 0 e)
  (16 first-clause)
  (24 1)
  238
  (16 actions)
  (24 1)
  237
  (2)
  (13 cond)
  (22 () 239)
  (14 0 0 e)
  (16 rest-clauses)
  (24 1)
  239
  (2)
  (13 ())
  (2)
  (2)
  (2)
  (2)
  (25)
  (name transform-cond)
)
(17 transform-cond)
(26)
(23
  (18 4)
  (22 () 244)
  (14 0 0 e)
  (16 transform-cond)
  (24 1)
  244
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (13 ())
  (16 compile)
  (24 5)
  (name compile-cond)
)
(17 compile-cond)
(26)
(23
  (18 1)
  (14 0 0 predicate)
  (81)
  (21 () 245)
  (14 0 0 predicate)
  (0)
  (13 not)
  (5)
  (25)
  245
  (13 #f)
  (25)
  (name negative-predicate?)
)
(17 negative-predicate?)
(26)
(23
  (18 6)
  (14 0 0 predicate)
  (13 #f)
  (5)
  (21 () 276)
  (14 0 2 else_)
  (7)
  (8)
  (21 () 247)
  (14 0 2 else_)
  (0)
  (14 0 3 env)
  (14 0 4 val?)
  (14 0 5 more?)
  (13 ())
  (16 compile)
  (24 5)
  247
  (13 ())
  (25)
  276
  (22 () 249)
  (14 0 0 predicate)
  (16 self-evaluating?)
  (24 1)
  249
  (21 () 274)
  (14 0 1 then)
  (14 0 3 env)
  (14 0 4 val?)
  (14 0 5 more?)
  (13 ())
  (16 compile)
  (24 5)
  274
  (22 () 250)
  (14 0 0 predicate)
  (16 negative-predicate?)
  (24 1)
  250
  (21 () 251)
  (14 0 2 else_)
  (7)
  (8)
  (19 () 252)
  251
  (13 #f)
  252
  (21 () 272)
  (14 0 0 predicate)
  (11)
  (14 0 2 else_)
  (0)
  (14 0 1 then)
  (13 ())
  (2)
  (14 0 3 env)
  (14 0 4 val?)
  (14 0 5 more?)
  (16 compile-if)
  (24 6)
  272
  (14 0 2 else_)
  (7)
  (21 () 253)
  (13 (()))
  (15 0 2 else_)
  (26)
  (19 () 254)
  253
  254
  (22 () 255)
  (14 0 0 predicate)
  (14 0 3 env)
  (13 #t)
  (13 #t)
  (13 ())
  (16 compile)
  (24 5)
  255
  (22 () 256)
  (14 0 1 then)
  (14 0 3 env)
  (14 0 4 val?)
  (14 0 5 more?)
  (13 ())
  (16 compile)
  (24 5)
  256
  (22 () 257)
  (14 0 2 else_)
  (0)
  (14 0 3 env)
  (14 0 4 val?)
  (14 0 5 more?)
  (13 ())
  (16 compile)
  (24 5)
  257
  (23
    (18 3)
    (14 0 1 compile-then)
    (14 0 2 compile-else)
    (53)
    (21 () 270)
    (22 () 258)
    (14 1 0 predicate)
    (14 1 3 env)
    (13 #f)
    (13 #t)
    (13 ())
    (16 compile)
    (24 5)
    258
    (14 0 2 compile-else)
    (16 append2)
    (24 2)
    270
    (22 () 259)
    (16 gen-label)
    (24 0)
    259
    (22 () 260)
    (16 gen-label)
    (24 0)
    260
    (23
      (18 2)
      (14 1 0 compile-predicate)
      (22 () 261)
      (22 () 262)
      (14 0 0 target1)
      (16 compile-bfl)
      (24 1)
      262
      (22 () 263)
      (14 1 1 compile-then)
      (22 () 264)
      (22 () 265)
      (14 2 5 more?)
      (14 0 1 target2)
      (16 if-more-compile-br)
      (24 2)
      265
      (22 () 266)
      (22 () 267)
      (14 0 0 target1)
      (16 compile-label)
      (24 1)
      267
      (22 () 268)
      (14 1 2 compile-else)
      (22 () 269)
      (14 2 5 more?)
      (14 0 1 target2)
      (16 if-more-compile-label)
      (24 2)
      269
      (16 append2)
      (24 2)
      268
      (16 append2)
      (24 2)
      266
      (16 append2)
      (24 2)
      264
      (16 append2)
      (24 2)
      263
      (16 append2)
      (24 2)
      261
      (16 append2)
      (24 2)
      (name ())
    )
    (24 2)
    (name ())
  )
  (24 3)
  (name compile-if)
)
(17 compile-if)
(26)
(23
  (18 1)
  (14 0 0 pairs)
  (7)
  (21 () 279)
  (13 ())
  (25)
  279
  (14 0 0 pairs)
  (9)
  (22 () 278)
  (14 0 0 pairs)
  (1)
  (16 build-let-formals)
  (24 1)
  278
  (2)
  (25)
  (name build-let-formals)
)
(17 build-let-formals)
(26)
(23
  (18 1)
  (14 0 0 pairs)
  (7)
  (21 () 282)
  (13 ())
  (25)
  282
  (14 0 0 pairs)
  (10)
  (0)
  (22 () 281)
  (14 0 0 pairs)
  (1)
  (16 build-let-actuals)
  (24 1)
  281
  (2)
  (25)
  (name build-let-actuals)
)
(17 build-let-actuals)
(26)
(23
  (18 3)
  (13 lambda)
  (14 0 0 formals)
  (14 0 1 body)
  (2)
  (2)
  (14 0 2 actuals)
  (2)
  (25)
  (name transform-let)
)
(17 transform-let)
(26)
(23
  (18 4)
  (13 letrec)
  (14 0 0 tag)
  (13 lambda)
  (14 0 1 formals)
  (14 0 2 body)
  (2)
  (2)
  (13 ())
  (2)
  (2)
  (13 ())
  (2)
  (14 0 0 tag)
  (13 ())
  (2)
  (2)
  (2)
  (14 0 3 actuals)
  (2)
  (25)
  (name transform-let-tag)
)
(17 transform-let-tag)
(26)
(23
  (18 4)
  (14 0 0 e)
  (0)
  (4)
  (21 () 292)
  (14 0 0 e)
  (0)
  (22 () 284)
  (14 0 0 e)
  (11)
  (16 build-let-formals)
  (24 1)
  284
  (22 () 285)
  (14 0 0 e)
  (12)
  (16 try-transform-internal-defines)
  (24 1)
  285
  (22 () 286)
  (14 0 0 e)
  (11)
  (16 build-let-actuals)
  (24 1)
  286
  (23
    (18 4)
    (22 () 287)
    (14 0 0 tag)
    (14 0 1 formals)
    (14 0 2 body)
    (14 0 3 actuals)
    (16 transform-let-tag)
    (24 4)
    287
    (14 1 1 env)
    (14 1 2 val?)
    (14 1 3 more?)
    (13 ())
    (16 compile)
    (24 5)
    (name ())
  )
  (24 4)
  292
  (22 () 288)
  (14 0 0 e)
  (0)
  (16 build-let-formals)
  (24 1)
  288
  (22 () 289)
  (14 0 0 e)
  (1)
  (16 try-transform-internal-defines)
  (24 1)
  289
  (22 () 290)
  (14 0 0 e)
  (0)
  (16 build-let-actuals)
  (24 1)
  290
  (23
    (18 3)
    (22 () 291)
    (14 0 0 formals)
    (14 0 1 body)
    (14 0 2 actuals)
    (16 transform-let)
    (24 3)
    291
    (14 1 1 env)
    (14 1 2 val?)
    (14 1 3 more?)
    (13 ())
    (16 compile)
    (24 5)
    (name ())
  )
  (24 3)
  (name compile-let)
)
(17 compile-let)
(26)
(23
  (18 2)
  (14 0 0 assignments)
  (7)
  (21 () 294)
  (13 lambda)
  (13 ())
  (14 0 1 body)
  (2)
  (2)
  (13 ())
  (2)
  (25)
  294
  (13 let)
  (14 0 0 assignments)
  (0)
  (13 ())
  (2)
  (13 let*)
  (14 0 0 assignments)
  (1)
  (14 0 1 body)
  (2)
  (2)
  (13 ())
  (2)
  (2)
  (2)
  (25)
  (name transform-let*)
)
(17 transform-let*)
(26)
(23
  (18 4)
  (14 0 0 e)
  (0)
  (22 () 296)
  (14 0 0 e)
  (1)
  (16 try-transform-internal-defines)
  (24 1)
  296
  (23
    (18 2)
    (22 () 297)
    (14 0 0 assignments)
    (14 0 1 body)
    (16 transform-let*)
    (24 2)
    297
    (14 1 1 env)
    (14 1 2 val?)
    (14 1 3 more?)
    (13 ())
    (16 compile)
    (24 5)
    (name ())
  )
  (24 2)
  (name compile-let*)
)
(17 compile-let*)
(26)
(23
  (18 1)
  (14 0 0 pairs)
  (7)
  (21 () 299)
  (13 ())
  (25)
  299
  (14 0 0 pairs)
  (9)
  (13 ())
  (13 ())
  (2)
  (2)
  (22 () 298)
  (14 0 0 pairs)
  (1)
  (16 build-letrec-unassigned)
  (24 1)
  298
  (2)
  (25)
  (name build-letrec-unassigned)
)
(17 build-letrec-unassigned)
(26)
(23
  (18 2)
  (14 0 0 pairs)
  (7)
  (21 () 302)
  (14 0 1 body)
  (25)
  302
  (13 set!)
  (14 0 0 pairs)
  (0)
  (2)
  (22 () 301)
  (14 0 0 pairs)
  (1)
  (14 0 1 body)
  (16 build-letrec-assigned)
  (24 2)
  301
  (2)
  (25)
  (name build-letrec-assigned)
)
(17 build-letrec-assigned)
(26)
(23
  (18 2)
  (13 let)
  (14 0 0 unassigned)
  (14 0 1 assigned)
  (2)
  (2)
  (25)
  (name transform-letrec)
)
(17 transform-letrec)
(26)
(23
  (18 4)
  (22 () 304)
  (14 0 0 e)
  (0)
  (16 build-letrec-unassigned)
  (24 1)
  304
  (22 () 305)
  (14 0 0 e)
  (0)
  (22 () 306)
  (14 0 0 e)
  (1)
  (16 try-transform-internal-defines)
  (24 1)
  306
  (16 build-letrec-assigned)
  (24 2)
  305
  (23
    (18 2)
    (22 () 307)
    (14 0 0 unassigned)
    (14 0 1 assigned)
    (16 transform-letrec)
    (24 2)
    307
    (14 1 1 env)
    (14 1 2 val?)
    (14 1 3 more?)
    (13 ())
    (16 compile)
    (24 5)
    (name ())
  )
  (24 2)
  (name compile-letrec)
)
(17 compile-letrec)
(26)
(23
  (18 2)
  (14 0 0 e)
  (7)
  (21 () 310)
  (13 ())
  (25)
  310
  (22 () 308)
  (14 0 0 e)
  (0)
  (14 0 1 env)
  (13 #t)
  (13 #t)
  (13 ())
  (16 compile)
  (24 5)
  308
  (22 () 309)
  (14 0 0 e)
  (1)
  (14 0 1 env)
  (16 compile-list-of-values)
  (24 2)
  309
  (16 append2)
  (24 2)
  (name compile-list-of-values)
)
(17 compile-list-of-values)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 312)
  (13 ())
  (25)
  312
  (13 cons)
  (14 0 0 e)
  (0)
  (13 list)
  (14 0 0 e)
  (1)
  (2)
  (13 ())
  (2)
  (2)
  (2)
  (25)
  (name transform-list)
)
(17 transform-list)
(26)
(23
  (18 4)
  (22 () 314)
  (14 0 0 e)
  (16 transform-list)
  (24 1)
  314
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (13 ())
  (16 compile)
  (24 5)
  (name compile-list)
)
(17 compile-list)
(26)
(23
  (18 2)
  (14 0 1 e)
  (31)
  (13 2)
  (47)
  (21 () 317)
  (14 0 0 f)
  (22 () 315)
  (14 0 1 e)
  (16 rev)
  (24 1)
  315
  (2)
  (25)
  317
  (14 0 0 f)
  (22 () 316)
  (14 0 0 f)
  (14 0 1 e)
  (1)
  (16 transform-arith-terms)
  (24 2)
  316
  (14 0 1 e)
  (0)
  (13 ())
  (2)
  (2)
  (2)
  (25)
  (name transform-arith-terms)
)
(17 transform-arith-terms)
(26)
(23
  (18 1)
  (14 0 0 f)
  (13 ((+ 0) (- 0) (* 1) (/ 1)))
  (30)
  (11)
  (25)
  (name arith-term-constant)
)
(17 arith-term-constant)
(26)
(23
  (18 2)
  (14 0 1 e)
  (31)
  (13 1)
  (47)
  (21 () 320)
  (22 () 319)
  (14 0 0 f)
  (16 arith-term-constant)
  (24 1)
  319
  (14 0 1 e)
  (2)
  (16 rev)
  (24 1)
  320
  (14 0 1 e)
  (16 rev)
  (24 1)
  (name prepare-arith-terms)
)
(17 prepare-arith-terms)
(26)
(23
  (18 5)
  (14 0 1 e)
  (31)
  (13 0)
  (47)
  (21 () 325)
  (22 () 322)
  (14 0 0 f)
  (16 arith-term-constant)
  (24 1)
  322
  (14 0 2 env)
  (14 0 3 val?)
  (14 0 4 more?)
  (13 ())
  (16 compile)
  (24 5)
  325
  (22 () 323)
  (14 0 0 f)
  (22 () 324)
  (14 0 0 f)
  (14 0 1 e)
  (16 prepare-arith-terms)
  (24 2)
  324
  (16 transform-arith-terms)
  (24 2)
  323
  (14 0 2 env)
  (14 0 3 val?)
  (14 0 4 more?)
  (13 ())
  (16 compile)
  (24 5)
  (name compile-arith-terms)
)
(17 compile-arith-terms)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 330)
  (13 #f)
  (25)
  330
  (14 0 0 e)
  (1)
  (7)
  (21 () 328)
  (14 0 0 e)
  (0)
  (25)
  328
  (22 () 327)
  (16 gensym)
  (24 0)
  327
  (23
    (18 1)
    (13 let)
    (14 0 0 x)
    (14 1 0 e)
    (0)
    (13 ())
    (2)
    (2)
    (13 ())
    (2)
    (13 if)
    (14 0 0 x)
    (14 0 0 x)
    (13 or)
    (14 1 0 e)
    (1)
    (2)
    (13 ())
    (2)
    (2)
    (2)
    (2)
    (13 ())
    (2)
    (2)
    (2)
    (25)
    (name ())
  )
  (24 1)
  (name transform-or)
)
(17 transform-or)
(26)
(23
  (18 4)
  (22 () 332)
  (14 0 0 e)
  (16 transform-or)
  (24 1)
  332
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (13 ())
  (16 compile)
  (24 5)
  (name compile-or)
)
(17 compile-or)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 335)
  (13 #t)
  (25)
  335
  (14 0 0 e)
  (1)
  (7)
  (21 () 333)
  (14 0 0 e)
  (0)
  (25)
  333
  (13 if)
  (14 0 0 e)
  (0)
  (13 and)
  (14 0 0 e)
  (1)
  (2)
  (13 #f)
  (13 ())
  (2)
  (2)
  (2)
  (2)
  (25)
  (name transform-and)
)
(17 transform-and)
(26)
(23
  (18 4)
  (22 () 337)
  (14 0 0 e)
  (16 transform-and)
  (24 1)
  337
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (13 ())
  (16 compile)
  (24 5)
  (name compile-and)
)
(17 compile-and)
(26)
(23
  (18 2)
  (22 () 338)
  (16 gensym)
  (24 0)
  338
  (23
    (18 1)
    (13 letrec)
    (14 0 0 loop)
    (13 lambda)
    (13 ())
    (13 if)
    (14 1 0 test)
    (13 begin)
    (22 () 339)
    (14 1 1 body)
    (14 0 0 loop)
    (13 ())
    (2)
    (13 ())
    (2)
    (16 append2)
    (24 2)
    339
    (2)
    (13 ())
    (2)
    (2)
    (2)
    (13 ())
    (2)
    (2)
    (2)
    (13 ())
    (2)
    (2)
    (13 ())
    (2)
    (14 0 0 loop)
    (13 ())
    (2)
    (13 ())
    (2)
    (2)
    (2)
    (25)
    (name ())
  )
  (24 1)
  (name transform-while)
)
(17 transform-while)
(26)
(23
  (18 4)
  (14 0 0 e)
  (0)
  (14 0 0 e)
  (1)
  (23
    (18 2)
    (22 () 340)
    (14 0 0 test)
    (14 0 1 body)
    (16 transform-while)
    (24 2)
    340
    (14 1 1 env)
    (14 1 2 val?)
    (14 1 3 more?)
    (13 ())
    (16 compile)
    (24 5)
    (name ())
  )
  (24 2)
  (name compile-while)
)
(17 compile-while)
(26)
(23
  (18 2)
  (14 0 1 one-case)
  (0)
  (13 else)
  (5)
  (21 () 343)
  (14 0 1 one-case)
  (25)
  343
  (14 0 1 one-case)
  (0)
  (23
    (18 1)
    (14 0 0 selectors)
    (31)
    (13 1)
    (47)
    (21 () 341)
    (13 eqv?)
    (14 1 0 key-name)
    (13 quote)
    (14 0 0 selectors)
    (0)
    (13 ())
    (2)
    (2)
    (13 ())
    (2)
    (2)
    (2)
    (14 1 1 one-case)
    (1)
    (2)
    (25)
    341
    (13 memv)
    (14 1 0 key-name)
    (13 quote)
    (14 0 0 selectors)
    (13 ())
    (2)
    (2)
    (13 ())
    (2)
    (2)
    (2)
    (14 1 1 one-case)
    (1)
    (2)
    (25)
    (name ())
  )
  (24 1)
  (name transform-one-case)
)
(17 transform-one-case)
(26)
(23
  (18 2)
  (14 0 1 rest-of-case)
  (7)
  (21 () 347)
  (13 ())
  (25)
  347
  (22 () 345)
  (14 0 0 key-name)
  (14 0 1 rest-of-case)
  (0)
  (16 transform-one-case)
  (24 2)
  345
  (22 () 346)
  (14 0 0 key-name)
  (14 0 1 rest-of-case)
  (1)
  (16 transform-rest-of-case)
  (24 2)
  346
  (2)
  (25)
  (name transform-rest-of-case)
)
(17 transform-rest-of-case)
(26)
(23
  (18 2)
  (22 () 349)
  (16 gensym)
  (24 0)
  349
  (23
    (18 1)
    (13 let)
    (14 0 0 key-name)
    (14 1 0 key-value)
    (13 ())
    (2)
    (2)
    (13 ())
    (2)
    (13 cond)
    (22 () 350)
    (14 0 0 key-name)
    (14 1 1 body)
    (16 transform-rest-of-case)
    (24 2)
    350
    (2)
    (13 ())
    (2)
    (2)
    (2)
    (25)
    (name ())
  )
  (24 1)
  (name transform-case)
)
(17 transform-case)
(26)
(23
  (18 4)
  (14 0 0 e)
  (0)
  (14 0 0 e)
  (1)
  (23
    (18 2)
    (22 () 351)
    (14 0 0 key-value)
    (14 0 1 body)
    (16 transform-case)
    (24 2)
    351
    (14 1 1 env)
    (14 1 2 val?)
    (14 1 3 more?)
    (13 ())
    (16 compile)
    (24 5)
    (name ())
  )
  (24 2)
  (name compile-case)
)
(17 compile-case)
(26)
(23
  (18 6)
  (13 letrec)
  (13 loop)
  (13 lambda)
  (14 0 0 vars)
  (13 if)
  (14 0 3 test)
  (22 () 352)
  (13 begin)
  (13 ())
  (2)
  (14 0 4 exprs)
  (16 append2)
  (24 2)
  352
  (22 () 353)
  (13 begin)
  (13 ())
  (2)
  (22 () 354)
  (14 0 5 commands)
  (22 () 355)
  (13 loop)
  (13 ())
  (2)
  (14 0 2 steps)
  (16 append2)
  (24 2)
  355
  (13 ())
  (2)
  (16 append2)
  (24 2)
  354
  (16 append2)
  (24 2)
  353
  (13 ())
  (2)
  (2)
  (2)
  (2)
  (13 ())
  (2)
  (2)
  (2)
  (13 ())
  (2)
  (2)
  (13 ())
  (2)
  (22 () 356)
  (13 loop)
  (13 ())
  (2)
  (14 0 1 inits)
  (16 append2)
  (24 2)
  356
  (13 ())
  (2)
  (2)
  (2)
  (25)
  (name transform-do)
)
(17 transform-do)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 358)
  (13 ())
  (25)
  358
  (14 0 0 e)
  (9)
  (22 () 357)
  (14 0 0 e)
  (1)
  (16 build-do-vars)
  (24 1)
  357
  (2)
  (25)
  (name build-do-vars)
)
(17 build-do-vars)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 361)
  (13 ())
  (25)
  361
  (14 0 0 e)
  (0)
  (11)
  (22 () 360)
  (14 0 0 e)
  (1)
  (16 build-do-inits)
  (24 1)
  360
  (2)
  (25)
  (name build-do-inits)
)
(17 build-do-inits)
(26)
(23
  (18 1)
  (14 0 0 e)
  (0)
  (12)
  (7)
  (21 () 363)
  (14 0 0 e)
  (9)
  (25)
  363
  (14 0 0 e)
  (0)
  (12)
  (0)
  (25)
  (name build-do-step-value)
)
(17 build-do-step-value)
(26)
(23
  (18 1)
  (14 0 0 e)
  (7)
  (21 () 367)
  (13 ())
  (25)
  367
  (22 () 365)
  (14 0 0 e)
  (16 build-do-step-value)
  (24 1)
  365
  (22 () 366)
  (14 0 0 e)
  (1)
  (16 build-do-steps)
  (24 1)
  366
  (2)
  (25)
  (name build-do-steps)
)
(17 build-do-steps)
(26)
(23
  (18 4)
  (22 () 369)
  (14 0 0 e)
  (0)
  (16 build-do-vars)
  (24 1)
  369
  (22 () 370)
  (14 0 0 e)
  (0)
  (16 build-do-inits)
  (24 1)
  370
  (22 () 371)
  (14 0 0 e)
  (0)
  (16 build-do-steps)
  (24 1)
  371
  (14 0 0 e)
  (1)
  (9)
  (14 0 0 e)
  (1)
  (10)
  (14 0 0 e)
  (1)
  (1)
  (23
    (18 6)
    (22 () 372)
    (14 0 0 vars)
    (14 0 1 inits)
    (14 0 2 steps)
    (14 0 3 test)
    (14 0 4 exprs)
    (14 0 5 commands)
    (16 transform-do)
    (24 6)
    372
    (14 1 1 env)
    (14 1 2 val?)
    (14 1 3 more?)
    (13 ())
    (16 compile)
    (24 5)
    (name ())
  )
  (24 6)
  (name compile-do)
)
(17 compile-do)
(26)
(23
  (18 2)
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (23
    (18 4)
    (23
      (18 1)
      (14 0 0 x)
      (25)
      (name my-eval)
    )
    (15 0 0 my-eval)
    (26)
    (23
      (18 2)
      (14 0 0 x)
      (0)
      (14 0 1 y)
      (5)
      (25)
      (name starts-with)
    )
    (15 0 1 starts-with)
    (26)
    (23
      (18 1)
      (14 0 0 exp)
      (81)
      (21 () 373)
      (13 #f)
      (25)
      373
      (14 0 0 exp)
      (4)
      (8)
      (25)
      (name constant?)
    )
    (15 0 2 constant?)
    (26)
    (23
      (18 3)
      (22 () 375)
      (14 0 0 left)
      (14 1 2 constant?)
      (24 1)
      375
      (21 () 377)
      (22 () 376)
      (14 0 1 right)
      (14 1 2 constant?)
      (24 1)
      376
      (19 () 378)
      377
      (13 #f)
      378
      (21 () 389)
      (22 () 379)
      (14 0 0 left)
      (14 1 0 my-eval)
      (24 1)
      379
      (14 0 2 x)
      (0)
      (76)
      (21 () 381)
      (22 () 380)
      (14 0 1 right)
      (14 1 0 my-eval)
      (24 1)
      380
      (14 0 2 x)
      (1)
      (76)
      (19 () 382)
      381
      (13 #f)
      382
      (21 () 385)
      (13 quote)
      (14 0 2 x)
      (13 ())
      (2)
      (2)
      (25)
      385
      (13 quote)
      (22 () 383)
      (14 0 0 left)
      (14 1 0 my-eval)
      (24 1)
      383
      (22 () 384)
      (14 0 1 right)
      (14 1 0 my-eval)
      (24 1)
      384
      (2)
      (13 ())
      (2)
      (2)
      (25)
      389
      (14 0 1 right)
      (7)
      (21 () 387)
      (13 list)
      (14 0 0 left)
      (13 ())
      (2)
      (2)
      (25)
      387
      (13 cons)
      (14 0 0 left)
      (14 0 1 right)
      (13 ())
      (2)
      (2)
      (2)
      (25)
      (name combine-quasiquote)
    )
    (15 0 3 combine-quasiquote)
    (26)
    (14 1 0 x)
    (34)
    (21 () 424)
    (13 apply)
    (13 vector)
    (22 () 391)
    (22 () 392)
    (14 1 0 x)
    (16 vector->list)
    (24 1)
    392
    (14 1 1 nesting)
    (16 expand-quasiquote)
    (24 2)
    391
    (13 ())
    (2)
    (2)
    (2)
    (25)
    424
    (14 1 0 x)
    (81)
    (21 () 422)
    (22 () 393)
    (14 1 0 x)
    (13 unquote)
    (14 0 1 starts-with)
    (24 2)
    393
    (21 () 394)
    (14 1 0 x)
    (31)
    (13 2)
    (47)
    (19 () 395)
    394
    (13 #f)
    395
    (21 () 418)
    (14 1 1 nesting)
    (13 0)
    (47)
    (21 () 397)
    (14 1 0 x)
    (11)
    (25)
    397
    (13 (quote unquote))
    (22 () 396)
    (14 1 0 x)
    (1)
    (14 1 1 nesting)
    (13 1)
    (43)
    (16 expand-quasiquote)
    (24 2)
    396
    (14 1 0 x)
    (14 0 3 combine-quasiquote)
    (24 3)
    418
    (22 () 399)
    (14 1 0 x)
    (13 quasiquote)
    (14 0 1 starts-with)
    (24 2)
    399
    (21 () 400)
    (14 1 0 x)
    (31)
    (13 2)
    (47)
    (19 () 401)
    400
    (13 #f)
    401
    (21 () 416)
    (13 (quote quasiquote))
    (22 () 402)
    (14 1 0 x)
    (1)
    (14 1 1 nesting)
    (13 1)
    (42)
    (16 expand-quasiquote)
    (24 2)
    402
    (14 1 0 x)
    (14 0 3 combine-quasiquote)
    (24 3)
    416
    (14 1 0 x)
    (0)
    (81)
    (21 () 405)
    (14 1 0 x)
    (9)
    (13 unquote-splicing)
    (5)
    (21 () 403)
    (14 1 0 x)
    (0)
    (31)
    (13 2)
    (47)
    (19 () 404)
    403
    (13 #f)
    404
    (19 () 406)
    405
    (13 #f)
    406
    (21 () 414)
    (14 1 1 nesting)
    (13 0)
    (47)
    (21 () 410)
    (13 append)
    (14 1 0 x)
    (0)
    (11)
    (22 () 407)
    (14 1 0 x)
    (1)
    (14 1 1 nesting)
    (16 expand-quasiquote)
    (24 2)
    407
    (13 ())
    (2)
    (2)
    (2)
    (25)
    410
    (22 () 408)
    (14 1 0 x)
    (0)
    (14 1 1 nesting)
    (13 1)
    (43)
    (16 expand-quasiquote)
    (24 2)
    408
    (22 () 409)
    (14 1 0 x)
    (1)
    (14 1 1 nesting)
    (16 expand-quasiquote)
    (24 2)
    409
    (14 1 0 x)
    (14 0 3 combine-quasiquote)
    (24 3)
    414
    (22 () 412)
    (14 1 0 x)
    (0)
    (14 1 1 nesting)
    (16 expand-quasiquote)
    (24 2)
    412
    (22 () 413)
    (14 1 0 x)
    (1)
    (14 1 1 nesting)
    (16 expand-quasiquote)
    (24 2)
    413
    (14 1 0 x)
    (14 0 3 combine-quasiquote)
    (24 3)
    422
    (14 1 0 x)
    (4)
    (21 () 420)
    (13 quote)
    (14 1 0 x)
    (13 ())
    (2)
    (2)
    (25)
    420
    (14 1 0 x)
    (25)
    (name ())
  )
  (24 4)
  (name expand-quasiquote)
)
(17 expand-quasiquote)
(26)
(23
  (18 2)
  (14 0 0 x)
  (68)
  (14 0 1 y)
  (68)
  (42)
  (66)
  (23
    (18 1)
    (22 () 426)
    (13 0)
    (14 1 0 x)
    (68)
    (22 () 427)
    (13 ())
    (23
      (18 1)
      (23
        (18 2)
        (14 0 0 index)
        (14 0 1 size)
        (49)
        (21 () 428)
        (14 2 0 z)
        (14 0 0 index)
        (14 3 0 x)
        (14 0 0 index)
        (57)
        (58)
        (26)
        (14 0 0 index)
        (13 1)
        (42)
        (14 0 1 size)
        (14 1 0 loop)
        (24 2)
        428
        (13 ())
        (25)
        (name loop)
      )
      (15 0 0 loop)
      (26)
      (14 0 0 loop)
      (25)
      (name ())
    )
    (24 1)
    427
    (24 2)
    426
    (26)
    (22 () 430)
    (13 0)
    (14 1 1 y)
    (68)
    (22 () 431)
    (13 ())
    (23
      (18 1)
      (23
        (18 2)
        (14 0 0 index)
        (14 0 1 size)
        (49)
        (21 () 432)
        (14 2 0 z)
        (14 0 0 index)
        (14 3 0 x)
        (68)
        (42)
        (14 3 1 y)
        (14 0 0 index)
        (57)
        (58)
        (26)
        (14 0 0 index)
        (13 1)
        (42)
        (14 0 1 size)
        (14 1 0 loop)
        (24 2)
        432
        (13 ())
        (25)
        (name loop)
      )
      (15 0 0 loop)
      (26)
      (14 0 0 loop)
      (25)
      (name ())
    )
    (24 1)
    431
    (24 2)
    430
    (26)
    (14 0 0 z)
    (25)
    (name ())
  )
  (24 1)
  (name string-append-core)
)
(17 string-append-core)
(26)
(23
  (18 2)
  (14 0 1 n)
  (13 0)
  (47)
  (21 () 436)
  (13 ())
  (25)
  436
  (22 () 434)
  (14 0 0 str)
  (14 0 1 n)
  (71)
  (16 string-append-core)
  (24 2)
  434
  (69)
  (22 () 435)
  (14 0 0 str)
  (14 0 1 n)
  (13 1)
  (43)
  (16 n-arguments)
  (24 2)
  435
  (2)
  (25)
  (name n-arguments)
)
(17 n-arguments)
(26)
(23
  (18 1)
  (14 0 0 primitive)
  (13 ((car 1) (cdr 1) (caar 1) (cadr 1) (cdar 1) (cddr 1) (list-ref 2) (list-tail 2) (eqv? 2) (memq 2) (memv 2) (member 2) (assq 2) (assv 2) (cons 2) (not 1) (null? 1) (eq? 2) (symbol? 1) (pair? 1) (list? 1) (number? 1) (string? 1) (make-string 1) (string-length 1) (string-ref 2) (string-set! 3) (string=? 2) (string<? 2) (string>? 2) (string<=? 2) (string>=? 2) (string-ci<? 2) (string-ci>? 2) (string-ci<=? 2) (string-ci>=? 2) (string-ci=? 2) (string->symbol 1) (symbol->string 1) (string->number 1) (number->string 1) (symbol-hash 1) (char? 1) (char=? 2) (char-alphabetic? 1) (char-numeric? 1) (char-upcase 1) (char-downcase 1) (char->integer 1) (integer->char 1) (integer? 1) (real? 1) (+ 2) (- 2) (* 2) (/ 2) (quotient 2) (remainder 2) (modulo 2) (bitwise-and 2) (bitwise-or 2) (bitwise-ior 2) (bitwise-xor 2) (bitwise-not 1) (arithmetic-shift 2) (inexact->exact 1) (exact->inexact 1) (length 1) (= 2) (< 2) (> 2) (<= 2) (>= 2) (equal? 2) (set-car! 2) (set-cdr! 2) (vector? 1) (make-vector 1) (vector-length 1) (vector-ref 2) (vector-set! 3) (boolean? 1) (procedure? 1) (eval 1) (apply 2) (write 1) (write-char 1) (newline 0) (read-char 0) (eof-object? 1) (exit 1)))
  (30)
  (11)
  (25)
  (name n-parameters)
)
(17 n-parameters)
(26)
(23
  (18 2)
  (14 0 0 procedure)
  (81)
  (21 () 442)
  (14 0 0 procedure)
  (0)
  (13 lambda)
  (5)
  (21 () 440)
  (14 0 0 procedure)
  (11)
  (7)
  (21 () 438)
  (13 #t)
  (25)
  438
  (13 #f)
  (25)
  440
  (13 #f)
  (25)
  442
  (13 #f)
  (25)
  (name procedure-has-no-args?)
)
(17 procedure-has-no-args?)
(26)
(23
  (18 4)
  (14 0 0 args)
  (0)
  (14 0 0 args)
  (11)
  (22 () 444)
  (16 gen-label)
  (24 0)
  444
  (23
    (18 3)
    (22 () 445)
    (14 0 2 k)
    (16 compile-save)
    (24 1)
    445
    (22 () 446)
    (22 () 447)
    (14 0 1 arguments)
    (14 1 1 env)
    (13 #t)
    (13 #t)
    (13 ())
    (16 compile)
    (24 5)
    447
    (22 () 448)
    (22 () 449)
    (16 compile-argl)
    (24 0)
    449
    (22 () 450)
    (22 () 451)
    (14 0 0 procedure)
    (14 1 1 env)
    (13 #t)
    (13 #t)
    (13 ())
    (16 compile)
    (24 5)
    451
    (22 () 452)
    (22 () 453)
    (16 compile-callnj)
    (24 0)
    453
    (22 () 454)
    (22 () 455)
    (14 0 2 k)
    (16 compile-label)
    (24 1)
    455
    (22 () 456)
    (22 () 457)
    (14 1 2 val?)
    (16 if-no-val-compile-pop)
    (24 1)
    457
    (22 () 458)
    (14 1 3 more?)
    (16 if-no-more-compile-return)
    (24 1)
    458
    (16 append2)
    (24 2)
    456
    (16 append2)
    (24 2)
    454
    (16 append2)
    (24 2)
    452
    (16 append2)
    (24 2)
    450
    (16 append2)
    (24 2)
    448
    (16 append2)
    (24 2)
    446
    (16 append2)
    (24 2)
    (name ())
  )
  (24 3)
  (name compile-apply-apply)
)
(17 compile-apply-apply)
(26)
(23
  (18 4)
  (22 () 459)
  (16 gen-label)
  (24 0)
  459
  (22 () 460)
  (16 gen-label)
  (24 0)
  460
  (23
    (18 2)
    (22 () 461)
    (14 0 0 m)
    (16 compile-save)
    (24 1)
    461
    (22 () 462)
    (22 () 463)
    (14 0 1 n)
    (16 compile-save)
    (24 1)
    463
    (22 () 464)
    (22 () 465)
    (14 1 0 args)
    (14 1 1 env)
    (16 compile-list-of-values)
    (24 2)
    465
    (22 () 466)
    (22 () 467)
    (13 gvar)
    (13 eval)
    (13 ())
    (2)
    (2)
    (16 gen-instruction)
    (24 1)
    467
    (22 () 468)
    (22 () 469)
    (13 1)
    (16 compile-callj)
    (24 1)
    469
    (22 () 470)
    (22 () 471)
    (14 0 1 n)
    (16 compile-label)
    (24 1)
    471
    (22 () 472)
    (22 () 473)
    (13 assemble)
    (13 ())
    (2)
    (16 gen-instruction)
    (24 1)
    473
    (22 () 474)
    (22 () 475)
    (13 const)
    (13 ())
    (13 ())
    (2)
    (2)
    (16 gen-instruction)
    (24 1)
    475
    (22 () 476)
    (22 () 477)
    (13 cons)
    (13 ())
    (2)
    (16 gen-instruction)
    (24 1)
    477
    (22 () 478)
    (22 () 479)
    (13 makeproc)
    (13 ())
    (2)
    (16 gen-instruction)
    (24 1)
    479
    (22 () 480)
    (22 () 481)
    (13 0)
    (16 compile-callj)
    (24 1)
    481
    (22 () 482)
    (22 () 483)
    (14 0 0 m)
    (16 compile-label)
    (24 1)
    483
    (22 () 484)
    (22 () 485)
    (14 1 2 val?)
    (16 if-no-val-compile-pop)
    (24 1)
    485
    (22 () 486)
    (14 1 3 more?)
    (16 if-no-more-compile-return)
    (24 1)
    486
    (16 append2)
    (24 2)
    484
    (16 append2)
    (24 2)
    482
    (16 append2)
    (24 2)
    480
    (16 append2)
    (24 2)
    478
    (16 append2)
    (24 2)
    476
    (16 append2)
    (24 2)
    474
    (16 append2)
    (24 2)
    472
    (16 append2)
    (24 2)
    470
    (16 append2)
    (24 2)
    468
    (16 append2)
    (24 2)
    466
    (16 append2)
    (24 2)
    464
    (16 append2)
    (24 2)
    462
    (16 append2)
    (24 2)
    (name ())
  )
  (24 2)
  (name compile-apply-eval)
)
(17 compile-apply-eval)
(26)
(13 ())
(17 primitive-procedure-references)
(26)
(23
  (18 1)
  (14 0 0 p)
  (16 primitive-procedure-references)
  (30)
  (8)
  (21 () 488)
  (22 () 487)
  (16 primitive-procedure-references)
  (14 0 0 p)
  (16 primitive-procedure-references)
  (31)
  (13 ())
  (2)
  (2)
  (13 ())
  (2)
  (16 append2)
  (24 2)
  487
  (17 primitive-procedure-references)
  (25)
  488
  (13 ())
  (25)
  (name log-primitive-procedure-reference)
)
(17 log-primitive-procedure-reference)
(26)
(23
  (18 4)
  (13 vector-ref)
  (13 __primitives)
  (14 0 0 e)
  (16 primitive-procedure-references)
  (30)
  (11)
  (13 ())
  (2)
  (2)
  (2)
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (13 ())
  (16 compile)
  (24 5)
  (name compile-primitive-procedure-reference)
)
(17 compile-primitive-procedure-reference)
(26)
(23
  (18 3)
  (13 ())
  (23
    (18 1)
    (23
      (18 1)
      (14 0 0 n)
      (23
        (18 1)
        (14 0 0 g:::1)
        (13 0)
        (76)
        (21 () 496)
        (13 ())
        (25)
        496
        (14 0 0 g:::1)
        (13 1)
        (76)
        (21 () 494)
        (13 (n1))
        (25)
        494
        (14 0 0 g:::1)
        (13 2)
        (76)
        (21 () 492)
        (13 (n1 n2))
        (25)
        492
        (14 0 0 g:::1)
        (13 3)
        (76)
        (21 () 490)
        (13 (n1 n2 n3))
        (25)
        490
        (13 #f)
        (25)
        (name ())
      )
      (24 1)
      (name build-n-arguments)
    )
    (15 0 0 build-n-arguments)
    (26)
    (13 vector-set!)
    (13 __primitives)
    (14 1 2 n)
    (13 lambda)
    (22 () 498)
    (14 1 1 n-args)
    (14 0 0 build-n-arguments)
    (24 1)
    498
    (14 1 0 primitive)
    (22 () 499)
    (14 1 1 n-args)
    (14 0 0 build-n-arguments)
    (24 1)
    499
    (2)
    (13 ())
    (2)
    (2)
    (2)
    (13 ())
    (2)
    (2)
    (2)
    (2)
    (25)
    (name ())
  )
  (24 1)
  (name build-primitive-reference)
)
(17 build-primitive-reference)
(26)
(23
  (18 2)
  (14 0 0 primitive-procedure-references)
  (7)
  (21 () 503)
  (13 ())
  (25)
  503
  (22 () 500)
  (14 0 0 primitive-procedure-references)
  (9)
  (22 () 501)
  (14 0 0 primitive-procedure-references)
  (9)
  (16 n-parameters)
  (24 1)
  501
  (14 0 1 n)
  (16 build-primitive-reference)
  (24 3)
  500
  (22 () 502)
  (14 0 0 primitive-procedure-references)
  (1)
  (14 0 1 n)
  (13 1)
  (42)
  (16 build-primitive-references)
  (24 2)
  502
  (2)
  (25)
  (name build-primitive-references)
)
(17 build-primitive-references)
(26)
(23
  (18 5)
  (22 () 505)
  (14 0 0 e)
  (16 self-evaluating?)
  (24 1)
  505
  (21 () 580)
  (14 0 0 e)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-const)
  (24 3)
  580
  (22 () 506)
  (14 0 0 e)
  (16 quoted?)
  (24 1)
  506
  (21 () 578)
  (22 () 507)
  (14 0 0 e)
  (16 text-of-quotation)
  (24 1)
  507
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-const)
  (24 3)
  578
  (14 0 0 e)
  (4)
  (21 () 509)
  (22 () 508)
  (14 0 0 e)
  (13 0)
  (14 0 1 env)
  (16 primitive-procedure?)
  (24 3)
  508
  (19 () 510)
  509
  (13 #f)
  510
  (21 () 576)
  (22 () 511)
  (14 0 0 e)
  (16 log-primitive-procedure-reference)
  (24 1)
  511
  (26)
  (14 0 0 e)
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-primitive-procedure-reference)
  (24 4)
  576
  (22 () 512)
  (14 0 0 e)
  (16 variable?)
  (24 1)
  512
  (21 () 574)
  (14 0 0 e)
  (22 () 513)
  (14 0 0 e)
  (14 0 1 env)
  (16 variable-location)
  (24 2)
  513
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-var)
  (24 4)
  574
  (22 () 514)
  (14 0 0 e)
  (16 definition?)
  (24 1)
  514
  (21 () 572)
  (14 0 0 e)
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-definition)
  (24 4)
  572
  (22 () 515)
  (14 0 0 e)
  (16 assignment?)
  (24 1)
  515
  (21 () 570)
  (22 () 516)
  (14 0 0 e)
  (16 assignment-variable)
  (24 1)
  516
  (22 () 517)
  (14 0 0 e)
  (16 assignment-value)
  (24 1)
  517
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-assignment)
  (24 5)
  570
  (22 () 518)
  (14 0 0 e)
  (16 lambda?)
  (24 1)
  518
  (21 () 568)
  (14 0 0 e)
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (14 0 4 name)
  (16 compile-procedure)
  (24 5)
  568
  (22 () 519)
  (14 0 0 e)
  (16 conditional?)
  (24 1)
  519
  (21 () 566)
  (22 () 520)
  (14 0 0 e)
  (16 clauses)
  (24 1)
  520
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-cond)
  (24 4)
  566
  (22 () 521)
  (14 0 0 e)
  (16 if?)
  (24 1)
  521
  (21 () 564)
  (14 0 0 e)
  (11)
  (14 0 0 e)
  (12)
  (0)
  (14 0 0 e)
  (12)
  (1)
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-if)
  (24 6)
  564
  (22 () 522)
  (14 0 0 e)
  (16 let?)
  (24 1)
  522
  (21 () 562)
  (14 0 0 e)
  (1)
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-let)
  (24 4)
  562
  (22 () 523)
  (14 0 0 e)
  (16 let*?)
  (24 1)
  523
  (21 () 560)
  (14 0 0 e)
  (1)
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-let*)
  (24 4)
  560
  (22 () 524)
  (14 0 0 e)
  (16 letrec?)
  (24 1)
  524
  (21 () 558)
  (14 0 0 e)
  (1)
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-letrec)
  (24 4)
  558
  (22 () 525)
  (14 0 0 e)
  (16 begin?)
  (24 1)
  525
  (21 () 556)
  (14 0 0 e)
  (1)
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-sequence)
  (24 4)
  556
  (22 () 526)
  (14 0 0 e)
  (16 list-?)
  (24 1)
  526
  (21 () 554)
  (14 0 0 e)
  (1)
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-list)
  (24 4)
  554
  (22 () 527)
  (14 0 0 e)
  (16 arith-terms?)
  (24 1)
  527
  (21 () 552)
  (14 0 0 e)
  (0)
  (14 0 0 e)
  (1)
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-arith-terms)
  (24 5)
  552
  (22 () 528)
  (14 0 0 e)
  (16 or?)
  (24 1)
  528
  (21 () 550)
  (14 0 0 e)
  (1)
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-or)
  (24 4)
  550
  (22 () 529)
  (14 0 0 e)
  (16 and?)
  (24 1)
  529
  (21 () 548)
  (14 0 0 e)
  (1)
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-and)
  (24 4)
  548
  (22 () 530)
  (14 0 0 e)
  (16 while?)
  (24 1)
  530
  (21 () 546)
  (14 0 0 e)
  (1)
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-while)
  (24 4)
  546
  (22 () 531)
  (14 0 0 e)
  (16 case?)
  (24 1)
  531
  (21 () 544)
  (14 0 0 e)
  (1)
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-case)
  (24 4)
  544
  (22 () 532)
  (14 0 0 e)
  (16 do?)
  (24 1)
  532
  (21 () 542)
  (14 0 0 e)
  (1)
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-do)
  (24 4)
  542
  (22 () 533)
  (14 0 0 e)
  (16 quasiquoted?)
  (24 1)
  533
  (21 () 540)
  (22 () 534)
  (14 0 0 e)
  (11)
  (13 0)
  (16 expand-quasiquote)
  (24 2)
  534
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (14 0 4 name)
  (16 compile)
  (24 5)
  540
  (22 () 535)
  (14 0 0 e)
  (16 application?)
  (24 1)
  535
  (21 () 538)
  (22 () 536)
  (14 0 0 e)
  (16 operator)
  (24 1)
  536
  (22 () 537)
  (14 0 0 e)
  (16 operands)
  (24 1)
  537
  (14 0 1 env)
  (14 0 2 val?)
  (14 0 3 more?)
  (16 compile-apply)
  (24 5)
  538
  (13 "unknown expression type -- ")
  (14 0 0 e)
  (16 my-error)
  (24 2)
  (name compile)
)
(17 compile)
(26)
(23
  (18 5)
  (22 () 582)
  (14 0 0 procedure)
  (14 0 1 args)
  (31)
  (14 0 2 env)
  (16 primitive-procedure?)
  (24 3)
  582
  (23
    (18 1)
    (14 0 0 primitive-procedure)
    (21 () 616)
    (22 () 583)
    (14 1 3 val?)
    (14 0 0 primitive-procedure)
    (16 no-val-and-no-side-effect?)
    (24 2)
    583
    (21 () 594)
    (14 1 1 args)
    (14 1 2 env)
    (13 #f)
    (14 1 4 more?)
    (16 compile-sequence)
    (24 4)
    594
    (14 0 0 primitive-procedure)
    (0)
    (13 apply)
    (5)
    (21 () 592)
    (14 1 1 args)
    (14 1 2 env)
    (14 1 3 val?)
    (14 1 4 more?)
    (16 compile-apply-apply)
    (24 4)
    592
    (14 0 0 primitive-procedure)
    (0)
    (13 eval)
    (5)
    (21 () 590)
    (14 1 1 args)
    (14 1 2 env)
    (14 1 3 val?)
    (14 1 4 more?)
    (16 compile-apply-eval)
    (24 4)
    590
    (22 () 584)
    (14 1 1 args)
    (14 1 2 env)
    (16 compile-list-of-values)
    (24 2)
    584
    (22 () 585)
    (22 () 586)
    (14 0 0 primitive-procedure)
    (0)
    (16 gen-opcode)
    (24 1)
    586
    (22 () 587)
    (22 () 588)
    (14 1 3 val?)
    (16 if-no-val-compile-pop)
    (24 1)
    588
    (22 () 589)
    (14 1 4 more?)
    (16 if-no-more-compile-return)
    (24 1)
    589
    (16 append2)
    (24 2)
    587
    (16 append2)
    (24 2)
    585
    (16 append2)
    (24 2)
    616
    (22 () 596)
    (14 1 0 procedure)
    (14 1 1 args)
    (16 procedure-has-no-args?)
    (24 2)
    596
    (21 () 614)
    (14 1 0 procedure)
    (12)
    (14 1 2 env)
    (14 1 3 val?)
    (14 1 4 more?)
    (16 compile-sequence)
    (24 4)
    614
    (14 1 4 more?)
    (21 () 612)
    (22 () 597)
    (16 gen-label)
    (24 0)
    597
    (23
      (18 1)
      (22 () 598)
      (14 0 0 k)
      (16 compile-save)
      (24 1)
      598
      (22 () 599)
      (22 () 600)
      (14 2 1 args)
      (14 2 2 env)
      (16 compile-list-of-values)
      (24 2)
      600
      (22 () 601)
      (22 () 602)
      (14 2 0 procedure)
      (14 2 2 env)
      (13 #t)
      (13 #t)
      (13 ())
      (16 compile)
      (24 5)
      602
      (22 () 603)
      (22 () 604)
      (14 2 1 args)
      (31)
      (16 compile-callj)
      (24 1)
      604
      (22 () 605)
      (22 () 606)
      (14 0 0 k)
      (16 compile-label)
      (24 1)
      606
      (22 () 607)
      (14 2 3 val?)
      (16 if-no-val-compile-pop)
      (24 1)
      607
      (16 append2)
      (24 2)
      605
      (16 append2)
      (24 2)
      603
      (16 append2)
      (24 2)
      601
      (16 append2)
      (24 2)
      599
      (16 append2)
      (24 2)
      (name ())
    )
    (24 1)
    612
    (22 () 608)
    (14 1 1 args)
    (14 1 2 env)
    (16 compile-list-of-values)
    (24 2)
    608
    (22 () 609)
    (22 () 610)
    (14 1 0 procedure)
    (14 1 2 env)
    (13 #t)
    (13 #t)
    (13 ())
    (16 compile)
    (24 5)
    610
    (22 () 611)
    (14 1 1 args)
    (31)
    (16 compile-callj)
    (24 1)
    611
    (16 append2)
    (24 2)
    609
    (16 append2)
    (24 2)
    (name ())
  )
  (24 1)
  (name compile-apply)
)
(17 compile-apply)
(26)
(23
  (18 1)
  (14 0 0 instruction)
  (7)
  (21 () 618)
  (13 #f)
  (25)
  618
  (14 0 0 instruction)
  (0)
  (13 label)
  (5)
  (25)
  (name label?)
)
(17 label?)
(26)
(23
  (18 1)
  (14 0 0 code)
  (11)
  (25)
  (name proc-code)
)
(17 proc-code)
(26)
(23
  (18 2)
  (22 () 620)
  (14 0 1 level)
  (16 indent)
  (24 1)
  620
  (26)
  (22 () 621)
  (14 0 0 instruction)
  (16 label?)
  (24 1)
  621
  (21 () 629)
  (14 0 0 instruction)
  (11)
  (16 display-line)
  (24 1)
  629
  (22 () 622)
  (14 0 0 instruction)
  (16 compound-procedure?)
  (24 1)
  622
  (21 () 627)
  (22 () 623)
  (13 "(23")
  (16 display-line)
  (24 1)
  623
  (26)
  (22 () 624)
  (22 () 625)
  (14 0 0 instruction)
  (16 proc-code)
  (24 1)
  625
  (14 0 1 level)
  (13 1)
  (42)
  (16 print-code)
  (24 2)
  624
  (26)
  (22 () 626)
  (14 0 1 level)
  (16 indent)
  (24 1)
  626
  (26)
  (13 ")")
  (16 display-line)
  (24 1)
  627
  (14 0 0 instruction)
  (16 write-line)
  (24 1)
  (name print-instruction)
)
(17 print-instruction)
(26)
(23
  (18 2)
  (14 0 0 code)
  (7)
  (8)
  (21 () 632)
  (22 () 631)
  (14 0 0 code)
  (0)
  (14 0 1 level)
  (16 print-instruction)
  (24 2)
  631
  (26)
  (14 0 0 code)
  (1)
  (14 0 1 level)
  (16 print-code)
  (24 2)
  632
  (13 ())
  (25)
  (name print-code)
)
(17 print-code)
(26)
(23
  (18 1)
  (14 0 0 code)
  (7)
  (8)
  (21 () 635)
  (22 () 634)
  (14 0 0 code)
  (0)
  (13 0)
  (16 print-code)
  (24 2)
  634
  (26)
  (14 0 0 code)
  (1)
  (16 display-code)
  (24 1)
  635
  (13 ())
  (25)
  (name display-code)
)
(17 display-code)
(26)
(23
  (18 0)
  (22 () 637)
  (16 read)
  (24 0)
  637
  (23
    (18 1)
    (14 0 0 e)
    (38)
    (21 () 640)
    (13 ())
    (25)
    640
    (22 () 638)
    (14 0 0 e)
    (13 ())
    (13 #t)
    (13 #t)
    (13 ())
    (16 compile)
    (24 5)
    638
    (22 () 639)
    (16 compile-scheme)
    (24 0)
    639
    (2)
    (25)
    (name ())
  )
  (24 1)
  (name compile-scheme)
)
(17 compile-scheme)
(26)
(23
  (18 1)
  (14 0 0 library-procedures)
  (7)
  (21 () 645)
  (13 ())
  (25)
  645
  (14 0 0 library-procedures)
  (10)
  (0)
  (21 () 643)
  (14 0 0 library-procedures)
  (10)
  (1)
  (0)
  (22 () 642)
  (14 0 0 library-procedures)
  (1)
  (16 get-library-procedures)
  (24 1)
  642
  (2)
  (25)
  643
  (14 0 0 library-procedures)
  (1)
  (16 get-library-procedures)
  (24 1)
  (name get-library-procedures)
)
(17 get-library-procedures)
(26)
(23
  (18 1)
  (14 0 0 library-procedures)
  (7)
  (21 () 649)
  (13 ())
  (25)
  649
  (22 () 647)
  (14 0 0 library-procedures)
  (0)
  (13 ())
  (13 #t)
  (13 #t)
  (13 ())
  (16 compile)
  (24 5)
  647
  (22 () 648)
  (14 0 0 library-procedures)
  (1)
  (16 compile-library-procedures)
  (24 1)
  648
  (2)
  (25)
  (name compile-library-procedures)
)
(17 compile-library-procedures)
(26)
(22 () 651)
(16 compile-scheme)
(24 0)
651
(17 top-level)
(26)
(22 () 652)
(13 "(")
(16 display-line)
(24 1)
652
(16 program-has-call/cc)
(21 () 654)
(22 () 653)
(16 call/cc-code)
(16 display-code)
(24 1)
653
(19 () 655)
654
(13 ())
655
(22 () 656)
(22 () 657)
(22 () 658)
(16 library-procedures)
(16 get-library-procedures)
(24 1)
658
(16 compile-library-procedures)
(24 1)
657
(23
  (18 1)
  (16 primitive-procedure-references)
  (7)
  (8)
  (21 () 664)
  (22 () 659)
  (22 () 660)
  (16 primitive-procedure-references)
  (13 0)
  (16 build-primitive-references)
  (24 2)
  660
  (23
    (18 1)
    (22 () 661)
    (22 () 662)
    (13 define)
    (13 __primitives)
    (13 make-vector)
    (14 0 0 list-of-primitive-procs)
    (31)
    (13 ())
    (2)
    (2)
    (13 ())
    (2)
    (2)
    (2)
    (13 ())
    (13 #t)
    (13 #t)
    (13 ())
    (16 compile)
    (24 5)
    662
    (13 ())
    (2)
    (16 display-code)
    (24 1)
    661
    (26)
    (22 () 663)
    (13 begin)
    (14 0 0 list-of-primitive-procs)
    (2)
    (13 ())
    (13 #t)
    (13 #t)
    (13 ())
    (16 compile)
    (24 5)
    663
    (13 ())
    (2)
    (16 display-code)
    (24 1)
    (name ())
  )
  (24 1)
  659
  (26)
  (19 () 665)
  664
  665
  (22 () 666)
  (14 0 0 library-procedures-code)
  (16 display-code)
  (24 1)
  666
  (26)
  (16 top-level)
  (16 display-code)
  (24 1)
  (name ())
)
(24 1)
656
(22 () 667)
(22 () 668)
(13 halt)
(16 opcode-value)
(24 1)
668
(13 ())
(2)
(13 0)
(16 print-instruction)
(24 2)
667
(22 () 669)
(13 ")")
(16 display-line)
(24 1)
669
(80)
)
