(
(23
  (18 1)
  (13 ())
  (23
    (18 1)
    (23
      (18 2)
      (14 0 0 x)
      (7)
      (21 () 1022)
      (14 0 1 y)
      (25)
      1022
      (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 () 1025)
      (14 0 1 list2)
      (25)
      1025
      (14 0 0 list1)
      (0)
      (22 () 1024)
      (14 0 0 list1)
      (1)
      (14 0 1 list2)
      (14 1 0 append-two)
      (24 2)
      1024
      (2)
      (25)
      (name append-two)
    )
    (15 0 0 append-two)
    (26)
    (23
      (18 1)
      (22 () 1027)
      (14 0 0 l)
      (7)
      (23
        (18 1)
        (14 0 0 g:::51)
        (21 () 1028)
        (14 0 0 g:::51)
        (25)
        1028
        (14 1 0 l)
        (81)
        (25)
        (name ())
      )
      (24 1)
      1027
      (8)
      (25)
      (name improper-list?)
    )
    (15 0 1 improper-list?)
    (26)
    (23
      (18 3)
      (14 0 2 seq)
      (7)
      (21 () 1040)
      (14 0 1 init)
      (25)
      1040
      (14 0 2 seq)
      (0)
      (7)
      (21 () 1038)
      (14 0 2 seq)
      (11)
      (25)
      1038
      (14 0 2 seq)
      (1)
      (7)
      (21 () 1036)
      (14 0 2 seq)
      (0)
      (14 0 2 seq)
      (1)
      (14 1 0 append-two)
      (24 2)
      1036
      (14 0 2 seq)
      (1)
      (81)
      (21 () 1034)
      (22 () 1030)
      (14 0 2 seq)
      (11)
      (1)
      (14 1 1 improper-list?)
      (24 1)
      1030
      (21 () 1032)
      (14 0 2 seq)
      (0)
      (14 0 2 seq)
      (11)
      (14 1 0 append-two)
      (24 2)
      1032
      (14 0 2 seq)
      (0)
      (22 () 1031)
      (14 0 0 f)
      (14 0 1 init)
      (14 0 2 seq)
      (1)
      (14 1 2 fold-right-append)
      (24 3)
      1031
      (14 0 0 f)
      (24 2)
      1034
      (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 () 1044)
    (13 ())
    (25)
    1044
    (14 1 0 lsts)
    (1)
    (7)
    (21 () 1042)
    (14 1 0 lsts)
    (0)
    (25)
    1042
    (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 2)
  (14 0 0 x)
  (78)
  (14 0 1 y)
  (78)
  (50)
  (25)
  (name char<=?)
)
(17 char<=?)
(26)
(23
  (18 2)
  (14 0 0 x)
  (78)
  (14 0 1 y)
  (78)
  (52)
  (25)
  (name char>=?)
)
(17 char>=?)
(26)
(23
  (18 1)
  (14 0 0 l)
  (31)
  (23
    (18 1)
    (14 0 0 size)
    (73)
    (23
      (18 1)
      (22 () 1046)
      (13 ())
      (23
        (18 1)
        (23
          (18 1)
          (14 0 0 i)
          (14 3 0 size)
          (47)
          (21 () 1047)
          (13 ())
          (25)
          1047
          (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)
      1046
      (26)
      (14 0 0 v)
      (25)
      (name ())
    )
    (24 1)
    (name ())
  )
  (24 1)
  (name list->vector)
)
(17 list->vector)
(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 () 1049)
      (14 0 0 str)
      (25)
      1049
      (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
  (18 1)
  (14 0 0 s)
  (68)
  (13 1)
  (43)
  (13 ())
  (22 () 1051)
  (13 ())
  (23
    (18 1)
    (23
      (18 2)
      (14 0 0 n)
      (13 -1)
      (47)
      (21 () 1052)
      (14 0 1 l)
      (25)
      1052
      (14 0 0 n)
      (13 1)
      (43)
      (14 2 0 s)
      (14 0 0 n)
      (57)
      (14 0 1 l)
      (2)
      (14 1 0 loop)
      (24 2)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  1051
  (24 2)
  (name string->list)
)
(17 string->list)
(26)
(13 0)
(79)
(17 eof-char)
(26)
(13 9)
(79)
(17 tab-char)
(26)
(13 13)
(79)
(17 carriage-return)
(26)
(13 #\space)
(13 #\newline)
(16 tab-char)
(16 carriage-return)
(13 ())
(2)
(2)
(2)
(2)
(17 white-space)
(26)
(13 ())
(17 comments)
(26)
(23
  (18 1)
  (16 comments)
  (7)
  (8)
  (21 () 3)
  (22 () 0)
  (22 () 1)
  (16 comments)
  (16 reverse)
  (24 1)
  1
  (16 list->string)
  (24 1)
  0
  (23
    (18 1)
    (22 () 2)
    (14 1 0 level)
    (16 indent)
    (24 1)
    2
    (26)
    (13 ";")
    (39)
    (26)
    (14 0 0 comment)
    (39)
    (26)
    (40)
    (26)
    (13 ())
    (17 comments)
    (25)
    (name ())
  )
  (24 1)
  3
  (13 ())
  (25)
  (name display-comments)
)
(17 display-comments)
(26)
(22 () 5)
(56)
(13 #\space)
(13 1)
(23
  (18 3)
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (13 ())
  (23
    (18 26)
    (13 (#\( #\) #\[ #\] #\, #\< #\> #\; #\: #\= #\+ #\- #\* #\/ #\% #\& #\^ #\| #\~ #\{ #\} #\! #\# #\.))
    (15 0 0 separators)
    (26)
    (13 ((#\= #\=) (#\! #\=) (#\< #\=) (#\> #\=) (#\> #\>) (#\< #\<) (#\+ #\+) (#\- #\-) (#\& #\&) (#\| #\|)))
    (15 0 1 two-character-separators)
    (26)
    (13 ())
    (15 0 2 token)
    (26)
    (23
      (18 0)
      (14 2 0 lookahead-ch)
      (25)
      (name lookahead-c-ch)
    )
    (15 0 3 lookahead-c-ch)
    (26)
    (23
      (18 1)
      (14 0 0 ch)
      (63)
      (23
        (18 1)
        (14 0 0 g:::0)
        (21 () 6)
        (14 0 0 g:::0)
        (25)
        6
        (14 1 0 ch)
        (62)
        (25)
        (name ())
      )
      (24 1)
      (name char-alpha-numeric?)
    )
    (15 0 4 char-alpha-numeric?)
    (26)
    (23
      (18 1)
      (14 0 0 ch)
      (62)
      (23
        (18 1)
        (14 0 0 g:::1)
        (21 () 17)
        (14 0 0 g:::1)
        (25)
        17
        (22 () 8)
        (14 1 0 ch)
        (13 #\a)
        (16 char>=?)
        (24 2)
        8
        (21 () 10)
        (22 () 9)
        (14 1 0 ch)
        (13 #\f)
        (16 char<=?)
        (24 2)
        9
        (19 () 11)
        10
        (13 #f)
        11
        (23
          (18 1)
          (14 0 0 g:::2)
          (21 () 15)
          (14 0 0 g:::2)
          (25)
          15
          (22 () 12)
          (14 2 0 ch)
          (13 #\A)
          (16 char>=?)
          (24 2)
          12
          (21 () 13)
          (14 2 0 ch)
          (13 #\F)
          (16 char<=?)
          (24 2)
          13
          (13 #f)
          (25)
          (name ())
        )
        (24 1)
        (name ())
      )
      (24 1)
      (name char-hex?)
    )
    (15 0 5 char-hex?)
    (26)
    (23
      (18 2)
      (13 "*** ERROR on line ")
      (39)
      (26)
      (14 2 2 line-count)
      (39)
      (26)
      (13 " ")
      (39)
      (26)
      (14 0 0 message)
      (39)
      (26)
      (14 0 1 info)
      (7)
      (8)
      (21 () 19)
      (13 " ")
      (39)
      (26)
      (14 0 1 info)
      (39)
      (26)
      (19 () 20)
      19
      20
      (40)
      (25)
      (name c-error)
    )
    (15 0 6 c-error)
    (26)
    (23
      (18 0)
      (14 2 0 lookahead-ch)
      (15 2 1 ch)
      (26)
      (56)
      (15 2 0 lookahead-ch)
      (26)
      (14 2 1 ch)
      (38)
      (21 () 21)
      (16 eof-char)
      (15 2 1 ch)
      (26)
      (19 () 22)
      21
      22
      (14 2 1 ch)
      (16 white-space)
      (28)
      (21 () 25)
      (14 2 1 ch)
      (13 #\newline)
      (61)
      (21 () 23)
      (14 2 2 line-count)
      (13 1)
      (42)
      (15 2 2 line-count)
      (26)
      (19 () 24)
      23
      24
      (13 #\space)
      (15 2 1 ch)
      (25)
      25
      (13 ())
      (25)
      (name read-c-ch)
    )
    (15 0 7 read-c-ch)
    (26)
    (23
      (18 0)
      (14 2 1 ch)
      (16 eof-char)
      (61)
      (21 () 30)
      (13 ())
      (25)
      30
      (14 2 1 ch)
      (13 #\space)
      (61)
      (21 () 28)
      (22 () 27)
      (14 1 7 read-c-ch)
      (24 0)
      27
      (26)
      (14 1 8 skip-blanks)
      (24 0)
      28
      (13 #f)
      (25)
      (name skip-blanks)
    )
    (15 0 8 skip-blanks)
    (26)
    (23
      (18 1)
      (14 0 0 ch)
      (16 comments)
      (2)
      (17 comments)
      (25)
      (name log-comment-char)
    )
    (15 0 9 log-comment-char)
    (26)
    (23
      (18 0)
      (22 () 32)
      (14 1 3 lookahead-c-ch)
      (24 0)
      32
      (16 eof-char)
      (61)
      (21 () 39)
      (13 ())
      (25)
      39
      (22 () 33)
      (14 1 3 lookahead-c-ch)
      (24 0)
      33
      (13 #\newline)
      (61)
      (21 () 37)
      (22 () 34)
      (14 1 7 read-c-ch)
      (24 0)
      34
      (26)
      (14 1 8 skip-blanks)
      (24 0)
      37
      (22 () 35)
      (14 1 7 read-c-ch)
      (24 0)
      35
      (26)
      (22 () 36)
      (14 2 1 ch)
      (14 1 9 log-comment-char)
      (24 1)
      36
      (26)
      (14 1 10 skip-comment)
      (24 0)
      (name skip-comment)
    )
    (15 0 10 skip-comment)
    (26)
    (23
      (18 0)
      (14 2 1 ch)
      (13 #\/)
      (61)
      (21 () 42)
      (22 () 41)
      (14 1 3 lookahead-c-ch)
      (24 0)
      41
      (13 #\/)
      (61)
      (19 () 43)
      42
      (13 #f)
      43
      (21 () 46)
      (22 () 44)
      (14 1 7 read-c-ch)
      (24 0)
      44
      (26)
      (22 () 45)
      (14 1 10 skip-comment)
      (24 0)
      45
      (26)
      (14 1 11 skip-comments)
      (24 0)
      46
      (13 ())
      (25)
      (name skip-comments)
    )
    (15 0 11 skip-comments)
    (26)
    (23
      (18 0)
      (14 2 1 ch)
      (14 1 2 token)
      (2)
      (15 1 2 token)
      (26)
      (14 1 7 read-c-ch)
      (24 0)
      (name add-ch-to-token)
    )
    (15 0 12 add-ch-to-token)
    (26)
    (23
      (18 0)
      (22 () 48)
      (22 () 49)
      (14 2 1 ch)
      (14 1 4 char-alpha-numeric?)
      (24 1)
      49
      (23
        (18 1)
        (14 0 0 g:::3)
        (21 () 50)
        (14 0 0 g:::3)
        (25)
        50
        (14 3 1 ch)
        (13 #\_)
        (61)
        (25)
        (name ())
      )
      (24 1)
      48
      (21 () 53)
      (22 () 52)
      (14 1 12 add-ch-to-token)
      (24 0)
      52
      (26)
      (14 1 13 build-symbol-token)
      (24 0)
      53
      (13 ())
      (25)
      (name build-symbol-token)
    )
    (15 0 13 build-symbol-token)
    (26)
    (23
      (18 0)
      (14 2 1 ch)
      (16 eof-char)
      (61)
      (21 () 71)
      (13 ())
      (25)
      71
      (14 2 1 ch)
      (13 #\\)
      (61)
      (21 () 69)
      (22 () 55)
      (14 1 7 read-c-ch)
      (24 0)
      55
      (26)
      (14 2 1 ch)
      (13 #\n)
      (61)
      (21 () 56)
      (13 10)
      (79)
      (15 2 1 ch)
      (26)
      (19 () 57)
      56
      57
      (22 () 58)
      (14 1 12 add-ch-to-token)
      (24 0)
      58
      (26)
      (14 1 14 build-string-token)
      (24 0)
      69
      (14 2 1 ch)
      (13 #\%)
      (61)
      (21 () 67)
      (22 () 59)
      (14 1 12 add-ch-to-token)
      (24 0)
      59
      (26)
      (14 2 1 ch)
      (13 #\%)
      (61)
      (21 () 61)
      (22 () 60)
      (14 1 7 read-c-ch)
      (24 0)
      60
      (26)
      (19 () 62)
      61
      62
      (22 () 63)
      (14 1 12 add-ch-to-token)
      (24 0)
      63
      (26)
      (14 1 14 build-string-token)
      (24 0)
      67
      (14 2 1 ch)
      (13 #\")
      (61)
      (21 () 65)
      (14 1 7 read-c-ch)
      (24 0)
      65
      (22 () 64)
      (14 1 12 add-ch-to-token)
      (24 0)
      64
      (26)
      (14 1 14 build-string-token)
      (24 0)
      (name build-string-token)
    )
    (15 0 14 build-string-token)
    (26)
    (23
      (18 1)
      (22 () 73)
      (14 0 0 ch)
      (13 #\a)
      (16 char>=?)
      (24 2)
      73
      (21 () 75)
      (22 () 74)
      (14 0 0 ch)
      (13 #\f)
      (16 char<=?)
      (24 2)
      74
      (19 () 76)
      75
      (13 #f)
      76
      (21 () 83)
      (13 10)
      (14 0 0 ch)
      (78)
      (13 #\a)
      (78)
      (43)
      (42)
      (25)
      83
      (22 () 77)
      (14 0 0 ch)
      (13 #\A)
      (16 char>=?)
      (24 2)
      77
      (21 () 79)
      (22 () 78)
      (14 0 0 ch)
      (13 #\F)
      (16 char<=?)
      (24 2)
      78
      (19 () 80)
      79
      (13 #f)
      80
      (21 () 81)
      (13 10)
      (14 0 0 ch)
      (78)
      (13 #\A)
      (78)
      (43)
      (42)
      (25)
      81
      (14 0 0 ch)
      (78)
      (13 #\0)
      (78)
      (43)
      (25)
      (name hex-dig->value)
    )
    (15 0 15 hex-dig->value)
    (26)
    (23
      (18 1)
      (13 #(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\a #\b #\c #\d #\e #\f))
      (14 0 0 dig)
      (36)
      (25)
      (name value->hex-dig)
    )
    (15 0 16 value->hex-dig)
    (26)
    (23
      (18 2)
      (14 0 0 l)
      (7)
      (21 () 87)
      (13 0)
      (25)
      87
      (14 0 0 l)
      (0)
      (23
        (18 1)
        (22 () 85)
        (14 0 0 dig)
        (14 2 15 hex-dig->value)
        (24 1)
        85
        (14 1 1 pow)
        (44)
        (22 () 86)
        (14 1 0 l)
        (1)
        (14 1 1 pow)
        (13 16)
        (44)
        (14 2 17 hex->dec)
        (24 2)
        86
        (42)
        (25)
        (name ())
      )
      (24 1)
      (name hex->dec)
    )
    (15 0 17 hex->dec)
    (26)
    (23
      (18 1)
      (22 () 89)
      (14 0 0 token)
      (13 7)
      (27)
      (14 1 15 hex-dig->value)
      (24 1)
      89
      (13 8)
      (52)
      (25)
      (name hex-negative?)
    )
    (15 0 18 hex-negative?)
    (26)
    (23
      (18 1)
      (14 0 0 token)
      (7)
      (21 () 93)
      (13 ())
      (25)
      93
      (14 0 0 token)
      (0)
      (23
        (18 1)
        (22 () 90)
        (13 15)
        (22 () 91)
        (14 0 0 hex-dig)
        (14 2 15 hex-dig->value)
        (24 1)
        91
        (43)
        (14 2 16 value->hex-dig)
        (24 1)
        90
        (22 () 92)
        (14 1 0 token)
        (1)
        (14 2 19 hex-compliment)
        (24 1)
        92
        (2)
        (25)
        (name ())
      )
      (24 1)
      (name hex-compliment)
    )
    (15 0 19 hex-compliment)
    (26)
    (23
      (18 0)
      (14 1 2 token)
      (31)
      (13 8)
      (51)
      (21 () 97)
      (22 () 95)
      (22 () 96)
      (14 1 2 token)
      (16 reverse)
      (24 1)
      96
      (14 1 2 token)
      (31)
      (13 8)
      (43)
      (60)
      (16 reverse)
      (24 1)
      95
      (15 1 2 token)
      (26)
      (19 () 98)
      97
      98
      (13 #f)
      (23
        (18 1)
        (14 2 2 token)
        (31)
        (13 8)
        (47)
        (21 () 103)
        (22 () 99)
        (14 2 2 token)
        (14 2 18 hex-negative?)
        (24 1)
        99
        (21 () 101)
        (13 #t)
        (15 0 0 negative)
        (26)
        (22 () 100)
        (14 2 2 token)
        (14 2 19 hex-compliment)
        (24 1)
        100
        (15 2 2 token)
        (26)
        (19 () 102)
        101
        102
        (19 () 104)
        103
        104
        (22 () 105)
        (14 2 2 token)
        (13 1)
        (14 2 17 hex->dec)
        (24 2)
        105
        (15 2 2 token)
        (26)
        (14 0 0 negative)
        (21 () 106)
        (13 0)
        (14 2 2 token)
        (13 1)
        (42)
        (43)
        (15 2 2 token)
        (25)
        106
        (13 ())
        (25)
        (name ())
      )
      (24 1)
      (name do-hex)
    )
    (15 0 20 do-hex)
    (26)
    (23
      (18 0)
      (22 () 108)
      (14 2 1 ch)
      (14 1 5 char-hex?)
      (24 1)
      108
      (21 () 110)
      (22 () 109)
      (14 1 12 add-ch-to-token)
      (24 0)
      109
      (26)
      (14 1 21 build-hex-number-token)
      (24 0)
      110
      (13 ())
      (25)
      (name build-hex-number-token)
    )
    (15 0 21 build-hex-number-token)
    (26)
    (23
      (18 0)
      (14 2 1 ch)
      (62)
      (21 () 113)
      (22 () 112)
      (14 1 12 add-ch-to-token)
      (24 0)
      112
      (26)
      (14 1 22 build-decimal-number-token)
      (24 0)
      113
      (13 ())
      (25)
      (name build-decimal-number-token)
    )
    (15 0 22 build-decimal-number-token)
    (26)
    (23
      (18 0)
      (22 () 115)
      (14 1 3 lookahead-c-ch)
      (24 0)
      115
      (13 #\x)
      (61)
      (21 () 122)
      (22 () 116)
      (14 1 7 read-c-ch)
      (24 0)
      116
      (26)
      (22 () 117)
      (14 1 7 read-c-ch)
      (24 0)
      117
      (26)
      (22 () 118)
      (14 1 21 build-hex-number-token)
      (24 0)
      118
      (26)
      (14 1 20 do-hex)
      (24 0)
      122
      (22 () 119)
      (14 1 22 build-decimal-number-token)
      (24 0)
      119
      (26)
      (22 () 120)
      (22 () 121)
      (14 1 2 token)
      (16 reverse)
      (24 1)
      121
      (16 list->string)
      (24 1)
      120
      (70)
      (15 1 2 token)
      (25)
      (name build-number-token)
    )
    (15 0 23 build-number-token)
    (26)
    (23
      (18 0)
      (14 2 1 ch)
      (14 1 0 separators)
      (28)
      (25)
      (name separator?)
    )
    (15 0 24 separator?)
    (26)
    (23
      (18 0)
      (14 2 1 ch)
      (23
        (18 1)
        (22 () 124)
        (14 2 12 add-ch-to-token)
        (24 0)
        124
        (26)
        (14 0 0 old-ch)
        (14 3 1 ch)
        (13 ())
        (2)
        (2)
        (14 2 1 two-character-separators)
        (29)
        (21 () 125)
        (14 2 12 add-ch-to-token)
        (24 0)
        125
        (13 ())
        (25)
        (name ())
      )
      (24 1)
      (name build-separator-token)
    )
    (15 0 25 build-separator-token)
    (26)
    (23
      (18 0)
      (13 ())
      (15 1 2 token)
      (26)
      (22 () 127)
      (14 1 8 skip-blanks)
      (24 0)
      127
      (26)
      (14 2 1 ch)
      (13 #\/)
      (61)
      (21 () 129)
      (22 () 128)
      (14 1 3 lookahead-c-ch)
      (24 0)
      128
      (13 #\/)
      (61)
      (19 () 130)
      129
      (13 #f)
      130
      (21 () 132)
      (22 () 131)
      (14 1 11 skip-comments)
      (24 0)
      131
      (26)
      (19 () 133)
      132
      133
      (14 2 1 ch)
      (16 eof-char)
      (61)
      (21 () 172)
      (13 ())
      (15 1 2 token)
      (26)
      (19 () 173)
      172
      (22 () 134)
      (14 1 24 separator?)
      (24 0)
      134
      (21 () 170)
      (22 () 135)
      (14 1 25 build-separator-token)
      (24 0)
      135
      (26)
      (22 () 136)
      (22 () 137)
      (14 1 2 token)
      (16 reverse)
      (24 1)
      137
      (16 list->string)
      (24 1)
      136
      (69)
      (15 1 2 token)
      (26)
      (19 () 171)
      170
      (14 2 1 ch)
      (62)
      (21 () 168)
      (22 () 138)
      (14 1 23 build-number-token)
      (24 0)
      138
      (26)
      (19 () 169)
      168
      (22 () 139)
      (14 2 1 ch)
      (63)
      (23
        (18 1)
        (14 0 0 g:::4)
        (21 () 140)
        (14 0 0 g:::4)
        (25)
        140
        (14 3 1 ch)
        (13 #\_)
        (61)
        (25)
        (name ())
      )
      (24 1)
      139
      (21 () 166)
      (22 () 142)
      (14 1 12 add-ch-to-token)
      (24 0)
      142
      (26)
      (22 () 143)
      (14 1 13 build-symbol-token)
      (24 0)
      143
      (26)
      (22 () 144)
      (22 () 145)
      (14 1 2 token)
      (16 reverse)
      (24 1)
      145
      (16 list->string)
      (24 1)
      144
      (69)
      (15 1 2 token)
      (26)
      (19 () 167)
      166
      (14 2 1 ch)
      (13 #\")
      (61)
      (21 () 164)
      (22 () 146)
      (14 1 7 read-c-ch)
      (24 0)
      146
      (26)
      (22 () 147)
      (14 1 14 build-string-token)
      (24 0)
      147
      (26)
      (22 () 148)
      (22 () 149)
      (14 1 2 token)
      (16 reverse)
      (24 1)
      149
      (16 list->string)
      (24 1)
      148
      (15 1 2 token)
      (26)
      (19 () 165)
      164
      (14 2 1 ch)
      (13 #\')
      (61)
      (21 () 162)
      (22 () 150)
      (14 1 7 read-c-ch)
      (24 0)
      150
      (26)
      (14 2 1 ch)
      (13 #\\)
      (61)
      (21 () 154)
      (22 () 151)
      (14 1 7 read-c-ch)
      (24 0)
      151
      (26)
      (14 2 1 ch)
      (13 #\n)
      (61)
      (21 () 152)
      (13 10)
      (79)
      (15 2 1 ch)
      (26)
      (19 () 153)
      152
      153
      (19 () 155)
      154
      155
      (14 2 1 ch)
      (78)
      (15 1 2 token)
      (26)
      (22 () 156)
      (14 1 7 read-c-ch)
      (24 0)
      156
      (26)
      (22 () 157)
      (14 1 7 read-c-ch)
      (24 0)
      157
      (26)
      (19 () 163)
      162
      (22 () 158)
      (13 "bad character")
      (14 2 1 ch)
      (14 1 6 c-error)
      (24 2)
      158
      (26)
      (22 () 159)
      (14 1 12 add-ch-to-token)
      (24 0)
      159
      (26)
      (22 () 160)
      (22 () 161)
      (14 1 2 token)
      (16 reverse)
      (24 1)
      161
      (16 list->string)
      (24 1)
      160
      (69)
      (15 1 2 token)
      (26)
      163
      165
      167
      169
      171
      173
      (14 1 2 token)
      (25)
      (name ())
    )
    (25)
    (name ())
  )
  (24 26)
  (name ())
)
(24 3)
5
(17 get-c-token)
(26)
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(2)
(2)
(2)
(2)
(17 token-ring)
(26)
(16 token-ring)
(12)
(1)
(16 token-ring)
(55)
(23
  (18 0)
  (16 token-ring)
  (12)
  (11)
  (25)
  (name triple-lookahead)
)
(17 triple-lookahead)
(26)
(23
  (18 0)
  (16 token-ring)
  (1)
  (11)
  (25)
  (name double-lookahead)
)
(17 double-lookahead)
(26)
(23
  (18 0)
  (16 token-ring)
  (11)
  (25)
  (name lookahead)
)
(17 lookahead)
(26)
(23
  (18 0)
  (16 token-ring)
  (22 () 174)
  (16 get-c-token)
  (24 0)
  174
  (54)
  (26)
  (16 token-ring)
  (1)
  (17 token-ring)
  (26)
  (16 token-ring)
  (0)
  (25)
  (name get-token)
)
(17 get-token)
(26)
(13 "=")
(69)
(17 assignment-tok)
(26)
(13 "+")
(69)
(17 plus-tok)
(26)
(13 "-")
(69)
(17 minus-tok)
(26)
(13 "*")
(69)
(17 times-tok)
(26)
(13 "/")
(69)
(17 div-tok)
(26)
(13 "%")
(69)
(17 mod-tok)
(26)
(13 "&")
(69)
(17 bit-and-tok)
(26)
(13 "|")
(69)
(17 bit-or-tok)
(26)
(13 "^")
(69)
(17 bit-xor-tok)
(26)
(13 ">>")
(69)
(17 shr-tok)
(26)
(13 "<<")
(69)
(17 shl-tok)
(26)
(13 "&&")
(69)
(17 and-tok)
(26)
(13 "||")
(69)
(17 or-tok)
(26)
(13 "==")
(69)
(17 equal-tok)
(26)
(13 "!=")
(69)
(17 not-equals-tok)
(26)
(13 "<")
(69)
(17 less-than-tok)
(26)
(13 ">")
(69)
(17 greater-than-tok)
(26)
(13 "<=")
(69)
(17 less-or-equal-tok)
(26)
(13 ">=")
(69)
(17 greater-or-equal-tok)
(26)
(13 "-")
(69)
(17 unary-minus-tok)
(26)
(13 "~")
(69)
(17 bit-not-tok)
(26)
(13 "!")
(69)
(17 not-tok)
(26)
(13 ";")
(69)
(17 semi-colon-tok)
(26)
(13 ":")
(69)
(17 colon-tok)
(26)
(13 "(")
(69)
(17 open-paren-tok)
(26)
(13 ")")
(69)
(17 close-paren-tok)
(26)
(13 "[")
(69)
(17 open-bracket-tok)
(26)
(13 "]")
(69)
(17 close-bracket-tok)
(26)
(13 ".")
(69)
(17 period-tok)
(26)
(13 ",")
(69)
(17 comma-tok)
(26)
(13 "include")
(69)
(17 include-tok)
(26)
(13 "define")
(69)
(17 define-tok)
(26)
(13 "#")
(69)
(17 pound-tok)
(26)
(13 ".")
(69)
(17 dot-tok)
(26)
(13 "int")
(69)
(17 integer-tok)
(26)
(13 "void")
(69)
(17 void-tok)
(26)
(13 "{")
(69)
(17 begin-tok)
(26)
(13 "}")
(69)
(17 end-tok)
(26)
(13 "if")
(69)
(17 if-tok)
(26)
(13 "else")
(69)
(17 else-tok)
(26)
(13 "switch")
(69)
(17 switch-tok)
(26)
(13 "while")
(69)
(17 while-tok)
(26)
(13 "do")
(69)
(17 do-tok)
(26)
(13 "for")
(69)
(17 for-tok)
(26)
(13 "case")
(69)
(17 case-tok)
(26)
(13 "break")
(69)
(17 break-tok)
(26)
(13 "return")
(69)
(17 return-tok)
(26)
(13 "printf")
(69)
(17 printf-tok)
(26)
(13 "++")
(69)
(17 succ-tok)
(26)
(13 "--")
(69)
(17 pred-tok)
(26)
(23
  (18 0)
  (22 () 175)
  (16 get-token)
  (24 0)
  175
  (26)
  (22 () 176)
  (16 get-token)
  (24 0)
  176
  (26)
  (16 get-token)
  (24 0)
  (name initialize-lex)
)
(17 initialize-lex)
(26)
(23
  (18 0)
  (22 () 177)
  (16 lookahead)
  (24 0)
  177
  (16 integer-tok)
  (5)
  (21 () 182)
  (22 () 178)
  (16 triple-lookahead)
  (24 0)
  178
  (16 semi-colon-tok)
  (5)
  (23
    (18 1)
    (14 0 0 g:::5)
    (21 () 180)
    (14 0 0 g:::5)
    (25)
    180
    (22 () 179)
    (16 triple-lookahead)
    (24 0)
    179
    (16 open-bracket-tok)
    (5)
    (25)
    (name ())
  )
  (24 1)
  182
  (13 #f)
  (25)
  (name lookahead-var)
)
(17 lookahead-var)
(26)
(23
  (18 0)
  (22 () 184)
  (16 lookahead)
  (24 0)
  184
  (16 void-tok)
  (5)
  (21 () 186)
  (22 () 185)
  (16 triple-lookahead)
  (24 0)
  185
  (16 open-paren-tok)
  (5)
  (25)
  186
  (13 #f)
  (25)
  (name lookahead-procedure)
)
(17 lookahead-procedure)
(26)
(23
  (18 0)
  (22 () 188)
  (16 lookahead)
  (24 0)
  188
  (16 integer-tok)
  (5)
  (21 () 190)
  (22 () 189)
  (16 triple-lookahead)
  (24 0)
  189
  (16 open-paren-tok)
  (5)
  (25)
  190
  (13 #f)
  (25)
  (name lookahead-function)
)
(17 lookahead-function)
(26)
(23
  (18 1)
  (14 0 0 token)
  (16 bit-or-tok)
  (5)
  (23
    (18 1)
    (14 0 0 g:::6)
    (21 () 194)
    (14 0 0 g:::6)
    (25)
    194
    (14 1 0 token)
    (16 or-tok)
    (5)
    (23
      (18 1)
      (14 0 0 g:::7)
      (21 () 192)
      (14 0 0 g:::7)
      (25)
      192
      (14 2 0 token)
      (13 (= + - * / % && << >> & ^ == != < <= >= >))
      (28)
      (25)
      (name ())
    )
    (24 1)
    (name ())
  )
  (24 1)
  (name binary-operator?)
)
(17 binary-operator?)
(26)
(23
  (18 1)
  (22 () 196)
  (14 0 0 token)
  (16 binary-operator?)
  (24 1)
  196
  (23
    (18 1)
    (14 0 0 g:::8)
    (21 () 201)
    (14 0 0 g:::8)
    (25)
    201
    (14 1 0 token)
    (16 unary-minus-tok)
    (5)
    (23
      (18 1)
      (14 0 0 g:::9)
      (21 () 199)
      (14 0 0 g:::9)
      (25)
      199
      (14 2 0 token)
      (16 bit-not-tok)
      (5)
      (23
        (18 1)
        (14 0 0 g:::10)
        (21 () 197)
        (14 0 0 g:::10)
        (25)
        197
        (14 3 0 token)
        (16 not-tok)
        (5)
        (25)
        (name ())
      )
      (24 1)
      (name ())
    )
    (24 1)
    (name ())
  )
  (24 1)
  (name operator?)
)
(17 operator?)
(26)
(23
  (18 1)
  (22 () 203)
  (22 () 204)
  (14 0 0 token)
  (16 operator?)
  (24 1)
  204
  (23
    (18 1)
    (14 0 0 g:::11)
    (21 () 219)
    (14 0 0 g:::11)
    (25)
    219
    (14 1 0 token)
    (16 semi-colon-tok)
    (5)
    (23
      (18 1)
      (14 0 0 g:::12)
      (21 () 217)
      (14 0 0 g:::12)
      (25)
      217
      (14 2 0 token)
      (16 colon-tok)
      (5)
      (23
        (18 1)
        (14 0 0 g:::13)
        (21 () 215)
        (14 0 0 g:::13)
        (25)
        215
        (14 3 0 token)
        (16 open-paren-tok)
        (5)
        (23
          (18 1)
          (14 0 0 g:::14)
          (21 () 213)
          (14 0 0 g:::14)
          (25)
          213
          (14 4 0 token)
          (16 close-paren-tok)
          (5)
          (23
            (18 1)
            (14 0 0 g:::15)
            (21 () 211)
            (14 0 0 g:::15)
            (25)
            211
            (14 5 0 token)
            (16 open-bracket-tok)
            (5)
            (23
              (18 1)
              (14 0 0 g:::16)
              (21 () 209)
              (14 0 0 g:::16)
              (25)
              209
              (14 6 0 token)
              (16 close-bracket-tok)
              (5)
              (23
                (18 1)
                (14 0 0 g:::17)
                (21 () 207)
                (14 0 0 g:::17)
                (25)
                207
                (14 7 0 token)
                (16 period-tok)
                (5)
                (23
                  (18 1)
                  (14 0 0 g:::18)
                  (21 () 205)
                  (14 0 0 g:::18)
                  (25)
                  205
                  (14 8 0 token)
                  (16 comma-tok)
                  (5)
                  (25)
                  (name ())
                )
                (24 1)
                (name ())
              )
              (24 1)
              (name ())
            )
            (24 1)
            (name ())
          )
          (24 1)
          (name ())
        )
        (24 1)
        (name ())
      )
      (24 1)
      (name ())
    )
    (24 1)
    (name ())
  )
  (24 1)
  203
  (8)
  (25)
  (name identifier?)
)
(17 identifier?)
(26)
(13 509)
(17 hash-size)
(26)
(23
  (18 0)
  (16 hash-size)
  (13 ())
  (94)
  (25)
  (name make-hash)
)
(17 make-hash)
(26)
(23
  (18 3)
  (14 0 1 key)
  (82)
  (16 hash-size)
  (46)
  (23
    (18 1)
    (14 1 0 vec)
    (14 0 0 hash-idx)
    (14 1 1 key)
    (14 1 2 value)
    (13 ())
    (2)
    (2)
    (14 1 0 vec)
    (14 0 0 hash-idx)
    (36)
    (2)
    (37)
    (25)
    (name ())
  )
  (24 1)
  (name hash-set!)
)
(17 hash-set!)
(26)
(23
  (18 2)
  (14 0 1 key)
  (82)
  (16 hash-size)
  (46)
  (23
    (18 1)
    (14 1 1 key)
    (14 1 0 vec)
    (14 0 0 hash-idx)
    (36)
    (30)
    (25)
    (name ())
  )
  (24 1)
  (name hash-ref)
)
(17 hash-ref)
(26)
(23
  (18 2)
  (14 0 1 n)
  (16 hash-size)
  (47)
  (21 () 223)
  (13 #t)
  (25)
  223
  (14 0 0 vec)
  (14 0 1 n)
  (36)
  (23
    (18 1)
    (14 0 0 element)
    (7)
    (21 () 221)
    (14 1 0 vec)
    (14 1 1 n)
    (13 1)
    (42)
    (16 empty-hash-table?)
    (24 2)
    221
    (13 #f)
    (25)
    (name ())
  )
  (24 1)
  (name empty-hash-table?)
)
(17 empty-hash-table?)
(26)
(13 ())
(17 tokens)
(26)
(23
  (18 1)
  (13 ())
  (23
    (18 1)
    (23
      (18 1)
      (14 0 0 x)
      (14 1 0 stack)
      (2)
      (15 1 0 stack)
      (25)
      (name ())
    )
    (23
      (18 1)
      (23
        (18 0)
        (14 2 0 stack)
        (1)
        (15 2 0 stack)
        (25)
        (name ())
      )
      (23
        (18 1)
        (23
          (18 0)
          (14 3 0 stack)
          (7)
          (25)
          (name ())
        )
        (23
          (18 1)
          (23
            (18 0)
            (14 4 0 stack)
            (0)
            (25)
            (name ())
          )
          (23
            (18 1)
            (13 #t)
            (13 #t)
            (23
              (18 2)
              (22 () 225)
              (13 ())
              (23
                (18 1)
                (23
                  (18 1)
                  (22 () 226)
                  (14 2 1 processing)
                  (8)
                  (23
                    (18 1)
                    (14 0 0 g:::19)
                    (21 () 227)
                    (14 0 0 g:::19)
                    (25)
                    227
                    (14 1 0 i)
                    (14 9 0 tokens)
                    (35)
                    (47)
                    (25)
                    (name ())
                  )
                  (24 1)
                  226
                  (21 () 254)
                  (13 ())
                  (25)
                  254
                  (22 () 229)
                  (14 8 0 tokens)
                  (14 0 0 i)
                  (36)
                  (23
                    (18 1)
                    (22 () 230)
                    (14 0 0 token)
                    (16 open-paren-tok)
                    (5)
                    (23
                      (18 1)
                      (14 0 0 g:::20)
                      (21 () 231)
                      (14 0 0 g:::20)
                      (25)
                      231
                      (14 1 0 token)
                      (16 open-bracket-tok)
                      (5)
                      (25)
                      (name ())
                    )
                    (24 1)
                    230
                    (21 () 252)
                    (14 0 0 token)
                    (14 7 0 push)
                    (24 1)
                    252
                    (22 () 233)
                    (14 0 0 token)
                    (16 close-paren-tok)
                    (5)
                    (23
                      (18 1)
                      (14 0 0 g:::21)
                      (21 () 234)
                      (14 0 0 g:::21)
                      (25)
                      234
                      (14 1 0 token)
                      (16 close-bracket-tok)
                      (5)
                      (25)
                      (name ())
                    )
                    (24 1)
                    233
                    (21 () 250)
                    (22 () 236)
                    (14 5 0 empty?)
                    (24 0)
                    236
                    (21 () 248)
                    (13 #f)
                    (15 3 0 ret)
                    (26)
                    (13 #f)
                    (15 3 1 processing)
                    (25)
                    248
                    (22 () 237)
                    (14 4 0 tos)
                    (24 0)
                    237
                    (23
                      (18 1)
                      (22 () 238)
                      (14 7 0 pop)
                      (24 0)
                      238
                      (26)
                      (22 () 239)
                      (14 1 0 token)
                      (16 close-paren-tok)
                      (5)
                      (21 () 240)
                      (14 0 0 top)
                      (16 open-paren-tok)
                      (5)
                      (8)
                      (19 () 241)
                      240
                      (13 #f)
                      241
                      (23
                        (18 1)
                        (14 0 0 g:::22)
                        (21 () 244)
                        (14 0 0 g:::22)
                        (25)
                        244
                        (14 2 0 token)
                        (16 close-bracket-tok)
                        (5)
                        (21 () 242)
                        (14 1 0 top)
                        (16 open-bracket-tok)
                        (5)
                        (8)
                        (25)
                        242
                        (13 #f)
                        (25)
                        (name ())
                      )
                      (24 1)
                      239
                      (21 () 246)
                      (13 #f)
                      (15 4 0 ret)
                      (26)
                      (13 #f)
                      (15 4 1 processing)
                      (25)
                      246
                      (13 ())
                      (25)
                      (name ())
                    )
                    (24 1)
                    250
                    (13 ())
                    (25)
                    (name ())
                  )
                  (24 1)
                  229
                  (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)
              225
              (26)
              (14 0 0 ret)
              (21 () 256)
              (14 2 0 empty?)
              (24 0)
              256
              (14 0 0 ret)
              (25)
              (name ())
            )
            (24 2)
            (name ())
          )
          (24 1)
          (name ())
        )
        (24 1)
        (name ())
      )
      (24 1)
      (name ())
    )
    (24 1)
    (name ())
  )
  (24 1)
  (name balanced-parens-and-brackets?)
)
(17 balanced-parens-and-brackets?)
(26)
(22 () 258)
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(13 ())
(23
  (18 33)
  (23
    (18 1)
    (14 0 0 x)
    (16 open-paren-tok)
    (5)
    (23
      (18 1)
      (14 0 0 g:::23)
      (21 () 259)
      (14 0 0 g:::23)
      (25)
      259
      (14 1 0 x)
      (16 open-bracket-tok)
      (5)
      (25)
      (name ())
    )
    (24 1)
    (name open-paren?)
  )
  (15 0 0 open-paren?)
  (26)
  (23
    (18 1)
    (14 0 0 x)
    (16 close-paren-tok)
    (5)
    (23
      (18 1)
      (14 0 0 g:::24)
      (21 () 261)
      (14 0 0 g:::24)
      (25)
      261
      (14 1 0 x)
      (16 close-bracket-tok)
      (5)
      (25)
      (name ())
    )
    (24 1)
    (name close-paren?)
  )
  (15 0 1 close-paren?)
  (26)
  (23
    (18 1)
    (22 () 263)
    (14 0 0 x)
    (14 1 0 open-paren?)
    (24 1)
    263
    (23
      (18 1)
      (14 0 0 g:::25)
      (21 () 264)
      (14 0 0 g:::25)
      (25)
      264
      (14 1 0 x)
      (14 2 1 close-paren?)
      (24 1)
      (name ())
    )
    (24 1)
    (name parenthesis?)
  )
  (15 0 2 parenthesis?)
  (26)
  (23
    (18 2)
    (14 0 0 x)
    (16 close-paren-tok)
    (5)
    (21 () 266)
    (14 0 1 y)
    (16 open-paren-tok)
    (5)
    (19 () 267)
    266
    (13 #f)
    267
    (23
      (18 1)
      (14 0 0 g:::26)
      (21 () 270)
      (14 0 0 g:::26)
      (25)
      270
      (14 1 0 x)
      (16 close-bracket-tok)
      (5)
      (21 () 268)
      (14 1 1 y)
      (16 open-bracket-tok)
      (5)
      (25)
      268
      (13 #f)
      (25)
      (name ())
    )
    (24 1)
    (name matching-parens?)
  )
  (15 0 3 matching-parens?)
  (26)
  (13 ())
  (15 0 4 stack)
  (26)
  (23
    (18 0)
    (14 1 4 stack)
    (7)
    (21 () 272)
    (13 stack_underflow)
    (13 ())
    (16 log-error)
    (24 2)
    272
    (14 1 4 stack)
    (0)
    (23
      (18 1)
      (14 2 4 stack)
      (1)
      (15 2 4 stack)
      (26)
      (14 0 0 pop-value)
      (25)
      (name ())
    )
    (24 1)
    (name pop)
  )
  (15 0 5 pop)
  (26)
  (23
    (18 1)
    (14 0 0 x)
    (14 1 4 stack)
    (2)
    (15 1 4 stack)
    (25)
    (name push)
  )
  (15 0 6 push)
  (26)
  (23
    (18 0)
    (14 1 4 stack)
    (7)
    (21 () 274)
    (13 stack_underflow)
    (13 ())
    (16 log-error)
    (24 2)
    274
    (14 1 4 stack)
    (0)
    (25)
    (name tos)
  )
  (15 0 7 tos)
  (26)
  (23
    (18 0)
    (14 1 4 stack)
    (7)
    (25)
    (name empty-stack?)
  )
  (15 0 8 empty-stack?)
  (26)
  (23
    (18 0)
    (22 () 276)
    (14 1 8 empty-stack?)
    (24 0)
    276
    (8)
    (21 () 278)
    (22 () 277)
    (14 1 5 pop)
    (24 0)
    277
    (39)
    (26)
    (40)
    (26)
    (14 1 9 display-stack)
    (24 0)
    278
    (13 ())
    (25)
    (name display-stack)
  )
  (15 0 9 display-stack)
  (26)
  (13 ())
  (15 0 10 output-queue)
  (26)
  (23
    (18 1)
    (14 0 0 token)
    (14 1 10 output-queue)
    (2)
    (15 1 10 output-queue)
    (25)
    (name insert-to-output-queue)
  )
  (15 0 11 insert-to-output-queue)
  (26)
  (23
    (18 1)
    (14 0 0 x)
    (7)
    (8)
    (21 () 280)
    (14 0 0 x)
    (0)
    (23
      (18 1)
      (14 0 0 arg)
      (39)
      (26)
      (40)
      (26)
      (14 1 0 x)
      (1)
      (14 2 12 display-output-queue)
      (24 1)
      (name ())
    )
    (24 1)
    280
    (13 ())
    (25)
    (name display-output-queue)
  )
  (15 0 12 display-output-queue)
  (26)
  (23
    (18 1)
    (14 0 0 x)
    (16 bit-or-tok)
    (5)
    (23
      (18 1)
      (14 0 0 g:::27)
      (21 () 284)
      (14 0 0 g:::27)
      (25)
      284
      (14 1 0 x)
      (16 or-tok)
      (5)
      (23
        (18 1)
        (14 0 0 g:::28)
        (21 () 282)
        (14 0 0 g:::28)
        (25)
        282
        (14 2 0 x)
        (13 (= + - * / % $neg ! && ~ << >> & ^ == != < <= >= >))
        (28)
        (25)
        (name ())
      )
      (24 1)
      (name ())
    )
    (24 1)
    (name operator?)
  )
  (15 0 13 operator?)
  (26)
  (23
    (18 1)
    (14 0 0 x)
    (16 bit-or-tok)
    (5)
    (23
      (18 1)
      (14 0 0 g:::29)
      (21 () 288)
      (14 0 0 g:::29)
      (25)
      288
      (14 1 0 x)
      (16 or-tok)
      (5)
      (23
        (18 1)
        (14 0 0 g:::30)
        (21 () 286)
        (14 0 0 g:::30)
        (25)
        286
        (14 2 0 x)
        (13 (= + - * / % && << >> & ^ == != < <= >= >))
        (28)
        (25)
        (name ())
      )
      (24 1)
      (name ())
    )
    (24 1)
    (name binary-operator?)
  )
  (15 0 14 binary-operator?)
  (26)
  (23
    (18 1)
    (22 () 290)
    (14 0 0 x)
    (16 function?)
    (24 1)
    290
    (23
      (18 1)
      (14 0 0 n)
      (21 () 291)
      (14 0 0 n)
      (11)
      (31)
      (25)
      291
      (13 1)
      (25)
      (name ())
    )
    (24 1)
    (name get-n-args)
  )
  (15 0 15 get-n-args)
  (26)
  (23
    (18 1)
    (22 () 293)
    (14 0 0 x)
    (16 function?)
    (24 1)
    293
    (23
      (18 1)
      (14 0 0 g:::31)
      (21 () 294)
      (14 0 0 g:::31)
      (25)
      294
      (14 1 0 x)
      (16 array-var?)
      (24 1)
      (name ())
    )
    (24 1)
    (name function-or-array-var?)
  )
  (15 0 16 function-or-array-var?)
  (26)
  (23
    (18 1)
    (14 0 0 x)
    (16 comma-tok)
    (5)
    (25)
    (name function-argument-separator?)
  )
  (15 0 17 function-argument-separator?)
  (26)
  (23
    (18 1)
    (14 0 0 op)
    (16 bit-or-tok)
    (5)
    (21 () 298)
    (13 5)
    (25)
    298
    (14 0 0 op)
    (16 or-tok)
    (5)
    (21 () 296)
    (13 1)
    (25)
    296
    (14 0 0 op)
    (13 ((= 0) (&& 2) (! 3) (== 4) (!= 4) (< 4) (<= 4) (>= 4) (> 4) (+ 5) (- 5) (* 6) (- 6) (/ 6) (% 6) (& 6) (<< 6) (>> 6) (^ 6) (~ 7) ($neg 7)))
    (30)
    (11)
    (25)
    (name precedence)
  )
  (15 0 18 precedence)
  (26)
  (23
    (18 1)
    (14 0 0 op)
    (13 (! ~ $neg))
    (28)
    (25)
    (name right-associative?)
  )
  (15 0 19 right-associative?)
  (26)
  (23
    (18 1)
    (22 () 300)
    (14 0 0 op)
    (14 1 19 right-associative?)
    (24 1)
    300
    (8)
    (25)
    (name left-associative?)
  )
  (15 0 20 left-associative?)
  (26)
  (23
    (18 1)
    (14 0 0 x)
    (4)
    (21 () 307)
    (22 () 301)
    (14 0 0 x)
    (16 array-var?)
    (24 1)
    301
    (21 () 305)
    (13 #f)
    (25)
    305
    (22 () 302)
    (14 0 0 x)
    (16 local-var?)
    (24 1)
    302
    (23
      (18 1)
      (14 0 0 g:::32)
      (21 () 303)
      (14 0 0 g:::32)
      (25)
      303
      (14 1 0 x)
      (16 global-var?)
      (24 1)
      (name ())
    )
    (24 1)
    307
    (13 #f)
    (25)
    (name var?)
  )
  (15 0 21 var?)
  (26)
  (23
    (18 1)
    (14 0 0 x)
    (32)
    (23
      (18 1)
      (14 0 0 g:::33)
      (21 () 312)
      (14 0 0 g:::33)
      (25)
      312
      (22 () 309)
      (14 1 0 x)
      (14 2 21 var?)
      (24 1)
      309
      (23
        (18 1)
        (14 0 0 g:::34)
        (21 () 310)
        (14 0 0 g:::34)
        (25)
        310
        (14 2 0 x)
        (16 constant?)
        (24 1)
        (name ())
      )
      (24 1)
      (name ())
    )
    (24 1)
    (name my-number?)
  )
  (15 0 22 my-number?)
  (26)
  (23
    (18 1)
    (14 1 4 stack)
    (7)
    (8)
    (21 () 336)
    (22 () 314)
    (22 () 315)
    (14 1 7 tos)
    (24 0)
    315
    (14 1 13 operator?)
    (24 1)
    314
    (21 () 334)
    (22 () 316)
    (14 1 7 tos)
    (24 0)
    316
    (23
      (18 1)
      (22 () 317)
      (22 () 318)
      (14 1 0 op)
      (14 2 20 left-associative?)
      (24 1)
      318
      (21 () 321)
      (22 () 319)
      (14 1 0 op)
      (14 2 18 precedence)
      (24 1)
      319
      (22 () 320)
      (14 0 0 op2)
      (14 2 18 precedence)
      (24 1)
      320
      (50)
      (19 () 322)
      321
      (13 #f)
      322
      (23
        (18 1)
        (14 0 0 g:::35)
        (21 () 328)
        (14 0 0 g:::35)
        (25)
        328
        (22 () 323)
        (14 2 0 op)
        (14 3 19 right-associative?)
        (24 1)
        323
        (21 () 326)
        (22 () 324)
        (14 2 0 op)
        (14 3 18 precedence)
        (24 1)
        324
        (22 () 325)
        (14 1 0 op2)
        (14 3 18 precedence)
        (24 1)
        325
        (49)
        (25)
        326
        (13 #f)
        (25)
        (name ())
      )
      (24 1)
      317
      (21 () 332)
      (22 () 330)
      (22 () 331)
      (14 2 5 pop)
      (24 0)
      331
      (14 2 11 insert-to-output-queue)
      (24 1)
      330
      (26)
      (14 1 0 op)
      (14 2 23 pop-ops-with-less-than-or-equal-precedence)
      (24 1)
      332
      (13 ())
      (25)
      (name ())
    )
    (24 1)
    334
    (13 ())
    (25)
    336
    (13 ())
    (25)
    (name pop-ops-with-less-than-or-equal-precedence)
  )
  (15 0 23 pop-ops-with-less-than-or-equal-precedence)
  (26)
  (23
    (18 0)
    (14 1 4 stack)
    (7)
    (21 () 343)
    (13 mismatched_parens)
    (13 ())
    (16 log-error)
    (24 2)
    343
    (22 () 338)
    (14 1 5 pop)
    (24 0)
    338
    (23
      (18 1)
      (22 () 339)
      (14 0 0 op)
      (14 2 0 open-paren?)
      (24 1)
      339
      (8)
      (21 () 341)
      (22 () 340)
      (14 0 0 op)
      (14 2 11 insert-to-output-queue)
      (24 1)
      340
      (26)
      (14 2 24 pop-ops-until-left-paren)
      (24 0)
      341
      (13 ())
      (25)
      (name ())
    )
    (24 1)
    (name pop-ops-until-left-paren)
  )
  (15 0 24 pop-ops-until-left-paren)
  (26)
  (23
    (18 0)
    (14 1 4 stack)
    (7)
    (21 () 351)
    (13 mismatched_parens_or_missing_comma)
    (13 ())
    (16 log-error)
    (24 2)
    351
    (22 () 345)
    (14 1 7 tos)
    (24 0)
    345
    (23
      (18 1)
      (22 () 346)
      (14 0 0 op)
      (14 2 0 open-paren?)
      (24 1)
      346
      (8)
      (21 () 349)
      (22 () 347)
      (22 () 348)
      (14 2 5 pop)
      (24 0)
      348
      (14 2 11 insert-to-output-queue)
      (24 1)
      347
      (26)
      (14 2 25 process-function-arg)
      (24 0)
      349
      (13 ())
      (25)
      (name ())
    )
    (24 1)
    (name process-function-arg)
  )
  (15 0 25 process-function-arg)
  (26)
  (23
    (18 0)
    (14 1 4 stack)
    (7)
    (8)
    (21 () 358)
    (22 () 353)
    (14 1 5 pop)
    (24 0)
    353
    (23
      (18 1)
      (22 () 354)
      (14 0 0 element)
      (14 2 2 parenthesis?)
      (24 1)
      354
      (21 () 356)
      (13 mismatched_parens)
      (13 ())
      (16 log-error)
      (24 2)
      356
      (22 () 355)
      (14 0 0 element)
      (14 2 11 insert-to-output-queue)
      (24 1)
      355
      (26)
      (14 2 26 clear-operators-from-stack)
      (24 0)
      (name ())
    )
    (24 1)
    358
    (13 ())
    (25)
    (name clear-operators-from-stack)
  )
  (15 0 26 clear-operators-from-stack)
  (26)
  (23
    (18 3)
    (14 0 1 expression)
    (7)
    (21 () 380)
    (13 ())
    (25)
    380
    (14 0 0 previous)
    (0)
    (14 0 1 expression)
    (0)
    (14 0 2 next)
    (0)
    (23
      (18 3)
      (22 () 360)
      (14 0 0 prev)
      (7)
      (21 () 361)
      (14 0 1 expr)
      (13 -)
      (5)
      (19 () 362)
      361
      (13 #f)
      362
      (23
        (18 1)
        (14 0 0 g:::36)
        (21 () 374)
        (14 0 0 g:::36)
        (25)
        374
        (22 () 363)
        (14 1 0 prev)
        (14 3 13 operator?)
        (24 1)
        363
        (21 () 364)
        (14 1 1 expr)
        (13 -)
        (5)
        (19 () 365)
        364
        (13 #f)
        365
        (23
          (18 1)
          (14 0 0 g:::37)
          (21 () 372)
          (14 0 0 g:::37)
          (25)
          372
          (14 2 0 prev)
          (16 open-paren-tok)
          (5)
          (21 () 366)
          (14 2 1 expr)
          (13 -)
          (5)
          (19 () 367)
          366
          (13 #f)
          367
          (23
            (18 1)
            (14 0 0 g:::38)
            (21 () 370)
            (14 0 0 g:::38)
            (25)
            370
            (14 3 0 prev)
            (16 comma-tok)
            (5)
            (21 () 368)
            (14 3 1 expr)
            (13 -)
            (5)
            (25)
            368
            (13 #f)
            (25)
            (name ())
          )
          (24 1)
          (name ())
        )
        (24 1)
        (name ())
      )
      (24 1)
      360
      (21 () 378)
      (13 $neg)
      (22 () 376)
      (14 1 0 previous)
      (1)
      (14 1 1 expression)
      (1)
      (14 1 2 next)
      (14 2 27 filter-unary-minus)
      (24 3)
      376
      (2)
      (25)
      378
      (14 0 1 expr)
      (22 () 377)
      (14 1 0 previous)
      (1)
      (14 1 1 expression)
      (1)
      (14 1 2 next)
      (14 2 27 filter-unary-minus)
      (24 3)
      377
      (2)
      (25)
      (name ())
    )
    (24 3)
    (name filter-unary-minus)
  )
  (15 0 27 filter-unary-minus)
  (26)
  (23
    (18 1)
    (14 0 0 n)
    (13 0)
    (47)
    (21 () 384)
    (13 ())
    (25)
    384
    (22 () 382)
    (14 1 5 pop)
    (24 0)
    382
    (22 () 383)
    (14 0 0 n)
    (13 1)
    (43)
    (14 1 28 pop-n-args)
    (24 1)
    383
    (2)
    (25)
    (name pop-n-args)
  )
  (15 0 28 pop-n-args)
  (26)
  (23
    (18 1)
    (14 0 0 token)
    (16 bit-or-tok)
    (5)
    (21 () 386)
    (13 (bitwise-or bitwise-or))
    (19 () 387)
    386
    (14 0 0 token)
    (13 ((= set!) (/ quotient) (% remainder) (& bitwise-and) (^ bitwise-xor) (~ bitwise-not) (>> shr) (<< shl) ($neg -) (== =)))
    (30)
    387
    (23
      (18 1)
      (14 0 0 scheme-token)
      (21 () 388)
      (14 0 0 scheme-token)
      (11)
      (25)
      388
      (14 1 0 token)
      (25)
      (name ())
    )
    (24 1)
    (name filter-scheme-function)
  )
  (15 0 29 filter-scheme-function)
  (26)
  (23
    (18 1)
    (14 0 0 output-queue)
    (7)
    (21 () 419)
    (14 1 5 pop)
    (24 0)
    419
    (14 0 0 output-queue)
    (0)
    (23
      (18 1)
      (14 0 0 token)
      (81)
      (21 () 417)
      (22 () 390)
      (14 0 0 token)
      (0)
      (14 2 6 push)
      (24 1)
      390
      (26)
      (19 () 418)
      417
      (22 () 391)
      (14 0 0 token)
      (14 2 13 operator?)
      (24 1)
      391
      (21 () 415)
      (22 () 392)
      (14 0 0 token)
      (14 2 14 binary-operator?)
      (24 1)
      392
      (21 () 400)
      (22 () 393)
      (22 () 394)
      (14 2 5 pop)
      (24 0)
      394
      (22 () 395)
      (14 2 5 pop)
      (24 0)
      395
      (23
        (18 2)
        (22 () 396)
        (14 1 0 token)
        (14 3 29 filter-scheme-function)
        (24 1)
        396
        (14 0 1 right-operand)
        (14 0 0 left-operand)
        (13 ())
        (2)
        (2)
        (2)
        (14 3 6 push)
        (24 1)
        (name ())
      )
      (24 2)
      393
      (26)
      (19 () 401)
      400
      (22 () 397)
      (22 () 398)
      (14 2 5 pop)
      (24 0)
      398
      (23
        (18 1)
        (22 () 399)
        (14 1 0 token)
        (14 3 29 filter-scheme-function)
        (24 1)
        399
        (14 0 0 operand)
        (13 ())
        (2)
        (2)
        (14 3 6 push)
        (24 1)
        (name ())
      )
      (24 1)
      397
      (26)
      401
      (19 () 416)
      415
      (22 () 402)
      (14 0 0 token)
      (16 array-var?)
      (24 1)
      402
      (21 () 413)
      (22 () 403)
      (14 0 0 token)
      (22 () 404)
      (13 1)
      (14 2 28 pop-n-args)
      (24 1)
      404
      (2)
      (14 2 6 push)
      (24 1)
      403
      (26)
      (19 () 414)
      413
      (22 () 405)
      (14 0 0 token)
      (16 function?)
      (24 1)
      405
      (21 () 411)
      (22 () 406)
      (14 0 0 token)
      (22 () 407)
      (22 () 408)
      (22 () 409)
      (14 0 0 token)
      (14 2 15 get-n-args)
      (24 1)
      409
      (14 2 28 pop-n-args)
      (24 1)
      408
      (16 reverse)
      (24 1)
      407
      (2)
      (14 2 6 push)
      (24 1)
      406
      (26)
      (19 () 412)
      411
      (22 () 410)
      (14 0 0 token)
      (14 2 6 push)
      (24 1)
      410
      (26)
      412
      414
      416
      418
      (14 1 0 output-queue)
      (1)
      (14 2 30 make-binary-tree)
      (24 1)
      (name ())
    )
    (24 1)
    (name make-binary-tree)
  )
  (15 0 30 make-binary-tree)
  (26)
  (23
    (18 2)
    (14 0 0 expression)
    (1)
    (7)
    (21 () 428)
    (22 () 421)
    (14 0 1 token)
    (16 array-var?)
    (24 1)
    421
    (21 () 422)
    (13 #t)
    (25)
    422
    (13 #f)
    (25)
    428
    (22 () 424)
    (14 0 1 token)
    (16 array-var?)
    (24 1)
    424
    (21 () 426)
    (22 () 425)
    (14 0 0 expression)
    (11)
    (14 1 0 open-paren?)
    (24 1)
    425
    (8)
    (25)
    426
    (13 #f)
    (25)
    (name array-var-no-args?)
  )
  (15 0 31 array-var-no-args?)
  (26)
  (23
    (18 1)
    (14 0 0 expression)
    (7)
    (21 () 476)
    (14 1 26 clear-operators-from-stack)
    (24 0)
    476
    (14 0 0 expression)
    (0)
    (23
      (18 1)
      (22 () 430)
      (14 0 0 token)
      (14 2 0 open-paren?)
      (24 1)
      430
      (21 () 474)
      (22 () 431)
      (14 0 0 token)
      (14 2 6 push)
      (24 1)
      431
      (26)
      (19 () 475)
      474
      (22 () 432)
      (14 0 0 token)
      (14 2 1 close-paren?)
      (24 1)
      432
      (21 () 472)
      (22 () 433)
      (14 2 24 pop-ops-until-left-paren)
      (24 0)
      433
      (26)
      (22 () 434)
      (14 2 8 empty-stack?)
      (24 0)
      434
      (21 () 437)
      (13 #f)
      (19 () 438)
      437
      (22 () 435)
      (22 () 436)
      (14 2 7 tos)
      (24 0)
      436
      (14 2 16 function-or-array-var?)
      (24 1)
      435
      438
      (21 () 441)
      (22 () 439)
      (22 () 440)
      (14 2 5 pop)
      (24 0)
      440
      (14 2 11 insert-to-output-queue)
      (24 1)
      439
      (26)
      (19 () 442)
      441
      442
      (19 () 473)
      472
      (22 () 443)
      (14 0 0 token)
      (14 2 17 function-argument-separator?)
      (24 1)
      443
      (21 () 470)
      (22 () 444)
      (14 2 25 process-function-arg)
      (24 0)
      444
      (26)
      (19 () 471)
      470
      (22 () 445)
      (14 0 0 token)
      (14 2 13 operator?)
      (24 1)
      445
      (21 () 468)
      (22 () 446)
      (14 0 0 token)
      (14 2 23 pop-ops-with-less-than-or-equal-precedence)
      (24 1)
      446
      (26)
      (22 () 447)
      (14 0 0 token)
      (14 2 6 push)
      (24 1)
      447
      (26)
      (19 () 469)
      468
      (22 () 448)
      (14 1 0 expression)
      (14 0 0 token)
      (14 2 31 array-var-no-args?)
      (24 2)
      448
      (21 () 466)
      (22 () 449)
      (14 0 0 token)
      (13 ())
      (2)
      (14 2 6 push)
      (24 1)
      449
      (26)
      (19 () 467)
      466
      (22 () 450)
      (22 () 451)
      (14 0 0 token)
      (14 2 22 my-number?)
      (24 1)
      451
      (23
        (18 1)
        (14 0 0 g:::39)
        (21 () 454)
        (14 0 0 g:::39)
        (25)
        454
        (14 1 0 token)
        (33)
        (23
          (18 1)
          (14 0 0 g:::40)
          (21 () 452)
          (14 0 0 g:::40)
          (25)
          452
          (14 3 0 expression)
          (14 2 0 token)
          (14 4 31 array-var-no-args?)
          (24 2)
          (name ())
        )
        (24 1)
        (name ())
      )
      (24 1)
      450
      (21 () 464)
      (22 () 456)
      (14 0 0 token)
      (14 2 11 insert-to-output-queue)
      (24 1)
      456
      (26)
      (19 () 465)
      464
      (22 () 457)
      (14 0 0 token)
      (14 2 16 function-or-array-var?)
      (24 1)
      457
      (21 () 462)
      (22 () 458)
      (14 0 0 token)
      (14 2 6 push)
      (24 1)
      458
      (26)
      (19 () 463)
      462
      (22 () 459)
      (13 undefined_identifier)
      (14 0 0 token)
      (16 log-error)
      (24 2)
      459
      (26)
      (22 () 460)
      (14 0 0 token)
      (14 2 11 insert-to-output-queue)
      (24 1)
      460
      (26)
      (22 () 461)
      (13 ())
      (14 2 32 shunt-proper)
      (24 1)
      461
      (26)
      463
      465
      467
      469
      471
      473
      475
      (14 1 0 expression)
      (1)
      (14 2 32 shunt-proper)
      (24 1)
      (name ())
    )
    (24 1)
    (name shunt-proper)
  )
  (15 0 32 shunt-proper)
  (26)
  (23
    (18 1)
    (13 ())
    (15 1 4 stack)
    (26)
    (22 () 478)
    (13 ())
    (14 0 0 expression)
    (2)
    (14 0 0 expression)
    (22 () 479)
    (14 0 0 expression)
    (13 (()))
    (16 append)
    (24 2)
    479
    (14 1 27 filter-unary-minus)
    (24 3)
    478
    (15 0 0 expression)
    (26)
    (13 ())
    (15 1 4 stack)
    (26)
    (13 ())
    (15 1 10 output-queue)
    (26)
    (22 () 480)
    (14 0 0 expression)
    (14 1 32 shunt-proper)
    (24 1)
    480
    (26)
    (22 () 481)
    (14 1 10 output-queue)
    (16 reverse)
    (24 1)
    481
    (15 1 10 output-queue)
    (26)
    (13 ())
    (15 1 4 stack)
    (26)
    (14 1 10 output-queue)
    (14 1 30 make-binary-tree)
    (24 1)
    (name ())
  )
  (25)
  (name ())
)
(24 33)
258
(17 shunt)
(26)
(23
  (18 2)
  (40)
  (26)
  (13 "*** ERROR ")
  (39)
  (26)
  (22 () 482)
  (14 0 0 err)
  (23
    (18 1)
    (14 0 0 g:::41)
    (13 rest_of_program_ignored)
    (76)
    (21 () 507)
    (13 "rest of program ignored")
    (39)
    (25)
    507
    (14 0 0 g:::41)
    (13 expect_token)
    (76)
    (21 () 505)
    (14 1 1 token)
    (39)
    (26)
    (13 " expected")
    (39)
    (25)
    505
    (14 0 0 g:::41)
    (13 bad_statement)
    (76)
    (21 () 503)
    (13 "bad statement ")
    (39)
    (26)
    (14 1 1 token)
    (39)
    (25)
    503
    (14 0 0 g:::41)
    (13 control_var_mismatch)
    (76)
    (21 () 501)
    (13 "control and increment var not the same")
    (39)
    (25)
    501
    (14 0 0 g:::41)
    (13 expecting_incr_decr)
    (76)
    (21 () 499)
    (13 "expecting ++ or --")
    (39)
    (25)
    499
    (14 0 0 g:::41)
    (13 number_expected)
    (76)
    (21 () 497)
    (13 "number expected instead of: ")
    (39)
    (26)
    (14 1 1 token)
    (39)
    (25)
    497
    (14 0 0 g:::41)
    (13 max_allowed_formal_parameters)
    (76)
    (21 () 495)
    (13 "maximum number of allowed formal parameters exceeded")
    (39)
    (25)
    495
    (14 0 0 g:::41)
    (13 mismatched_parens)
    (76)
    (21 () 493)
    (13 "mismatched parentheses")
    (39)
    (25)
    493
    (14 0 0 g:::41)
    (13 mismatched_parens_or_missing_comma)
    (76)
    (21 () 491)
    (13 "mismatched parentheses or misplaced comma")
    (39)
    (25)
    491
    (14 0 0 g:::41)
    (13 stack_underflow)
    (76)
    (21 () 489)
    (13 "stack underflow")
    (39)
    (25)
    489
    (14 0 0 g:::41)
    (13 undefined_constant)
    (76)
    (21 () 487)
    (13 "undefined constant: ")
    (39)
    (26)
    (14 1 1 token)
    (39)
    (25)
    487
    (14 0 0 g:::41)
    (13 undefined_identifier)
    (76)
    (21 () 485)
    (13 "undefined identifier: ")
    (39)
    (26)
    (14 1 1 token)
    (39)
    (25)
    485
    (14 0 0 g:::41)
    (13 string_expected)
    (76)
    (21 () 483)
    (13 "string expected: ")
    (39)
    (26)
    (14 1 1 token)
    (39)
    (25)
    483
    (13 #f)
    (25)
    (name ())
  )
  (24 1)
  482
  (26)
  (40)
  (25)
  (name log-error)
)
(17 log-error)
(26)
(23
  (18 1)
  (22 () 509)
  (16 get-token)
  (24 0)
  509
  (23
    (18 1)
    (14 0 0 token)
    (14 1 0 expected-token)
    (5)
    (8)
    (21 () 510)
    (13 expect_token)
    (14 1 0 expected-token)
    (16 log-error)
    (24 2)
    510
    (13 ())
    (25)
    (name ())
  )
  (24 1)
  (name expect)
)
(17 expect)
(26)
(23
  (18 1)
  (13 ())
  (23
    (18 1)
    (23
      (18 1)
      (14 0 0 binary-tree)
      (7)
      (21 () 514)
      (13 ())
      (25)
      514
      (22 () 512)
      (14 0 0 binary-tree)
      (0)
      (16 filter-vector-ref)
      (24 1)
      512
      (22 () 513)
      (14 0 0 binary-tree)
      (1)
      (16 filter-vector-ref)
      (24 1)
      513
      (2)
      (25)
      (name filter-vector-ref-fn-args)
    )
    (15 0 0 filter-vector-ref-fn-args)
    (26)
    (14 1 0 binary-tree)
    (7)
    (21 () 534)
    (13 ())
    (25)
    534
    (14 1 0 binary-tree)
    (13 $neg)
    (5)
    (21 () 532)
    (13 -)
    (25)
    532
    (14 1 0 binary-tree)
    (81)
    (21 () 530)
    (22 () 516)
    (14 1 0 binary-tree)
    (0)
    (16 function?)
    (24 1)
    516
    (21 () 528)
    (14 1 0 binary-tree)
    (0)
    (22 () 517)
    (14 1 0 binary-tree)
    (1)
    (14 0 0 filter-vector-ref-fn-args)
    (24 1)
    517
    (2)
    (25)
    528
    (14 1 0 binary-tree)
    (31)
    (13 2)
    (47)
    (21 () 526)
    (22 () 518)
    (14 1 0 binary-tree)
    (0)
    (16 array-var?)
    (24 1)
    518
    (21 () 522)
    (13 vector-ref)
    (14 1 0 binary-tree)
    (0)
    (22 () 519)
    (14 1 0 binary-tree)
    (11)
    (16 filter-vector-ref)
    (24 1)
    519
    (13 ())
    (2)
    (2)
    (2)
    (25)
    522
    (22 () 520)
    (14 1 0 binary-tree)
    (0)
    (16 filter-vector-ref)
    (24 1)
    520
    (22 () 521)
    (14 1 0 binary-tree)
    (1)
    (16 filter-vector-ref)
    (24 1)
    521
    (2)
    (25)
    526
    (22 () 524)
    (14 1 0 binary-tree)
    (0)
    (16 filter-vector-ref)
    (24 1)
    524
    (22 () 525)
    (14 1 0 binary-tree)
    (1)
    (16 filter-vector-ref)
    (24 1)
    525
    (2)
    (25)
    530
    (14 1 0 binary-tree)
    (25)
    (name ())
  )
  (24 1)
  (name filter-vector-ref)
)
(17 filter-vector-ref)
(26)
(23
  (18 1)
  (14 0 0 expression)
  (81)
  (21 () 545)
  (14 0 0 expression)
  (31)
  (13 3)
  (47)
  (21 () 543)
  (14 0 0 expression)
  (0)
  (13 set!)
  (5)
  (21 () 541)
  (14 0 0 expression)
  (11)
  (81)
  (21 () 539)
  (22 () 536)
  (14 0 0 expression)
  (11)
  (0)
  (16 array-var?)
  (24 1)
  536
  (21 () 537)
  (13 vector-set!)
  (14 0 0 expression)
  (11)
  (0)
  (14 0 0 expression)
  (11)
  (11)
  (14 0 0 expression)
  (1)
  (11)
  (13 ())
  (2)
  (2)
  (2)
  (2)
  (25)
  537
  (14 0 0 expression)
  (25)
  539
  (14 0 0 expression)
  (25)
  541
  (14 0 0 expression)
  (25)
  543
  (14 0 0 expression)
  (25)
  545
  (14 0 0 expression)
  (25)
  (name filter-vector-set)
)
(17 filter-vector-set)
(26)
(23
  (18 1)
  (13 ())
  (17 tokens)
  (26)
  (22 () 547)
  (22 () 548)
  (16 get-token)
  (24 0)
  548
  (22 () 549)
  (13 ())
  (23
    (18 1)
    (23
      (18 1)
      (22 () 550)
      (16 lookahead)
      (24 0)
      550
      (23
        (18 1)
        (22 () 551)
        (14 1 0 token)
        (16 close-paren-tok)
        (5)
        (21 () 553)
        (22 () 552)
        (14 0 0 next-token)
        (16 identifier?)
        (24 1)
        552
        (19 () 554)
        553
        (13 #f)
        554
        (23
          (18 1)
          (14 0 0 g:::42)
          (21 () 576)
          (14 0 0 g:::42)
          (25)
          576
          (14 2 0 token)
          (16 close-bracket-tok)
          (5)
          (21 () 556)
          (22 () 555)
          (14 1 0 next-token)
          (16 identifier?)
          (24 1)
          555
          (19 () 557)
          556
          (13 #f)
          557
          (23
            (18 1)
            (14 0 0 g:::43)
            (21 () 574)
            (14 0 0 g:::43)
            (25)
            574
            (14 3 0 token)
            (16 close-paren-tok)
            (5)
            (21 () 558)
            (14 2 0 next-token)
            (16 semi-colon-tok)
            (5)
            (19 () 559)
            558
            (13 #f)
            559
            (23
              (18 1)
              (14 0 0 g:::44)
              (21 () 572)
              (14 0 0 g:::44)
              (25)
              572
              (14 4 0 token)
              (16 close-bracket-tok)
              (5)
              (21 () 560)
              (14 3 0 next-token)
              (16 semi-colon-tok)
              (5)
              (19 () 561)
              560
              (13 #f)
              561
              (23
                (18 1)
                (14 0 0 g:::45)
                (21 () 570)
                (14 0 0 g:::45)
                (25)
                570
                (22 () 562)
                (14 5 0 token)
                (16 identifier?)
                (24 1)
                562
                (21 () 563)
                (14 4 0 next-token)
                (16 semi-colon-tok)
                (5)
                (19 () 564)
                563
                (13 #f)
                564
                (23
                  (18 1)
                  (14 0 0 g:::46)
                  (21 () 568)
                  (14 0 0 g:::46)
                  (25)
                  568
                  (22 () 565)
                  (14 6 0 token)
                  (16 identifier?)
                  (24 1)
                  565
                  (21 () 566)
                  (14 5 0 next-token)
                  (16 identifier?)
                  (24 1)
                  566
                  (13 #f)
                  (25)
                  (name ())
                )
                (24 1)
                (name ())
              )
              (24 1)
              (name ())
            )
            (24 1)
            (name ())
          )
          (24 1)
          (name ())
        )
        (24 1)
        551
        (21 () 581)
        (14 3 0 leave-off-final-close-paren?)
        (8)
        (21 () 578)
        (14 1 0 token)
        (16 tokens)
        (2)
        (17 tokens)
        (25)
        578
        (13 ())
        (25)
        581
        (14 1 0 token)
        (16 tokens)
        (2)
        (17 tokens)
        (26)
        (22 () 580)
        (16 get-token)
        (24 0)
        580
        (14 2 0 loop)
        (24 1)
        (name ())
      )
      (24 1)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  549
  (24 1)
  547
  (26)
  (22 () 583)
  (16 tokens)
  (16 reverse)
  (24 1)
  583
  (17 tokens)
  (26)
  (14 0 0 leave-off-final-close-paren?)
  (8)
  (21 () 588)
  (22 () 584)
  (16 lookahead)
  (24 0)
  584
  (16 semi-colon-tok)
  (5)
  (21 () 586)
  (22 () 585)
  (16 get-token)
  (24 0)
  585
  (26)
  (19 () 587)
  586
  587
  (19 () 589)
  588
  589
  (22 () 590)
  (22 () 591)
  (16 tokens)
  (16 list->vector)
  (24 1)
  591
  (16 balanced-parens-and-brackets?)
  (24 1)
  590
  (8)
  (21 () 593)
  (22 () 592)
  (13 mismatched_parens)
  (13 ())
  (16 log-error)
  (24 2)
  592
  (26)
  (19 () 594)
  593
  594
  (22 () 595)
  (22 () 596)
  (22 () 597)
  (16 tokens)
  (16 shunt)
  (24 1)
  597
  (16 filter-vector-set)
  (24 1)
  596
  (16 filter-vector-ref)
  (24 1)
  595
  (39)
  (25)
  (name parse-expression)
)
(17 parse-expression)
(26)
(23
  (18 1)
  (14 0 0 level)
  (13 0)
  (51)
  (21 () 598)
  (13 "  ")
  (39)
  (26)
  (14 0 0 level)
  (13 1)
  (43)
  (16 indent)
  (24 1)
  598
  (13 ())
  (25)
  (name indent)
)
(17 indent)
(26)
(23
  (18 0)
  (22 () 600)
  (16 include-tok)
  (16 expect)
  (24 1)
  600
  (26)
  (22 () 601)
  (16 less-than-tok)
  (16 expect)
  (24 1)
  601
  (26)
  (22 () 602)
  (16 get-token)
  (24 0)
  602
  (22 () 603)
  (13 ())
  (23
    (18 1)
    (23
      (18 1)
      (14 0 0 token)
      (16 greater-than-tok)
      (5)
      (8)
      (21 () 605)
      (22 () 604)
      (16 get-token)
      (24 0)
      604
      (14 1 0 loop)
      (24 1)
      605
      (13 ())
      (25)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  603
  (24 1)
  (name parse-include)
)
(17 parse-include)
(26)
(22 () 607)
(16 make-hash)
(24 0)
607
(17 constants)
(26)
(23
  (18 2)
  (16 constants)
  (14 0 0 name)
  (14 0 1 value)
  (16 hash-set!)
  (24 3)
  (name define-constant-name-value)
)
(17 define-constant-name-value)
(26)
(23
  (18 1)
  (22 () 608)
  (16 constants)
  (14 0 0 name)
  (16 hash-ref)
  (24 2)
  608
  (23
    (18 1)
    (14 0 0 value)
    (21 () 610)
    (14 0 0 value)
    (11)
    (25)
    610
    (22 () 609)
    (13 undefined_constant)
    (14 1 0 name)
    (16 log-error)
    (24 2)
    609
    (26)
    (13 0)
    (25)
    (name ())
  )
  (24 1)
  (name get-constant-value)
)
(17 get-constant-value)
(26)
(23
  (18 1)
  (16 constants)
  (14 0 0 x)
  (16 hash-ref)
  (24 2)
  (name constant?)
)
(17 constant?)
(26)
(22 () 612)
(16 make-hash)
(24 0)
612
(17 global-variables)
(26)
(13 ())
(17 arrays)
(26)
(13 ())
(17 fn-arg-arrays)
(26)
(23
  (18 1)
  (14 0 0 x)
  (16 arrays)
  (28)
  (23
    (18 1)
    (14 0 0 found)
    (21 () 613)
    (14 0 0 found)
    (25)
    613
    (14 1 0 x)
    (16 fn-arg-arrays)
    (28)
    (25)
    (name ())
  )
  (24 1)
  (name array-var?)
)
(17 array-var?)
(26)
(23
  (18 2)
  (16 global-variables)
  (14 0 0 name)
  (14 0 1 value)
  (16 hash-set!)
  (24 3)
  (name define-global-var-name-value)
)
(17 define-global-var-name-value)
(26)
(23
  (18 1)
  (16 global-variables)
  (14 0 0 x)
  (16 hash-ref)
  (24 2)
  (name global-var?)
)
(17 global-var?)
(26)
(13 ())
(17 local-variables)
(26)
(13 ())
(17 formal-parameters)
(26)
(23
  (18 2)
  (14 0 0 name)
  (14 0 1 value)
  (13 ())
  (2)
  (2)
  (16 local-variables)
  (2)
  (17 local-variables)
  (25)
  (name define-local-var-name-value)
)
(17 define-local-var-name-value)
(26)
(23
  (18 1)
  (14 0 0 x)
  (16 formal-parameters)
  (28)
  (23
    (18 1)
    (14 0 0 found)
    (21 () 615)
    (14 0 0 found)
    (25)
    615
    (14 1 0 x)
    (16 local-variables)
    (30)
    (25)
    (name ())
  )
  (24 1)
  (name local-var?)
)
(17 local-var?)
(26)
(23
  (18 0)
  (22 () 617)
  (16 define-tok)
  (16 expect)
  (24 1)
  617
  (26)
  (22 () 618)
  (16 get-token)
  (24 0)
  618
  (22 () 619)
  (16 get-token)
  (24 0)
  619
  (23
    (18 2)
    (14 0 1 value)
    (32)
    (8)
    (21 () 621)
    (22 () 620)
    (13 number_expected)
    (14 0 1 value)
    (16 log-error)
    (24 2)
    620
    (26)
    (13 0)
    (15 0 1 value)
    (26)
    (19 () 622)
    621
    622
    (13 "(define ")
    (39)
    (26)
    (14 0 0 name)
    (39)
    (26)
    (13 " ")
    (39)
    (26)
    (14 0 1 value)
    (39)
    (26)
    (13 ")")
    (39)
    (26)
    (40)
    (26)
    (22 () 623)
    (13 0)
    (16 display-comments)
    (24 1)
    623
    (26)
    (14 0 0 name)
    (14 0 1 value)
    (16 define-constant-name-value)
    (24 2)
    (name ())
  )
  (24 2)
  (name parse-define)
)
(17 parse-define)
(26)
(23
  (18 0)
  (22 () 624)
  (13 ())
  (23
    (18 1)
    (23
      (18 0)
      (22 () 625)
      (16 lookahead)
      (24 0)
      625
      (16 pound-tok)
      (5)
      (21 () 632)
      (22 () 626)
      (16 get-token)
      (24 0)
      626
      (26)
      (22 () 627)
      (16 lookahead)
      (24 0)
      627
      (16 include-tok)
      (5)
      (21 () 630)
      (22 () 628)
      (16 parse-include)
      (24 0)
      628
      (26)
      (19 () 631)
      630
      (22 () 629)
      (16 parse-define)
      (24 0)
      629
      (26)
      631
      (14 1 0 loop)
      (24 0)
      632
      (13 ())
      (25)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  624
  (24 0)
  (name parse-includes-and-defines)
)
(17 parse-includes-and-defines)
(26)
(23
  (18 1)
  (22 () 634)
  (16 integer-tok)
  (16 expect)
  (24 1)
  634
  (26)
  (22 () 635)
  (16 get-token)
  (24 0)
  635
  (13 ())
  (13 ())
  (23
    (18 3)
    (22 () 636)
    (16 lookahead)
    (24 0)
    636
    (16 open-bracket-tok)
    (5)
    (21 () 646)
    (22 () 637)
    (16 get-token)
    (24 0)
    637
    (26)
    (22 () 638)
    (16 get-token)
    (24 0)
    638
    (15 0 1 value)
    (26)
    (14 0 0 name)
    (16 arrays)
    (2)
    (17 arrays)
    (26)
    (14 0 1 value)
    (32)
    (8)
    (21 () 643)
    (22 () 639)
    (14 0 1 value)
    (16 get-constant-value)
    (24 1)
    639
    (15 0 1 value)
    (26)
    (14 0 1 value)
    (8)
    (21 () 641)
    (22 () 640)
    (13 undefined_constant)
    (14 0 0 name)
    (16 log-error)
    (24 2)
    640
    (26)
    (13 1)
    (15 0 1 value)
    (26)
    (19 () 642)
    641
    642
    (19 () 644)
    643
    644
    (22 () 645)
    (16 close-bracket-tok)
    (16 expect)
    (24 1)
    645
    (26)
    (19 () 647)
    646
    647
    (22 () 648)
    (16 semi-colon-tok)
    (16 expect)
    (24 1)
    648
    (26)
    (13 "(")
    (39)
    (26)
    (14 0 0 name)
    (39)
    (26)
    (13 " ")
    (39)
    (26)
    (14 0 1 value)
    (7)
    (21 () 649)
    (13 "0)")
    (39)
    (26)
    (40)
    (26)
    (19 () 650)
    649
    (13 "(make-vector ")
    (39)
    (26)
    (14 0 1 value)
    (39)
    (26)
    (13 " 0))")
    (39)
    (26)
    (40)
    (26)
    650
    (14 1 0 top-level)
    (21 () 653)
    (22 () 651)
    (14 0 0 name)
    (14 0 1 value)
    (16 define-global-var-name-value)
    (24 2)
    651
    (26)
    (13 1)
    (16 display-comments)
    (24 1)
    653
    (22 () 652)
    (14 0 0 name)
    (14 0 1 value)
    (16 define-local-var-name-value)
    (24 2)
    652
    (26)
    (13 4)
    (16 display-comments)
    (24 1)
    (name ())
  )
  (24 3)
  (name parse-variable-definition)
)
(17 parse-variable-definition)
(26)
(23
  (18 1)
  (14 0 0 top-level)
  (8)
  (21 () 656)
  (13 ())
  (17 local-variables)
  (26)
  (22 () 655)
  (13 3)
  (16 indent)
  (24 1)
  655
  (26)
  (19 () 657)
  656
  657
  (13 "(let (")
  (39)
  (26)
  (40)
  (26)
  (22 () 658)
  (22 () 659)
  (13 ())
  (23
    (18 1)
    (23
      (18 0)
      (22 () 660)
      (16 lookahead-var)
      (24 0)
      660
      (21 () 666)
      (14 2 0 top-level)
      (21 () 663)
      (22 () 661)
      (13 1)
      (16 indent)
      (24 1)
      661
      (26)
      (19 () 664)
      663
      (22 () 662)
      (13 4)
      (16 indent)
      (24 1)
      662
      (26)
      664
      (22 () 665)
      (14 2 0 top-level)
      (16 parse-variable-definition)
      (24 1)
      665
      (26)
      (14 1 0 loop)
      (24 0)
      666
      (13 ())
      (25)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  659
  (24 0)
  658
  (26)
  (14 0 0 top-level)
  (21 () 670)
  (22 () 668)
  (13 1)
  (16 indent)
  (24 1)
  668
  (26)
  (19 () 671)
  670
  (22 () 669)
  (13 4)
  (16 indent)
  (24 1)
  669
  (26)
  671
  (13 ")")
  (39)
  (26)
  (40)
  (25)
  (name parse-variable-definitions)
)
(17 parse-variable-definitions)
(26)
(23
  (18 1)
  (22 () 672)
  (14 0 0 level)
  (16 indent)
  (24 1)
  672
  (26)
  (13 "(if (__test ")
  (39)
  (26)
  (22 () 673)
  (16 lookahead)
  (24 0)
  673
  (16 open-paren-tok)
  (5)
  (8)
  (21 () 675)
  (22 () 674)
  (13 expect_token)
  (16 open-paren-tok)
  (16 log-error)
  (24 2)
  674
  (26)
  (19 () 676)
  675
  676
  (22 () 677)
  (13 #f)
  (16 parse-expression)
  (24 1)
  677
  (26)
  (13 ")")
  (39)
  (26)
  (40)
  (26)
  (22 () 678)
  (14 0 0 level)
  (13 1)
  (42)
  (16 parse-statement)
  (24 1)
  678
  (26)
  (22 () 679)
  (16 lookahead)
  (24 0)
  679
  (16 else-tok)
  (5)
  (21 () 682)
  (22 () 680)
  (16 get-token)
  (24 0)
  680
  (26)
  (40)
  (26)
  (22 () 681)
  (14 0 0 level)
  (13 1)
  (42)
  (16 parse-statement)
  (24 1)
  681
  (26)
  (19 () 683)
  682
  683
  (13 ")")
  (39)
  (25)
  (name parse-if-statement)
)
(17 parse-if-statement)
(26)
(23
  (18 1)
  (22 () 684)
  (14 0 0 level)
  (16 indent)
  (24 1)
  684
  (26)
  (13 "(let loop ()")
  (39)
  (26)
  (40)
  (26)
  (22 () 685)
  (14 0 0 level)
  (13 1)
  (42)
  (16 indent)
  (24 1)
  685
  (26)
  (13 "(if (__test ")
  (39)
  (26)
  (22 () 686)
  (16 lookahead)
  (24 0)
  686
  (16 open-paren-tok)
  (5)
  (8)
  (21 () 688)
  (22 () 687)
  (13 expect_token)
  (16 open-paren-tok)
  (16 log-error)
  (24 2)
  687
  (26)
  (19 () 689)
  688
  689
  (22 () 690)
  (13 #f)
  (16 parse-expression)
  (24 1)
  690
  (26)
  (13 ")")
  (39)
  (26)
  (40)
  (26)
  (22 () 691)
  (14 0 0 level)
  (13 2)
  (42)
  (16 indent)
  (24 1)
  691
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 692)
  (14 0 0 level)
  (13 3)
  (42)
  (16 parse-statement)
  (24 1)
  692
  (26)
  (40)
  (26)
  (22 () 693)
  (14 0 0 level)
  (13 3)
  (42)
  (16 indent)
  (24 1)
  693
  (26)
  (13 "(loop))))")
  (39)
  (25)
  (name parse-while-statement)
)
(17 parse-while-statement)
(26)
(23
  (18 1)
  (22 () 694)
  (14 0 0 level)
  (16 indent)
  (24 1)
  694
  (26)
  (13 "(let loop ()")
  (39)
  (26)
  (40)
  (26)
  (22 () 695)
  (14 0 0 level)
  (13 1)
  (42)
  (16 indent)
  (24 1)
  695
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 696)
  (16 begin-tok)
  (16 expect)
  (24 1)
  696
  (26)
  (22 () 697)
  (22 () 698)
  (13 ())
  (23
    (18 1)
    (23
      (18 0)
      (22 () 699)
      (16 lookahead)
      (24 0)
      699
      (16 end-tok)
      (5)
      (8)
      (21 () 701)
      (22 () 700)
      (14 2 0 level)
      (13 2)
      (42)
      (16 parse-statement)
      (24 1)
      700
      (26)
      (40)
      (26)
      (14 1 0 loop)
      (24 0)
      701
      (13 ())
      (25)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  698
  (24 0)
  697
  (26)
  (22 () 703)
  (16 end-tok)
  (16 expect)
  (24 1)
  703
  (26)
  (22 () 704)
  (16 while-tok)
  (16 expect)
  (24 1)
  704
  (26)
  (22 () 705)
  (16 lookahead)
  (24 0)
  705
  (16 open-paren-tok)
  (5)
  (8)
  (21 () 707)
  (22 () 706)
  (13 expect_token)
  (16 open-paren-tok)
  (16 log-error)
  (24 2)
  706
  (26)
  (19 () 708)
  707
  708
  (22 () 709)
  (14 0 0 level)
  (13 2)
  (42)
  (16 indent)
  (24 1)
  709
  (26)
  (13 "(if (__test ")
  (39)
  (26)
  (22 () 710)
  (13 #f)
  (16 parse-expression)
  (24 1)
  710
  (26)
  (13 ")")
  (39)
  (26)
  (40)
  (26)
  (40)
  (26)
  (22 () 711)
  (14 0 0 level)
  (13 3)
  (42)
  (16 indent)
  (24 1)
  711
  (26)
  (13 "(loop))))")
  (39)
  (26)
  (40)
  (25)
  (name parse-repeat-statement)
)
(17 parse-repeat-statement)
(26)
(23
  (18 1)
  (13 ())
  (13 ())
  (23
    (18 2)
    (22 () 712)
    (16 open-paren-tok)
    (16 expect)
    (24 1)
    712
    (26)
    (22 () 713)
    (14 1 0 level)
    (13 1)
    (42)
    (16 indent)
    (24 1)
    713
    (26)
    (13 "(begin")
    (39)
    (26)
    (40)
    (26)
    (22 () 714)
    (14 1 0 level)
    (13 1)
    (42)
    (16 indent)
    (24 1)
    714
    (26)
    (22 () 715)
    (16 lookahead)
    (24 0)
    715
    (15 0 0 control-var)
    (26)
    (22 () 716)
    (13 #f)
    (16 parse-expression)
    (24 1)
    716
    (26)
    (40)
    (26)
    (22 () 717)
    (14 1 0 level)
    (13 1)
    (42)
    (16 indent)
    (24 1)
    717
    (26)
    (13 "(let loop ()")
    (39)
    (26)
    (40)
    (26)
    (22 () 718)
    (14 1 0 level)
    (13 2)
    (42)
    (16 indent)
    (24 1)
    718
    (26)
    (13 "(if (__test ")
    (39)
    (26)
    (22 () 719)
    (13 #f)
    (16 parse-expression)
    (24 1)
    719
    (26)
    (13 ")")
    (39)
    (26)
    (40)
    (26)
    (22 () 720)
    (14 1 0 level)
    (13 3)
    (42)
    (16 indent)
    (24 1)
    720
    (26)
    (13 "(begin")
    (39)
    (26)
    (40)
    (26)
    (22 () 721)
    (16 get-token)
    (24 0)
    721
    (14 0 0 control-var)
    (5)
    (8)
    (21 () 723)
    (22 () 722)
    (13 control_var_mismatch)
    (13 ())
    (16 log-error)
    (24 2)
    722
    (26)
    (19 () 724)
    723
    724
    (22 () 725)
    (16 get-token)
    (24 0)
    725
    (15 0 1 incr)
    (26)
    (22 () 726)
    (14 0 1 incr)
    (16 succ-tok)
    (5)
    (23
      (18 1)
      (14 0 0 g:::47)
      (21 () 727)
      (14 0 0 g:::47)
      (25)
      727
      (14 1 1 incr)
      (16 pred-tok)
      (5)
      (25)
      (name ())
    )
    (24 1)
    726
    (8)
    (21 () 730)
    (22 () 729)
    (13 expecting_incr_decr)
    (13 ())
    (16 log-error)
    (24 2)
    729
    (26)
    (19 () 731)
    730
    731
    (22 () 732)
    (16 close-paren-tok)
    (16 expect)
    (24 1)
    732
    (26)
    (22 () 733)
    (14 1 0 level)
    (13 4)
    (42)
    (16 parse-statement)
    (24 1)
    733
    (26)
    (40)
    (26)
    (22 () 734)
    (14 1 0 level)
    (13 4)
    (42)
    (16 indent)
    (24 1)
    734
    (26)
    (14 0 1 incr)
    (16 succ-tok)
    (5)
    (21 () 735)
    (13 set!)
    (14 0 0 control-var)
    (13 +)
    (14 0 0 control-var)
    (13 1)
    (13 ())
    (2)
    (2)
    (2)
    (13 ())
    (2)
    (2)
    (2)
    (39)
    (26)
    (19 () 736)
    735
    (13 set!)
    (14 0 0 control-var)
    (13 -)
    (14 0 0 control-var)
    (13 1)
    (13 ())
    (2)
    (2)
    (2)
    (13 ())
    (2)
    (2)
    (2)
    (39)
    (26)
    736
    (40)
    (26)
    (22 () 737)
    (14 1 0 level)
    (13 4)
    (42)
    (16 indent)
    (24 1)
    737
    (26)
    (13 "(loop)))))")
    (39)
    (26)
    (40)
    (25)
    (name ())
  )
  (24 2)
  (name parse-for-statement)
)
(17 parse-for-statement)
(26)
(23
  (18 0)
  (22 () 738)
  (16 get-token)
  (24 0)
  738
  (26)
  (16 semi-colon-tok)
  (16 expect)
  (24 1)
  (name parse-break-statement)
)
(17 parse-break-statement)
(26)
(23
  (18 1)
  (13 0)
  (23
    (18 1)
    (22 () 739)
    (16 lookahead)
    (24 0)
    739
    (16 end-tok)
    (5)
    (8)
    (21 () 763)
    (22 () 740)
    (16 case-tok)
    (16 expect)
    (24 1)
    740
    (26)
    (22 () 741)
    (16 get-token)
    (24 0)
    741
    (15 0 0 number)
    (26)
    (14 0 0 number)
    (32)
    (8)
    (21 () 743)
    (22 () 742)
    (14 0 0 number)
    (16 get-constant-value)
    (24 1)
    742
    (15 0 0 number)
    (26)
    (19 () 744)
    743
    744
    (22 () 745)
    (16 colon-tok)
    (16 expect)
    (24 1)
    745
    (26)
    (22 () 746)
    (14 1 0 level)
    (16 indent)
    (24 1)
    746
    (26)
    (13 "((")
    (39)
    (26)
    (14 0 0 number)
    (39)
    (26)
    (13 ")")
    (39)
    (26)
    (40)
    (26)
    (22 () 747)
    (22 () 748)
    (13 ())
    (23
      (18 1)
      (23
        (18 0)
        (22 () 749)
        (16 lookahead)
        (24 0)
        749
        (16 end-tok)
        (5)
        (21 () 751)
        (13 #f)
        (19 () 752)
        751
        (22 () 750)
        (16 lookahead)
        (24 0)
        750
        (16 case-tok)
        (5)
        (8)
        752
        (21 () 761)
        (22 () 753)
        (16 lookahead)
        (24 0)
        753
        (16 break-tok)
        (5)
        (21 () 759)
        (22 () 754)
        (16 parse-break-statement)
        (24 0)
        754
        (26)
        (19 () 760)
        759
        (22 () 755)
        (14 3 0 level)
        (13 1)
        (42)
        (16 parse-statement)
        (24 1)
        755
        (26)
        (22 () 756)
        (16 lookahead)
        (24 0)
        756
        (16 break-tok)
        (5)
        (8)
        (21 () 757)
        (40)
        (26)
        (19 () 758)
        757
        758
        760
        (14 1 0 loop)
        (24 0)
        761
        (13 ())
        (25)
        (name loop)
      )
      (15 0 0 loop)
      (26)
      (14 0 0 loop)
      (25)
      (name ())
    )
    (24 1)
    748
    (24 0)
    747
    (26)
    (13 ")")
    (39)
    (26)
    (40)
    (25)
    763
    (13 ())
    (25)
    (name ())
  )
  (24 1)
  (name parse-case-list-element)
)
(17 parse-case-list-element)
(26)
(23
  (18 1)
  (22 () 765)
  (16 lookahead)
  (24 0)
  765
  (16 end-tok)
  (5)
  (8)
  (21 () 767)
  (22 () 766)
  (14 0 0 level)
  (16 parse-case-list-element)
  (24 1)
  766
  (26)
  (14 0 0 level)
  (16 parse-case-list-elements)
  (24 1)
  767
  (13 ())
  (25)
  (name parse-case-list-elements)
)
(17 parse-case-list-elements)
(26)
(23
  (18 1)
  (22 () 769)
  (16 lookahead)
  (24 0)
  769
  (16 open-paren-tok)
  (5)
  (8)
  (21 () 771)
  (22 () 770)
  (13 expect_token)
  (16 open-paren-tok)
  (16 log-error)
  (24 2)
  770
  (26)
  (19 () 772)
  771
  772
  (22 () 773)
  (14 0 0 level)
  (16 indent)
  (24 1)
  773
  (26)
  (13 "(case")
  (39)
  (26)
  (40)
  (26)
  (22 () 774)
  (14 0 0 level)
  (13 1)
  (42)
  (16 indent)
  (24 1)
  774
  (26)
  (22 () 775)
  (13 #f)
  (16 parse-expression)
  (24 1)
  775
  (26)
  (40)
  (26)
  (22 () 776)
  (16 begin-tok)
  (16 expect)
  (24 1)
  776
  (26)
  (22 () 777)
  (14 0 0 level)
  (13 1)
  (42)
  (16 parse-case-list-elements)
  (24 1)
  777
  (26)
  (22 () 778)
  (16 end-tok)
  (16 expect)
  (24 1)
  778
  (26)
  (22 () 779)
  (14 0 0 level)
  (16 indent)
  (24 1)
  779
  (26)
  (13 ")")
  (39)
  (25)
  (name parse-case-statement)
)
(17 parse-case-statement)
(26)
(23
  (18 1)
  (14 0 0 s)
  (31)
  (13 4)
  (49)
  (21 () 781)
  (14 0 0 s)
  (25)
  781
  (14 0 0 s)
  (0)
  (78)
  (13 256)
  (44)
  (13 256)
  (44)
  (13 256)
  (44)
  (14 0 0 s)
  (11)
  (78)
  (13 256)
  (44)
  (13 256)
  (44)
  (42)
  (14 0 0 s)
  (1)
  (11)
  (78)
  (13 256)
  (44)
  (42)
  (14 0 0 s)
  (12)
  (11)
  (78)
  (42)
  (22 () 780)
  (14 0 0 s)
  (12)
  (12)
  (16 get-4-chars)
  (24 1)
  780
  (2)
  (25)
  (name get-4-chars)
)
(17 get-4-chars)
(26)
(23
  (18 2)
  (14 0 0 s)
  (7)
  (8)
  (21 () 786)
  (14 0 0 s)
  (0)
  (23
    (18 1)
    (22 () 783)
    (14 1 1 level)
    (16 indent)
    (24 1)
    783
    (26)
    (14 0 0 x)
    (32)
    (21 () 784)
    (13 "(__put4chars ")
    (39)
    (26)
    (14 0 0 x)
    (39)
    (26)
    (13 ")")
    (39)
    (26)
    (19 () 785)
    784
    (13 "(putchar ")
    (39)
    (26)
    (14 0 0 x)
    (78)
    (39)
    (26)
    (13 ")")
    (39)
    (26)
    785
    (40)
    (26)
    (14 1 0 s)
    (1)
    (14 1 1 level)
    (16 display-packed-string)
    (24 2)
    (name ())
  )
  (24 1)
  786
  (13 ())
  (25)
  (name display-packed-string)
)
(17 display-packed-string)
(26)
(23
  (18 1)
  (22 () 788)
  (16 lookahead)
  (24 0)
  788
  (23
    (18 1)
    (22 () 789)
    (14 1 0 level)
    (16 display-comments)
    (24 1)
    789
    (26)
    (14 0 0 token)
    (16 begin-tok)
    (5)
    (21 () 848)
    (22 () 790)
    (14 1 0 level)
    (16 indent)
    (24 1)
    790
    (26)
    (13 "(begin")
    (39)
    (26)
    (40)
    (26)
    (22 () 791)
    (14 1 0 level)
    (13 1)
    (42)
    (16 parse-compound-statement)
    (24 1)
    791
    (26)
    (13 ")")
    (39)
    (25)
    848
    (14 0 0 token)
    (16 if-tok)
    (5)
    (21 () 846)
    (22 () 792)
    (16 get-token)
    (24 0)
    792
    (26)
    (14 1 0 level)
    (16 parse-if-statement)
    (24 1)
    846
    (14 0 0 token)
    (16 while-tok)
    (5)
    (21 () 844)
    (22 () 793)
    (16 get-token)
    (24 0)
    793
    (26)
    (14 1 0 level)
    (16 parse-while-statement)
    (24 1)
    844
    (14 0 0 token)
    (16 do-tok)
    (5)
    (21 () 842)
    (22 () 794)
    (16 get-token)
    (24 0)
    794
    (26)
    (14 1 0 level)
    (16 parse-repeat-statement)
    (24 1)
    842
    (14 0 0 token)
    (16 for-tok)
    (5)
    (21 () 840)
    (22 () 795)
    (16 get-token)
    (24 0)
    795
    (26)
    (14 1 0 level)
    (16 parse-for-statement)
    (24 1)
    840
    (14 0 0 token)
    (16 switch-tok)
    (5)
    (21 () 838)
    (22 () 796)
    (16 get-token)
    (24 0)
    796
    (26)
    (14 1 0 level)
    (16 parse-case-statement)
    (24 1)
    838
    (14 0 0 token)
    (16 end-tok)
    (5)
    (21 () 836)
    (13 ())
    (25)
    836
    (14 0 0 token)
    (16 return-tok)
    (5)
    (21 () 834)
    (22 () 797)
    (16 get-token)
    (24 0)
    797
    (26)
    (22 () 798)
    (16 lookahead)
    (24 0)
    798
    (16 semi-colon-tok)
    (5)
    (21 () 803)
    (22 () 799)
    (16 get-token)
    (24 0)
    799
    (26)
    (22 () 800)
    (14 1 0 level)
    (16 indent)
    (24 1)
    800
    (26)
    (13 "(return-from-procedure)")
    (39)
    (25)
    803
    (22 () 801)
    (14 1 0 level)
    (16 indent)
    (24 1)
    801
    (26)
    (13 "(return ")
    (39)
    (26)
    (22 () 802)
    (13 #f)
    (16 parse-expression)
    (24 1)
    802
    (26)
    (13 ")")
    (39)
    (25)
    834
    (14 0 0 token)
    (16 printf-tok)
    (5)
    (21 () 832)
    (22 () 805)
    (16 get-token)
    (24 0)
    805
    (26)
    (22 () 806)
    (16 open-paren-tok)
    (16 expect)
    (24 1)
    806
    (26)
    (22 () 807)
    (16 lookahead)
    (24 0)
    807
    (33)
    (21 () 825)
    (22 () 808)
    (16 lookahead)
    (24 0)
    808
    (13 "%d")
    (67)
    (21 () 819)
    (22 () 809)
    (16 get-token)
    (24 0)
    809
    (26)
    (22 () 810)
    (16 get-token)
    (24 0)
    810
    (26)
    (22 () 811)
    (14 1 0 level)
    (16 indent)
    (24 1)
    811
    (26)
    (13 "(__write_integer ")
    (39)
    (26)
    (22 () 812)
    (13 #t)
    (16 parse-expression)
    (24 1)
    812
    (26)
    (13 ")")
    (39)
    (26)
    (19 () 820)
    819
    (22 () 813)
    (14 1 0 level)
    (16 indent)
    (24 1)
    813
    (26)
    (13 "(begin")
    (39)
    (26)
    (40)
    (26)
    (22 () 814)
    (22 () 815)
    (22 () 816)
    (22 () 817)
    (16 get-token)
    (24 0)
    817
    (16 string->list)
    (24 1)
    816
    (16 get-4-chars)
    (24 1)
    815
    (14 1 0 level)
    (16 display-packed-string)
    (24 2)
    814
    (26)
    (13 ")")
    (39)
    (26)
    (22 () 818)
    (16 get-token)
    (24 0)
    818
    (26)
    820
    (19 () 826)
    825
    (22 () 821)
    (13 string_expected)
    (22 () 822)
    (16 lookahead)
    (24 0)
    822
    (16 log-error)
    (24 2)
    821
    (26)
    (22 () 823)
    (16 get-token)
    (24 0)
    823
    (26)
    (22 () 824)
    (16 get-token)
    (24 0)
    824
    (26)
    826
    (16 semi-colon-tok)
    (16 expect)
    (24 1)
    832
    (22 () 827)
    (14 0 0 token)
    (16 identifier?)
    (24 1)
    827
    (21 () 830)
    (22 () 828)
    (14 1 0 level)
    (16 indent)
    (24 1)
    828
    (26)
    (13 #f)
    (16 parse-expression)
    (24 1)
    830
    (22 () 829)
    (13 bad_statement)
    (14 0 0 token)
    (16 log-error)
    (24 2)
    829
    (26)
    (16 get-token)
    (24 0)
    (name ())
  )
  (24 1)
  (name parse-statement)
)
(17 parse-statement)
(26)
(23
  (18 1)
  (22 () 850)
  (13 ())
  (23
    (18 1)
    (23
      (18 0)
      (22 () 851)
      (22 () 852)
      (16 lookahead)
      (24 0)
      852
      (16 end-tok)
      (5)
      (23
        (18 1)
        (14 0 0 g:::48)
        (21 () 854)
        (14 0 0 g:::48)
        (25)
        854
        (22 () 853)
        (16 lookahead)
        (24 0)
        853
        (7)
        (25)
        (name ())
      )
      (24 1)
      851
      (8)
      (21 () 860)
      (22 () 856)
      (14 2 0 level)
      (16 parse-statement)
      (24 1)
      856
      (26)
      (22 () 857)
      (16 lookahead)
      (24 0)
      857
      (16 end-tok)
      (5)
      (8)
      (21 () 858)
      (40)
      (26)
      (19 () 859)
      858
      859
      (14 1 0 loop)
      (24 0)
      860
      (13 ())
      (25)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  850
  (24 0)
  (name parse-statements)
)
(17 parse-statements)
(26)
(23
  (18 1)
  (22 () 862)
  (16 get-token)
  (24 0)
  862
  (16 begin-tok)
  (5)
  (8)
  (21 () 864)
  (22 () 863)
  (13 expect_token)
  (16 begin-tok)
  (16 log-error)
  (24 2)
  863
  (26)
  (19 () 865)
  864
  865
  (22 () 866)
  (14 0 0 level)
  (16 parse-statements)
  (24 1)
  866
  (26)
  (16 end-tok)
  (16 expect)
  (24 1)
  (name parse-compound-statement)
)
(17 parse-compound-statement)
(26)
(23
  (18 1)
  (13 #f)
  (23
    (18 1)
    (22 () 867)
    (16 lookahead-var)
    (24 0)
    867
    (21 () 869)
    (13 #t)
    (15 0 0 block-has-vars?)
    (26)
    (22 () 868)
    (13 #f)
    (16 parse-variable-definitions)
    (24 1)
    868
    (26)
    (19 () 870)
    869
    870
    (22 () 871)
    (13 3)
    (16 parse-statements)
    (24 1)
    871
    (26)
    (14 0 0 block-has-vars?)
    (21 () 872)
    (13 ")))")
    (39)
    (25)
    872
    (13 "))")
    (39)
    (25)
    (name ())
  )
  (24 1)
  (name parse-block)
)
(17 parse-block)
(26)
(23
  (18 0)
  (22 () 874)
  (16 integer-tok)
  (16 expect)
  (24 1)
  874
  (26)
  (22 () 875)
  (16 get-token)
  (24 0)
  875
  (13 ())
  (23
    (18 2)
    (14 0 0 name)
    (16 formal-parameters)
    (2)
    (17 formal-parameters)
    (26)
    (22 () 876)
    (16 lookahead)
    (24 0)
    876
    (16 open-bracket-tok)
    (5)
    (21 () 879)
    (22 () 877)
    (16 get-token)
    (24 0)
    877
    (26)
    (22 () 878)
    (16 close-bracket-tok)
    (16 expect)
    (24 1)
    878
    (26)
    (14 0 0 name)
    (16 fn-arg-arrays)
    (2)
    (17 fn-arg-arrays)
    (26)
    (14 0 0 name)
    (13 ())
    (2)
    (15 0 1 ret)
    (26)
    (19 () 880)
    879
    (14 0 0 name)
    (15 0 1 ret)
    (26)
    880
    (14 0 0 name)
    (39)
    (26)
    (14 0 1 ret)
    (25)
    (name ())
  )
  (24 2)
  (name parse-formal-parameter)
)
(17 parse-formal-parameter)
(26)
(23
  (18 0)
  (13 ())
  (17 fn-arg-arrays)
  (26)
  (13 ())
  (17 formal-parameters)
  (26)
  (13 ())
  (23
    (18 1)
    (22 () 881)
    (22 () 882)
    (13 ())
    (23
      (18 1)
      (23
        (18 0)
        (22 () 883)
        (16 lookahead)
        (24 0)
        883
        (16 close-paren-tok)
        (5)
        (8)
        (21 () 889)
        (22 () 884)
        (16 parse-formal-parameter)
        (24 0)
        884
        (14 2 0 ret)
        (2)
        (15 2 0 ret)
        (26)
        (22 () 885)
        (16 lookahead)
        (24 0)
        885
        (16 comma-tok)
        (5)
        (21 () 887)
        (22 () 886)
        (16 get-token)
        (24 0)
        886
        (26)
        (13 " ")
        (39)
        (26)
        (14 1 0 loop)
        (24 0)
        887
        (13 ())
        (25)
        889
        (13 ())
        (25)
        (name loop)
      )
      (15 0 0 loop)
      (26)
      (14 0 0 loop)
      (25)
      (name ())
    )
    (24 1)
    882
    (24 0)
    881
    (26)
    (14 0 0 ret)
    (25)
    (name ())
  )
  (24 1)
  (name parse-formal-parameters)
)
(17 parse-formal-parameters)
(26)
(23
  (18 0)
  (22 () 891)
  (16 lookahead)
  (24 0)
  891
  (16 semi-colon-tok)
  (5)
  (25)
  (name forward?)
)
(17 forward?)
(26)
(22 () 892)
(16 make-hash)
(24 0)
892
(17 functions)
(26)
(22 () 893)
(16 functions)
(13 __put4chars)
(13 (x))
(16 hash-set!)
(24 3)
893
(22 () 894)
(16 functions)
(13 __write_int_digit)
(13 (x))
(16 hash-set!)
(24 3)
894
(22 () 895)
(16 functions)
(13 __write_integer)
(13 (x))
(16 hash-set!)
(24 3)
895
(22 () 896)
(16 functions)
(13 getchar)
(13 ())
(16 hash-set!)
(24 3)
896
(22 () 897)
(16 functions)
(13 putchar)
(13 (ch))
(16 hash-set!)
(24 3)
897
(22 () 898)
(16 functions)
(13 abs)
(13 (x))
(16 hash-set!)
(24 3)
898
(22 () 899)
(16 functions)
(13 exit)
(13 (n))
(16 hash-set!)
(24 3)
899
(22 () 900)
(16 functions)
(13 dbl_load_reg)
(13 (x y))
(16 hash-set!)
(24 3)
900
(22 () 901)
(16 functions)
(13 dbl_load_reg1)
(13 (x y))
(16 hash-set!)
(24 3)
901
(22 () 902)
(16 functions)
(13 dbl_load_reg2)
(13 (x y))
(16 hash-set!)
(24 3)
902
(22 () 903)
(16 functions)
(13 dbl_get_reg_first)
(13 ())
(16 hash-set!)
(24 3)
903
(22 () 904)
(16 functions)
(13 dbl_get_reg_second)
(13 ())
(16 hash-set!)
(24 3)
904
(22 () 905)
(16 functions)
(13 dbl_etoi)
(13 (x))
(16 hash-set!)
(24 3)
905
(22 () 906)
(16 functions)
(13 dbl_etoi1)
(13 (x))
(16 hash-set!)
(24 3)
906
(22 () 907)
(16 functions)
(13 dbl_itoe)
(13 ())
(16 hash-set!)
(24 3)
907
(22 () 908)
(16 functions)
(13 dbl_add)
(13 ())
(16 hash-set!)
(24 3)
908
(22 () 909)
(16 functions)
(13 dbl_sub)
(13 ())
(16 hash-set!)
(24 3)
909
(22 () 910)
(16 functions)
(13 dbl_mul)
(13 ())
(16 hash-set!)
(24 3)
910
(22 () 911)
(16 functions)
(13 dbl_mul1)
(13 ())
(16 hash-set!)
(24 3)
911
(22 () 912)
(16 functions)
(13 dbl_div)
(13 ())
(16 hash-set!)
(24 3)
912
(22 () 913)
(16 functions)
(13 dbl_neg)
(13 ())
(16 hash-set!)
(24 3)
913
(22 () 914)
(16 functions)
(13 dbl_eq)
(13 ())
(16 hash-set!)
(24 3)
914
(22 () 915)
(16 functions)
(13 dbl_lt)
(13 ())
(16 hash-set!)
(24 3)
915
(22 () 916)
(16 functions)
(13 dbl_le)
(13 ())
(16 hash-set!)
(24 3)
916
(22 () 917)
(16 functions)
(13 dbl_gt)
(13 ())
(16 hash-set!)
(24 3)
917
(22 () 918)
(16 functions)
(13 dbl_ge)
(13 ())
(16 hash-set!)
(24 3)
918
(23
  (18 1)
  (14 0 0 x)
  (4)
  (21 () 919)
  (16 functions)
  (14 0 0 x)
  (16 hash-ref)
  (24 2)
  919
  (13 #f)
  (25)
  (name function?)
)
(17 function?)
(26)
(23
  (18 0)
  (22 () 921)
  (16 get-token)
  (24 0)
  921
  (26)
  (22 () 922)
  (16 get-token)
  (24 0)
  922
  (23
    (18 1)
    (22 () 923)
    (16 open-paren-tok)
    (16 expect)
    (24 1)
    923
    (26)
    (40)
    (26)
    (22 () 924)
    (13 2)
    (16 indent)
    (24 1)
    924
    (26)
    (13 "(")
    (39)
    (26)
    (14 0 0 name)
    (39)
    (26)
    (40)
    (26)
    (22 () 925)
    (13 3)
    (16 indent)
    (24 1)
    925
    (26)
    (13 "(lambda (")
    (39)
    (26)
    (22 () 926)
    (16 functions)
    (14 0 0 name)
    (22 () 927)
    (22 () 928)
    (16 parse-formal-parameters)
    (24 0)
    928
    (16 reverse)
    (24 1)
    927
    (16 hash-set!)
    (24 3)
    926
    (26)
    (22 () 929)
    (16 close-paren-tok)
    (16 expect)
    (24 1)
    929
    (26)
    (13 ")")
    (39)
    (26)
    (40)
    (26)
    (22 () 930)
    (16 forward?)
    (24 0)
    930
    (21 () 934)
    (22 () 931)
    (16 semi-colon-tok)
    (16 expect)
    (24 1)
    931
    (26)
    (13 "__forward))")
    (39)
    (26)
    (40)
    (25)
    934
    (22 () 932)
    (16 begin-tok)
    (16 expect)
    (24 1)
    932
    (26)
    (22 () 933)
    (14 0 0 name)
    (16 parse-block)
    (24 1)
    933
    (26)
    (16 end-tok)
    (16 expect)
    (24 1)
    (name ())
  )
  (24 1)
  (name parse-function)
)
(17 parse-function)
(26)
(23
  (18 0)
  (22 () 936)
  (16 get-token)
  (24 0)
  936
  (26)
  (22 () 937)
  (16 get-token)
  (24 0)
  937
  (23
    (18 1)
    (22 () 938)
    (16 open-paren-tok)
    (16 expect)
    (24 1)
    938
    (26)
    (40)
    (26)
    (22 () 939)
    (13 2)
    (16 indent)
    (24 1)
    939
    (26)
    (13 "(")
    (39)
    (26)
    (14 0 0 name)
    (39)
    (26)
    (40)
    (26)
    (22 () 940)
    (13 3)
    (16 indent)
    (24 1)
    940
    (26)
    (13 "(lambda (")
    (39)
    (26)
    (22 () 941)
    (16 functions)
    (14 0 0 name)
    (22 () 942)
    (22 () 943)
    (16 parse-formal-parameters)
    (24 0)
    943
    (16 reverse)
    (24 1)
    942
    (16 hash-set!)
    (24 3)
    941
    (26)
    (22 () 944)
    (16 close-paren-tok)
    (16 expect)
    (24 1)
    944
    (26)
    (13 ")")
    (39)
    (26)
    (40)
    (26)
    (22 () 945)
    (16 forward?)
    (24 0)
    945
    (21 () 949)
    (22 () 946)
    (16 semi-colon-tok)
    (16 expect)
    (24 1)
    946
    (26)
    (13 "__forward))")
    (39)
    (26)
    (40)
    (25)
    949
    (22 () 947)
    (16 begin-tok)
    (16 expect)
    (24 1)
    947
    (26)
    (22 () 948)
    (14 0 0 name)
    (16 parse-block)
    (24 1)
    948
    (26)
    (16 end-tok)
    (16 expect)
    (24 1)
    (name ())
  )
  (24 1)
  (name parse-procedure)
)
(17 parse-procedure)
(26)
(23
  (18 0)
  (22 () 951)
  (13 ())
  (23
    (18 1)
    (23
      (18 0)
      (22 () 952)
      (22 () 953)
      (16 lookahead-procedure)
      (24 0)
      953
      (23
        (18 1)
        (14 0 0 g:::49)
        (21 () 954)
        (14 0 0 g:::49)
        (25)
        954
        (16 lookahead-function)
        (24 0)
        (name ())
      )
      (24 1)
      952
      (21 () 961)
      (22 () 956)
      (16 lookahead-procedure)
      (24 0)
      956
      (21 () 959)
      (22 () 957)
      (16 parse-procedure)
      (24 0)
      957
      (26)
      (19 () 960)
      959
      (22 () 958)
      (16 parse-function)
      (24 0)
      958
      (26)
      960
      (14 1 0 loop)
      (24 0)
      961
      (13 ())
      (25)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  951
  (24 0)
  (name parse-procedures-and-functions)
)
(17 parse-procedures-and-functions)
(26)
(23
  (18 0)
  (22 () 963)
  (13 2)
  (16 indent)
  (24 1)
  963
  (26)
  (13 "(__put4chars")
  (39)
  (26)
  (40)
  (26)
  (22 () 964)
  (13 3)
  (16 indent)
  (24 1)
  964
  (26)
  (13 "(lambda (x)")
  (39)
  (26)
  (40)
  (26)
  (22 () 965)
  (13 3)
  (16 indent)
  (24 1)
  965
  (26)
  (13 "(putchar (shr x 24))")
  (39)
  (26)
  (40)
  (26)
  (22 () 966)
  (13 3)
  (16 indent)
  (24 1)
  966
  (26)
  (13 "(putchar (bitwise-and (shr x 16) 255))")
  (39)
  (26)
  (40)
  (26)
  (22 () 967)
  (13 3)
  (16 indent)
  (24 1)
  967
  (26)
  (13 "(putchar (bitwise-and (shr x 8) 255))")
  (39)
  (26)
  (40)
  (26)
  (22 () 968)
  (13 3)
  (16 indent)
  (24 1)
  968
  (26)
  (13 "(putchar (bitwise-and x 255))")
  (39)
  (26)
  (40)
  (26)
  (22 () 969)
  (13 3)
  (16 indent)
  (24 1)
  969
  (26)
  (13 "(return-from-procedure)))")
  (39)
  (26)
  (40)
  (25)
  (name include-put4chars)
)
(17 include-put4chars)
(26)
(23
  (18 0)
  (22 () 970)
  (13 2)
  (16 indent)
  (24 1)
  970
  (26)
  (13 "(__write_int_digit")
  (39)
  (26)
  (40)
  (26)
  (22 () 971)
  (13 3)
  (16 indent)
  (24 1)
  971
  (26)
  (13 "(lambda (n)")
  (39)
  (26)
  (40)
  (26)
  (22 () 972)
  (13 3)
  (16 indent)
  (24 1)
  972
  (26)
  (13 "(if (__test (> n 0))")
  (39)
  (26)
  (40)
  (26)
  (22 () 973)
  (13 4)
  (16 indent)
  (24 1)
  973
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 974)
  (13 5)
  (16 indent)
  (24 1)
  974
  (26)
  (13 "(__write_int_digit (quotient n 10))")
  (39)
  (26)
  (40)
  (26)
  (22 () 975)
  (13 5)
  (16 indent)
  (24 1)
  975
  (26)
  (13 "(putchar (+ (remainder n 10) 48))))")
  (39)
  (26)
  (40)
  (26)
  (22 () 976)
  (13 3)
  (16 indent)
  (24 1)
  976
  (26)
  (13 "(return-from-procedure)))")
  (39)
  (26)
  (40)
  (25)
  (name include-write-int-digit)
)
(17 include-write-int-digit)
(26)
(23
  (18 0)
  (22 () 977)
  (13 2)
  (16 indent)
  (24 1)
  977
  (26)
  (13 "(__write_integer")
  (39)
  (26)
  (40)
  (26)
  (22 () 978)
  (13 3)
  (16 indent)
  (24 1)
  978
  (26)
  (13 "(lambda (n)")
  (39)
  (26)
  (40)
  (26)
  (22 () 979)
  (13 3)
  (16 indent)
  (24 1)
  979
  (26)
  (13 "(if (__test (= n 0))")
  (39)
  (26)
  (40)
  (26)
  (22 () 980)
  (13 4)
  (16 indent)
  (24 1)
  980
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 981)
  (13 5)
  (16 indent)
  (24 1)
  981
  (26)
  (13 "(putchar 48)")
  (39)
  (26)
  (40)
  (26)
  (22 () 982)
  (13 5)
  (16 indent)
  (24 1)
  982
  (26)
  (13 "(return-from-procedure)))")
  (39)
  (26)
  (40)
  (26)
  (22 () 983)
  (13 3)
  (16 indent)
  (24 1)
  983
  (26)
  (13 "(if (__test (< n 0))")
  (39)
  (26)
  (40)
  (26)
  (22 () 984)
  (13 4)
  (16 indent)
  (24 1)
  984
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 985)
  (13 5)
  (16 indent)
  (24 1)
  985
  (26)
  (13 "(putchar 45)")
  (39)
  (26)
  (40)
  (26)
  (22 () 986)
  (13 5)
  (16 indent)
  (24 1)
  986
  (26)
  (13 "(if (__test (&& (= (bitwise-and n 65535) 0) (= (shr n 16) (- 32768))))")
  (39)
  (26)
  (40)
  (26)
  (22 () 987)
  (13 6)
  (16 indent)
  (24 1)
  987
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 988)
  (13 7)
  (16 indent)
  (24 1)
  988
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 989)
  (13 7)
  (16 indent)
  (24 1)
  989
  (26)
  (13 "(__put4chars 842085431)")
  (39)
  (26)
  (40)
  (26)
  (22 () 990)
  (13 7)
  (16 indent)
  (24 1)
  990
  (26)
  (13 "(__put4chars 876098358)")
  (39)
  (26)
  (40)
  (26)
  (22 () 991)
  (13 7)
  (16 indent)
  (24 1)
  991
  (26)
  (13 "(putchar 52)")
  (39)
  (26)
  (40)
  (26)
  (22 () 992)
  (13 7)
  (16 indent)
  (24 1)
  992
  (26)
  (13 "(putchar 56))")
  (39)
  (26)
  (40)
  (26)
  (22 () 993)
  (13 7)
  (16 indent)
  (24 1)
  993
  (26)
  (13 "(return-from-procedure)))")
  (39)
  (26)
  (40)
  (26)
  (22 () 994)
  (13 5)
  (16 indent)
  (24 1)
  994
  (26)
  (13 "(__write_int_digit (- n)))")
  (39)
  (26)
  (40)
  (26)
  (22 () 995)
  (13 4)
  (16 indent)
  (24 1)
  995
  (26)
  (13 "(__write_int_digit n))")
  (39)
  (26)
  (40)
  (26)
  (22 () 996)
  (13 3)
  (16 indent)
  (24 1)
  996
  (26)
  (13 "(return-from-procedure)))")
  (39)
  (26)
  (40)
  (25)
  (name include-write-integer)
)
(17 include-write-integer)
(26)
(23
  (18 0)
  (22 () 997)
  (16 initialize-lex)
  (24 0)
  997
  (26)
  (22 () 998)
  (16 parse-includes-and-defines)
  (24 0)
  998
  (26)
  (22 () 999)
  (16 lookahead-var)
  (24 0)
  999
  (21 () 1001)
  (22 () 1000)
  (13 #t)
  (16 parse-variable-definitions)
  (24 1)
  1000
  (26)
  (19 () 1002)
  1001
  1002
  (22 () 1003)
  (13 1)
  (16 indent)
  (24 1)
  1003
  (26)
  (13 "(letrec (")
  (39)
  (26)
  (40)
  (26)
  (22 () 1004)
  (16 include-put4chars)
  (24 0)
  1004
  (26)
  (22 () 1005)
  (16 include-write-int-digit)
  (24 0)
  1005
  (26)
  (22 () 1006)
  (16 include-write-integer)
  (24 0)
  1006
  (26)
  (22 () 1007)
  (22 () 1008)
  (16 lookahead-procedure)
  (24 0)
  1008
  (23
    (18 1)
    (14 0 0 g:::50)
    (21 () 1009)
    (14 0 0 g:::50)
    (25)
    1009
    (16 lookahead-function)
    (24 0)
    (name ())
  )
  (24 1)
  1007
  (21 () 1012)
  (22 () 1011)
  (16 parse-procedures-and-functions)
  (24 0)
  1011
  (26)
  (19 () 1013)
  1012
  1013
  (22 () 1014)
  (16 get-token)
  (24 0)
  1014
  (7)
  (8)
  (21 () 1016)
  (22 () 1015)
  (13 rest_of_program_ignored)
  (13 ())
  (16 log-error)
  (24 2)
  1015
  (26)
  (19 () 1017)
  1016
  1017
  (13 ")")
  (39)
  (26)
  (40)
  (26)
  (13 "    (main)")
  (39)
  (26)
  (22 () 1018)
  (16 global-variables)
  (13 0)
  (16 empty-hash-table?)
  (24 2)
  1018
  (21 () 1019)
  (13 ")")
  (39)
  (26)
  (19 () 1020)
  1019
  (13 "))")
  (39)
  (26)
  1020
  (40)
  (25)
  (name parse-program)
)
(17 parse-program)
(26)
(22 () 1021)
(16 parse-program)
(24 0)
1021
(80)
)
