(
(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
  (18 1)
  (14 0 0 x)
  (13 0)
  (47)
  (25)
  (name zero?)
)
(17 zero?)
(26)
(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 () 97)
              (13 ())
              (23
                (18 1)
                (23
                  (18 1)
                  (14 0 0 i)
                  (14 3 0 size)
                  (47)
                  (21 () 98)
                  (13 ())
                  (25)
                  98
                  (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)
              97
              (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:::0)
                (21 () 100)
                (14 0 0 g:::0)
                (25)
                100
                (14 6 2 ch)
                (62)
                (25)
                (name ())
              )
              (24 1)
              (name char-alpha-numeric?)
            )
            (15 0 4 char-alpha-numeric?)
            (26)
            (23
              (18 0)
              (22 () 102)
              (13 ())
              (23
                (18 1)
                (23
                  (18 0)
                  (22 () 103)
                  (14 3 4 char-alpha-numeric?)
                  (24 0)
                  103
                  (21 () 106)
                  (22 () 104)
                  (14 3 6 get-ch)
                  (24 0)
                  104
                  (26)
                  (22 () 105)
                  (14 3 5 skip-past-alpha)
                  (24 0)
                  105
                  (26)
                  (14 1 0 loop)
                  (24 0)
                  106
                  (13 ())
                  (25)
                  (name loop)
                )
                (15 0 0 loop)
                (26)
                (14 0 0 loop)
                (25)
                (name ())
              )
              (24 1)
              102
              (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 () 108)
              (13 #\space)
              (15 5 2 ch)
              (25)
              108
              (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 () 111)
              (14 1 6 get-ch)
              (24 0)
              111
              (22 () 110)
              (14 1 7 get-ch-no-newline)
              (24 0)
              110
              (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 () 119)
              (13 ())
              (25)
              119
              (14 5 2 ch)
              (13 #\;)
              (61)
              (21 () 117)
              (22 () 113)
              (14 1 8 skip-line)
              (24 0)
              113
              (26)
              (14 1 9 skip-blanks)
              (24 0)
              117
              (14 5 2 ch)
              (14 5 6 white-space)
              (28)
              (21 () 115)
              (22 () 114)
              (14 1 6 get-ch)
              (24 0)
              114
              (26)
              (14 1 9 skip-blanks)
              (24 0)
              115
              (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 () 121)
              (14 1 2 token-new)
              (15 1 1 token-list)
              (26)
              (14 1 2 token-new)
              (15 1 3 token-tail)
              (26)
              (19 () 122)
              121
              (14 1 3 token-tail)
              (14 1 2 token-new)
              (55)
              (26)
              (14 1 3 token-tail)
              (1)
              (15 1 3 token-tail)
              (26)
              122
              (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 () 123)
              (14 1 6 get-ch)
              (24 0)
              123
              (26)
              (22 () 124)
              (22 () 125)
              (13 ())
              (23
                (18 1)
                (23
                  (18 0)
                  (22 () 126)
                  (14 7 2 ch)
                  (14 7 6 white-space)
                  (28)
                  (23
                    (18 1)
                    (14 0 0 g:::1)
                    (21 () 129)
                    (14 0 0 g:::1)
                    (25)
                    129
                    (14 8 2 ch)
                    (13 (#\( #\)))
                    (28)
                    (23
                      (18 1)
                      (14 0 0 g:::2)
                      (21 () 127)
                      (14 0 0 g:::2)
                      (25)
                      127
                      (14 9 2 ch)
                      (38)
                      (25)
                      (name ())
                    )
                    (24 1)
                    (name ())
                  )
                  (24 1)
                  126
                  (8)
                  (21 () 132)
                  (22 () 131)
                  (14 3 11 append-to-list)
                  (24 0)
                  131
                  (26)
                  (14 1 0 loop)
                  (24 0)
                  132
                  (13 ())
                  (25)
                  (name loop)
                )
                (15 0 0 loop)
                (26)
                (14 0 0 loop)
                (25)
                (name ())
              )
              (24 1)
              125
              (24 0)
              124
              (26)
              (22 () 134)
              (14 1 1 token-list)
              (16 reverse)
              (24 1)
              134
              (15 1 1 token-list)
              (26)
              (13 0)
              (15 1 0 token)
              (26)
              (13 1)
              (22 () 135)
              (13 ())
              (23
                (18 1)
                (23
                  (18 1)
                  (14 3 1 token-list)
                  (7)
                  (8)
                  (21 () 138)
                  (14 3 1 token-list)
                  (0)
                  (23
                    (18 1)
                    (14 0 0 dig)
                    (13 #\1)
                    (61)
                    (21 () 136)
                    (14 4 0 token)
                    (14 1 0 power)
                    (42)
                    (15 4 0 token)
                    (26)
                    (19 () 137)
                    136
                    137
                    (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)
                  138
                  (13 ())
                  (25)
                  (name loop)
                )
                (15 0 0 loop)
                (26)
                (14 0 0 loop)
                (25)
                (name ())
              )
              (24 1)
              135
              (24 1)
              (name get-binary-radix-number)
            )
            (15 0 12 get-binary-radix-number)
            (26)
            (23
              (18 1)
              (14 0 0 dig)
              (62)
              (21 () 140)
              (14 0 0 dig)
              (78)
              (13 #\0)
              (78)
              (43)
              (25)
              140
              (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 () 142)
              (14 1 6 get-ch)
              (24 0)
              142
              (26)
              (22 () 143)
              (22 () 144)
              (13 ())
              (23
                (18 1)
                (23
                  (18 0)
                  (22 () 145)
                  (14 7 2 ch)
                  (14 7 6 white-space)
                  (28)
                  (23
                    (18 1)
                    (14 0 0 g:::3)
                    (21 () 148)
                    (14 0 0 g:::3)
                    (25)
                    148
                    (14 8 2 ch)
                    (13 (#\( #\)))
                    (28)
                    (23
                      (18 1)
                      (14 0 0 g:::4)
                      (21 () 146)
                      (14 0 0 g:::4)
                      (25)
                      146
                      (14 9 2 ch)
                      (38)
                      (25)
                      (name ())
                    )
                    (24 1)
                    (name ())
                  )
                  (24 1)
                  145
                  (8)
                  (21 () 151)
                  (22 () 150)
                  (14 3 11 append-to-list)
                  (24 0)
                  150
                  (26)
                  (14 1 0 loop)
                  (24 0)
                  151
                  (13 ())
                  (25)
                  (name loop)
                )
                (15 0 0 loop)
                (26)
                (14 0 0 loop)
                (25)
                (name ())
              )
              (24 1)
              144
              (24 0)
              143
              (26)
              (22 () 153)
              (14 1 1 token-list)
              (16 reverse)
              (24 1)
              153
              (15 1 1 token-list)
              (26)
              (13 0)
              (15 1 0 token)
              (26)
              (13 1)
              (22 () 154)
              (13 ())
              (23
                (18 1)
                (23
                  (18 1)
                  (14 3 1 token-list)
                  (7)
                  (8)
                  (21 () 156)
                  (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 () 155)
                    (14 0 0 dig)
                    (14 4 13 hex-dig)
                    (24 1)
                    155
                    (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)
                  156
                  (13 ())
                  (25)
                  (name loop)
                )
                (15 0 0 loop)
                (26)
                (14 0 0 loop)
                (25)
                (name ())
              )
              (24 1)
              154
              (24 1)
              (name get-hex-radix-number)
            )
            (15 0 14 get-hex-radix-number)
            (26)
            (23
              (18 0)
              (22 () 158)
              (14 1 6 get-ch)
              (24 0)
              158
              (26)
              (14 5 2 ch)
              (13 (#\t #\f))
              (29)
              (21 () 177)
              (13 boolean-tok)
              (15 5 0 token-type)
              (26)
              (14 5 2 ch)
              (13 #\t)
              (61)
              (21 () 159)
              (13 #t)
              (15 1 0 token)
              (26)
              (19 () 160)
              159
              (13 #f)
              (15 1 0 token)
              (26)
              160
              (14 1 6 get-ch)
              (24 0)
              177
              (14 5 2 ch)
              (13 (#\b #\x))
              (29)
              (21 () 175)
              (13 symbol-tok)
              (15 5 0 token-type)
              (26)
              (14 5 2 ch)
              (13 #\b)
              (61)
              (21 () 161)
              (14 1 12 get-binary-radix-number)
              (24 0)
              161
              (14 1 14 get-hex-radix-number)
              (24 0)
              175
              (14 5 2 ch)
              (13 #\\)
              (61)
              (21 () 173)
              (13 char-tok)
              (15 5 0 token-type)
              (26)
              (22 () 163)
              (14 1 6 get-ch)
              (24 0)
              163
              (26)
              (14 5 2 ch)
              (15 1 0 token)
              (26)
              (14 5 2 ch)
              (23
                (18 1)
                (22 () 164)
                (14 2 6 get-ch)
                (24 0)
                164
                (26)
                (14 0 0 first-ch)
                (23
                  (18 1)
                  (14 0 0 g:::5)
                  (13 #\s)
                  (76)
                  (21 () 171)
                  (14 7 2 ch)
                  (13 #\p)
                  (61)
                  (21 () 165)
                  (13 #\space)
                  (15 3 0 token)
                  (26)
                  (14 3 5 skip-past-alpha)
                  (24 0)
                  165
                  (13 ())
                  (25)
                  171
                  (14 0 0 g:::5)
                  (13 #\n)
                  (76)
                  (21 () 169)
                  (14 7 2 ch)
                  (13 #\e)
                  (61)
                  (21 () 167)
                  (13 #\newline)
                  (15 3 0 token)
                  (26)
                  (14 3 5 skip-past-alpha)
                  (24 0)
                  167
                  (13 ())
                  (25)
                  169
                  (13 #f)
                  (25)
                  (name ())
                )
                (24 1)
                (name ())
              )
              (24 1)
              173
              (13 vector-tok)
              (15 5 0 token-type)
              (25)
              (name get-vector)
            )
            (15 0 15 get-vector)
            (26)
            (23
              (18 0)
              (22 () 179)
              (14 1 6 get-ch)
              (24 0)
              179
              (26)
              (22 () 180)
              (22 () 181)
              (13 ())
              (23
                (18 1)
                (23
                  (18 0)
                  (22 () 182)
                  (14 7 2 ch)
                  (13 #\")
                  (61)
                  (23
                    (18 1)
                    (14 0 0 g:::6)
                    (21 () 183)
                    (14 0 0 g:::6)
                    (25)
                    183
                    (14 8 2 ch)
                    (38)
                    (25)
                    (name ())
                  )
                  (24 1)
                  182
                  (8)
                  (21 () 189)
                  (22 () 185)
                  (14 3 11 append-to-list)
                  (24 0)
                  185
                  (26)
                  (14 7 3 previous-ch)
                  (13 #\\)
                  (61)
                  (21 () 187)
                  (22 () 186)
                  (14 3 10 replace-last-ch)
                  (24 0)
                  186
                  (26)
                  (19 () 188)
                  187
                  188
                  (14 1 0 loop)
                  (24 0)
                  189
                  (13 ())
                  (25)
                  (name loop)
                )
                (15 0 0 loop)
                (26)
                (14 0 0 loop)
                (25)
                (name ())
              )
              (24 1)
              181
              (24 0)
              180
              (26)
              (22 () 191)
              (14 1 6 get-ch)
              (24 0)
              191
              (26)
              (13 string-tok)
              (15 5 0 token-type)
              (26)
              (22 () 192)
              (14 1 1 token-list)
              (16 list->string)
              (24 1)
              192
              (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 () 200)
                  (14 1 1 end-of-token)
                  (15 1 0 ch)
                  (25)
                  200
                  (14 2 0 token)
                  (0)
                  (15 1 0 ch)
                  (26)
                  (14 1 0 ch)
                  (13 #\.)
                  (61)
                  (21 () 198)
                  (13 #t)
                  (15 1 3 has-decimal)
                  (26)
                  (19 () 199)
                  198
                  (22 () 193)
                  (14 1 0 ch)
                  (13 #\e)
                  (61)
                  (23
                    (18 1)
                    (14 0 0 g:::7)
                    (21 () 194)
                    (14 0 0 g:::7)
                    (25)
                    194
                    (14 2 0 ch)
                    (13 #\E)
                    (61)
                    (25)
                    (name ())
                  )
                  (24 1)
                  193
                  (21 () 196)
                  (13 #t)
                  (15 1 4 has-e)
                  (26)
                  (19 () 197)
                  196
                  197
                  199
                  (14 2 0 token)
                  (1)
                  (15 2 0 token)
                  (25)
                  (name next-ch)
                )
                (15 0 6 next-ch)
                (26)
                (23
                  (18 0)
                  (22 () 202)
                  (14 1 6 next-ch)
                  (24 0)
                  202
                  (26)
                  (14 1 0 ch)
                  (13 #\-)
                  (61)
                  (21 () 207)
                  (14 1 8 state-1)
                  (24 0)
                  207
                  (14 1 0 ch)
                  (62)
                  (21 () 205)
                  (14 1 9 state-2)
                  (24 0)
                  205
                  (14 1 0 ch)
                  (13 #\.)
                  (61)
                  (21 () 203)
                  (14 1 10 state-3)
                  (24 0)
                  203
                  (13 ())
                  (25)
                  (name state-0)
                )
                (15 0 7 state-0)
                (26)
                (23
                  (18 0)
                  (22 () 209)
                  (14 1 6 next-ch)
                  (24 0)
                  209
                  (26)
                  (14 1 0 ch)
                  (13 #\.)
                  (61)
                  (21 () 212)
                  (14 1 10 state-3)
                  (24 0)
                  212
                  (14 1 0 ch)
                  (62)
                  (21 () 210)
                  (14 1 9 state-2)
                  (24 0)
                  210
                  (13 ())
                  (25)
                  (name state-1)
                )
                (15 0 8 state-1)
                (26)
                (23
                  (18 0)
                  (22 () 214)
                  (14 1 6 next-ch)
                  (24 0)
                  214
                  (26)
                  (14 1 0 ch)
                  (13 #\.)
                  (61)
                  (21 () 224)
                  (14 1 10 state-3)
                  (24 0)
                  224
                  (14 1 0 ch)
                  (62)
                  (21 () 222)
                  (14 1 9 state-2)
                  (24 0)
                  222
                  (22 () 215)
                  (14 1 0 ch)
                  (13 #\e)
                  (61)
                  (23
                    (18 1)
                    (14 0 0 g:::8)
                    (21 () 216)
                    (14 0 0 g:::8)
                    (25)
                    216
                    (14 2 0 ch)
                    (13 #\E)
                    (61)
                    (25)
                    (name ())
                  )
                  (24 1)
                  215
                  (21 () 220)
                  (14 1 11 state-4)
                  (24 0)
                  220
                  (14 1 0 ch)
                  (14 1 1 end-of-token)
                  (61)
                  (21 () 218)
                  (14 1 14 state-7)
                  (24 0)
                  218
                  (13 ())
                  (25)
                  (name state-2)
                )
                (15 0 9 state-2)
                (26)
                (23
                  (18 0)
                  (22 () 226)
                  (14 1 6 next-ch)
                  (24 0)
                  226
                  (26)
                  (22 () 227)
                  (14 1 0 ch)
                  (13 #\e)
                  (61)
                  (23
                    (18 1)
                    (14 0 0 g:::9)
                    (21 () 228)
                    (14 0 0 g:::9)
                    (25)
                    228
                    (14 2 0 ch)
                    (13 #\E)
                    (61)
                    (25)
                    (name ())
                  )
                  (24 1)
                  227
                  (21 () 234)
                  (14 1 11 state-4)
                  (24 0)
                  234
                  (14 1 0 ch)
                  (62)
                  (21 () 232)
                  (14 1 10 state-3)
                  (24 0)
                  232
                  (14 1 0 ch)
                  (14 1 1 end-of-token)
                  (61)
                  (21 () 230)
                  (14 1 14 state-7)
                  (24 0)
                  230
                  (13 ())
                  (25)
                  (name state-3)
                )
                (15 0 10 state-3)
                (26)
                (23
                  (18 0)
                  (22 () 236)
                  (14 1 6 next-ch)
                  (24 0)
                  236
                  (26)
                  (22 () 237)
                  (14 1 0 ch)
                  (13 #\+)
                  (61)
                  (23
                    (18 1)
                    (14 0 0 g:::10)
                    (21 () 238)
                    (14 0 0 g:::10)
                    (25)
                    238
                    (14 2 0 ch)
                    (13 #\-)
                    (61)
                    (25)
                    (name ())
                  )
                  (24 1)
                  237
                  (21 () 242)
                  (14 1 12 state-5)
                  (24 0)
                  242
                  (14 1 0 ch)
                  (62)
                  (21 () 240)
                  (14 1 13 state-6)
                  (24 0)
                  240
                  (13 ())
                  (25)
                  (name state-4)
                )
                (15 0 11 state-4)
                (26)
                (23
                  (18 0)
                  (22 () 244)
                  (14 1 6 next-ch)
                  (24 0)
                  244
                  (26)
                  (14 1 0 ch)
                  (62)
                  (21 () 245)
                  (14 1 13 state-6)
                  (24 0)
                  245
                  (13 ())
                  (25)
                  (name state-5)
                )
                (15 0 12 state-5)
                (26)
                (23
                  (18 0)
                  (22 () 247)
                  (14 1 6 next-ch)
                  (24 0)
                  247
                  (26)
                  (14 1 0 ch)
                  (14 1 1 end-of-token)
                  (61)
                  (21 () 250)
                  (14 1 14 state-7)
                  (24 0)
                  250
                  (14 1 0 ch)
                  (62)
                  (21 () 248)
                  (14 1 13 state-6)
                  (24 0)
                  248
                  (13 ())
                  (25)
                  (name state-6)
                )
                (15 0 13 state-6)
                (26)
                (23
                  (18 0)
                  (14 1 3 has-decimal)
                  (21 () 252)
                  (14 1 4 has-e)
                  (8)
                  (19 () 253)
                  252
                  (13 #f)
                  253
                  (21 () 255)
                  (22 () 254)
                  (14 1 5 save-token)
                  (14 3 17 append-e0!)
                  (24 1)
                  254
                  (26)
                  (19 () 256)
                  255
                  256
                  (13 #t)
                  (15 1 2 return)
                  (25)
                  (name state-7)
                )
                (15 0 14 state-7)
                (26)
                (22 () 257)
                (14 0 7 state-0)
                (24 0)
                257
                (26)
                (14 0 2 return)
                (25)
                (name ())
              )
              (24 15)
              (name number-token?)
            )
            (15 0 18 number-token?)
            (26)
            (23
              (18 0)
              (22 () 258)
              (22 () 259)
              (13 ())
              (23
                (18 1)
                (23
                  (18 0)
                  (22 () 260)
                  (14 7 2 ch)
                  (14 7 6 white-space)
                  (28)
                  (23
                    (18 1)
                    (14 0 0 g:::11)
                    (21 () 263)
                    (14 0 0 g:::11)
                    (25)
                    263
                    (14 8 2 ch)
                    (13 (#\( #\)))
                    (28)
                    (23
                      (18 1)
                      (14 0 0 g:::12)
                      (21 () 261)
                      (14 0 0 g:::12)
                      (25)
                      261
                      (14 9 2 ch)
                      (38)
                      (25)
                      (name ())
                    )
                    (24 1)
                    (name ())
                  )
                  (24 1)
                  260
                  (8)
                  (21 () 266)
                  (14 7 2 ch)
                  (65)
                  (15 7 2 ch)
                  (26)
                  (22 () 265)
                  (14 3 11 append-to-list)
                  (24 0)
                  265
                  (26)
                  (14 1 0 loop)
                  (24 0)
                  266
                  (13 ())
                  (25)
                  (name loop)
                )
                (15 0 0 loop)
                (26)
                (14 0 0 loop)
                (25)
                (name ())
              )
              (24 1)
              259
              (24 0)
              258
              (26)
              (14 1 1 token-list)
              (13 (#\.))
              (53)
              (21 () 273)
              (13 dot-tok)
              (15 5 0 token-type)
              (25)
              273
              (13 symbol-tok)
              (15 5 0 token-type)
              (26)
              (22 () 268)
              (14 1 1 token-list)
              (14 1 18 number-token?)
              (24 1)
              268
              (21 () 271)
              (22 () 269)
              (14 1 1 token-list)
              (16 list->string)
              (24 1)
              269
              (70)
              (15 1 0 token)
              (25)
              271
              (22 () 270)
              (14 1 1 token-list)
              (16 list->string)
              (24 1)
              270
              (69)
              (15 1 0 token)
              (25)
              (name get-symbol)
            )
            (15 0 19 get-symbol)
            (26)
            (22 () 275)
            (14 0 9 skip-blanks)
            (24 0)
            275
            (26)
            (14 4 2 ch)
            (38)
            (21 () 296)
            (13 eof-tok)
            (15 4 0 token-type)
            (26)
            (14 4 2 ch)
            (15 0 0 token)
            (26)
            (19 () 297)
            296
            (22 () 276)
            (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 () 294)
              (14 0 0 match)
              (11)
              (23
                (18 1)
                (14 0 0 g:::13)
                (13 (opar-tok cpar-tok tic-tok backtic-tok))
                (91)
                (21 () 292)
                (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 () 281)
                (14 6 1 paren-level)
                (13 1)
                (42)
                (15 6 1 paren-level)
                (26)
                (14 2 6 get-ch)
                (24 0)
                281
                (14 6 0 token-type)
                (13 cpar-tok)
                (5)
                (21 () 279)
                (14 6 1 paren-level)
                (13 1)
                (43)
                (15 6 1 paren-level)
                (26)
                (14 6 1 paren-level)
                (13 0)
                (51)
                (21 () 277)
                (14 2 6 get-ch)
                (24 0)
                277
                (13 ())
                (25)
                279
                (14 2 6 get-ch)
                (24 0)
                292
                (14 0 0 g:::13)
                (13 comma-tok)
                (76)
                (21 () 290)
                (14 1 0 match)
                (11)
                (15 6 0 token-type)
                (26)
                (14 6 2 ch)
                (15 2 0 token)
                (26)
                (22 () 283)
                (14 2 6 get-ch)
                (24 0)
                283
                (26)
                (14 6 2 ch)
                (13 #\@)
                (61)
                (21 () 284)
                (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)
                284
                (13 ())
                (25)
                290
                (14 0 0 g:::13)
                (13 vector-tok)
                (76)
                (21 () 288)
                (14 2 15 get-vector)
                (24 0)
                288
                (14 0 0 g:::13)
                (13 string-tok)
                (76)
                (21 () 286)
                (14 2 16 get-string)
                (24 0)
                286
                (13 #f)
                (25)
                (name ())
              )
              (24 1)
              294
              (14 1 19 get-symbol)
              (24 0)
              (name ())
            )
            (24 1)
            276
            (26)
            297
            (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 () 298)
          (14 1 1 get-token)
          (24 0)
          298
          (23
            (18 1)
            (14 4 0 token-type)
            (23
              (18 1)
              (14 0 0 g:::14)
              (13 opar-tok)
              (76)
              (21 () 323)
              (22 () 299)
              (14 3 4 read-list)
              (24 0)
              299
              (15 1 0 token)
              (26)
              (22 () 300)
              (14 3 1 get-token)
              (24 0)
              300
              (26)
              (14 1 0 token)
              (25)
              323
              (14 0 0 g:::14)
              (13 tic-tok)
              (76)
              (21 () 321)
              (13 quote)
              (22 () 301)
              (14 5 7 readin)
              (24 0)
              301
              (13 ())
              (2)
              (2)
              (13 ())
              (2)
              (15 1 0 token)
              (26)
              (14 1 0 token)
              (25)
              321
              (14 0 0 g:::14)
              (13 backtic-tok)
              (76)
              (21 () 319)
              (13 quasiquote)
              (22 () 302)
              (14 5 7 readin)
              (24 0)
              302
              (13 ())
              (2)
              (2)
              (13 ())
              (2)
              (15 1 0 token)
              (26)
              (14 1 0 token)
              (25)
              319
              (14 0 0 g:::14)
              (13 comma-tok)
              (76)
              (21 () 317)
              (13 unquote)
              (22 () 303)
              (14 5 7 readin)
              (24 0)
              303
              (13 ())
              (2)
              (2)
              (13 ())
              (2)
              (15 1 0 token)
              (26)
              (14 1 0 token)
              (25)
              317
              (14 0 0 g:::14)
              (13 at-tok)
              (76)
              (21 () 315)
              (13 unquote-splicing)
              (22 () 304)
              (14 5 7 readin)
              (24 0)
              304
              (13 ())
              (2)
              (2)
              (13 ())
              (2)
              (15 1 0 token)
              (26)
              (14 1 0 token)
              (25)
              315
              (22 () 305)
              (14 5 0 token-type)
              (13 symbol-tok)
              (5)
              (23
                (18 1)
                (14 0 0 g:::15)
                (21 () 306)
                (14 0 0 g:::15)
                (25)
                306
                (14 6 0 token-type)
                (13 string-tok)
                (5)
                (25)
                (name ())
              )
              (24 1)
              305
              (8)
              (21 () 309)
              (22 () 308)
              (14 1 0 token)
              (14 3 2 bad-sexpr)
              (24 1)
              308
              (26)
              (19 () 310)
              309
              310
              (22 () 311)
              (14 3 1 get-token)
              (24 0)
              311
              (26)
              (14 5 0 token-type)
              (13 cpar-tok)
              (5)
              (8)
              (21 () 313)
              (22 () 312)
              (13 "expecting close paren")
              (14 3 2 bad-sexpr)
              (24 1)
              312
              (26)
              (19 () 314)
              313
              314
              (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 () 325)
            (22 () 326)
            (14 2 1 get-token)
            (24 0)
            326
            (22 () 327)
            (13 ())
            (23
              (18 1)
              (23
                (18 1)
                (14 6 0 token-type)
                (13 cpar-tok)
                (5)
                (8)
                (21 () 357)
                (22 () 328)
                (14 6 0 token-type)
                (23
                  (18 1)
                  (14 0 0 g:::16)
                  (13 opar-tok)
                  (76)
                  (21 () 350)
                  (22 () 329)
                  (14 5 4 read-list)
                  (24 0)
                  329
                  (13 ())
                  (2)
                  (15 3 2 new)
                  (25)
                  350
                  (14 0 0 g:::16)
                  (13 dot-tok)
                  (76)
                  (21 () 348)
                  (14 3 1 tail)
                  (22 () 330)
                  (14 5 3 read-dot-token)
                  (24 0)
                  330
                  (55)
                  (26)
                  (13 was-dot-tok)
                  (15 7 0 token-type)
                  (25)
                  348
                  (14 0 0 g:::16)
                  (13 eof-tok)
                  (76)
                  (21 () 346)
                  (13 "unexpected end of file")
                  (14 5 2 bad-sexpr)
                  (24 1)
                  346
                  (14 0 0 g:::16)
                  (13 tic-tok)
                  (76)
                  (21 () 344)
                  (13 quote)
                  (22 () 331)
                  (14 7 7 readin)
                  (24 0)
                  331
                  (13 ())
                  (2)
                  (2)
                  (13 ())
                  (2)
                  (15 3 2 new)
                  (25)
                  344
                  (14 0 0 g:::16)
                  (13 backtic-tok)
                  (76)
                  (21 () 342)
                  (13 quasiquote)
                  (22 () 332)
                  (14 7 7 readin)
                  (24 0)
                  332
                  (13 ())
                  (2)
                  (2)
                  (13 ())
                  (2)
                  (15 3 2 new)
                  (25)
                  342
                  (14 0 0 g:::16)
                  (13 comma-tok)
                  (76)
                  (21 () 340)
                  (13 unquote)
                  (22 () 333)
                  (14 7 7 readin)
                  (24 0)
                  333
                  (13 ())
                  (2)
                  (2)
                  (13 ())
                  (2)
                  (15 3 2 new)
                  (25)
                  340
                  (14 0 0 g:::16)
                  (13 at-tok)
                  (76)
                  (21 () 338)
                  (13 unquote-splicing)
                  (22 () 334)
                  (14 7 7 readin)
                  (24 0)
                  334
                  (13 ())
                  (2)
                  (2)
                  (13 ())
                  (2)
                  (15 3 2 new)
                  (25)
                  338
                  (14 0 0 g:::16)
                  (13 vector-tok)
                  (76)
                  (21 () 336)
                  (22 () 335)
                  (14 5 5 read-vector)
                  (24 0)
                  335
                  (13 ())
                  (2)
                  (15 3 2 new)
                  (25)
                  336
                  (14 1 0 token)
                  (13 ())
                  (2)
                  (15 3 2 new)
                  (25)
                  (name ())
                )
                (24 1)
                328
                (26)
                (14 6 0 token-type)
                (13 was-dot-tok)
                (5)
                (21 () 355)
                (13 cpar-tok)
                (15 6 0 token-type)
                (25)
                355
                (14 2 0 lst)
                (7)
                (21 () 352)
                (14 2 2 new)
                (15 2 0 lst)
                (26)
                (14 2 2 new)
                (15 2 1 tail)
                (26)
                (19 () 353)
                352
                (14 2 1 tail)
                (14 2 2 new)
                (55)
                (26)
                (14 2 1 tail)
                (1)
                (15 2 1 tail)
                (26)
                353
                (22 () 354)
                (14 4 1 get-token)
                (24 0)
                354
                (14 1 0 loop)
                (24 1)
                357
                (13 ())
                (25)
                (name loop)
              )
              (15 0 0 loop)
              (26)
              (14 0 0 loop)
              (25)
              (name ())
            )
            (24 1)
            327
            (24 1)
            325
            (26)
            (14 0 0 lst)
            (25)
            (name ())
          )
          (24 3)
          (name read-list)
        )
        (15 0 4 read-list)
        (26)
        (23
          (18 0)
          (22 () 359)
          (14 1 1 get-token)
          (24 0)
          359
          (26)
          (14 3 0 token-type)
          (13 opar-tok)
          (5)
          (21 () 361)
          (22 () 360)
          (14 1 4 read-list)
          (24 0)
          360
          (14 1 0 my-list->vector)
          (24 1)
          361
          (13 "expecting open paren")
          (14 1 2 bad-sexpr)
          (24 1)
          (name read-vector)
        )
        (15 0 5 read-vector)
        (26)
        (22 () 363)
        (14 0 1 get-token)
        (24 0)
        363
        (23
          (18 1)
          (14 3 0 token-type)
          (23
            (18 1)
            (14 0 0 g:::17)
            (13 opar-tok)
            (76)
            (21 () 380)
            (14 2 4 read-list)
            (24 0)
            380
            (14 0 0 g:::17)
            (13 tic-tok)
            (76)
            (21 () 378)
            (13 quote)
            (22 () 364)
            (14 4 7 readin)
            (24 0)
            364
            (13 ())
            (2)
            (2)
            (25)
            378
            (14 0 0 g:::17)
            (13 backtic-tok)
            (76)
            (21 () 376)
            (13 quasiquote)
            (22 () 365)
            (14 4 7 readin)
            (24 0)
            365
            (13 ())
            (2)
            (2)
            (25)
            376
            (14 0 0 g:::17)
            (13 comma-tok)
            (76)
            (21 () 374)
            (13 unquote)
            (22 () 366)
            (14 4 7 readin)
            (24 0)
            366
            (13 ())
            (2)
            (2)
            (25)
            374
            (14 0 0 g:::17)
            (13 at-tok)
            (76)
            (21 () 372)
            (13 unquote-splicing)
            (22 () 367)
            (14 4 7 readin)
            (24 0)
            367
            (13 ())
            (2)
            (2)
            (25)
            372
            (14 0 0 g:::17)
            (13 vector-tok)
            (76)
            (21 () 370)
            (14 2 5 read-vector)
            (24 0)
            370
            (14 0 0 g:::17)
            (13 cpar-tok)
            (76)
            (21 () 368)
            (13 "unexpected close paren")
            (14 2 2 bad-sexpr)
            (24 1)
            368
            (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 () 382)
  (23
    (18 1)
    (13 " ")
    (39)
    (26)
    (14 0 0 arg)
    (39)
    (25)
    (name ())
  )
  (14 0 1 args)
  (16 for-each)
  (24 2)
  382
  (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 () 383)
      (14 0 1 y)
      (25)
      383
      (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
  (83 0)
  (13 ())
  (13 ())
  (13 ())
  (23
    (18 3)
    (23
      (18 2)
      (14 0 0 list1)
      (7)
      (21 () 386)
      (14 0 1 list2)
      (25)
      386
      (14 0 0 list1)
      (0)
      (22 () 385)
      (14 0 0 list1)
      (1)
      (14 0 1 list2)
      (14 1 0 append-two)
      (24 2)
      385
      (2)
      (25)
      (name append-two)
    )
    (15 0 0 append-two)
    (26)
    (23
      (18 1)
      (22 () 388)
      (14 0 0 l)
      (7)
      (23
        (18 1)
        (14 0 0 g:::18)
        (21 () 389)
        (14 0 0 g:::18)
        (25)
        389
        (14 1 0 l)
        (81)
        (25)
        (name ())
      )
      (24 1)
      388
      (8)
      (25)
      (name improper-list?)
    )
    (15 0 1 improper-list?)
    (26)
    (23
      (18 3)
      (14 0 2 seq)
      (7)
      (21 () 401)
      (14 0 1 init)
      (25)
      401
      (14 0 2 seq)
      (0)
      (7)
      (21 () 399)
      (14 0 2 seq)
      (11)
      (25)
      399
      (14 0 2 seq)
      (1)
      (7)
      (21 () 397)
      (14 0 2 seq)
      (0)
      (14 0 2 seq)
      (1)
      (14 1 0 append-two)
      (24 2)
      397
      (14 0 2 seq)
      (1)
      (81)
      (21 () 395)
      (22 () 391)
      (14 0 2 seq)
      (11)
      (1)
      (14 1 1 improper-list?)
      (24 1)
      391
      (21 () 393)
      (14 0 2 seq)
      (0)
      (14 0 2 seq)
      (11)
      (14 1 0 append-two)
      (24 2)
      393
      (14 0 2 seq)
      (0)
      (22 () 392)
      (14 0 0 f)
      (14 0 1 init)
      (14 0 2 seq)
      (1)
      (14 1 2 fold-right-append)
      (24 3)
      392
      (14 0 0 f)
      (24 2)
      395
      (14 0 2 seq)
      (0)
      (14 0 2 seq)
      (1)
      (14 1 0 append-two)
      (24 2)
      (name fold-right-append)
    )
    (15 0 2 fold-right-append)
    (26)
    (14 1 0 lsts)
    (7)
    (21 () 405)
    (13 ())
    (25)
    405
    (14 1 0 lsts)
    (1)
    (7)
    (21 () 403)
    (14 1 0 lsts)
    (0)
    (25)
    403
    (23
      (18 2)
      (14 0 0 sublist)
      (14 0 1 acc)
      (14 1 0 append-two)
      (24 2)
      (name ())
    )
    (13 ())
    (14 1 0 lsts)
    (14 0 2 fold-right-append)
    (24 3)
    (name ())
  )
  (24 3)
  (name append)
)
(17 append)
(26)
(23
  (18 1)
  (13 ())
  (23
    (18 1)
    (22 () 407)
    (13 ())
    (23
      (18 1)
      (23
        (18 1)
        (14 0 0 i)
        (14 3 0 v)
        (35)
        (47)
        (21 () 408)
        (13 ())
        (25)
        408
        (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)
    407
    (26)
    (14 0 0 l)
    (16 reverse)
    (24 1)
    (name ())
  )
  (24 1)
  (name vector->list)
)
(17 vector->list)
(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 () 410)
      (14 0 0 str)
      (25)
      410
      (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 () 414)
      (13 ())
      (25)
      414
      (22 () 412)
      (14 0 1 l)
      (0)
      (14 0 0 p)
      (24 1)
      412
      (22 () 413)
      (14 0 0 p)
      (14 0 1 l)
      (1)
      (14 1 0 map-over-single-list)
      (24 2)
      413
      (2)
      (25)
      (name map-over-single-list)
    )
    (15 0 0 map-over-single-list)
    (26)
    (13 ())
    (14 1 1 lists)
    (28)
    (21 () 420)
    (13 ())
    (25)
    420
    (22 () 416)
    (22 () 417)
    (16 __primitives)
    (13 0)
    (36)
    (14 1 1 lists)
    (14 0 0 map-over-single-list)
    (24 2)
    417
    (85)
    (14 1 0 proc)
    (84)
    416
    (26)
    (22 () 418)
    (14 1 0 proc)
    (22 () 419)
    (16 __primitives)
    (13 1)
    (36)
    (14 1 1 lists)
    (14 0 0 map-over-single-list)
    (24 2)
    419
    (2)
    (85)
    (16 for-each)
    (84)
    418
    (25)
    (name ())
  )
  (24 1)
  (name for-each)
)
(17 for-each)
(26)
(23
  (18 2)
  (14 0 0 name)
  (14 0 1 a-list)
  (30)
  (23
    (18 1)
    (14 0 0 binding)
    (7)
    (21 () 2)
    (13 ())
    (25)
    2
    (14 0 0 binding)
    (21 () 0)
    (14 0 0 binding)
    (25)
    0
    (13 ())
    (25)
    (name ())
  )
  (24 1)
  (name find-binding)
)
(17 find-binding)
(26)
(23
  (18 2)
  (22 () 4)
  (14 0 0 name)
  (14 0 1 a-list)
  (16 find-binding)
  (24 2)
  4
  (23
    (18 1)
    (14 0 0 binding)
    (7)
    (21 () 5)
    (13 ())
    (25)
    5
    (14 0 0 binding)
    (11)
    (25)
    (name ())
  )
  (24 1)
  (name find-value)
)
(17 find-value)
(26)
(23
  (18 2)
  (14 0 0 key)
  (4)
  (21 () 18)
  (14 0 0 key)
  (72)
  (23
    (18 1)
    (14 0 0 key-string)
    (68)
    (23
      (18 1)
      (14 0 0 key-length)
      (13 2)
      (45)
      (23
        (18 1)
        (23
          (18 1)
          (14 0 0 n)
          (14 4 1 table-size)
          (46)
          (25)
          (name ())
        )
        (23
          (18 1)
          (22 () 7)
          (14 2 0 key-length)
          (16 zero?)
          (24 1)
          7
          (21 () 16)
          (13 0)
          (25)
          16
          (14 2 0 key-length)
          (13 2)
          (49)
          (21 () 14)
          (14 3 0 key-string)
          (13 0)
          (57)
          (78)
          (25)
          14
          (14 2 0 key-length)
          (13 3)
          (49)
          (21 () 12)
          (14 3 0 key-string)
          (13 0)
          (57)
          (78)
          (14 3 0 key-string)
          (13 1)
          (57)
          (78)
          (44)
          (14 0 0 hash-index)
          (24 1)
          12
          (14 2 0 key-length)
          (13 4)
          (49)
          (21 () 10)
          (14 3 0 key-string)
          (13 1)
          (57)
          (78)
          (14 3 0 key-string)
          (13 2)
          (57)
          (78)
          (44)
          (14 0 0 hash-index)
          (24 1)
          10
          (14 2 0 key-length)
          (13 5)
          (49)
          (21 () 8)
          (14 3 0 key-string)
          (13 1)
          (57)
          (78)
          (14 3 0 key-string)
          (13 2)
          (57)
          (78)
          (44)
          (14 3 0 key-string)
          (13 3)
          (57)
          (78)
          (44)
          (14 0 0 hash-index)
          (24 1)
          8
          (14 3 0 key-string)
          (14 1 0 key-idx)
          (57)
          (78)
          (14 3 0 key-string)
          (14 1 0 key-idx)
          (13 1)
          (42)
          (57)
          (78)
          (44)
          (14 3 0 key-string)
          (14 1 0 key-idx)
          (13 2)
          (42)
          (57)
          (78)
          (44)
          (14 0 0 hash-index)
          (24 1)
          (name ())
        )
        (24 1)
        (name ())
      )
      (24 1)
      (name ())
    )
    (24 1)
    (name ())
  )
  (24 1)
  18
  (13 0)
  (25)
  (name get-hash-index)
)
(17 get-hash-index)
(26)
(23
  (18 3)
  (14 0 1 key)
  (14 0 0 table)
  (14 0 2 index)
  (36)
  (16 find-binding)
  (24 2)
  (name hash-binding)
)
(17 hash-binding)
(26)
(23
  (18 2)
  (22 () 20)
  (14 0 1 key)
  (14 0 0 table)
  (22 () 21)
  (14 0 1 key)
  (14 0 0 table)
  (35)
  (16 get-hash-index)
  (24 2)
  21
  (36)
  (16 find-binding)
  (24 2)
  20
  (23
    (18 1)
    (14 0 0 binding)
    (7)
    (21 () 22)
    (13 ())
    (25)
    22
    (14 0 0 binding)
    (11)
    (25)
    (name ())
  )
  (24 1)
  (name hash-ref)
)
(17 hash-ref)
(26)
(23
  (18 3)
  (22 () 24)
  (14 0 1 key)
  (14 0 0 table)
  (35)
  (16 get-hash-index)
  (24 2)
  24
  (23
    (18 1)
    (22 () 25)
    (14 1 0 table)
    (14 1 1 key)
    (14 0 0 hash-index)
    (16 hash-binding)
    (24 3)
    25
    (23
      (18 1)
      (14 0 0 binding)
      (7)
      (21 () 26)
      (14 2 0 table)
      (14 1 0 hash-index)
      (14 2 1 key)
      (14 2 2 value)
      (13 ())
      (2)
      (2)
      (14 2 0 table)
      (14 1 0 hash-index)
      (36)
      (2)
      (37)
      (25)
      26
      (14 0 0 binding)
      (1)
      (14 2 2 value)
      (54)
      (25)
      (name ())
    )
    (24 1)
    (name ())
  )
  (24 1)
  (name hash-set!)
)
(17 hash-set!)
(26)
(23
  (18 2)
  (13 ())
  (23
    (18 1)
    (23
      (18 1)
      (14 0 0 i)
      (14 2 1 size)
      (47)
      (21 () 28)
      (13 ())
      (25)
      28
      (14 2 0 table)
      (14 0 0 i)
      (13 ())
      (37)
      (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)
  (name hash-table-clear!)
)
(17 hash-table-clear!)
(26)
(23
  (18 1)
  (14 0 0 size)
  (73)
  (23
    (18 1)
    (22 () 30)
    (14 0 0 table)
    (14 1 0 size)
    (16 hash-table-clear!)
    (24 2)
    30
    (26)
    (14 0 0 table)
    (25)
    (name ())
  )
  (24 1)
  (name make-hash-table)
)
(17 make-hash-table)
(26)
(23
  (18 3)
  (14 0 0 left)
  (7)
  (21 () 38)
  (14 0 1 right)
  (25)
  38
  (14 0 1 right)
  (7)
  (21 () 36)
  (14 0 0 left)
  (25)
  36
  (22 () 31)
  (14 0 0 left)
  (0)
  (14 0 1 right)
  (0)
  (14 0 2 gt?)
  (24 2)
  31
  (21 () 34)
  (14 0 1 right)
  (0)
  (22 () 32)
  (14 0 0 left)
  (14 0 1 right)
  (1)
  (14 0 2 gt?)
  (16 merge)
  (24 3)
  32
  (2)
  (25)
  34
  (14 0 0 left)
  (0)
  (22 () 33)
  (14 0 0 left)
  (1)
  (14 0 1 right)
  (14 0 2 gt?)
  (16 merge)
  (24 3)
  33
  (2)
  (25)
  (name merge)
)
(17 merge)
(26)
(23
  (18 3)
  (22 () 40)
  (14 0 1 n)
  (16 zero?)
  (24 1)
  40
  (21 () 42)
  (13 ())
  (25)
  42
  (14 0 0 l)
  (0)
  (22 () 41)
  (14 0 0 l)
  (1)
  (14 0 1 n)
  (13 1)
  (43)
  (14 0 2 gt?)
  (16 take)
  (24 3)
  41
  (2)
  (25)
  (name take)
)
(17 take)
(26)
(23
  (18 2)
  (14 0 0 l)
  (31)
  (13 2)
  (45)
  (23
    (18 1)
    (22 () 44)
    (14 0 0 half)
    (16 zero?)
    (24 1)
    44
    (21 () 48)
    (14 1 0 l)
    (25)
    48
    (22 () 45)
    (22 () 46)
    (14 1 0 l)
    (14 0 0 half)
    (14 1 1 gt?)
    (16 take)
    (24 3)
    46
    (14 1 1 gt?)
    (16 merge-sort)
    (24 2)
    45
    (22 () 47)
    (14 1 0 l)
    (14 0 0 half)
    (60)
    (14 1 1 gt?)
    (16 merge-sort)
    (24 2)
    47
    (14 1 1 gt?)
    (16 merge)
    (24 3)
    (name ())
  )
  (24 1)
  (name merge-sort)
)
(17 merge-sort)
(26)
(23
  (18 2)
  (14 0 0 x)
  (0)
  (14 0 1 y)
  (0)
  (51)
  (25)
  (name compare>)
)
(17 compare>)
(26)
(23
  (18 2)
  (14 0 0 l)
  (7)
  (8)
  (21 () 50)
  (14 0 0 l)
  (0)
  (23
    (18 1)
    (14 1 1 vec)
    (14 0 0 cell)
    (0)
    (14 0 0 cell)
    (11)
    (37)
    (26)
    (14 1 0 l)
    (1)
    (14 1 1 vec)
    (16 fill-vec!)
    (24 2)
    (name ())
  )
  (24 1)
  50
  (13 ())
  (25)
  (name fill-vec!)
)
(17 fill-vec!)
(26)
(13 ((top-level-begin 0) (function-proc-begin 1) (function-end 2) (proc-end 3) (frame-offset 4) (stack-ref 5) (stack-set 6) (push 7) (pop 8) (add 9) (sub 10) (mul 11) (div 12) (mod 13) (abs 14) (negate 15) (shl 16) (shr 17) (bitor 18) (bitand 19) (bitnot 20) (btr 21) (bfl 22) (br 23) (eq 24) (lt 25) (gt 26) (le 27) (ge 28) (ne 29) (not 30) (and 31) (or 32) (call 33) (return 34) (read-char 35) (eof-object? 36) (display 37) (newline 38) (exit 39) (write-char 40) (brtable 41) (stack-ref-n 42) (stack-set-n 43) (bitxor 45)))
(17 opcodes)
(26)
(22 () 52)
(13 5701)
(16 make-hash-table)
(24 1)
52
(17 labels)
(26)
(13 0)
(17 pc)
(26)
(13 ())
(17 source-assembly-code)
(26)
(23
  (18 1)
  (16 labels)
  (14 0 0 label)
  (16 pc)
  (16 hash-set!)
  (24 3)
  (name process-label)
)
(17 process-label)
(26)
(23
  (18 1)
  (22 () 53)
  (14 0 0 l)
  (16 compare>)
  (16 merge-sort)
  (24 2)
  53
  (23
    (18 1)
    (22 () 54)
    (14 0 0 l2)
    (16 reverse)
    (24 1)
    54
    (9)
    (23
      (18 1)
      (14 0 0 max-value)
      (13 1)
      (42)
      (73)
      (23
        (18 1)
        (22 () 55)
        (13 ())
        (23
          (18 1)
          (23
            (18 1)
            (14 0 0 i)
            (14 2 0 vec)
            (35)
            (47)
            (21 () 56)
            (13 ())
            (25)
            56
            (14 2 0 vec)
            (14 0 0 i)
            (13 0)
            (37)
            (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)
        55
        (26)
        (22 () 58)
        (14 2 0 l2)
        (14 0 0 vec)
        (16 fill-vec!)
        (24 2)
        58
        (26)
        (14 0 0 vec)
        (16 vector->list)
        (24 1)
        (name ())
      )
      (24 1)
      (name ())
    )
    (24 1)
    (name ())
  )
  (24 1)
  (name get-label-list)
)
(17 get-label-list)
(26)
(23
  (18 1)
  (14 0 0 instruction)
  (4)
  (21 () 74)
  (14 0 0 instruction)
  (16 process-label)
  (24 1)
  74
  (14 0 0 instruction)
  (0)
  (14 0 0 instruction)
  (1)
  (23
    (18 2)
    (14 0 0 opcode)
    (16 opcodes)
    (30)
    (23
      (18 1)
      (14 0 0 opcode-value)
      (21 () 72)
      (14 1 0 opcode)
      (13 brtable)
      (5)
      (21 () 70)
      (22 () 59)
      (14 1 1 operands)
      (16 get-label-list)
      (24 1)
      59
      (23
        (18 1)
        (14 1 0 opcode-value)
        (11)
        (16 source-assembly-code)
        (2)
        (17 source-assembly-code)
        (26)
        (22 () 60)
        (22 () 61)
        (14 0 0 label-list)
        (16 reverse)
        (24 1)
        61
        (16 source-assembly-code)
        (16 append)
        (24 2)
        60
        (17 source-assembly-code)
        (26)
        (16 pc)
        (13 1)
        (42)
        (14 0 0 label-list)
        (31)
        (42)
        (17 pc)
        (25)
        (name ())
      )
      (24 1)
      70
      (14 0 0 opcode-value)
      (11)
      (16 source-assembly-code)
      (2)
      (17 source-assembly-code)
      (26)
      (14 2 0 instruction)
      (31)
      (23
        (18 1)
        (14 0 0 instruction-length)
        (13 1)
        (51)
        (21 () 68)
        (14 0 0 instruction-length)
        (13 2)
        (47)
        (21 () 66)
        (14 2 1 operands)
        (0)
        (16 source-assembly-code)
        (2)
        (17 source-assembly-code)
        (26)
        (19 () 67)
        66
        (14 0 0 instruction-length)
        (13 3)
        (47)
        (21 () 64)
        (14 2 1 operands)
        (11)
        (14 2 1 operands)
        (0)
        (16 source-assembly-code)
        (2)
        (2)
        (17 source-assembly-code)
        (26)
        (19 () 65)
        64
        (22 () 62)
        (22 () 63)
        (14 2 1 operands)
        (16 reverse)
        (24 1)
        63
        (16 source-assembly-code)
        (16 append)
        (24 2)
        62
        (17 source-assembly-code)
        (26)
        65
        67
        (19 () 69)
        68
        69
        (16 pc)
        (14 0 0 instruction-length)
        (42)
        (17 pc)
        (25)
        (name ())
      )
      (24 1)
      72
      (13 "invalid opcode ")
      (39)
      (26)
      (14 1 0 opcode)
      (39)
      (26)
      (40)
      (25)
      (name ())
    )
    (24 1)
    (name ())
  )
  (24 2)
  (name process-instruction)
)
(17 process-instruction)
(26)
(13 ())
(17 assembled-code)
(26)
(23
  (18 1)
  (14 0 0 code)
  (7)
  (21 () 84)
  (13 ())
  (25)
  84
  (14 0 0 code)
  (0)
  (23
    (18 1)
    (14 0 0 word)
    (77)
    (21 () 82)
    (14 0 0 word)
    (78)
    (16 assembled-code)
    (2)
    (17 assembled-code)
    (26)
    (19 () 83)
    82
    (14 0 0 word)
    (4)
    (21 () 80)
    (22 () 76)
    (22 () 77)
    (16 labels)
    (14 0 0 word)
    (16 hash-ref)
    (24 2)
    77
    (23
      (18 1)
      (14 0 0 reference)
      (7)
      (21 () 78)
      (13 #f)
      (25)
      78
      (14 0 0 reference)
      (16 assembled-code)
      (2)
      (17 assembled-code)
      (25)
      (name ())
    )
    (24 1)
    76
    (26)
    (19 () 81)
    80
    (14 0 0 word)
    (16 assembled-code)
    (2)
    (17 assembled-code)
    (26)
    81
    83
    (14 1 0 code)
    (1)
    (16 create-assembled-code)
    (24 1)
    (name ())
  )
  (24 1)
  (name create-assembled-code)
)
(17 create-assembled-code)
(26)
(23
  (18 1)
  (14 0 0 code)
  (7)
  (8)
  (21 () 86)
  (14 0 0 code)
  (0)
  (23
    (18 1)
    (14 0 0 word)
    (39)
    (26)
    (40)
    (26)
    (14 1 0 code)
    (1)
    (16 display-code)
    (24 1)
    (name ())
  )
  (24 1)
  86
  (13 ())
  (25)
  (name display-code)
)
(17 display-code)
(26)
(23
  (18 0)
  (22 () 88)
  (16 read)
  (24 0)
  88
  (23
    (18 1)
    (14 0 0 instruction)
    (38)
    (8)
    (21 () 90)
    (22 () 89)
    (14 0 0 instruction)
    (16 process-instruction)
    (24 1)
    89
    (26)
    (16 loop)
    (24 0)
    90
    (13 ())
    (25)
    (name ())
  )
  (24 1)
  (name loop)
)
(17 loop)
(26)
(22 () 92)
(16 loop)
(24 0)
92
(22 () 93)
(22 () 94)
(16 source-assembly-code)
(16 reverse)
(24 1)
94
(16 create-assembled-code)
(24 1)
93
(22 () 95)
(16 assembled-code)
(16 reverse)
(24 1)
95
(17 assembled-code)
(16 assembled-code)
(31)
(39)
(40)
(22 () 96)
(16 assembled-code)
(16 display-code)
(24 1)
96
(80)
)
