(
(23
  (18 1)
  (13 ())
  (23
    (18 1)
    (23
      (18 2)
      (14 0 0 x)
      (7)
      (21 () 990)
      (14 0 1 y)
      (25)
      990
      (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 () 993)
      (14 0 1 list2)
      (25)
      993
      (14 0 0 list1)
      (0)
      (22 () 992)
      (14 0 0 list1)
      (1)
      (14 0 1 list2)
      (14 1 0 append-two)
      (24 2)
      992
      (2)
      (25)
      (name append-two)
    )
    (15 0 0 append-two)
    (26)
    (23
      (18 1)
      (22 () 995)
      (14 0 0 l)
      (7)
      (23
        (18 1)
        (14 0 0 g:::50)
        (21 () 996)
        (14 0 0 g:::50)
        (25)
        996
        (14 1 0 l)
        (81)
        (25)
        (name ())
      )
      (24 1)
      995
      (8)
      (25)
      (name improper-list?)
    )
    (15 0 1 improper-list?)
    (26)
    (23
      (18 3)
      (14 0 2 seq)
      (7)
      (21 () 1008)
      (14 0 1 init)
      (25)
      1008
      (14 0 2 seq)
      (0)
      (7)
      (21 () 1006)
      (14 0 2 seq)
      (11)
      (25)
      1006
      (14 0 2 seq)
      (1)
      (7)
      (21 () 1004)
      (14 0 2 seq)
      (0)
      (14 0 2 seq)
      (1)
      (14 1 0 append-two)
      (24 2)
      1004
      (14 0 2 seq)
      (1)
      (81)
      (21 () 1002)
      (22 () 998)
      (14 0 2 seq)
      (11)
      (1)
      (14 1 1 improper-list?)
      (24 1)
      998
      (21 () 1000)
      (14 0 2 seq)
      (0)
      (14 0 2 seq)
      (11)
      (14 1 0 append-two)
      (24 2)
      1000
      (14 0 2 seq)
      (0)
      (22 () 999)
      (14 0 0 f)
      (14 0 1 init)
      (14 0 2 seq)
      (1)
      (14 1 2 fold-right-append)
      (24 3)
      999
      (14 0 0 f)
      (24 2)
      1002
      (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 () 1012)
    (13 ())
    (25)
    1012
    (14 1 0 lsts)
    (1)
    (7)
    (21 () 1010)
    (14 1 0 lsts)
    (0)
    (25)
    1010
    (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 () 1014)
      (13 ())
      (23
        (18 1)
        (23
          (18 1)
          (14 0 0 i)
          (14 3 0 size)
          (47)
          (21 () 1015)
          (13 ())
          (25)
          1015
          (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)
      1014
      (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 () 1017)
      (14 0 0 str)
      (25)
      1017
      (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 () 1019)
  (13 ())
  (23
    (18 1)
    (23
      (18 2)
      (14 0 0 n)
      (13 -1)
      (47)
      (21 () 1020)
      (14 0 1 l)
      (25)
      1020
      (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)
  1019
  (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 () 64)
      (13 ())
      (25)
      64
      (14 2 1 ch)
      (13 #\\)
      (61)
      (21 () 62)
      (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)
      62
      (14 2 1 ch)
      (13 #\")
      (61)
      (21 () 60)
      (14 1 7 read-c-ch)
      (24 0)
      60
      (22 () 59)
      (14 1 12 add-ch-to-token)
      (24 0)
      59
      (26)
      (14 1 14 build-string-token)
      (24 0)
      (name build-string-token)
    )
    (15 0 14 build-string-token)
    (26)
    (23
      (18 1)
      (22 () 66)
      (14 0 0 ch)
      (13 #\a)
      (16 char>=?)
      (24 2)
      66
      (21 () 68)
      (22 () 67)
      (14 0 0 ch)
      (13 #\f)
      (16 char<=?)
      (24 2)
      67
      (19 () 69)
      68
      (13 #f)
      69
      (21 () 76)
      (13 10)
      (14 0 0 ch)
      (78)
      (13 #\a)
      (78)
      (43)
      (42)
      (25)
      76
      (22 () 70)
      (14 0 0 ch)
      (13 #\A)
      (16 char>=?)
      (24 2)
      70
      (21 () 72)
      (22 () 71)
      (14 0 0 ch)
      (13 #\F)
      (16 char<=?)
      (24 2)
      71
      (19 () 73)
      72
      (13 #f)
      73
      (21 () 74)
      (13 10)
      (14 0 0 ch)
      (78)
      (13 #\A)
      (78)
      (43)
      (42)
      (25)
      74
      (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 () 80)
      (13 0)
      (25)
      80
      (14 0 0 l)
      (0)
      (23
        (18 1)
        (22 () 78)
        (14 0 0 dig)
        (14 2 15 hex-dig->value)
        (24 1)
        78
        (14 1 1 pow)
        (44)
        (22 () 79)
        (14 1 0 l)
        (1)
        (14 1 1 pow)
        (13 16)
        (44)
        (14 2 17 hex->dec)
        (24 2)
        79
        (42)
        (25)
        (name ())
      )
      (24 1)
      (name hex->dec)
    )
    (15 0 17 hex->dec)
    (26)
    (23
      (18 1)
      (22 () 82)
      (14 0 0 token)
      (13 7)
      (27)
      (14 1 15 hex-dig->value)
      (24 1)
      82
      (13 8)
      (52)
      (25)
      (name hex-negative?)
    )
    (15 0 18 hex-negative?)
    (26)
    (23
      (18 1)
      (14 0 0 token)
      (7)
      (21 () 86)
      (13 ())
      (25)
      86
      (14 0 0 token)
      (0)
      (23
        (18 1)
        (22 () 83)
        (13 15)
        (22 () 84)
        (14 0 0 hex-dig)
        (14 2 15 hex-dig->value)
        (24 1)
        84
        (43)
        (14 2 16 value->hex-dig)
        (24 1)
        83
        (22 () 85)
        (14 1 0 token)
        (1)
        (14 2 19 hex-compliment)
        (24 1)
        85
        (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 () 90)
      (22 () 88)
      (22 () 89)
      (14 1 2 token)
      (16 reverse)
      (24 1)
      89
      (14 1 2 token)
      (31)
      (13 8)
      (43)
      (60)
      (16 reverse)
      (24 1)
      88
      (15 1 2 token)
      (26)
      (19 () 91)
      90
      91
      (13 #f)
      (23
        (18 1)
        (14 2 2 token)
        (31)
        (13 8)
        (47)
        (21 () 96)
        (22 () 92)
        (14 2 2 token)
        (14 2 18 hex-negative?)
        (24 1)
        92
        (21 () 94)
        (13 #t)
        (15 0 0 negative)
        (26)
        (22 () 93)
        (14 2 2 token)
        (14 2 19 hex-compliment)
        (24 1)
        93
        (15 2 2 token)
        (26)
        (19 () 95)
        94
        95
        (19 () 97)
        96
        97
        (22 () 98)
        (14 2 2 token)
        (13 1)
        (14 2 17 hex->dec)
        (24 2)
        98
        (15 2 2 token)
        (26)
        (14 0 0 negative)
        (21 () 99)
        (13 0)
        (14 2 2 token)
        (13 1)
        (42)
        (43)
        (15 2 2 token)
        (25)
        99
        (13 ())
        (25)
        (name ())
      )
      (24 1)
      (name do-hex)
    )
    (15 0 20 do-hex)
    (26)
    (23
      (18 0)
      (22 () 101)
      (14 2 1 ch)
      (14 1 5 char-hex?)
      (24 1)
      101
      (21 () 103)
      (22 () 102)
      (14 1 12 add-ch-to-token)
      (24 0)
      102
      (26)
      (14 1 21 build-hex-number-token)
      (24 0)
      103
      (13 ())
      (25)
      (name build-hex-number-token)
    )
    (15 0 21 build-hex-number-token)
    (26)
    (23
      (18 0)
      (14 2 1 ch)
      (62)
      (21 () 106)
      (22 () 105)
      (14 1 12 add-ch-to-token)
      (24 0)
      105
      (26)
      (14 1 22 build-decimal-number-token)
      (24 0)
      106
      (13 ())
      (25)
      (name build-decimal-number-token)
    )
    (15 0 22 build-decimal-number-token)
    (26)
    (23
      (18 0)
      (22 () 108)
      (14 1 3 lookahead-c-ch)
      (24 0)
      108
      (13 #\x)
      (61)
      (21 () 115)
      (22 () 109)
      (14 1 7 read-c-ch)
      (24 0)
      109
      (26)
      (22 () 110)
      (14 1 7 read-c-ch)
      (24 0)
      110
      (26)
      (22 () 111)
      (14 1 21 build-hex-number-token)
      (24 0)
      111
      (26)
      (14 1 20 do-hex)
      (24 0)
      115
      (22 () 112)
      (14 1 22 build-decimal-number-token)
      (24 0)
      112
      (26)
      (22 () 113)
      (22 () 114)
      (14 1 2 token)
      (16 reverse)
      (24 1)
      114
      (16 list->string)
      (24 1)
      113
      (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 () 117)
        (14 2 12 add-ch-to-token)
        (24 0)
        117
        (26)
        (14 0 0 old-ch)
        (14 3 1 ch)
        (13 ())
        (2)
        (2)
        (14 2 1 two-character-separators)
        (29)
        (21 () 118)
        (14 2 12 add-ch-to-token)
        (24 0)
        118
        (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 () 120)
      (14 1 8 skip-blanks)
      (24 0)
      120
      (26)
      (14 2 1 ch)
      (13 #\/)
      (61)
      (21 () 122)
      (22 () 121)
      (14 1 3 lookahead-c-ch)
      (24 0)
      121
      (13 #\/)
      (61)
      (19 () 123)
      122
      (13 #f)
      123
      (21 () 125)
      (22 () 124)
      (14 1 11 skip-comments)
      (24 0)
      124
      (26)
      (19 () 126)
      125
      126
      (14 2 1 ch)
      (16 eof-char)
      (61)
      (21 () 165)
      (13 ())
      (15 1 2 token)
      (26)
      (19 () 166)
      165
      (22 () 127)
      (14 1 24 separator?)
      (24 0)
      127
      (21 () 163)
      (22 () 128)
      (14 1 25 build-separator-token)
      (24 0)
      128
      (26)
      (22 () 129)
      (22 () 130)
      (14 1 2 token)
      (16 reverse)
      (24 1)
      130
      (16 list->string)
      (24 1)
      129
      (69)
      (15 1 2 token)
      (26)
      (19 () 164)
      163
      (14 2 1 ch)
      (62)
      (21 () 161)
      (22 () 131)
      (14 1 23 build-number-token)
      (24 0)
      131
      (26)
      (19 () 162)
      161
      (22 () 132)
      (14 2 1 ch)
      (63)
      (23
        (18 1)
        (14 0 0 g:::4)
        (21 () 133)
        (14 0 0 g:::4)
        (25)
        133
        (14 3 1 ch)
        (13 #\_)
        (61)
        (25)
        (name ())
      )
      (24 1)
      132
      (21 () 159)
      (22 () 135)
      (14 1 12 add-ch-to-token)
      (24 0)
      135
      (26)
      (22 () 136)
      (14 1 13 build-symbol-token)
      (24 0)
      136
      (26)
      (22 () 137)
      (22 () 138)
      (14 1 2 token)
      (16 reverse)
      (24 1)
      138
      (16 list->string)
      (24 1)
      137
      (69)
      (15 1 2 token)
      (26)
      (19 () 160)
      159
      (14 2 1 ch)
      (13 #\")
      (61)
      (21 () 157)
      (22 () 139)
      (14 1 7 read-c-ch)
      (24 0)
      139
      (26)
      (22 () 140)
      (14 1 14 build-string-token)
      (24 0)
      140
      (26)
      (22 () 141)
      (22 () 142)
      (14 1 2 token)
      (16 reverse)
      (24 1)
      142
      (16 list->string)
      (24 1)
      141
      (15 1 2 token)
      (26)
      (19 () 158)
      157
      (14 2 1 ch)
      (13 #\')
      (61)
      (21 () 155)
      (22 () 143)
      (14 1 7 read-c-ch)
      (24 0)
      143
      (26)
      (14 2 1 ch)
      (13 #\\)
      (61)
      (21 () 147)
      (22 () 144)
      (14 1 7 read-c-ch)
      (24 0)
      144
      (26)
      (14 2 1 ch)
      (13 #\n)
      (61)
      (21 () 145)
      (13 10)
      (79)
      (15 2 1 ch)
      (26)
      (19 () 146)
      145
      146
      (19 () 148)
      147
      148
      (14 2 1 ch)
      (78)
      (15 1 2 token)
      (26)
      (22 () 149)
      (14 1 7 read-c-ch)
      (24 0)
      149
      (26)
      (22 () 150)
      (14 1 7 read-c-ch)
      (24 0)
      150
      (26)
      (19 () 156)
      155
      (22 () 151)
      (13 "bad character")
      (14 2 1 ch)
      (14 1 6 c-error)
      (24 2)
      151
      (26)
      (22 () 152)
      (14 1 12 add-ch-to-token)
      (24 0)
      152
      (26)
      (22 () 153)
      (22 () 154)
      (14 1 2 token)
      (16 reverse)
      (24 1)
      154
      (16 list->string)
      (24 1)
      153
      (69)
      (15 1 2 token)
      (26)
      156
      158
      160
      162
      164
      166
      (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 () 167)
  (16 get-c-token)
  (24 0)
  167
  (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 () 168)
  (16 get-token)
  (24 0)
  168
  (26)
  (22 () 169)
  (16 get-token)
  (24 0)
  169
  (26)
  (16 get-token)
  (24 0)
  (name initialize-lex)
)
(17 initialize-lex)
(26)
(23
  (18 0)
  (22 () 170)
  (16 lookahead)
  (24 0)
  170
  (16 integer-tok)
  (5)
  (21 () 175)
  (22 () 171)
  (16 triple-lookahead)
  (24 0)
  171
  (16 semi-colon-tok)
  (5)
  (23
    (18 1)
    (14 0 0 g:::5)
    (21 () 173)
    (14 0 0 g:::5)
    (25)
    173
    (22 () 172)
    (16 triple-lookahead)
    (24 0)
    172
    (16 open-bracket-tok)
    (5)
    (25)
    (name ())
  )
  (24 1)
  175
  (13 #f)
  (25)
  (name lookahead-var)
)
(17 lookahead-var)
(26)
(23
  (18 0)
  (22 () 177)
  (16 lookahead)
  (24 0)
  177
  (16 void-tok)
  (5)
  (21 () 179)
  (22 () 178)
  (16 triple-lookahead)
  (24 0)
  178
  (16 open-paren-tok)
  (5)
  (25)
  179
  (13 #f)
  (25)
  (name lookahead-procedure)
)
(17 lookahead-procedure)
(26)
(23
  (18 0)
  (22 () 181)
  (16 lookahead)
  (24 0)
  181
  (16 integer-tok)
  (5)
  (21 () 183)
  (22 () 182)
  (16 triple-lookahead)
  (24 0)
  182
  (16 open-paren-tok)
  (5)
  (25)
  183
  (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 () 187)
    (14 0 0 g:::6)
    (25)
    187
    (14 1 0 token)
    (16 or-tok)
    (5)
    (23
      (18 1)
      (14 0 0 g:::7)
      (21 () 185)
      (14 0 0 g:::7)
      (25)
      185
      (14 2 0 token)
      (13 (= + - * / % && << >> & ^ == != < <= >= >))
      (28)
      (25)
      (name ())
    )
    (24 1)
    (name ())
  )
  (24 1)
  (name binary-operator?)
)
(17 binary-operator?)
(26)
(23
  (18 1)
  (22 () 189)
  (14 0 0 token)
  (16 binary-operator?)
  (24 1)
  189
  (23
    (18 1)
    (14 0 0 g:::8)
    (21 () 194)
    (14 0 0 g:::8)
    (25)
    194
    (14 1 0 token)
    (16 unary-minus-tok)
    (5)
    (23
      (18 1)
      (14 0 0 g:::9)
      (21 () 192)
      (14 0 0 g:::9)
      (25)
      192
      (14 2 0 token)
      (16 bit-not-tok)
      (5)
      (23
        (18 1)
        (14 0 0 g:::10)
        (21 () 190)
        (14 0 0 g:::10)
        (25)
        190
        (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 () 196)
  (22 () 197)
  (14 0 0 token)
  (16 operator?)
  (24 1)
  197
  (23
    (18 1)
    (14 0 0 g:::11)
    (21 () 212)
    (14 0 0 g:::11)
    (25)
    212
    (14 1 0 token)
    (16 semi-colon-tok)
    (5)
    (23
      (18 1)
      (14 0 0 g:::12)
      (21 () 210)
      (14 0 0 g:::12)
      (25)
      210
      (14 2 0 token)
      (16 colon-tok)
      (5)
      (23
        (18 1)
        (14 0 0 g:::13)
        (21 () 208)
        (14 0 0 g:::13)
        (25)
        208
        (14 3 0 token)
        (16 open-paren-tok)
        (5)
        (23
          (18 1)
          (14 0 0 g:::14)
          (21 () 206)
          (14 0 0 g:::14)
          (25)
          206
          (14 4 0 token)
          (16 close-paren-tok)
          (5)
          (23
            (18 1)
            (14 0 0 g:::15)
            (21 () 204)
            (14 0 0 g:::15)
            (25)
            204
            (14 5 0 token)
            (16 open-bracket-tok)
            (5)
            (23
              (18 1)
              (14 0 0 g:::16)
              (21 () 202)
              (14 0 0 g:::16)
              (25)
              202
              (14 6 0 token)
              (16 close-bracket-tok)
              (5)
              (23
                (18 1)
                (14 0 0 g:::17)
                (21 () 200)
                (14 0 0 g:::17)
                (25)
                200
                (14 7 0 token)
                (16 period-tok)
                (5)
                (23
                  (18 1)
                  (14 0 0 g:::18)
                  (21 () 198)
                  (14 0 0 g:::18)
                  (25)
                  198
                  (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)
  196
  (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 () 216)
  (13 #t)
  (25)
  216
  (14 0 0 vec)
  (14 0 1 n)
  (36)
  (23
    (18 1)
    (14 0 0 element)
    (7)
    (21 () 214)
    (14 1 0 vec)
    (14 1 1 n)
    (13 1)
    (42)
    (16 empty-hash-table?)
    (24 2)
    214
    (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 () 218)
              (13 ())
              (23
                (18 1)
                (23
                  (18 1)
                  (22 () 219)
                  (14 2 1 processing)
                  (8)
                  (23
                    (18 1)
                    (14 0 0 g:::19)
                    (21 () 220)
                    (14 0 0 g:::19)
                    (25)
                    220
                    (14 1 0 i)
                    (14 9 0 tokens)
                    (35)
                    (47)
                    (25)
                    (name ())
                  )
                  (24 1)
                  219
                  (21 () 247)
                  (13 ())
                  (25)
                  247
                  (22 () 222)
                  (14 8 0 tokens)
                  (14 0 0 i)
                  (36)
                  (23
                    (18 1)
                    (22 () 223)
                    (14 0 0 token)
                    (16 open-paren-tok)
                    (5)
                    (23
                      (18 1)
                      (14 0 0 g:::20)
                      (21 () 224)
                      (14 0 0 g:::20)
                      (25)
                      224
                      (14 1 0 token)
                      (16 open-bracket-tok)
                      (5)
                      (25)
                      (name ())
                    )
                    (24 1)
                    223
                    (21 () 245)
                    (14 0 0 token)
                    (14 7 0 push)
                    (24 1)
                    245
                    (22 () 226)
                    (14 0 0 token)
                    (16 close-paren-tok)
                    (5)
                    (23
                      (18 1)
                      (14 0 0 g:::21)
                      (21 () 227)
                      (14 0 0 g:::21)
                      (25)
                      227
                      (14 1 0 token)
                      (16 close-bracket-tok)
                      (5)
                      (25)
                      (name ())
                    )
                    (24 1)
                    226
                    (21 () 243)
                    (22 () 229)
                    (14 5 0 empty?)
                    (24 0)
                    229
                    (21 () 241)
                    (13 #f)
                    (15 3 0 ret)
                    (26)
                    (13 #f)
                    (15 3 1 processing)
                    (25)
                    241
                    (22 () 230)
                    (14 4 0 tos)
                    (24 0)
                    230
                    (23
                      (18 1)
                      (22 () 231)
                      (14 7 0 pop)
                      (24 0)
                      231
                      (26)
                      (22 () 232)
                      (14 1 0 token)
                      (16 close-paren-tok)
                      (5)
                      (21 () 233)
                      (14 0 0 top)
                      (16 open-paren-tok)
                      (5)
                      (8)
                      (19 () 234)
                      233
                      (13 #f)
                      234
                      (23
                        (18 1)
                        (14 0 0 g:::22)
                        (21 () 237)
                        (14 0 0 g:::22)
                        (25)
                        237
                        (14 2 0 token)
                        (16 close-bracket-tok)
                        (5)
                        (21 () 235)
                        (14 1 0 top)
                        (16 open-bracket-tok)
                        (5)
                        (8)
                        (25)
                        235
                        (13 #f)
                        (25)
                        (name ())
                      )
                      (24 1)
                      232
                      (21 () 239)
                      (13 #f)
                      (15 4 0 ret)
                      (26)
                      (13 #f)
                      (15 4 1 processing)
                      (25)
                      239
                      (13 ())
                      (25)
                      (name ())
                    )
                    (24 1)
                    243
                    (13 ())
                    (25)
                    (name ())
                  )
                  (24 1)
                  222
                  (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)
              218
              (26)
              (14 0 0 ret)
              (21 () 249)
              (14 2 0 empty?)
              (24 0)
              249
              (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 () 251)
(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 () 252)
      (14 0 0 g:::23)
      (25)
      252
      (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 () 254)
      (14 0 0 g:::24)
      (25)
      254
      (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 () 256)
    (14 0 0 x)
    (14 1 0 open-paren?)
    (24 1)
    256
    (23
      (18 1)
      (14 0 0 g:::25)
      (21 () 257)
      (14 0 0 g:::25)
      (25)
      257
      (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 () 259)
    (14 0 1 y)
    (16 open-paren-tok)
    (5)
    (19 () 260)
    259
    (13 #f)
    260
    (23
      (18 1)
      (14 0 0 g:::26)
      (21 () 263)
      (14 0 0 g:::26)
      (25)
      263
      (14 1 0 x)
      (16 close-bracket-tok)
      (5)
      (21 () 261)
      (14 1 1 y)
      (16 open-bracket-tok)
      (5)
      (25)
      261
      (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 () 265)
    (13 stack_underflow)
    (13 ())
    (16 log-error)
    (24 2)
    265
    (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 () 267)
    (13 stack_underflow)
    (13 ())
    (16 log-error)
    (24 2)
    267
    (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 () 269)
    (14 1 8 empty-stack?)
    (24 0)
    269
    (8)
    (21 () 271)
    (22 () 270)
    (14 1 5 pop)
    (24 0)
    270
    (39)
    (26)
    (40)
    (26)
    (14 1 9 display-stack)
    (24 0)
    271
    (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 () 273)
    (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)
    273
    (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 () 277)
      (14 0 0 g:::27)
      (25)
      277
      (14 1 0 x)
      (16 or-tok)
      (5)
      (23
        (18 1)
        (14 0 0 g:::28)
        (21 () 275)
        (14 0 0 g:::28)
        (25)
        275
        (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 () 281)
      (14 0 0 g:::29)
      (25)
      281
      (14 1 0 x)
      (16 or-tok)
      (5)
      (23
        (18 1)
        (14 0 0 g:::30)
        (21 () 279)
        (14 0 0 g:::30)
        (25)
        279
        (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 () 283)
    (14 0 0 x)
    (16 function?)
    (24 1)
    283
    (23
      (18 1)
      (14 0 0 n)
      (21 () 284)
      (14 0 0 n)
      (11)
      (31)
      (25)
      284
      (13 1)
      (25)
      (name ())
    )
    (24 1)
    (name get-n-args)
  )
  (15 0 15 get-n-args)
  (26)
  (23
    (18 1)
    (22 () 286)
    (14 0 0 x)
    (16 function?)
    (24 1)
    286
    (23
      (18 1)
      (14 0 0 g:::31)
      (21 () 287)
      (14 0 0 g:::31)
      (25)
      287
      (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 () 291)
    (13 5)
    (25)
    291
    (14 0 0 op)
    (16 or-tok)
    (5)
    (21 () 289)
    (13 1)
    (25)
    289
    (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 () 293)
    (14 0 0 op)
    (14 1 19 right-associative?)
    (24 1)
    293
    (8)
    (25)
    (name left-associative?)
  )
  (15 0 20 left-associative?)
  (26)
  (23
    (18 1)
    (14 0 0 x)
    (4)
    (21 () 300)
    (22 () 294)
    (14 0 0 x)
    (16 array-var?)
    (24 1)
    294
    (21 () 298)
    (13 #f)
    (25)
    298
    (22 () 295)
    (14 0 0 x)
    (16 local-var?)
    (24 1)
    295
    (23
      (18 1)
      (14 0 0 g:::32)
      (21 () 296)
      (14 0 0 g:::32)
      (25)
      296
      (14 1 0 x)
      (16 global-var?)
      (24 1)
      (name ())
    )
    (24 1)
    300
    (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 () 305)
      (14 0 0 g:::33)
      (25)
      305
      (22 () 302)
      (14 1 0 x)
      (14 2 21 var?)
      (24 1)
      302
      (23
        (18 1)
        (14 0 0 g:::34)
        (21 () 303)
        (14 0 0 g:::34)
        (25)
        303
        (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 () 329)
    (22 () 307)
    (22 () 308)
    (14 1 7 tos)
    (24 0)
    308
    (14 1 13 operator?)
    (24 1)
    307
    (21 () 327)
    (22 () 309)
    (14 1 7 tos)
    (24 0)
    309
    (23
      (18 1)
      (22 () 310)
      (22 () 311)
      (14 1 0 op)
      (14 2 20 left-associative?)
      (24 1)
      311
      (21 () 314)
      (22 () 312)
      (14 1 0 op)
      (14 2 18 precedence)
      (24 1)
      312
      (22 () 313)
      (14 0 0 op2)
      (14 2 18 precedence)
      (24 1)
      313
      (50)
      (19 () 315)
      314
      (13 #f)
      315
      (23
        (18 1)
        (14 0 0 g:::35)
        (21 () 321)
        (14 0 0 g:::35)
        (25)
        321
        (22 () 316)
        (14 2 0 op)
        (14 3 19 right-associative?)
        (24 1)
        316
        (21 () 319)
        (22 () 317)
        (14 2 0 op)
        (14 3 18 precedence)
        (24 1)
        317
        (22 () 318)
        (14 1 0 op2)
        (14 3 18 precedence)
        (24 1)
        318
        (49)
        (25)
        319
        (13 #f)
        (25)
        (name ())
      )
      (24 1)
      310
      (21 () 325)
      (22 () 323)
      (22 () 324)
      (14 2 5 pop)
      (24 0)
      324
      (14 2 11 insert-to-output-queue)
      (24 1)
      323
      (26)
      (14 1 0 op)
      (14 2 23 pop-ops-with-less-than-or-equal-precedence)
      (24 1)
      325
      (13 ())
      (25)
      (name ())
    )
    (24 1)
    327
    (13 ())
    (25)
    329
    (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 () 336)
    (13 mismatched_parens)
    (13 ())
    (16 log-error)
    (24 2)
    336
    (22 () 331)
    (14 1 5 pop)
    (24 0)
    331
    (23
      (18 1)
      (22 () 332)
      (14 0 0 op)
      (14 2 0 open-paren?)
      (24 1)
      332
      (8)
      (21 () 334)
      (22 () 333)
      (14 0 0 op)
      (14 2 11 insert-to-output-queue)
      (24 1)
      333
      (26)
      (14 2 24 pop-ops-until-left-paren)
      (24 0)
      334
      (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 () 344)
    (13 mismatched_parens_or_missing_comma)
    (13 ())
    (16 log-error)
    (24 2)
    344
    (22 () 338)
    (14 1 7 tos)
    (24 0)
    338
    (23
      (18 1)
      (22 () 339)
      (14 0 0 op)
      (14 2 0 open-paren?)
      (24 1)
      339
      (8)
      (21 () 342)
      (22 () 340)
      (22 () 341)
      (14 2 5 pop)
      (24 0)
      341
      (14 2 11 insert-to-output-queue)
      (24 1)
      340
      (26)
      (14 2 25 process-function-arg)
      (24 0)
      342
      (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 () 351)
    (22 () 346)
    (14 1 5 pop)
    (24 0)
    346
    (23
      (18 1)
      (22 () 347)
      (14 0 0 element)
      (14 2 2 parenthesis?)
      (24 1)
      347
      (21 () 349)
      (13 mismatched_parens)
      (13 ())
      (16 log-error)
      (24 2)
      349
      (22 () 348)
      (14 0 0 element)
      (14 2 11 insert-to-output-queue)
      (24 1)
      348
      (26)
      (14 2 26 clear-operators-from-stack)
      (24 0)
      (name ())
    )
    (24 1)
    351
    (13 ())
    (25)
    (name clear-operators-from-stack)
  )
  (15 0 26 clear-operators-from-stack)
  (26)
  (23
    (18 3)
    (14 0 1 expression)
    (7)
    (21 () 373)
    (13 ())
    (25)
    373
    (14 0 0 previous)
    (0)
    (14 0 1 expression)
    (0)
    (14 0 2 next)
    (0)
    (23
      (18 3)
      (22 () 353)
      (14 0 0 prev)
      (7)
      (21 () 354)
      (14 0 1 expr)
      (13 -)
      (5)
      (19 () 355)
      354
      (13 #f)
      355
      (23
        (18 1)
        (14 0 0 g:::36)
        (21 () 367)
        (14 0 0 g:::36)
        (25)
        367
        (22 () 356)
        (14 1 0 prev)
        (14 3 13 operator?)
        (24 1)
        356
        (21 () 357)
        (14 1 1 expr)
        (13 -)
        (5)
        (19 () 358)
        357
        (13 #f)
        358
        (23
          (18 1)
          (14 0 0 g:::37)
          (21 () 365)
          (14 0 0 g:::37)
          (25)
          365
          (14 2 0 prev)
          (16 open-paren-tok)
          (5)
          (21 () 359)
          (14 2 1 expr)
          (13 -)
          (5)
          (19 () 360)
          359
          (13 #f)
          360
          (23
            (18 1)
            (14 0 0 g:::38)
            (21 () 363)
            (14 0 0 g:::38)
            (25)
            363
            (14 3 0 prev)
            (16 comma-tok)
            (5)
            (21 () 361)
            (14 3 1 expr)
            (13 -)
            (5)
            (25)
            361
            (13 #f)
            (25)
            (name ())
          )
          (24 1)
          (name ())
        )
        (24 1)
        (name ())
      )
      (24 1)
      353
      (21 () 371)
      (13 $neg)
      (22 () 369)
      (14 1 0 previous)
      (1)
      (14 1 1 expression)
      (1)
      (14 1 2 next)
      (14 2 27 filter-unary-minus)
      (24 3)
      369
      (2)
      (25)
      371
      (14 0 1 expr)
      (22 () 370)
      (14 1 0 previous)
      (1)
      (14 1 1 expression)
      (1)
      (14 1 2 next)
      (14 2 27 filter-unary-minus)
      (24 3)
      370
      (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 () 377)
    (13 ())
    (25)
    377
    (22 () 375)
    (14 1 5 pop)
    (24 0)
    375
    (22 () 376)
    (14 0 0 n)
    (13 1)
    (43)
    (14 1 28 pop-n-args)
    (24 1)
    376
    (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 () 379)
    (13 (bitwise-or bitwise-or))
    (19 () 380)
    379
    (14 0 0 token)
    (13 ((= set!) (/ quotient) (% remainder) (& bitwise-and) (^ bitwise-xor) (~ bitwise-not) (>> shr) (<< shl) ($neg -) (== =)))
    (30)
    380
    (23
      (18 1)
      (14 0 0 scheme-token)
      (21 () 381)
      (14 0 0 scheme-token)
      (11)
      (25)
      381
      (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 () 412)
    (14 1 5 pop)
    (24 0)
    412
    (14 0 0 output-queue)
    (0)
    (23
      (18 1)
      (14 0 0 token)
      (81)
      (21 () 410)
      (22 () 383)
      (14 0 0 token)
      (0)
      (14 2 6 push)
      (24 1)
      383
      (26)
      (19 () 411)
      410
      (22 () 384)
      (14 0 0 token)
      (14 2 13 operator?)
      (24 1)
      384
      (21 () 408)
      (22 () 385)
      (14 0 0 token)
      (14 2 14 binary-operator?)
      (24 1)
      385
      (21 () 393)
      (22 () 386)
      (22 () 387)
      (14 2 5 pop)
      (24 0)
      387
      (22 () 388)
      (14 2 5 pop)
      (24 0)
      388
      (23
        (18 2)
        (22 () 389)
        (14 1 0 token)
        (14 3 29 filter-scheme-function)
        (24 1)
        389
        (14 0 1 right-operand)
        (14 0 0 left-operand)
        (13 ())
        (2)
        (2)
        (2)
        (14 3 6 push)
        (24 1)
        (name ())
      )
      (24 2)
      386
      (26)
      (19 () 394)
      393
      (22 () 390)
      (22 () 391)
      (14 2 5 pop)
      (24 0)
      391
      (23
        (18 1)
        (22 () 392)
        (14 1 0 token)
        (14 3 29 filter-scheme-function)
        (24 1)
        392
        (14 0 0 operand)
        (13 ())
        (2)
        (2)
        (14 3 6 push)
        (24 1)
        (name ())
      )
      (24 1)
      390
      (26)
      394
      (19 () 409)
      408
      (22 () 395)
      (14 0 0 token)
      (16 array-var?)
      (24 1)
      395
      (21 () 406)
      (22 () 396)
      (14 0 0 token)
      (22 () 397)
      (13 1)
      (14 2 28 pop-n-args)
      (24 1)
      397
      (2)
      (14 2 6 push)
      (24 1)
      396
      (26)
      (19 () 407)
      406
      (22 () 398)
      (14 0 0 token)
      (16 function?)
      (24 1)
      398
      (21 () 404)
      (22 () 399)
      (14 0 0 token)
      (22 () 400)
      (22 () 401)
      (22 () 402)
      (14 0 0 token)
      (14 2 15 get-n-args)
      (24 1)
      402
      (14 2 28 pop-n-args)
      (24 1)
      401
      (16 reverse)
      (24 1)
      400
      (2)
      (14 2 6 push)
      (24 1)
      399
      (26)
      (19 () 405)
      404
      (22 () 403)
      (14 0 0 token)
      (14 2 6 push)
      (24 1)
      403
      (26)
      405
      407
      409
      411
      (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 () 421)
    (22 () 414)
    (14 0 1 token)
    (16 array-var?)
    (24 1)
    414
    (21 () 415)
    (13 #t)
    (25)
    415
    (13 #f)
    (25)
    421
    (22 () 417)
    (14 0 1 token)
    (16 array-var?)
    (24 1)
    417
    (21 () 419)
    (22 () 418)
    (14 0 0 expression)
    (11)
    (14 1 0 open-paren?)
    (24 1)
    418
    (8)
    (25)
    419
    (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 () 468)
    (14 1 26 clear-operators-from-stack)
    (24 0)
    468
    (14 0 0 expression)
    (0)
    (23
      (18 1)
      (22 () 423)
      (14 0 0 token)
      (14 2 0 open-paren?)
      (24 1)
      423
      (21 () 466)
      (22 () 424)
      (14 0 0 token)
      (14 2 6 push)
      (24 1)
      424
      (26)
      (19 () 467)
      466
      (22 () 425)
      (14 0 0 token)
      (14 2 1 close-paren?)
      (24 1)
      425
      (21 () 464)
      (22 () 426)
      (14 2 24 pop-ops-until-left-paren)
      (24 0)
      426
      (26)
      (22 () 427)
      (14 2 8 empty-stack?)
      (24 0)
      427
      (21 () 430)
      (13 #f)
      (19 () 431)
      430
      (22 () 428)
      (22 () 429)
      (14 2 7 tos)
      (24 0)
      429
      (14 2 16 function-or-array-var?)
      (24 1)
      428
      431
      (21 () 434)
      (22 () 432)
      (22 () 433)
      (14 2 5 pop)
      (24 0)
      433
      (14 2 11 insert-to-output-queue)
      (24 1)
      432
      (26)
      (19 () 435)
      434
      435
      (19 () 465)
      464
      (22 () 436)
      (14 0 0 token)
      (14 2 17 function-argument-separator?)
      (24 1)
      436
      (21 () 462)
      (22 () 437)
      (14 2 25 process-function-arg)
      (24 0)
      437
      (26)
      (19 () 463)
      462
      (22 () 438)
      (14 0 0 token)
      (14 2 13 operator?)
      (24 1)
      438
      (21 () 460)
      (22 () 439)
      (14 0 0 token)
      (14 2 23 pop-ops-with-less-than-or-equal-precedence)
      (24 1)
      439
      (26)
      (22 () 440)
      (14 0 0 token)
      (14 2 6 push)
      (24 1)
      440
      (26)
      (19 () 461)
      460
      (22 () 441)
      (14 1 0 expression)
      (14 0 0 token)
      (14 2 31 array-var-no-args?)
      (24 2)
      441
      (21 () 458)
      (22 () 442)
      (14 0 0 token)
      (13 ())
      (2)
      (14 2 6 push)
      (24 1)
      442
      (26)
      (19 () 459)
      458
      (22 () 443)
      (22 () 444)
      (14 0 0 token)
      (14 2 22 my-number?)
      (24 1)
      444
      (23
        (18 1)
        (14 0 0 g:::39)
        (21 () 447)
        (14 0 0 g:::39)
        (25)
        447
        (14 1 0 token)
        (33)
        (23
          (18 1)
          (14 0 0 g:::40)
          (21 () 445)
          (14 0 0 g:::40)
          (25)
          445
          (14 3 0 expression)
          (14 2 0 token)
          (14 4 31 array-var-no-args?)
          (24 2)
          (name ())
        )
        (24 1)
        (name ())
      )
      (24 1)
      443
      (21 () 456)
      (22 () 449)
      (14 0 0 token)
      (14 2 11 insert-to-output-queue)
      (24 1)
      449
      (26)
      (19 () 457)
      456
      (22 () 450)
      (14 0 0 token)
      (14 2 16 function-or-array-var?)
      (24 1)
      450
      (21 () 454)
      (22 () 451)
      (14 0 0 token)
      (14 2 6 push)
      (24 1)
      451
      (26)
      (19 () 455)
      454
      (22 () 452)
      (13 undefined_identifier)
      (14 0 0 token)
      (16 log-error)
      (24 2)
      452
      (26)
      (22 () 453)
      (14 0 0 token)
      (14 2 11 insert-to-output-queue)
      (24 1)
      453
      (26)
      455
      457
      459
      461
      463
      465
      467
      (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 () 470)
    (13 ())
    (14 0 0 expression)
    (2)
    (14 0 0 expression)
    (22 () 471)
    (14 0 0 expression)
    (13 (()))
    (16 append)
    (24 2)
    471
    (14 1 27 filter-unary-minus)
    (24 3)
    470
    (15 0 0 expression)
    (26)
    (13 ())
    (15 1 4 stack)
    (26)
    (13 ())
    (15 1 10 output-queue)
    (26)
    (22 () 472)
    (14 0 0 expression)
    (14 1 32 shunt-proper)
    (24 1)
    472
    (26)
    (22 () 473)
    (14 1 10 output-queue)
    (16 reverse)
    (24 1)
    473
    (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)
251
(17 shunt)
(26)
(23
  (18 2)
  (40)
  (26)
  (13 "*** ERROR ")
  (39)
  (26)
  (22 () 474)
  (14 0 0 err)
  (23
    (18 1)
    (14 0 0 g:::41)
    (13 rest_of_program_ignored)
    (76)
    (21 () 499)
    (13 "rest of program ignored")
    (39)
    (25)
    499
    (14 0 0 g:::41)
    (13 expect_token)
    (76)
    (21 () 497)
    (14 1 1 token)
    (39)
    (26)
    (13 " expected")
    (39)
    (25)
    497
    (14 0 0 g:::41)
    (13 bad_statement)
    (76)
    (21 () 495)
    (13 "bad statement ")
    (39)
    (26)
    (14 1 1 token)
    (39)
    (25)
    495
    (14 0 0 g:::41)
    (13 control_var_mismatch)
    (76)
    (21 () 493)
    (13 "control and increment var not the same")
    (39)
    (25)
    493
    (14 0 0 g:::41)
    (13 expecting_incr_decr)
    (76)
    (21 () 491)
    (13 "expecting ++ or --")
    (39)
    (25)
    491
    (14 0 0 g:::41)
    (13 number_expected)
    (76)
    (21 () 489)
    (13 "number expected instead of: ")
    (39)
    (26)
    (14 1 1 token)
    (39)
    (25)
    489
    (14 0 0 g:::41)
    (13 max_allowed_formal_parameters)
    (76)
    (21 () 487)
    (13 "maximum number of allowed formal parameters exceeded")
    (39)
    (25)
    487
    (14 0 0 g:::41)
    (13 mismatched_parens)
    (76)
    (21 () 485)
    (13 "mismatched parentheses")
    (39)
    (25)
    485
    (14 0 0 g:::41)
    (13 mismatched_parens_or_missing_comma)
    (76)
    (21 () 483)
    (13 "mismatched parentheses or misplaced comma")
    (39)
    (25)
    483
    (14 0 0 g:::41)
    (13 stack_underflow)
    (76)
    (21 () 481)
    (13 "stack underflow")
    (39)
    (25)
    481
    (14 0 0 g:::41)
    (13 undefined_constant)
    (76)
    (21 () 479)
    (13 "undefined constant: ")
    (39)
    (26)
    (14 1 1 token)
    (39)
    (25)
    479
    (14 0 0 g:::41)
    (13 undefined_identifier)
    (76)
    (21 () 477)
    (13 "undefined identifier: ")
    (39)
    (26)
    (14 1 1 token)
    (39)
    (25)
    477
    (14 0 0 g:::41)
    (13 string_expected)
    (76)
    (21 () 475)
    (13 "string expected: ")
    (39)
    (26)
    (14 1 1 token)
    (39)
    (25)
    475
    (13 #f)
    (25)
    (name ())
  )
  (24 1)
  474
  (26)
  (40)
  (25)
  (name log-error)
)
(17 log-error)
(26)
(23
  (18 1)
  (22 () 501)
  (16 get-token)
  (24 0)
  501
  (23
    (18 1)
    (14 0 0 token)
    (14 1 0 expected-token)
    (5)
    (8)
    (21 () 502)
    (13 expect_token)
    (14 1 0 expected-token)
    (16 log-error)
    (24 2)
    502
    (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 () 506)
      (13 ())
      (25)
      506
      (22 () 504)
      (14 0 0 binary-tree)
      (0)
      (16 filter-vector-ref)
      (24 1)
      504
      (22 () 505)
      (14 0 0 binary-tree)
      (1)
      (16 filter-vector-ref)
      (24 1)
      505
      (2)
      (25)
      (name filter-vector-ref-fn-args)
    )
    (15 0 0 filter-vector-ref-fn-args)
    (26)
    (14 1 0 binary-tree)
    (7)
    (21 () 526)
    (13 ())
    (25)
    526
    (14 1 0 binary-tree)
    (13 $neg)
    (5)
    (21 () 524)
    (13 -)
    (25)
    524
    (14 1 0 binary-tree)
    (81)
    (21 () 522)
    (22 () 508)
    (14 1 0 binary-tree)
    (0)
    (16 function?)
    (24 1)
    508
    (21 () 520)
    (14 1 0 binary-tree)
    (0)
    (22 () 509)
    (14 1 0 binary-tree)
    (1)
    (14 0 0 filter-vector-ref-fn-args)
    (24 1)
    509
    (2)
    (25)
    520
    (14 1 0 binary-tree)
    (31)
    (13 2)
    (47)
    (21 () 518)
    (22 () 510)
    (14 1 0 binary-tree)
    (0)
    (16 array-var?)
    (24 1)
    510
    (21 () 514)
    (13 vector-ref)
    (14 1 0 binary-tree)
    (0)
    (22 () 511)
    (14 1 0 binary-tree)
    (11)
    (16 filter-vector-ref)
    (24 1)
    511
    (13 ())
    (2)
    (2)
    (2)
    (25)
    514
    (22 () 512)
    (14 1 0 binary-tree)
    (0)
    (16 filter-vector-ref)
    (24 1)
    512
    (22 () 513)
    (14 1 0 binary-tree)
    (1)
    (16 filter-vector-ref)
    (24 1)
    513
    (2)
    (25)
    518
    (22 () 516)
    (14 1 0 binary-tree)
    (0)
    (16 filter-vector-ref)
    (24 1)
    516
    (22 () 517)
    (14 1 0 binary-tree)
    (1)
    (16 filter-vector-ref)
    (24 1)
    517
    (2)
    (25)
    522
    (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 () 537)
  (14 0 0 expression)
  (31)
  (13 3)
  (47)
  (21 () 535)
  (14 0 0 expression)
  (0)
  (13 set!)
  (5)
  (21 () 533)
  (14 0 0 expression)
  (11)
  (81)
  (21 () 531)
  (22 () 528)
  (14 0 0 expression)
  (11)
  (0)
  (16 array-var?)
  (24 1)
  528
  (21 () 529)
  (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)
  529
  (14 0 0 expression)
  (25)
  531
  (14 0 0 expression)
  (25)
  533
  (14 0 0 expression)
  (25)
  535
  (14 0 0 expression)
  (25)
  537
  (14 0 0 expression)
  (25)
  (name filter-vector-set)
)
(17 filter-vector-set)
(26)
(23
  (18 1)
  (13 ())
  (17 tokens)
  (26)
  (22 () 539)
  (22 () 540)
  (16 get-token)
  (24 0)
  540
  (22 () 541)
  (13 ())
  (23
    (18 1)
    (23
      (18 1)
      (22 () 542)
      (16 lookahead)
      (24 0)
      542
      (23
        (18 1)
        (22 () 543)
        (14 1 0 token)
        (16 close-paren-tok)
        (5)
        (21 () 545)
        (22 () 544)
        (14 0 0 next-token)
        (16 identifier?)
        (24 1)
        544
        (19 () 546)
        545
        (13 #f)
        546
        (23
          (18 1)
          (14 0 0 g:::42)
          (21 () 568)
          (14 0 0 g:::42)
          (25)
          568
          (14 2 0 token)
          (16 close-bracket-tok)
          (5)
          (21 () 548)
          (22 () 547)
          (14 1 0 next-token)
          (16 identifier?)
          (24 1)
          547
          (19 () 549)
          548
          (13 #f)
          549
          (23
            (18 1)
            (14 0 0 g:::43)
            (21 () 566)
            (14 0 0 g:::43)
            (25)
            566
            (14 3 0 token)
            (16 close-paren-tok)
            (5)
            (21 () 550)
            (14 2 0 next-token)
            (16 semi-colon-tok)
            (5)
            (19 () 551)
            550
            (13 #f)
            551
            (23
              (18 1)
              (14 0 0 g:::44)
              (21 () 564)
              (14 0 0 g:::44)
              (25)
              564
              (14 4 0 token)
              (16 close-bracket-tok)
              (5)
              (21 () 552)
              (14 3 0 next-token)
              (16 semi-colon-tok)
              (5)
              (19 () 553)
              552
              (13 #f)
              553
              (23
                (18 1)
                (14 0 0 g:::45)
                (21 () 562)
                (14 0 0 g:::45)
                (25)
                562
                (22 () 554)
                (14 5 0 token)
                (16 identifier?)
                (24 1)
                554
                (21 () 555)
                (14 4 0 next-token)
                (16 semi-colon-tok)
                (5)
                (19 () 556)
                555
                (13 #f)
                556
                (23
                  (18 1)
                  (14 0 0 g:::46)
                  (21 () 560)
                  (14 0 0 g:::46)
                  (25)
                  560
                  (22 () 557)
                  (14 6 0 token)
                  (16 identifier?)
                  (24 1)
                  557
                  (21 () 558)
                  (14 5 0 next-token)
                  (16 identifier?)
                  (24 1)
                  558
                  (13 #f)
                  (25)
                  (name ())
                )
                (24 1)
                (name ())
              )
              (24 1)
              (name ())
            )
            (24 1)
            (name ())
          )
          (24 1)
          (name ())
        )
        (24 1)
        543
        (21 () 573)
        (14 3 0 leave-off-final-close-paren?)
        (8)
        (21 () 570)
        (14 1 0 token)
        (16 tokens)
        (2)
        (17 tokens)
        (25)
        570
        (13 ())
        (25)
        573
        (14 1 0 token)
        (16 tokens)
        (2)
        (17 tokens)
        (26)
        (22 () 572)
        (16 get-token)
        (24 0)
        572
        (14 2 0 loop)
        (24 1)
        (name ())
      )
      (24 1)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  541
  (24 1)
  539
  (26)
  (22 () 575)
  (16 tokens)
  (16 reverse)
  (24 1)
  575
  (17 tokens)
  (26)
  (14 0 0 leave-off-final-close-paren?)
  (8)
  (21 () 580)
  (22 () 576)
  (16 lookahead)
  (24 0)
  576
  (16 semi-colon-tok)
  (5)
  (21 () 578)
  (22 () 577)
  (16 get-token)
  (24 0)
  577
  (26)
  (19 () 579)
  578
  579
  (19 () 581)
  580
  581
  (22 () 582)
  (22 () 583)
  (16 tokens)
  (16 list->vector)
  (24 1)
  583
  (16 balanced-parens-and-brackets?)
  (24 1)
  582
  (8)
  (21 () 585)
  (22 () 584)
  (13 mismatched_parens)
  (13 ())
  (16 log-error)
  (24 2)
  584
  (26)
  (19 () 586)
  585
  586
  (22 () 587)
  (22 () 588)
  (22 () 589)
  (16 tokens)
  (16 shunt)
  (24 1)
  589
  (16 filter-vector-set)
  (24 1)
  588
  (16 filter-vector-ref)
  (24 1)
  587
  (39)
  (25)
  (name parse-expression)
)
(17 parse-expression)
(26)
(23
  (18 1)
  (14 0 0 level)
  (13 0)
  (51)
  (21 () 590)
  (13 "  ")
  (39)
  (26)
  (14 0 0 level)
  (13 1)
  (43)
  (16 indent)
  (24 1)
  590
  (13 ())
  (25)
  (name indent)
)
(17 indent)
(26)
(23
  (18 0)
  (22 () 592)
  (16 include-tok)
  (16 expect)
  (24 1)
  592
  (26)
  (22 () 593)
  (16 less-than-tok)
  (16 expect)
  (24 1)
  593
  (26)
  (22 () 594)
  (16 get-token)
  (24 0)
  594
  (22 () 595)
  (13 ())
  (23
    (18 1)
    (23
      (18 1)
      (14 0 0 token)
      (16 greater-than-tok)
      (5)
      (8)
      (21 () 597)
      (22 () 596)
      (16 get-token)
      (24 0)
      596
      (14 1 0 loop)
      (24 1)
      597
      (13 ())
      (25)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  595
  (24 1)
  (name parse-include)
)
(17 parse-include)
(26)
(22 () 599)
(16 make-hash)
(24 0)
599
(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 () 600)
  (16 constants)
  (14 0 0 name)
  (16 hash-ref)
  (24 2)
  600
  (23
    (18 1)
    (14 0 0 value)
    (21 () 602)
    (14 0 0 value)
    (11)
    (25)
    602
    (22 () 601)
    (13 undefined_constant)
    (14 1 0 name)
    (16 log-error)
    (24 2)
    601
    (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 () 604)
(16 make-hash)
(24 0)
604
(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 () 605)
    (14 0 0 found)
    (25)
    605
    (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 () 607)
    (14 0 0 found)
    (25)
    607
    (14 1 0 x)
    (16 local-variables)
    (30)
    (25)
    (name ())
  )
  (24 1)
  (name local-var?)
)
(17 local-var?)
(26)
(23
  (18 0)
  (22 () 609)
  (16 define-tok)
  (16 expect)
  (24 1)
  609
  (26)
  (22 () 610)
  (16 get-token)
  (24 0)
  610
  (22 () 611)
  (16 get-token)
  (24 0)
  611
  (23
    (18 2)
    (14 0 1 value)
    (32)
    (8)
    (21 () 613)
    (22 () 612)
    (13 number_expected)
    (14 0 1 value)
    (16 log-error)
    (24 2)
    612
    (26)
    (13 0)
    (15 0 1 value)
    (26)
    (19 () 614)
    613
    614
    (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 () 615)
    (13 0)
    (16 display-comments)
    (24 1)
    615
    (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 () 616)
  (13 ())
  (23
    (18 1)
    (23
      (18 0)
      (22 () 617)
      (16 lookahead)
      (24 0)
      617
      (16 pound-tok)
      (5)
      (21 () 624)
      (22 () 618)
      (16 get-token)
      (24 0)
      618
      (26)
      (22 () 619)
      (16 lookahead)
      (24 0)
      619
      (16 include-tok)
      (5)
      (21 () 622)
      (22 () 620)
      (16 parse-include)
      (24 0)
      620
      (26)
      (19 () 623)
      622
      (22 () 621)
      (16 parse-define)
      (24 0)
      621
      (26)
      623
      (14 1 0 loop)
      (24 0)
      624
      (13 ())
      (25)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  616
  (24 0)
  (name parse-includes-and-defines)
)
(17 parse-includes-and-defines)
(26)
(23
  (18 1)
  (22 () 626)
  (16 integer-tok)
  (16 expect)
  (24 1)
  626
  (26)
  (22 () 627)
  (16 get-token)
  (24 0)
  627
  (13 ())
  (13 ())
  (23
    (18 3)
    (22 () 628)
    (16 lookahead)
    (24 0)
    628
    (16 open-bracket-tok)
    (5)
    (21 () 638)
    (22 () 629)
    (16 get-token)
    (24 0)
    629
    (26)
    (22 () 630)
    (16 get-token)
    (24 0)
    630
    (15 0 1 value)
    (26)
    (14 0 0 name)
    (16 arrays)
    (2)
    (17 arrays)
    (26)
    (14 0 1 value)
    (32)
    (8)
    (21 () 635)
    (22 () 631)
    (14 0 1 value)
    (16 get-constant-value)
    (24 1)
    631
    (15 0 1 value)
    (26)
    (14 0 1 value)
    (8)
    (21 () 633)
    (22 () 632)
    (13 undefined_constant)
    (14 0 0 name)
    (16 log-error)
    (24 2)
    632
    (26)
    (13 1)
    (15 0 1 value)
    (26)
    (19 () 634)
    633
    634
    (19 () 636)
    635
    636
    (22 () 637)
    (16 close-bracket-tok)
    (16 expect)
    (24 1)
    637
    (26)
    (19 () 639)
    638
    639
    (22 () 640)
    (16 semi-colon-tok)
    (16 expect)
    (24 1)
    640
    (26)
    (13 "(")
    (39)
    (26)
    (14 0 0 name)
    (39)
    (26)
    (13 " ")
    (39)
    (26)
    (14 0 1 value)
    (7)
    (21 () 641)
    (13 "0)")
    (39)
    (26)
    (40)
    (26)
    (19 () 642)
    641
    (13 "(make-vector ")
    (39)
    (26)
    (14 0 1 value)
    (39)
    (26)
    (13 " 0))")
    (39)
    (26)
    (40)
    (26)
    642
    (14 1 0 top-level)
    (21 () 645)
    (22 () 643)
    (14 0 0 name)
    (14 0 1 value)
    (16 define-global-var-name-value)
    (24 2)
    643
    (26)
    (13 1)
    (16 display-comments)
    (24 1)
    645
    (22 () 644)
    (14 0 0 name)
    (14 0 1 value)
    (16 define-local-var-name-value)
    (24 2)
    644
    (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 () 648)
  (13 ())
  (17 local-variables)
  (26)
  (22 () 647)
  (13 3)
  (16 indent)
  (24 1)
  647
  (26)
  (19 () 649)
  648
  649
  (13 "(let (")
  (39)
  (26)
  (40)
  (26)
  (22 () 650)
  (22 () 651)
  (13 ())
  (23
    (18 1)
    (23
      (18 0)
      (22 () 652)
      (16 lookahead-var)
      (24 0)
      652
      (21 () 658)
      (14 2 0 top-level)
      (21 () 655)
      (22 () 653)
      (13 1)
      (16 indent)
      (24 1)
      653
      (26)
      (19 () 656)
      655
      (22 () 654)
      (13 4)
      (16 indent)
      (24 1)
      654
      (26)
      656
      (22 () 657)
      (14 2 0 top-level)
      (16 parse-variable-definition)
      (24 1)
      657
      (26)
      (14 1 0 loop)
      (24 0)
      658
      (13 ())
      (25)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  651
  (24 0)
  650
  (26)
  (14 0 0 top-level)
  (21 () 662)
  (22 () 660)
  (13 1)
  (16 indent)
  (24 1)
  660
  (26)
  (19 () 663)
  662
  (22 () 661)
  (13 4)
  (16 indent)
  (24 1)
  661
  (26)
  663
  (13 ")")
  (39)
  (26)
  (40)
  (25)
  (name parse-variable-definitions)
)
(17 parse-variable-definitions)
(26)
(23
  (18 1)
  (22 () 664)
  (14 0 0 level)
  (16 indent)
  (24 1)
  664
  (26)
  (13 "(if (__test ")
  (39)
  (26)
  (22 () 665)
  (16 lookahead)
  (24 0)
  665
  (16 open-paren-tok)
  (5)
  (8)
  (21 () 667)
  (22 () 666)
  (13 expect_token)
  (16 open-paren-tok)
  (16 log-error)
  (24 2)
  666
  (26)
  (19 () 668)
  667
  668
  (22 () 669)
  (13 #f)
  (16 parse-expression)
  (24 1)
  669
  (26)
  (13 ")")
  (39)
  (26)
  (40)
  (26)
  (22 () 670)
  (14 0 0 level)
  (13 1)
  (42)
  (16 parse-statement)
  (24 1)
  670
  (26)
  (22 () 671)
  (16 lookahead)
  (24 0)
  671
  (16 else-tok)
  (5)
  (21 () 674)
  (22 () 672)
  (16 get-token)
  (24 0)
  672
  (26)
  (40)
  (26)
  (22 () 673)
  (14 0 0 level)
  (13 1)
  (42)
  (16 parse-statement)
  (24 1)
  673
  (26)
  (19 () 675)
  674
  675
  (13 ")")
  (39)
  (25)
  (name parse-if-statement)
)
(17 parse-if-statement)
(26)
(23
  (18 1)
  (22 () 676)
  (14 0 0 level)
  (16 indent)
  (24 1)
  676
  (26)
  (13 "(let loop ()")
  (39)
  (26)
  (40)
  (26)
  (22 () 677)
  (14 0 0 level)
  (13 1)
  (42)
  (16 indent)
  (24 1)
  677
  (26)
  (13 "(if (__test ")
  (39)
  (26)
  (22 () 678)
  (16 lookahead)
  (24 0)
  678
  (16 open-paren-tok)
  (5)
  (8)
  (21 () 680)
  (22 () 679)
  (13 expect_token)
  (16 open-paren-tok)
  (16 log-error)
  (24 2)
  679
  (26)
  (19 () 681)
  680
  681
  (22 () 682)
  (13 #f)
  (16 parse-expression)
  (24 1)
  682
  (26)
  (13 ")")
  (39)
  (26)
  (40)
  (26)
  (22 () 683)
  (14 0 0 level)
  (13 2)
  (42)
  (16 indent)
  (24 1)
  683
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 684)
  (14 0 0 level)
  (13 3)
  (42)
  (16 parse-statement)
  (24 1)
  684
  (26)
  (40)
  (26)
  (22 () 685)
  (14 0 0 level)
  (13 3)
  (42)
  (16 indent)
  (24 1)
  685
  (26)
  (13 "(loop))))")
  (39)
  (25)
  (name parse-while-statement)
)
(17 parse-while-statement)
(26)
(23
  (18 1)
  (22 () 686)
  (14 0 0 level)
  (16 indent)
  (24 1)
  686
  (26)
  (13 "(let loop ()")
  (39)
  (26)
  (40)
  (26)
  (22 () 687)
  (14 0 0 level)
  (13 1)
  (42)
  (16 indent)
  (24 1)
  687
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 688)
  (16 begin-tok)
  (16 expect)
  (24 1)
  688
  (26)
  (22 () 689)
  (22 () 690)
  (13 ())
  (23
    (18 1)
    (23
      (18 0)
      (22 () 691)
      (16 lookahead)
      (24 0)
      691
      (16 end-tok)
      (5)
      (8)
      (21 () 693)
      (22 () 692)
      (14 2 0 level)
      (13 2)
      (42)
      (16 parse-statement)
      (24 1)
      692
      (26)
      (40)
      (26)
      (14 1 0 loop)
      (24 0)
      693
      (13 ())
      (25)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  690
  (24 0)
  689
  (26)
  (22 () 695)
  (16 end-tok)
  (16 expect)
  (24 1)
  695
  (26)
  (22 () 696)
  (16 while-tok)
  (16 expect)
  (24 1)
  696
  (26)
  (22 () 697)
  (16 lookahead)
  (24 0)
  697
  (16 open-paren-tok)
  (5)
  (8)
  (21 () 699)
  (22 () 698)
  (13 expect_token)
  (16 open-paren-tok)
  (16 log-error)
  (24 2)
  698
  (26)
  (19 () 700)
  699
  700
  (22 () 701)
  (14 0 0 level)
  (13 2)
  (42)
  (16 indent)
  (24 1)
  701
  (26)
  (13 "(if (__test ")
  (39)
  (26)
  (22 () 702)
  (13 #f)
  (16 parse-expression)
  (24 1)
  702
  (26)
  (13 ")")
  (39)
  (26)
  (40)
  (26)
  (40)
  (26)
  (22 () 703)
  (14 0 0 level)
  (13 3)
  (42)
  (16 indent)
  (24 1)
  703
  (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 () 704)
    (16 open-paren-tok)
    (16 expect)
    (24 1)
    704
    (26)
    (22 () 705)
    (14 1 0 level)
    (13 1)
    (42)
    (16 indent)
    (24 1)
    705
    (26)
    (13 "(begin")
    (39)
    (26)
    (40)
    (26)
    (22 () 706)
    (14 1 0 level)
    (13 1)
    (42)
    (16 indent)
    (24 1)
    706
    (26)
    (22 () 707)
    (16 lookahead)
    (24 0)
    707
    (15 0 0 control-var)
    (26)
    (22 () 708)
    (13 #f)
    (16 parse-expression)
    (24 1)
    708
    (26)
    (40)
    (26)
    (22 () 709)
    (14 1 0 level)
    (13 1)
    (42)
    (16 indent)
    (24 1)
    709
    (26)
    (13 "(let loop ()")
    (39)
    (26)
    (40)
    (26)
    (22 () 710)
    (14 1 0 level)
    (13 2)
    (42)
    (16 indent)
    (24 1)
    710
    (26)
    (13 "(if (__test ")
    (39)
    (26)
    (22 () 711)
    (13 #f)
    (16 parse-expression)
    (24 1)
    711
    (26)
    (13 ")")
    (39)
    (26)
    (40)
    (26)
    (22 () 712)
    (14 1 0 level)
    (13 3)
    (42)
    (16 indent)
    (24 1)
    712
    (26)
    (13 "(begin")
    (39)
    (26)
    (40)
    (26)
    (22 () 713)
    (16 get-token)
    (24 0)
    713
    (14 0 0 control-var)
    (5)
    (8)
    (21 () 715)
    (22 () 714)
    (13 control_var_mismatch)
    (13 ())
    (16 log-error)
    (24 2)
    714
    (26)
    (19 () 716)
    715
    716
    (22 () 717)
    (16 get-token)
    (24 0)
    717
    (15 0 1 incr)
    (26)
    (22 () 718)
    (14 0 1 incr)
    (16 succ-tok)
    (5)
    (23
      (18 1)
      (14 0 0 g:::47)
      (21 () 719)
      (14 0 0 g:::47)
      (25)
      719
      (14 1 1 incr)
      (16 pred-tok)
      (5)
      (25)
      (name ())
    )
    (24 1)
    718
    (8)
    (21 () 722)
    (22 () 721)
    (13 expecting_incr_decr)
    (13 ())
    (16 log-error)
    (24 2)
    721
    (26)
    (19 () 723)
    722
    723
    (22 () 724)
    (16 close-paren-tok)
    (16 expect)
    (24 1)
    724
    (26)
    (22 () 725)
    (14 1 0 level)
    (13 4)
    (42)
    (16 parse-statement)
    (24 1)
    725
    (26)
    (40)
    (26)
    (22 () 726)
    (14 1 0 level)
    (13 4)
    (42)
    (16 indent)
    (24 1)
    726
    (26)
    (14 0 1 incr)
    (16 succ-tok)
    (5)
    (21 () 727)
    (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 () 728)
    727
    (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)
    728
    (40)
    (26)
    (22 () 729)
    (14 1 0 level)
    (13 4)
    (42)
    (16 indent)
    (24 1)
    729
    (26)
    (13 "(loop)))))")
    (39)
    (26)
    (40)
    (25)
    (name ())
  )
  (24 2)
  (name parse-for-statement)
)
(17 parse-for-statement)
(26)
(23
  (18 0)
  (22 () 730)
  (16 get-token)
  (24 0)
  730
  (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 () 731)
    (16 lookahead)
    (24 0)
    731
    (16 end-tok)
    (5)
    (8)
    (21 () 755)
    (22 () 732)
    (16 case-tok)
    (16 expect)
    (24 1)
    732
    (26)
    (22 () 733)
    (16 get-token)
    (24 0)
    733
    (15 0 0 number)
    (26)
    (14 0 0 number)
    (32)
    (8)
    (21 () 735)
    (22 () 734)
    (14 0 0 number)
    (16 get-constant-value)
    (24 1)
    734
    (15 0 0 number)
    (26)
    (19 () 736)
    735
    736
    (22 () 737)
    (16 colon-tok)
    (16 expect)
    (24 1)
    737
    (26)
    (22 () 738)
    (14 1 0 level)
    (16 indent)
    (24 1)
    738
    (26)
    (13 "((")
    (39)
    (26)
    (14 0 0 number)
    (39)
    (26)
    (13 ")")
    (39)
    (26)
    (40)
    (26)
    (22 () 739)
    (22 () 740)
    (13 ())
    (23
      (18 1)
      (23
        (18 0)
        (22 () 741)
        (16 lookahead)
        (24 0)
        741
        (16 end-tok)
        (5)
        (21 () 743)
        (13 #f)
        (19 () 744)
        743
        (22 () 742)
        (16 lookahead)
        (24 0)
        742
        (16 case-tok)
        (5)
        (8)
        744
        (21 () 753)
        (22 () 745)
        (16 lookahead)
        (24 0)
        745
        (16 break-tok)
        (5)
        (21 () 751)
        (22 () 746)
        (16 parse-break-statement)
        (24 0)
        746
        (26)
        (19 () 752)
        751
        (22 () 747)
        (14 3 0 level)
        (13 1)
        (42)
        (16 parse-statement)
        (24 1)
        747
        (26)
        (22 () 748)
        (16 lookahead)
        (24 0)
        748
        (16 break-tok)
        (5)
        (8)
        (21 () 749)
        (40)
        (26)
        (19 () 750)
        749
        750
        752
        (14 1 0 loop)
        (24 0)
        753
        (13 ())
        (25)
        (name loop)
      )
      (15 0 0 loop)
      (26)
      (14 0 0 loop)
      (25)
      (name ())
    )
    (24 1)
    740
    (24 0)
    739
    (26)
    (13 ")")
    (39)
    (26)
    (40)
    (25)
    755
    (13 ())
    (25)
    (name ())
  )
  (24 1)
  (name parse-case-list-element)
)
(17 parse-case-list-element)
(26)
(23
  (18 1)
  (22 () 757)
  (16 lookahead)
  (24 0)
  757
  (16 end-tok)
  (5)
  (8)
  (21 () 759)
  (22 () 758)
  (14 0 0 level)
  (16 parse-case-list-element)
  (24 1)
  758
  (26)
  (14 0 0 level)
  (16 parse-case-list-elements)
  (24 1)
  759
  (13 ())
  (25)
  (name parse-case-list-elements)
)
(17 parse-case-list-elements)
(26)
(23
  (18 1)
  (22 () 761)
  (16 lookahead)
  (24 0)
  761
  (16 open-paren-tok)
  (5)
  (8)
  (21 () 763)
  (22 () 762)
  (13 expect_token)
  (16 open-paren-tok)
  (16 log-error)
  (24 2)
  762
  (26)
  (19 () 764)
  763
  764
  (22 () 765)
  (14 0 0 level)
  (16 indent)
  (24 1)
  765
  (26)
  (13 "(case")
  (39)
  (26)
  (40)
  (26)
  (22 () 766)
  (14 0 0 level)
  (13 1)
  (42)
  (16 indent)
  (24 1)
  766
  (26)
  (22 () 767)
  (13 #f)
  (16 parse-expression)
  (24 1)
  767
  (26)
  (40)
  (26)
  (22 () 768)
  (16 begin-tok)
  (16 expect)
  (24 1)
  768
  (26)
  (22 () 769)
  (14 0 0 level)
  (13 1)
  (42)
  (16 parse-case-list-elements)
  (24 1)
  769
  (26)
  (22 () 770)
  (16 end-tok)
  (16 expect)
  (24 1)
  770
  (26)
  (22 () 771)
  (14 0 0 level)
  (16 indent)
  (24 1)
  771
  (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 () 773)
  (14 0 0 s)
  (25)
  773
  (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 () 772)
  (14 0 0 s)
  (12)
  (12)
  (16 get-4-chars)
  (24 1)
  772
  (2)
  (25)
  (name get-4-chars)
)
(17 get-4-chars)
(26)
(23
  (18 2)
  (14 0 0 s)
  (7)
  (8)
  (21 () 778)
  (14 0 0 s)
  (0)
  (23
    (18 1)
    (22 () 775)
    (14 1 1 level)
    (16 indent)
    (24 1)
    775
    (26)
    (14 0 0 x)
    (32)
    (21 () 776)
    (13 "(__put4chars ")
    (39)
    (26)
    (14 0 0 x)
    (39)
    (26)
    (13 ")")
    (39)
    (26)
    (19 () 777)
    776
    (13 "(putchar ")
    (39)
    (26)
    (14 0 0 x)
    (78)
    (39)
    (26)
    (13 ")")
    (39)
    (26)
    777
    (40)
    (26)
    (14 1 0 s)
    (1)
    (14 1 1 level)
    (16 display-packed-string)
    (24 2)
    (name ())
  )
  (24 1)
  778
  (13 ())
  (25)
  (name display-packed-string)
)
(17 display-packed-string)
(26)
(23
  (18 1)
  (22 () 780)
  (16 lookahead)
  (24 0)
  780
  (23
    (18 1)
    (22 () 781)
    (14 1 0 level)
    (16 display-comments)
    (24 1)
    781
    (26)
    (14 0 0 token)
    (16 begin-tok)
    (5)
    (21 () 839)
    (22 () 782)
    (14 1 0 level)
    (16 indent)
    (24 1)
    782
    (26)
    (13 "(begin")
    (39)
    (26)
    (40)
    (26)
    (22 () 783)
    (14 1 0 level)
    (13 1)
    (42)
    (16 parse-compound-statement)
    (24 1)
    783
    (26)
    (13 ")")
    (39)
    (25)
    839
    (14 0 0 token)
    (16 if-tok)
    (5)
    (21 () 837)
    (22 () 784)
    (16 get-token)
    (24 0)
    784
    (26)
    (14 1 0 level)
    (16 parse-if-statement)
    (24 1)
    837
    (14 0 0 token)
    (16 while-tok)
    (5)
    (21 () 835)
    (22 () 785)
    (16 get-token)
    (24 0)
    785
    (26)
    (14 1 0 level)
    (16 parse-while-statement)
    (24 1)
    835
    (14 0 0 token)
    (16 do-tok)
    (5)
    (21 () 833)
    (22 () 786)
    (16 get-token)
    (24 0)
    786
    (26)
    (14 1 0 level)
    (16 parse-repeat-statement)
    (24 1)
    833
    (14 0 0 token)
    (16 for-tok)
    (5)
    (21 () 831)
    (22 () 787)
    (16 get-token)
    (24 0)
    787
    (26)
    (14 1 0 level)
    (16 parse-for-statement)
    (24 1)
    831
    (14 0 0 token)
    (16 switch-tok)
    (5)
    (21 () 829)
    (22 () 788)
    (16 get-token)
    (24 0)
    788
    (26)
    (14 1 0 level)
    (16 parse-case-statement)
    (24 1)
    829
    (14 0 0 token)
    (16 end-tok)
    (5)
    (21 () 827)
    (13 ())
    (25)
    827
    (14 0 0 token)
    (16 return-tok)
    (5)
    (21 () 825)
    (22 () 789)
    (16 get-token)
    (24 0)
    789
    (26)
    (22 () 790)
    (16 lookahead)
    (24 0)
    790
    (16 semi-colon-tok)
    (5)
    (21 () 795)
    (22 () 791)
    (16 get-token)
    (24 0)
    791
    (26)
    (22 () 792)
    (14 1 0 level)
    (16 indent)
    (24 1)
    792
    (26)
    (13 "(return-from-procedure)")
    (39)
    (25)
    795
    (22 () 793)
    (14 1 0 level)
    (16 indent)
    (24 1)
    793
    (26)
    (13 "(return ")
    (39)
    (26)
    (22 () 794)
    (13 #f)
    (16 parse-expression)
    (24 1)
    794
    (26)
    (13 ")")
    (39)
    (25)
    825
    (14 0 0 token)
    (16 printf-tok)
    (5)
    (21 () 823)
    (22 () 797)
    (16 get-token)
    (24 0)
    797
    (26)
    (22 () 798)
    (16 open-paren-tok)
    (16 expect)
    (24 1)
    798
    (26)
    (22 () 799)
    (16 lookahead)
    (24 0)
    799
    (33)
    (21 () 817)
    (22 () 800)
    (16 lookahead)
    (24 0)
    800
    (13 "%d")
    (67)
    (21 () 811)
    (22 () 801)
    (16 get-token)
    (24 0)
    801
    (26)
    (22 () 802)
    (16 get-token)
    (24 0)
    802
    (26)
    (22 () 803)
    (14 1 0 level)
    (16 indent)
    (24 1)
    803
    (26)
    (13 "(__write_integer ")
    (39)
    (26)
    (22 () 804)
    (13 #t)
    (16 parse-expression)
    (24 1)
    804
    (26)
    (13 ")")
    (39)
    (26)
    (19 () 812)
    811
    (22 () 805)
    (14 1 0 level)
    (16 indent)
    (24 1)
    805
    (26)
    (13 "(begin")
    (39)
    (26)
    (40)
    (26)
    (22 () 806)
    (22 () 807)
    (22 () 808)
    (22 () 809)
    (16 get-token)
    (24 0)
    809
    (16 string->list)
    (24 1)
    808
    (16 get-4-chars)
    (24 1)
    807
    (14 1 0 level)
    (16 display-packed-string)
    (24 2)
    806
    (26)
    (13 ")")
    (39)
    (26)
    (22 () 810)
    (16 get-token)
    (24 0)
    810
    (26)
    812
    (19 () 818)
    817
    (22 () 813)
    (13 string_expected)
    (22 () 814)
    (16 lookahead)
    (24 0)
    814
    (16 log-error)
    (24 2)
    813
    (26)
    (22 () 815)
    (16 get-token)
    (24 0)
    815
    (26)
    (22 () 816)
    (16 get-token)
    (24 0)
    816
    (26)
    818
    (16 semi-colon-tok)
    (16 expect)
    (24 1)
    823
    (22 () 819)
    (14 0 0 token)
    (16 identifier?)
    (24 1)
    819
    (21 () 821)
    (22 () 820)
    (14 1 0 level)
    (16 indent)
    (24 1)
    820
    (26)
    (13 #f)
    (16 parse-expression)
    (24 1)
    821
    (13 bad_statement)
    (14 0 0 token)
    (16 log-error)
    (24 2)
    (name ())
  )
  (24 1)
  (name parse-statement)
)
(17 parse-statement)
(26)
(23
  (18 1)
  (22 () 841)
  (13 ())
  (23
    (18 1)
    (23
      (18 0)
      (22 () 842)
      (16 lookahead)
      (24 0)
      842
      (16 end-tok)
      (5)
      (8)
      (21 () 847)
      (22 () 843)
      (14 2 0 level)
      (16 parse-statement)
      (24 1)
      843
      (26)
      (22 () 844)
      (16 lookahead)
      (24 0)
      844
      (16 end-tok)
      (5)
      (8)
      (21 () 845)
      (40)
      (26)
      (19 () 846)
      845
      846
      (14 1 0 loop)
      (24 0)
      847
      (13 ())
      (25)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  841
  (24 0)
  (name parse-statements)
)
(17 parse-statements)
(26)
(23
  (18 1)
  (22 () 849)
  (16 get-token)
  (24 0)
  849
  (16 begin-tok)
  (5)
  (8)
  (21 () 851)
  (22 () 850)
  (13 expect_token)
  (16 begin-tok)
  (16 log-error)
  (24 2)
  850
  (26)
  (19 () 852)
  851
  852
  (22 () 853)
  (14 0 0 level)
  (16 parse-statements)
  (24 1)
  853
  (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 () 854)
    (16 lookahead-var)
    (24 0)
    854
    (21 () 856)
    (13 #t)
    (15 0 0 block-has-vars?)
    (26)
    (22 () 855)
    (13 #f)
    (16 parse-variable-definitions)
    (24 1)
    855
    (26)
    (19 () 857)
    856
    857
    (22 () 858)
    (13 3)
    (16 parse-statements)
    (24 1)
    858
    (26)
    (14 0 0 block-has-vars?)
    (21 () 859)
    (13 ")))")
    (39)
    (25)
    859
    (13 "))")
    (39)
    (25)
    (name ())
  )
  (24 1)
  (name parse-block)
)
(17 parse-block)
(26)
(23
  (18 0)
  (22 () 861)
  (16 integer-tok)
  (16 expect)
  (24 1)
  861
  (26)
  (22 () 862)
  (16 get-token)
  (24 0)
  862
  (13 ())
  (23
    (18 2)
    (14 0 0 name)
    (16 formal-parameters)
    (2)
    (17 formal-parameters)
    (26)
    (22 () 863)
    (16 lookahead)
    (24 0)
    863
    (16 open-bracket-tok)
    (5)
    (21 () 866)
    (22 () 864)
    (16 get-token)
    (24 0)
    864
    (26)
    (22 () 865)
    (16 close-bracket-tok)
    (16 expect)
    (24 1)
    865
    (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 () 867)
    866
    (14 0 0 name)
    (15 0 1 ret)
    (26)
    867
    (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 () 868)
    (22 () 869)
    (13 ())
    (23
      (18 1)
      (23
        (18 0)
        (22 () 870)
        (16 lookahead)
        (24 0)
        870
        (16 close-paren-tok)
        (5)
        (8)
        (21 () 876)
        (22 () 871)
        (16 parse-formal-parameter)
        (24 0)
        871
        (14 2 0 ret)
        (2)
        (15 2 0 ret)
        (26)
        (22 () 872)
        (16 lookahead)
        (24 0)
        872
        (16 comma-tok)
        (5)
        (21 () 874)
        (22 () 873)
        (16 get-token)
        (24 0)
        873
        (26)
        (13 " ")
        (39)
        (26)
        (14 1 0 loop)
        (24 0)
        874
        (13 ())
        (25)
        876
        (13 ())
        (25)
        (name loop)
      )
      (15 0 0 loop)
      (26)
      (14 0 0 loop)
      (25)
      (name ())
    )
    (24 1)
    869
    (24 0)
    868
    (26)
    (14 0 0 ret)
    (25)
    (name ())
  )
  (24 1)
  (name parse-formal-parameters)
)
(17 parse-formal-parameters)
(26)
(23
  (18 0)
  (22 () 878)
  (16 lookahead)
  (24 0)
  878
  (16 semi-colon-tok)
  (5)
  (25)
  (name forward?)
)
(17 forward?)
(26)
(22 () 879)
(16 make-hash)
(24 0)
879
(17 functions)
(26)
(22 () 880)
(16 functions)
(13 __put4chars)
(13 (x))
(16 hash-set!)
(24 3)
880
(22 () 881)
(16 functions)
(13 __write_int_digit)
(13 (x))
(16 hash-set!)
(24 3)
881
(22 () 882)
(16 functions)
(13 __write_integer)
(13 (x))
(16 hash-set!)
(24 3)
882
(22 () 883)
(16 functions)
(13 getchar)
(13 ())
(16 hash-set!)
(24 3)
883
(22 () 884)
(16 functions)
(13 putchar)
(13 (ch))
(16 hash-set!)
(24 3)
884
(22 () 885)
(16 functions)
(13 abs)
(13 (x))
(16 hash-set!)
(24 3)
885
(22 () 886)
(16 functions)
(13 exit)
(13 (n))
(16 hash-set!)
(24 3)
886
(23
  (18 1)
  (14 0 0 x)
  (4)
  (21 () 887)
  (16 functions)
  (14 0 0 x)
  (16 hash-ref)
  (24 2)
  887
  (13 #f)
  (25)
  (name function?)
)
(17 function?)
(26)
(23
  (18 0)
  (22 () 889)
  (16 get-token)
  (24 0)
  889
  (26)
  (22 () 890)
  (16 get-token)
  (24 0)
  890
  (23
    (18 1)
    (22 () 891)
    (16 open-paren-tok)
    (16 expect)
    (24 1)
    891
    (26)
    (40)
    (26)
    (22 () 892)
    (13 2)
    (16 indent)
    (24 1)
    892
    (26)
    (13 "(")
    (39)
    (26)
    (14 0 0 name)
    (39)
    (26)
    (40)
    (26)
    (22 () 893)
    (13 3)
    (16 indent)
    (24 1)
    893
    (26)
    (13 "(lambda (")
    (39)
    (26)
    (22 () 894)
    (16 functions)
    (14 0 0 name)
    (22 () 895)
    (22 () 896)
    (16 parse-formal-parameters)
    (24 0)
    896
    (16 reverse)
    (24 1)
    895
    (16 hash-set!)
    (24 3)
    894
    (26)
    (22 () 897)
    (16 close-paren-tok)
    (16 expect)
    (24 1)
    897
    (26)
    (13 ")")
    (39)
    (26)
    (40)
    (26)
    (22 () 898)
    (16 forward?)
    (24 0)
    898
    (21 () 902)
    (22 () 899)
    (16 semi-colon-tok)
    (16 expect)
    (24 1)
    899
    (26)
    (13 "__forward))")
    (39)
    (26)
    (40)
    (25)
    902
    (22 () 900)
    (16 begin-tok)
    (16 expect)
    (24 1)
    900
    (26)
    (22 () 901)
    (14 0 0 name)
    (16 parse-block)
    (24 1)
    901
    (26)
    (16 end-tok)
    (16 expect)
    (24 1)
    (name ())
  )
  (24 1)
  (name parse-function)
)
(17 parse-function)
(26)
(23
  (18 0)
  (22 () 904)
  (16 get-token)
  (24 0)
  904
  (26)
  (22 () 905)
  (16 get-token)
  (24 0)
  905
  (23
    (18 1)
    (22 () 906)
    (16 open-paren-tok)
    (16 expect)
    (24 1)
    906
    (26)
    (40)
    (26)
    (22 () 907)
    (13 2)
    (16 indent)
    (24 1)
    907
    (26)
    (13 "(")
    (39)
    (26)
    (14 0 0 name)
    (39)
    (26)
    (40)
    (26)
    (22 () 908)
    (13 3)
    (16 indent)
    (24 1)
    908
    (26)
    (13 "(lambda (")
    (39)
    (26)
    (22 () 909)
    (16 functions)
    (14 0 0 name)
    (22 () 910)
    (22 () 911)
    (16 parse-formal-parameters)
    (24 0)
    911
    (16 reverse)
    (24 1)
    910
    (16 hash-set!)
    (24 3)
    909
    (26)
    (22 () 912)
    (16 close-paren-tok)
    (16 expect)
    (24 1)
    912
    (26)
    (13 ")")
    (39)
    (26)
    (40)
    (26)
    (22 () 913)
    (16 forward?)
    (24 0)
    913
    (21 () 917)
    (22 () 914)
    (16 semi-colon-tok)
    (16 expect)
    (24 1)
    914
    (26)
    (13 "__forward))")
    (39)
    (26)
    (40)
    (25)
    917
    (22 () 915)
    (16 begin-tok)
    (16 expect)
    (24 1)
    915
    (26)
    (22 () 916)
    (14 0 0 name)
    (16 parse-block)
    (24 1)
    916
    (26)
    (16 end-tok)
    (16 expect)
    (24 1)
    (name ())
  )
  (24 1)
  (name parse-procedure)
)
(17 parse-procedure)
(26)
(23
  (18 0)
  (22 () 919)
  (13 ())
  (23
    (18 1)
    (23
      (18 0)
      (22 () 920)
      (22 () 921)
      (16 lookahead-procedure)
      (24 0)
      921
      (23
        (18 1)
        (14 0 0 g:::48)
        (21 () 922)
        (14 0 0 g:::48)
        (25)
        922
        (16 lookahead-function)
        (24 0)
        (name ())
      )
      (24 1)
      920
      (21 () 929)
      (22 () 924)
      (16 lookahead-procedure)
      (24 0)
      924
      (21 () 927)
      (22 () 925)
      (16 parse-procedure)
      (24 0)
      925
      (26)
      (19 () 928)
      927
      (22 () 926)
      (16 parse-function)
      (24 0)
      926
      (26)
      928
      (14 1 0 loop)
      (24 0)
      929
      (13 ())
      (25)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  919
  (24 0)
  (name parse-procedures-and-functions)
)
(17 parse-procedures-and-functions)
(26)
(23
  (18 0)
  (22 () 931)
  (13 2)
  (16 indent)
  (24 1)
  931
  (26)
  (13 "(__put4chars")
  (39)
  (26)
  (40)
  (26)
  (22 () 932)
  (13 3)
  (16 indent)
  (24 1)
  932
  (26)
  (13 "(lambda (x)")
  (39)
  (26)
  (40)
  (26)
  (22 () 933)
  (13 3)
  (16 indent)
  (24 1)
  933
  (26)
  (13 "(putchar (shr x 24))")
  (39)
  (26)
  (40)
  (26)
  (22 () 934)
  (13 3)
  (16 indent)
  (24 1)
  934
  (26)
  (13 "(putchar (bitwise-and (shr x 16) 255))")
  (39)
  (26)
  (40)
  (26)
  (22 () 935)
  (13 3)
  (16 indent)
  (24 1)
  935
  (26)
  (13 "(putchar (bitwise-and (shr x 8) 255))")
  (39)
  (26)
  (40)
  (26)
  (22 () 936)
  (13 3)
  (16 indent)
  (24 1)
  936
  (26)
  (13 "(putchar (bitwise-and x 255))")
  (39)
  (26)
  (40)
  (26)
  (22 () 937)
  (13 3)
  (16 indent)
  (24 1)
  937
  (26)
  (13 "(return-from-procedure)))")
  (39)
  (26)
  (40)
  (25)
  (name include-put4chars)
)
(17 include-put4chars)
(26)
(23
  (18 0)
  (22 () 938)
  (13 2)
  (16 indent)
  (24 1)
  938
  (26)
  (13 "(__write_int_digit")
  (39)
  (26)
  (40)
  (26)
  (22 () 939)
  (13 3)
  (16 indent)
  (24 1)
  939
  (26)
  (13 "(lambda (n)")
  (39)
  (26)
  (40)
  (26)
  (22 () 940)
  (13 3)
  (16 indent)
  (24 1)
  940
  (26)
  (13 "(if (__test (> n 0))")
  (39)
  (26)
  (40)
  (26)
  (22 () 941)
  (13 4)
  (16 indent)
  (24 1)
  941
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 942)
  (13 5)
  (16 indent)
  (24 1)
  942
  (26)
  (13 "(__write_int_digit (quotient n 10))")
  (39)
  (26)
  (40)
  (26)
  (22 () 943)
  (13 5)
  (16 indent)
  (24 1)
  943
  (26)
  (13 "(putchar (+ (remainder n 10) 48))))")
  (39)
  (26)
  (40)
  (26)
  (22 () 944)
  (13 3)
  (16 indent)
  (24 1)
  944
  (26)
  (13 "(return-from-procedure)))")
  (39)
  (26)
  (40)
  (25)
  (name include-write-int-digit)
)
(17 include-write-int-digit)
(26)
(23
  (18 0)
  (22 () 945)
  (13 2)
  (16 indent)
  (24 1)
  945
  (26)
  (13 "(__write_integer")
  (39)
  (26)
  (40)
  (26)
  (22 () 946)
  (13 3)
  (16 indent)
  (24 1)
  946
  (26)
  (13 "(lambda (n)")
  (39)
  (26)
  (40)
  (26)
  (22 () 947)
  (13 3)
  (16 indent)
  (24 1)
  947
  (26)
  (13 "(if (__test (= n 0))")
  (39)
  (26)
  (40)
  (26)
  (22 () 948)
  (13 4)
  (16 indent)
  (24 1)
  948
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 949)
  (13 5)
  (16 indent)
  (24 1)
  949
  (26)
  (13 "(putchar 48)")
  (39)
  (26)
  (40)
  (26)
  (22 () 950)
  (13 5)
  (16 indent)
  (24 1)
  950
  (26)
  (13 "(return-from-procedure)))")
  (39)
  (26)
  (40)
  (26)
  (22 () 951)
  (13 3)
  (16 indent)
  (24 1)
  951
  (26)
  (13 "(if (__test (< n 0))")
  (39)
  (26)
  (40)
  (26)
  (22 () 952)
  (13 4)
  (16 indent)
  (24 1)
  952
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 953)
  (13 5)
  (16 indent)
  (24 1)
  953
  (26)
  (13 "(putchar 45)")
  (39)
  (26)
  (40)
  (26)
  (22 () 954)
  (13 5)
  (16 indent)
  (24 1)
  954
  (26)
  (13 "(if (__test (&& (= (bitwise-and n 65535) 0) (= (shr n 16) (- 32768))))")
  (39)
  (26)
  (40)
  (26)
  (22 () 955)
  (13 6)
  (16 indent)
  (24 1)
  955
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 956)
  (13 7)
  (16 indent)
  (24 1)
  956
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 957)
  (13 7)
  (16 indent)
  (24 1)
  957
  (26)
  (13 "(__put4chars 842085431)")
  (39)
  (26)
  (40)
  (26)
  (22 () 958)
  (13 7)
  (16 indent)
  (24 1)
  958
  (26)
  (13 "(__put4chars 876098358)")
  (39)
  (26)
  (40)
  (26)
  (22 () 959)
  (13 7)
  (16 indent)
  (24 1)
  959
  (26)
  (13 "(putchar 52)")
  (39)
  (26)
  (40)
  (26)
  (22 () 960)
  (13 7)
  (16 indent)
  (24 1)
  960
  (26)
  (13 "(putchar 56))")
  (39)
  (26)
  (40)
  (26)
  (22 () 961)
  (13 7)
  (16 indent)
  (24 1)
  961
  (26)
  (13 "(return-from-procedure)))")
  (39)
  (26)
  (40)
  (26)
  (22 () 962)
  (13 5)
  (16 indent)
  (24 1)
  962
  (26)
  (13 "(__write_int_digit (- n)))")
  (39)
  (26)
  (40)
  (26)
  (22 () 963)
  (13 4)
  (16 indent)
  (24 1)
  963
  (26)
  (13 "(__write_int_digit n))")
  (39)
  (26)
  (40)
  (26)
  (22 () 964)
  (13 3)
  (16 indent)
  (24 1)
  964
  (26)
  (13 "(return-from-procedure)))")
  (39)
  (26)
  (40)
  (25)
  (name include-write-integer)
)
(17 include-write-integer)
(26)
(23
  (18 0)
  (22 () 965)
  (16 initialize-lex)
  (24 0)
  965
  (26)
  (22 () 966)
  (16 parse-includes-and-defines)
  (24 0)
  966
  (26)
  (22 () 967)
  (16 lookahead-var)
  (24 0)
  967
  (21 () 969)
  (22 () 968)
  (13 #t)
  (16 parse-variable-definitions)
  (24 1)
  968
  (26)
  (19 () 970)
  969
  970
  (22 () 971)
  (13 1)
  (16 indent)
  (24 1)
  971
  (26)
  (13 "(letrec (")
  (39)
  (26)
  (40)
  (26)
  (22 () 972)
  (16 include-put4chars)
  (24 0)
  972
  (26)
  (22 () 973)
  (16 include-write-int-digit)
  (24 0)
  973
  (26)
  (22 () 974)
  (16 include-write-integer)
  (24 0)
  974
  (26)
  (22 () 975)
  (22 () 976)
  (16 lookahead-procedure)
  (24 0)
  976
  (23
    (18 1)
    (14 0 0 g:::49)
    (21 () 977)
    (14 0 0 g:::49)
    (25)
    977
    (16 lookahead-function)
    (24 0)
    (name ())
  )
  (24 1)
  975
  (21 () 980)
  (22 () 979)
  (16 parse-procedures-and-functions)
  (24 0)
  979
  (26)
  (19 () 981)
  980
  981
  (22 () 982)
  (16 get-token)
  (24 0)
  982
  (7)
  (8)
  (21 () 984)
  (22 () 983)
  (13 rest_of_program_ignored)
  (13 ())
  (16 log-error)
  (24 2)
  983
  (26)
  (19 () 985)
  984
  985
  (13 ")")
  (39)
  (26)
  (40)
  (26)
  (13 "    (main)")
  (39)
  (26)
  (22 () 986)
  (16 global-variables)
  (13 0)
  (16 empty-hash-table?)
  (24 2)
  986
  (21 () 987)
  (13 ")")
  (39)
  (26)
  (19 () 988)
  987
  (13 "))")
  (39)
  (26)
  988
  (40)
  (25)
  (name parse-program)
)
(17 parse-program)
(26)
(22 () 989)
(16 parse-program)
(24 0)
989
(80)
)
