(
(13 2)
(73)
(17 __primitives)
(26)
(16 __primitives)
(13 0)
(23
  (18 1)
  (14 0 0 n1)
  (0)
  (25)
  (name ())
)
(37)
(26)
(16 __primitives)
(13 1)
(23
  (18 1)
  (14 0 0 n1)
  (1)
  (25)
  (name ())
)
(37)
(23
  (83 1)
  (13 "Error: ")
  (39)
  (26)
  (14 0 0 reason)
  (39)
  (26)
  (22 () 960)
  (23
    (18 1)
    (13 " ")
    (39)
    (26)
    (14 0 0 arg)
    (39)
    (25)
    (name ())
  )
  (14 0 1 args)
  (16 for-each)
  (24 2)
  960
  (26)
  (40)
  (26)
  (13 1)
  (87)
  (25)
  (name error)
)
(17 error)
(26)
(23
  (18 1)
  (13 ())
  (23
    (18 1)
    (23
      (18 2)
      (14 0 0 x)
      (7)
      (21 () 961)
      (14 0 1 y)
      (25)
      961
      (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 () 964)
      (14 0 1 list2)
      (25)
      964
      (14 0 0 list1)
      (0)
      (22 () 963)
      (14 0 0 list1)
      (1)
      (14 0 1 list2)
      (14 1 0 append-two)
      (24 2)
      963
      (2)
      (25)
      (name append-two)
    )
    (15 0 0 append-two)
    (26)
    (23
      (18 1)
      (22 () 966)
      (14 0 0 l)
      (7)
      (23
        (18 1)
        (14 0 0 g:::44)
        (21 () 967)
        (14 0 0 g:::44)
        (25)
        967
        (14 1 0 l)
        (81)
        (25)
        (name ())
      )
      (24 1)
      966
      (8)
      (25)
      (name improper-list?)
    )
    (15 0 1 improper-list?)
    (26)
    (23
      (18 3)
      (14 0 2 seq)
      (7)
      (21 () 979)
      (14 0 1 init)
      (25)
      979
      (14 0 2 seq)
      (0)
      (7)
      (21 () 977)
      (14 0 2 seq)
      (11)
      (25)
      977
      (14 0 2 seq)
      (1)
      (7)
      (21 () 975)
      (14 0 2 seq)
      (0)
      (14 0 2 seq)
      (1)
      (14 1 0 append-two)
      (24 2)
      975
      (14 0 2 seq)
      (1)
      (81)
      (21 () 973)
      (22 () 969)
      (14 0 2 seq)
      (11)
      (1)
      (14 1 1 improper-list?)
      (24 1)
      969
      (21 () 971)
      (14 0 2 seq)
      (0)
      (14 0 2 seq)
      (11)
      (14 1 0 append-two)
      (24 2)
      971
      (14 0 2 seq)
      (0)
      (22 () 970)
      (14 0 0 f)
      (14 0 1 init)
      (14 0 2 seq)
      (1)
      (14 1 2 fold-right-append)
      (24 3)
      970
      (14 0 0 f)
      (24 2)
      973
      (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 () 983)
    (13 ())
    (25)
    983
    (14 1 0 lsts)
    (1)
    (7)
    (21 () 981)
    (14 1 0 lsts)
    (0)
    (25)
    981
    (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 () 985)
      (13 ())
      (23
        (18 1)
        (23
          (18 1)
          (14 0 0 i)
          (14 3 0 size)
          (47)
          (21 () 986)
          (13 ())
          (25)
          986
          (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)
      985
      (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 () 988)
      (14 0 0 str)
      (25)
      988
      (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 () 990)
  (13 ())
  (23
    (18 1)
    (23
      (18 2)
      (14 0 0 n)
      (13 -1)
      (47)
      (21 () 991)
      (14 0 1 l)
      (25)
      991
      (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)
  990
  (24 2)
  (name string->list)
)
(17 string->list)
(26)
(23
  (83 1)
  (13 ())
  (23
    (18 1)
    (23
      (18 2)
      (14 0 1 l)
      (7)
      (21 () 995)
      (13 ())
      (25)
      995
      (22 () 993)
      (14 0 1 l)
      (0)
      (14 0 0 p)
      (24 1)
      993
      (22 () 994)
      (14 0 0 p)
      (14 0 1 l)
      (1)
      (14 1 0 map-over-single-list)
      (24 2)
      994
      (2)
      (25)
      (name map-over-single-list)
    )
    (15 0 0 map-over-single-list)
    (26)
    (13 ())
    (14 1 1 lists)
    (28)
    (21 () 1001)
    (13 ())
    (25)
    1001
    (22 () 997)
    (22 () 998)
    (16 __primitives)
    (13 0)
    (36)
    (14 1 1 lists)
    (14 0 0 map-over-single-list)
    (24 2)
    998
    (85)
    (14 1 0 proc)
    (84)
    997
    (26)
    (22 () 999)
    (14 1 0 proc)
    (22 () 1000)
    (16 __primitives)
    (13 1)
    (36)
    (14 1 1 lists)
    (14 0 0 map-over-single-list)
    (24 2)
    1000
    (2)
    (85)
    (16 for-each)
    (84)
    999
    (25)
    (name ())
  )
  (24 1)
  (name for-each)
)
(17 for-each)
(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 0)
    (79)
    (15 0 0 eof-char)
    (26)
    (13 9)
    (79)
    (15 0 1 tab-char)
    (26)
    (13 13)
    (79)
    (15 0 2 carriage-return)
    (26)
    (13 #\space)
    (13 #\newline)
    (14 0 1 tab-char)
    (14 0 2 carriage-return)
    (13 ())
    (2)
    (2)
    (2)
    (2)
    (15 0 3 white-space)
    (26)
    (13 (#\( #\) #\[ #\] #\, #\< #\> #\; #\: #\= #\+ #\- #\* #\/ #\% #\& #\^ #\| #\~ #\{ #\} #\! #\# #\.))
    (15 0 4 separators)
    (26)
    (13 ((#\= #\=) (#\! #\=) (#\< #\=) (#\> #\=) (#\> #\>) (#\< #\<) (#\+ #\+) (#\- #\-) (#\& #\&) (#\| #\|)))
    (15 0 5 two-character-separators)
    (26)
    (13 ())
    (15 0 6 token)
    (26)
    (23
      (18 0)
      (14 2 0 lookahead-ch)
      (25)
      (name lookahead-c-ch)
    )
    (15 0 7 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 8 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 9 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 10 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)
      (14 1 0 eof-char)
      (15 2 1 ch)
      (26)
      (19 () 22)
      21
      22
      (14 2 1 ch)
      (14 1 3 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 11 read-c-ch)
    (26)
    (23
      (18 0)
      (14 2 1 ch)
      (14 1 0 eof-char)
      (61)
      (21 () 30)
      (13 ())
      (25)
      30
      (14 2 1 ch)
      (13 #\space)
      (61)
      (21 () 28)
      (22 () 27)
      (14 1 11 read-c-ch)
      (24 0)
      27
      (26)
      (14 1 12 skip-blanks)
      (24 0)
      28
      (13 #f)
      (25)
      (name skip-blanks)
    )
    (15 0 12 skip-blanks)
    (26)
    (23
      (18 1)
      (14 0 0 ch)
      (16 comments)
      (2)
      (17 comments)
      (25)
      (name log-comment-char)
    )
    (15 0 13 log-comment-char)
    (26)
    (23
      (18 0)
      (22 () 32)
      (14 1 7 lookahead-c-ch)
      (24 0)
      32
      (14 1 0 eof-char)
      (61)
      (21 () 39)
      (13 ())
      (25)
      39
      (22 () 33)
      (14 1 7 lookahead-c-ch)
      (24 0)
      33
      (13 #\newline)
      (61)
      (21 () 37)
      (22 () 34)
      (14 1 11 read-c-ch)
      (24 0)
      34
      (26)
      (14 1 12 skip-blanks)
      (24 0)
      37
      (22 () 35)
      (14 1 11 read-c-ch)
      (24 0)
      35
      (26)
      (22 () 36)
      (14 2 1 ch)
      (14 1 13 log-comment-char)
      (24 1)
      36
      (26)
      (14 1 14 skip-comment)
      (24 0)
      (name skip-comment)
    )
    (15 0 14 skip-comment)
    (26)
    (23
      (18 0)
      (14 2 1 ch)
      (13 #\/)
      (61)
      (21 () 42)
      (22 () 41)
      (14 1 7 lookahead-c-ch)
      (24 0)
      41
      (13 #\/)
      (61)
      (19 () 43)
      42
      (13 #f)
      43
      (21 () 46)
      (22 () 44)
      (14 1 11 read-c-ch)
      (24 0)
      44
      (26)
      (22 () 45)
      (14 1 14 skip-comment)
      (24 0)
      45
      (26)
      (14 1 15 skip-comments)
      (24 0)
      46
      (13 ())
      (25)
      (name skip-comments)
    )
    (15 0 15 skip-comments)
    (26)
    (23
      (18 0)
      (14 2 1 ch)
      (14 1 6 token)
      (2)
      (15 1 6 token)
      (26)
      (14 1 11 read-c-ch)
      (24 0)
      (name add-ch-to-token)
    )
    (15 0 16 add-ch-to-token)
    (26)
    (23
      (18 0)
      (22 () 48)
      (22 () 49)
      (14 2 1 ch)
      (14 1 8 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 16 add-ch-to-token)
      (24 0)
      52
      (26)
      (14 1 17 build-symbol-token)
      (24 0)
      53
      (13 ())
      (25)
      (name build-symbol-token)
    )
    (15 0 17 build-symbol-token)
    (26)
    (23
      (18 0)
      (14 2 1 ch)
      (14 1 0 eof-char)
      (61)
      (21 () 64)
      (13 ())
      (25)
      64
      (14 2 1 ch)
      (13 #\\)
      (61)
      (21 () 62)
      (22 () 55)
      (14 1 11 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 16 add-ch-to-token)
      (24 0)
      58
      (26)
      (14 1 18 build-string-token)
      (24 0)
      62
      (14 2 1 ch)
      (13 #\")
      (61)
      (21 () 60)
      (14 1 11 read-c-ch)
      (24 0)
      60
      (22 () 59)
      (14 1 16 add-ch-to-token)
      (24 0)
      59
      (26)
      (14 1 18 build-string-token)
      (24 0)
      (name build-string-token)
    )
    (15 0 18 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 19 hex-dig-value)
    (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 19 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 20 hex->dec)
        (24 2)
        79
        (42)
        (25)
        (name ())
      )
      (24 1)
      (name hex->dec)
    )
    (15 0 20 hex->dec)
    (26)
    (23
      (18 0)
      (22 () 82)
      (14 2 1 ch)
      (14 1 9 char-hex?)
      (24 1)
      82
      (21 () 84)
      (22 () 83)
      (14 1 16 add-ch-to-token)
      (24 0)
      83
      (26)
      (14 1 21 build-hex-number-token)
      (24 0)
      84
      (13 ())
      (25)
      (name build-hex-number-token)
    )
    (15 0 21 build-hex-number-token)
    (26)
    (23
      (18 0)
      (14 2 1 ch)
      (62)
      (21 () 87)
      (22 () 86)
      (14 1 16 add-ch-to-token)
      (24 0)
      86
      (26)
      (14 1 22 build-decimal-number-token)
      (24 0)
      87
      (13 ())
      (25)
      (name build-decimal-number-token)
    )
    (15 0 22 build-decimal-number-token)
    (26)
    (23
      (18 0)
      (22 () 89)
      (14 1 7 lookahead-c-ch)
      (24 0)
      89
      (13 #\x)
      (61)
      (21 () 100)
      (22 () 90)
      (14 1 11 read-c-ch)
      (24 0)
      90
      (26)
      (22 () 91)
      (14 1 11 read-c-ch)
      (24 0)
      91
      (26)
      (22 () 92)
      (14 1 21 build-hex-number-token)
      (24 0)
      92
      (26)
      (14 1 6 token)
      (31)
      (13 8)
      (51)
      (21 () 94)
      (22 () 93)
      (13 "hex number too many digits")
      (14 2 1 ch)
      (14 1 10 c-error)
      (24 2)
      93
      (26)
      (19 () 95)
      94
      95
      (22 () 96)
      (14 1 6 token)
      (13 1)
      (14 1 20 hex->dec)
      (24 2)
      96
      (15 1 6 token)
      (25)
      100
      (22 () 97)
      (14 1 22 build-decimal-number-token)
      (24 0)
      97
      (26)
      (22 () 98)
      (22 () 99)
      (14 1 6 token)
      (16 reverse)
      (24 1)
      99
      (16 list->string)
      (24 1)
      98
      (70)
      (15 1 6 token)
      (25)
      (name build-number-token)
    )
    (15 0 23 build-number-token)
    (26)
    (23
      (18 0)
      (14 2 1 ch)
      (14 1 4 separators)
      (28)
      (25)
      (name separator?)
    )
    (15 0 24 separator?)
    (26)
    (23
      (18 0)
      (14 2 1 ch)
      (23
        (18 1)
        (22 () 102)
        (14 2 16 add-ch-to-token)
        (24 0)
        102
        (26)
        (14 0 0 old-ch)
        (14 3 1 ch)
        (13 ())
        (2)
        (2)
        (14 2 5 two-character-separators)
        (29)
        (21 () 103)
        (14 2 16 add-ch-to-token)
        (24 0)
        103
        (13 ())
        (25)
        (name ())
      )
      (24 1)
      (name build-separator-token)
    )
    (15 0 25 build-separator-token)
    (26)
    (23
      (18 0)
      (13 ())
      (15 1 6 token)
      (26)
      (22 () 105)
      (14 1 12 skip-blanks)
      (24 0)
      105
      (26)
      (14 2 1 ch)
      (13 #\/)
      (61)
      (21 () 107)
      (22 () 106)
      (14 1 7 lookahead-c-ch)
      (24 0)
      106
      (13 #\/)
      (61)
      (19 () 108)
      107
      (13 #f)
      108
      (21 () 110)
      (22 () 109)
      (14 1 15 skip-comments)
      (24 0)
      109
      (26)
      (19 () 111)
      110
      111
      (14 2 1 ch)
      (14 1 0 eof-char)
      (61)
      (21 () 150)
      (13 ())
      (15 1 6 token)
      (26)
      (19 () 151)
      150
      (22 () 112)
      (14 1 24 separator?)
      (24 0)
      112
      (21 () 148)
      (22 () 113)
      (14 1 25 build-separator-token)
      (24 0)
      113
      (26)
      (22 () 114)
      (22 () 115)
      (14 1 6 token)
      (16 reverse)
      (24 1)
      115
      (16 list->string)
      (24 1)
      114
      (69)
      (15 1 6 token)
      (26)
      (19 () 149)
      148
      (14 2 1 ch)
      (62)
      (21 () 146)
      (22 () 116)
      (14 1 23 build-number-token)
      (24 0)
      116
      (26)
      (19 () 147)
      146
      (22 () 117)
      (14 2 1 ch)
      (63)
      (23
        (18 1)
        (14 0 0 g:::4)
        (21 () 118)
        (14 0 0 g:::4)
        (25)
        118
        (14 3 1 ch)
        (13 #\_)
        (61)
        (25)
        (name ())
      )
      (24 1)
      117
      (21 () 144)
      (22 () 120)
      (14 1 16 add-ch-to-token)
      (24 0)
      120
      (26)
      (22 () 121)
      (14 1 17 build-symbol-token)
      (24 0)
      121
      (26)
      (22 () 122)
      (22 () 123)
      (14 1 6 token)
      (16 reverse)
      (24 1)
      123
      (16 list->string)
      (24 1)
      122
      (69)
      (15 1 6 token)
      (26)
      (19 () 145)
      144
      (14 2 1 ch)
      (13 #\")
      (61)
      (21 () 142)
      (22 () 124)
      (14 1 11 read-c-ch)
      (24 0)
      124
      (26)
      (22 () 125)
      (14 1 18 build-string-token)
      (24 0)
      125
      (26)
      (22 () 126)
      (22 () 127)
      (14 1 6 token)
      (16 reverse)
      (24 1)
      127
      (16 list->string)
      (24 1)
      126
      (15 1 6 token)
      (26)
      (19 () 143)
      142
      (14 2 1 ch)
      (13 #\')
      (61)
      (21 () 140)
      (22 () 128)
      (14 1 11 read-c-ch)
      (24 0)
      128
      (26)
      (14 2 1 ch)
      (13 #\\)
      (61)
      (21 () 132)
      (22 () 129)
      (14 1 11 read-c-ch)
      (24 0)
      129
      (26)
      (14 2 1 ch)
      (13 #\n)
      (61)
      (21 () 130)
      (13 10)
      (79)
      (15 2 1 ch)
      (26)
      (19 () 131)
      130
      131
      (19 () 133)
      132
      133
      (14 2 1 ch)
      (78)
      (15 1 6 token)
      (26)
      (22 () 134)
      (14 1 11 read-c-ch)
      (24 0)
      134
      (26)
      (22 () 135)
      (14 1 11 read-c-ch)
      (24 0)
      135
      (26)
      (19 () 141)
      140
      (22 () 136)
      (13 "bad character")
      (14 2 1 ch)
      (14 1 10 c-error)
      (24 2)
      136
      (26)
      (22 () 137)
      (14 1 16 add-ch-to-token)
      (24 0)
      137
      (26)
      (22 () 138)
      (22 () 139)
      (14 1 6 token)
      (16 reverse)
      (24 1)
      139
      (16 list->string)
      (24 1)
      138
      (69)
      (15 1 6 token)
      (26)
      141
      143
      145
      147
      149
      151
      (14 1 6 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)
(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 () 152)
  (16 get-c-token)
  (24 0)
  152
  (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 () 153)
  (16 get-token)
  (24 0)
  153
  (26)
  (22 () 154)
  (16 get-token)
  (24 0)
  154
  (26)
  (16 get-token)
  (24 0)
  (name initialize-lex)
)
(17 initialize-lex)
(26)
(23
  (18 0)
  (22 () 155)
  (16 lookahead)
  (24 0)
  155
  (16 integer-tok)
  (5)
  (21 () 160)
  (22 () 156)
  (16 triple-lookahead)
  (24 0)
  156
  (16 semi-colon-tok)
  (5)
  (23
    (18 1)
    (14 0 0 g:::5)
    (21 () 158)
    (14 0 0 g:::5)
    (25)
    158
    (22 () 157)
    (16 triple-lookahead)
    (24 0)
    157
    (16 open-bracket-tok)
    (5)
    (25)
    (name ())
  )
  (24 1)
  160
  (13 #f)
  (25)
  (name lookahead-var)
)
(17 lookahead-var)
(26)
(23
  (18 0)
  (22 () 162)
  (16 lookahead)
  (24 0)
  162
  (16 void-tok)
  (5)
  (21 () 164)
  (22 () 163)
  (16 triple-lookahead)
  (24 0)
  163
  (16 open-paren-tok)
  (5)
  (25)
  164
  (13 #f)
  (25)
  (name lookahead-procedure)
)
(17 lookahead-procedure)
(26)
(23
  (18 0)
  (22 () 166)
  (16 lookahead)
  (24 0)
  166
  (16 integer-tok)
  (5)
  (21 () 168)
  (22 () 167)
  (16 triple-lookahead)
  (24 0)
  167
  (16 open-paren-tok)
  (5)
  (25)
  168
  (13 #f)
  (25)
  (name lookahead-function)
)
(17 lookahead-function)
(26)
(23
  (18 1)
  (14 0 0 token)
  (13 (= + - * / % || && << >> | & ^ == != < <= >= >))
  (28)
  (25)
  (name binary-operator?)
)
(17 binary-operator?)
(26)
(23
  (18 1)
  (22 () 170)
  (14 0 0 token)
  (16 binary-operator?)
  (24 1)
  170
  (23
    (18 1)
    (14 0 0 g:::6)
    (21 () 175)
    (14 0 0 g:::6)
    (25)
    175
    (14 1 0 token)
    (16 unary-minus-tok)
    (5)
    (23
      (18 1)
      (14 0 0 g:::7)
      (21 () 173)
      (14 0 0 g:::7)
      (25)
      173
      (14 2 0 token)
      (16 bit-not-tok)
      (5)
      (23
        (18 1)
        (14 0 0 g:::8)
        (21 () 171)
        (14 0 0 g:::8)
        (25)
        171
        (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 () 177)
  (22 () 178)
  (14 0 0 token)
  (16 operator?)
  (24 1)
  178
  (23
    (18 1)
    (14 0 0 g:::9)
    (21 () 193)
    (14 0 0 g:::9)
    (25)
    193
    (14 1 0 token)
    (16 semi-colon-tok)
    (5)
    (23
      (18 1)
      (14 0 0 g:::10)
      (21 () 191)
      (14 0 0 g:::10)
      (25)
      191
      (14 2 0 token)
      (16 colon-tok)
      (5)
      (23
        (18 1)
        (14 0 0 g:::11)
        (21 () 189)
        (14 0 0 g:::11)
        (25)
        189
        (14 3 0 token)
        (16 open-paren-tok)
        (5)
        (23
          (18 1)
          (14 0 0 g:::12)
          (21 () 187)
          (14 0 0 g:::12)
          (25)
          187
          (14 4 0 token)
          (16 close-paren-tok)
          (5)
          (23
            (18 1)
            (14 0 0 g:::13)
            (21 () 185)
            (14 0 0 g:::13)
            (25)
            185
            (14 5 0 token)
            (16 open-bracket-tok)
            (5)
            (23
              (18 1)
              (14 0 0 g:::14)
              (21 () 183)
              (14 0 0 g:::14)
              (25)
              183
              (14 6 0 token)
              (16 close-bracket-tok)
              (5)
              (23
                (18 1)
                (14 0 0 g:::15)
                (21 () 181)
                (14 0 0 g:::15)
                (25)
                181
                (14 7 0 token)
                (16 period-tok)
                (5)
                (23
                  (18 1)
                  (14 0 0 g:::16)
                  (21 () 179)
                  (14 0 0 g:::16)
                  (25)
                  179
                  (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)
  177
  (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 () 197)
  (13 #t)
  (25)
  197
  (14 0 0 vec)
  (14 0 1 n)
  (36)
  (23
    (18 1)
    (14 0 0 element)
    (7)
    (21 () 195)
    (14 1 0 vec)
    (14 1 1 n)
    (13 1)
    (42)
    (16 empty-hash-table?)
    (24 2)
    195
    (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 () 199)
              (13 ())
              (23
                (18 1)
                (23
                  (18 1)
                  (22 () 200)
                  (14 2 1 processing)
                  (8)
                  (23
                    (18 1)
                    (14 0 0 g:::17)
                    (21 () 201)
                    (14 0 0 g:::17)
                    (25)
                    201
                    (14 1 0 i)
                    (14 9 0 tokens)
                    (35)
                    (47)
                    (25)
                    (name ())
                  )
                  (24 1)
                  200
                  (21 () 228)
                  (13 ())
                  (25)
                  228
                  (22 () 203)
                  (14 8 0 tokens)
                  (14 0 0 i)
                  (36)
                  (23
                    (18 1)
                    (22 () 204)
                    (14 0 0 token)
                    (16 open-paren-tok)
                    (5)
                    (23
                      (18 1)
                      (14 0 0 g:::18)
                      (21 () 205)
                      (14 0 0 g:::18)
                      (25)
                      205
                      (14 1 0 token)
                      (16 open-bracket-tok)
                      (5)
                      (25)
                      (name ())
                    )
                    (24 1)
                    204
                    (21 () 226)
                    (14 0 0 token)
                    (14 7 0 push)
                    (24 1)
                    226
                    (22 () 207)
                    (14 0 0 token)
                    (16 close-paren-tok)
                    (5)
                    (23
                      (18 1)
                      (14 0 0 g:::19)
                      (21 () 208)
                      (14 0 0 g:::19)
                      (25)
                      208
                      (14 1 0 token)
                      (16 close-bracket-tok)
                      (5)
                      (25)
                      (name ())
                    )
                    (24 1)
                    207
                    (21 () 224)
                    (22 () 210)
                    (14 5 0 empty?)
                    (24 0)
                    210
                    (21 () 222)
                    (13 #f)
                    (15 3 0 ret)
                    (26)
                    (13 #f)
                    (15 3 1 processing)
                    (25)
                    222
                    (22 () 211)
                    (14 4 0 tos)
                    (24 0)
                    211
                    (23
                      (18 1)
                      (22 () 212)
                      (14 7 0 pop)
                      (24 0)
                      212
                      (26)
                      (22 () 213)
                      (14 1 0 token)
                      (16 close-paren-tok)
                      (5)
                      (21 () 214)
                      (14 0 0 top)
                      (16 open-paren-tok)
                      (5)
                      (8)
                      (19 () 215)
                      214
                      (13 #f)
                      215
                      (23
                        (18 1)
                        (14 0 0 g:::20)
                        (21 () 218)
                        (14 0 0 g:::20)
                        (25)
                        218
                        (14 2 0 token)
                        (16 close-bracket-tok)
                        (5)
                        (21 () 216)
                        (14 1 0 top)
                        (16 open-bracket-tok)
                        (5)
                        (8)
                        (25)
                        216
                        (13 #f)
                        (25)
                        (name ())
                      )
                      (24 1)
                      213
                      (21 () 220)
                      (13 #f)
                      (15 4 0 ret)
                      (26)
                      (13 #f)
                      (15 4 1 processing)
                      (25)
                      220
                      (13 ())
                      (25)
                      (name ())
                    )
                    (24 1)
                    224
                    (13 ())
                    (25)
                    (name ())
                  )
                  (24 1)
                  203
                  (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)
              199
              (26)
              (14 0 0 ret)
              (21 () 230)
              (14 2 0 empty?)
              (24 0)
              230
              (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 () 232)
(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:::21)
      (21 () 233)
      (14 0 0 g:::21)
      (25)
      233
      (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:::22)
      (21 () 235)
      (14 0 0 g:::22)
      (25)
      235
      (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 () 237)
    (14 0 0 x)
    (14 1 0 open-paren?)
    (24 1)
    237
    (23
      (18 1)
      (14 0 0 g:::23)
      (21 () 238)
      (14 0 0 g:::23)
      (25)
      238
      (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 () 240)
    (14 0 1 y)
    (16 open-paren-tok)
    (5)
    (19 () 241)
    240
    (13 #f)
    241
    (23
      (18 1)
      (14 0 0 g:::24)
      (21 () 244)
      (14 0 0 g:::24)
      (25)
      244
      (14 1 0 x)
      (16 close-bracket-tok)
      (5)
      (21 () 242)
      (14 1 1 y)
      (16 open-bracket-tok)
      (5)
      (25)
      242
      (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 () 246)
    (13 stack_underflow)
    (13 ())
    (16 log-error)
    (24 2)
    246
    (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 () 248)
    (13 stack_underflow)
    (13 ())
    (16 log-error)
    (24 2)
    248
    (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 () 250)
    (14 1 8 empty-stack?)
    (24 0)
    250
    (8)
    (21 () 252)
    (22 () 251)
    (14 1 5 pop)
    (24 0)
    251
    (39)
    (26)
    (40)
    (26)
    (14 1 9 display-stack)
    (24 0)
    252
    (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 () 254)
    (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)
    254
    (13 ())
    (25)
    (name display-output-queue)
  )
  (15 0 12 display-output-queue)
  (26)
  (23
    (18 1)
    (14 0 0 x)
    (13 (= + - * / % $neg ! || && ~ << >> | & ^ == != < <= >= >))
    (28)
    (25)
    (name operator?)
  )
  (15 0 13 operator?)
  (26)
  (23
    (18 1)
    (14 0 0 x)
    (13 (= + - * / % || && << >> | & ^ == != < <= >= >))
    (28)
    (25)
    (name binary-operator?)
  )
  (15 0 14 binary-operator?)
  (26)
  (23
    (18 1)
    (22 () 256)
    (14 0 0 x)
    (16 function?)
    (24 1)
    256
    (23
      (18 1)
      (14 0 0 n)
      (21 () 257)
      (14 0 0 n)
      (11)
      (31)
      (25)
      257
      (13 1)
      (25)
      (name ())
    )
    (24 1)
    (name get-n-args)
  )
  (15 0 15 get-n-args)
  (26)
  (23
    (18 1)
    (22 () 259)
    (14 0 0 x)
    (16 function?)
    (24 1)
    259
    (23
      (18 1)
      (14 0 0 g:::25)
      (21 () 260)
      (14 0 0 g:::25)
      (25)
      260
      (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)
    (13 ((= 0) (|| 1) (&& 2) (! 3) (== 4) (!= 4) (< 4) (<= 4) (>= 4) (> 4) (+ 5) (- 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 () 262)
    (14 0 0 op)
    (14 1 19 right-associative?)
    (24 1)
    262
    (8)
    (25)
    (name left-associative?)
  )
  (15 0 20 left-associative?)
  (26)
  (23
    (18 1)
    (14 0 0 x)
    (4)
    (21 () 269)
    (22 () 263)
    (14 0 0 x)
    (16 array-var?)
    (24 1)
    263
    (21 () 267)
    (13 #f)
    (25)
    267
    (22 () 264)
    (14 0 0 x)
    (16 local-var?)
    (24 1)
    264
    (23
      (18 1)
      (14 0 0 g:::26)
      (21 () 265)
      (14 0 0 g:::26)
      (25)
      265
      (14 1 0 x)
      (16 global-var?)
      (24 1)
      (name ())
    )
    (24 1)
    269
    (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:::27)
      (21 () 274)
      (14 0 0 g:::27)
      (25)
      274
      (22 () 271)
      (14 1 0 x)
      (14 2 21 var?)
      (24 1)
      271
      (23
        (18 1)
        (14 0 0 g:::28)
        (21 () 272)
        (14 0 0 g:::28)
        (25)
        272
        (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 () 298)
    (22 () 276)
    (22 () 277)
    (14 1 7 tos)
    (24 0)
    277
    (14 1 13 operator?)
    (24 1)
    276
    (21 () 296)
    (22 () 278)
    (14 1 7 tos)
    (24 0)
    278
    (23
      (18 1)
      (22 () 279)
      (22 () 280)
      (14 1 0 op)
      (14 2 20 left-associative?)
      (24 1)
      280
      (21 () 283)
      (22 () 281)
      (14 1 0 op)
      (14 2 18 precedence)
      (24 1)
      281
      (22 () 282)
      (14 0 0 op2)
      (14 2 18 precedence)
      (24 1)
      282
      (50)
      (19 () 284)
      283
      (13 #f)
      284
      (23
        (18 1)
        (14 0 0 g:::29)
        (21 () 290)
        (14 0 0 g:::29)
        (25)
        290
        (22 () 285)
        (14 2 0 op)
        (14 3 19 right-associative?)
        (24 1)
        285
        (21 () 288)
        (22 () 286)
        (14 2 0 op)
        (14 3 18 precedence)
        (24 1)
        286
        (22 () 287)
        (14 1 0 op2)
        (14 3 18 precedence)
        (24 1)
        287
        (49)
        (25)
        288
        (13 #f)
        (25)
        (name ())
      )
      (24 1)
      279
      (21 () 294)
      (22 () 292)
      (22 () 293)
      (14 2 5 pop)
      (24 0)
      293
      (14 2 11 insert-to-output-queue)
      (24 1)
      292
      (26)
      (14 1 0 op)
      (14 2 23 pop-ops-with-less-than-or-equal-precedence)
      (24 1)
      294
      (13 ())
      (25)
      (name ())
    )
    (24 1)
    296
    (13 ())
    (25)
    298
    (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 () 305)
    (13 mismatched_parens)
    (13 ())
    (16 log-error)
    (24 2)
    305
    (22 () 300)
    (14 1 5 pop)
    (24 0)
    300
    (23
      (18 1)
      (22 () 301)
      (14 0 0 op)
      (14 2 0 open-paren?)
      (24 1)
      301
      (8)
      (21 () 303)
      (22 () 302)
      (14 0 0 op)
      (14 2 11 insert-to-output-queue)
      (24 1)
      302
      (26)
      (14 2 24 pop-ops-until-left-paren)
      (24 0)
      303
      (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 () 313)
    (13 mismatched_parens_or_missing_comma)
    (13 ())
    (16 log-error)
    (24 2)
    313
    (22 () 307)
    (14 1 7 tos)
    (24 0)
    307
    (23
      (18 1)
      (22 () 308)
      (14 0 0 op)
      (14 2 0 open-paren?)
      (24 1)
      308
      (8)
      (21 () 311)
      (22 () 309)
      (22 () 310)
      (14 2 5 pop)
      (24 0)
      310
      (14 2 11 insert-to-output-queue)
      (24 1)
      309
      (26)
      (14 2 25 process-function-arg)
      (24 0)
      311
      (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 () 320)
    (22 () 315)
    (14 1 5 pop)
    (24 0)
    315
    (23
      (18 1)
      (22 () 316)
      (14 0 0 element)
      (14 2 2 parenthesis?)
      (24 1)
      316
      (21 () 318)
      (13 mismatched_parens)
      (13 ())
      (16 log-error)
      (24 2)
      318
      (22 () 317)
      (14 0 0 element)
      (14 2 11 insert-to-output-queue)
      (24 1)
      317
      (26)
      (14 2 26 clear-operators-from-stack)
      (24 0)
      (name ())
    )
    (24 1)
    320
    (13 ())
    (25)
    (name clear-operators-from-stack)
  )
  (15 0 26 clear-operators-from-stack)
  (26)
  (23
    (18 3)
    (14 0 1 expression)
    (7)
    (21 () 342)
    (13 ())
    (25)
    342
    (14 0 0 previous)
    (0)
    (14 0 1 expression)
    (0)
    (14 0 2 next)
    (0)
    (23
      (18 3)
      (22 () 322)
      (14 0 0 prev)
      (7)
      (21 () 323)
      (14 0 1 expr)
      (13 -)
      (5)
      (19 () 324)
      323
      (13 #f)
      324
      (23
        (18 1)
        (14 0 0 g:::30)
        (21 () 336)
        (14 0 0 g:::30)
        (25)
        336
        (22 () 325)
        (14 1 0 prev)
        (14 3 13 operator?)
        (24 1)
        325
        (21 () 326)
        (14 1 1 expr)
        (13 -)
        (5)
        (19 () 327)
        326
        (13 #f)
        327
        (23
          (18 1)
          (14 0 0 g:::31)
          (21 () 334)
          (14 0 0 g:::31)
          (25)
          334
          (14 2 0 prev)
          (16 open-paren-tok)
          (5)
          (21 () 328)
          (14 2 1 expr)
          (13 -)
          (5)
          (19 () 329)
          328
          (13 #f)
          329
          (23
            (18 1)
            (14 0 0 g:::32)
            (21 () 332)
            (14 0 0 g:::32)
            (25)
            332
            (14 3 0 prev)
            (16 comma-tok)
            (5)
            (21 () 330)
            (14 3 1 expr)
            (13 -)
            (5)
            (25)
            330
            (13 #f)
            (25)
            (name ())
          )
          (24 1)
          (name ())
        )
        (24 1)
        (name ())
      )
      (24 1)
      322
      (21 () 340)
      (13 $neg)
      (22 () 338)
      (14 1 0 previous)
      (1)
      (14 1 1 expression)
      (1)
      (14 1 2 next)
      (14 2 27 filter-unary-minus)
      (24 3)
      338
      (2)
      (25)
      340
      (14 0 1 expr)
      (22 () 339)
      (14 1 0 previous)
      (1)
      (14 1 1 expression)
      (1)
      (14 1 2 next)
      (14 2 27 filter-unary-minus)
      (24 3)
      339
      (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 () 346)
    (13 ())
    (25)
    346
    (22 () 344)
    (14 1 5 pop)
    (24 0)
    344
    (22 () 345)
    (14 0 0 n)
    (13 1)
    (43)
    (14 1 28 pop-n-args)
    (24 1)
    345
    (2)
    (25)
    (name pop-n-args)
  )
  (15 0 28 pop-n-args)
  (26)
  (23
    (18 1)
    (14 0 0 token)
    (13 ((= set!) (/ quotient) (% remainder) (& bitwise-and) (| bitwise-or) (^ bitwise-xor) (~ bitwise-not) (>> shr) (<< shl) ($neg -) (== =)))
    (30)
    (23
      (18 1)
      (14 0 0 scheme-token)
      (21 () 348)
      (14 0 0 scheme-token)
      (11)
      (25)
      348
      (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 () 379)
    (14 1 5 pop)
    (24 0)
    379
    (14 0 0 output-queue)
    (0)
    (23
      (18 1)
      (14 0 0 token)
      (81)
      (21 () 377)
      (22 () 350)
      (14 0 0 token)
      (0)
      (14 2 6 push)
      (24 1)
      350
      (26)
      (19 () 378)
      377
      (22 () 351)
      (14 0 0 token)
      (14 2 13 operator?)
      (24 1)
      351
      (21 () 375)
      (22 () 352)
      (14 0 0 token)
      (14 2 14 binary-operator?)
      (24 1)
      352
      (21 () 360)
      (22 () 353)
      (22 () 354)
      (14 2 5 pop)
      (24 0)
      354
      (22 () 355)
      (14 2 5 pop)
      (24 0)
      355
      (23
        (18 2)
        (22 () 356)
        (14 1 0 token)
        (14 3 29 filter-scheme-function)
        (24 1)
        356
        (14 0 1 right-operand)
        (14 0 0 left-operand)
        (13 ())
        (2)
        (2)
        (2)
        (14 3 6 push)
        (24 1)
        (name ())
      )
      (24 2)
      353
      (26)
      (19 () 361)
      360
      (22 () 357)
      (22 () 358)
      (14 2 5 pop)
      (24 0)
      358
      (23
        (18 1)
        (22 () 359)
        (14 1 0 token)
        (14 3 29 filter-scheme-function)
        (24 1)
        359
        (14 0 0 operand)
        (13 ())
        (2)
        (2)
        (14 3 6 push)
        (24 1)
        (name ())
      )
      (24 1)
      357
      (26)
      361
      (19 () 376)
      375
      (22 () 362)
      (14 0 0 token)
      (16 array-var?)
      (24 1)
      362
      (21 () 373)
      (22 () 363)
      (14 0 0 token)
      (22 () 364)
      (13 1)
      (14 2 28 pop-n-args)
      (24 1)
      364
      (2)
      (14 2 6 push)
      (24 1)
      363
      (26)
      (19 () 374)
      373
      (22 () 365)
      (14 0 0 token)
      (16 function?)
      (24 1)
      365
      (21 () 371)
      (22 () 366)
      (14 0 0 token)
      (22 () 367)
      (22 () 368)
      (22 () 369)
      (14 0 0 token)
      (14 2 15 get-n-args)
      (24 1)
      369
      (14 2 28 pop-n-args)
      (24 1)
      368
      (16 reverse)
      (24 1)
      367
      (2)
      (14 2 6 push)
      (24 1)
      366
      (26)
      (19 () 372)
      371
      (22 () 370)
      (14 0 0 token)
      (14 2 6 push)
      (24 1)
      370
      (26)
      372
      374
      376
      378
      (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 () 388)
    (22 () 381)
    (14 0 1 token)
    (16 array-var?)
    (24 1)
    381
    (21 () 382)
    (13 #t)
    (25)
    382
    (13 #f)
    (25)
    388
    (22 () 384)
    (14 0 1 token)
    (16 array-var?)
    (24 1)
    384
    (21 () 386)
    (22 () 385)
    (14 0 0 expression)
    (11)
    (14 1 0 open-paren?)
    (24 1)
    385
    (8)
    (25)
    386
    (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 () 435)
    (14 1 26 clear-operators-from-stack)
    (24 0)
    435
    (14 0 0 expression)
    (0)
    (23
      (18 1)
      (22 () 390)
      (14 0 0 token)
      (14 2 0 open-paren?)
      (24 1)
      390
      (21 () 433)
      (22 () 391)
      (14 0 0 token)
      (14 2 6 push)
      (24 1)
      391
      (26)
      (19 () 434)
      433
      (22 () 392)
      (14 0 0 token)
      (14 2 1 close-paren?)
      (24 1)
      392
      (21 () 431)
      (22 () 393)
      (14 2 24 pop-ops-until-left-paren)
      (24 0)
      393
      (26)
      (22 () 394)
      (14 2 8 empty-stack?)
      (24 0)
      394
      (21 () 397)
      (13 #f)
      (19 () 398)
      397
      (22 () 395)
      (22 () 396)
      (14 2 7 tos)
      (24 0)
      396
      (14 2 16 function-or-array-var?)
      (24 1)
      395
      398
      (21 () 401)
      (22 () 399)
      (22 () 400)
      (14 2 5 pop)
      (24 0)
      400
      (14 2 11 insert-to-output-queue)
      (24 1)
      399
      (26)
      (19 () 402)
      401
      402
      (19 () 432)
      431
      (22 () 403)
      (14 0 0 token)
      (14 2 17 function-argument-separator?)
      (24 1)
      403
      (21 () 429)
      (22 () 404)
      (14 2 25 process-function-arg)
      (24 0)
      404
      (26)
      (19 () 430)
      429
      (22 () 405)
      (14 0 0 token)
      (14 2 13 operator?)
      (24 1)
      405
      (21 () 427)
      (22 () 406)
      (14 0 0 token)
      (14 2 23 pop-ops-with-less-than-or-equal-precedence)
      (24 1)
      406
      (26)
      (22 () 407)
      (14 0 0 token)
      (14 2 6 push)
      (24 1)
      407
      (26)
      (19 () 428)
      427
      (22 () 408)
      (14 1 0 expression)
      (14 0 0 token)
      (14 2 31 array-var-no-args?)
      (24 2)
      408
      (21 () 425)
      (22 () 409)
      (14 0 0 token)
      (13 ())
      (2)
      (14 2 6 push)
      (24 1)
      409
      (26)
      (19 () 426)
      425
      (22 () 410)
      (22 () 411)
      (14 0 0 token)
      (14 2 22 my-number?)
      (24 1)
      411
      (23
        (18 1)
        (14 0 0 g:::33)
        (21 () 414)
        (14 0 0 g:::33)
        (25)
        414
        (14 1 0 token)
        (33)
        (23
          (18 1)
          (14 0 0 g:::34)
          (21 () 412)
          (14 0 0 g:::34)
          (25)
          412
          (14 3 0 expression)
          (14 2 0 token)
          (14 4 31 array-var-no-args?)
          (24 2)
          (name ())
        )
        (24 1)
        (name ())
      )
      (24 1)
      410
      (21 () 423)
      (22 () 416)
      (14 0 0 token)
      (14 2 11 insert-to-output-queue)
      (24 1)
      416
      (26)
      (19 () 424)
      423
      (22 () 417)
      (14 0 0 token)
      (14 2 16 function-or-array-var?)
      (24 1)
      417
      (21 () 421)
      (22 () 418)
      (14 0 0 token)
      (14 2 6 push)
      (24 1)
      418
      (26)
      (19 () 422)
      421
      (22 () 419)
      (13 undefined_identifier)
      (14 0 0 token)
      (16 log-error)
      (24 2)
      419
      (26)
      (22 () 420)
      (14 0 0 token)
      (14 2 11 insert-to-output-queue)
      (24 1)
      420
      (26)
      422
      424
      426
      428
      430
      432
      434
      (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 () 437)
    (13 ())
    (14 0 0 expression)
    (2)
    (14 0 0 expression)
    (22 () 438)
    (14 0 0 expression)
    (13 (()))
    (16 append)
    (24 2)
    438
    (14 1 27 filter-unary-minus)
    (24 3)
    437
    (15 0 0 expression)
    (26)
    (13 ())
    (15 1 4 stack)
    (26)
    (13 ())
    (15 1 10 output-queue)
    (26)
    (22 () 439)
    (14 0 0 expression)
    (14 1 32 shunt-proper)
    (24 1)
    439
    (26)
    (22 () 440)
    (14 1 10 output-queue)
    (16 reverse)
    (24 1)
    440
    (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)
232
(17 shunt)
(26)
(23
  (18 2)
  (40)
  (26)
  (13 "*** ERROR ")
  (39)
  (26)
  (22 () 441)
  (14 0 0 error)
  (23
    (18 1)
    (14 0 0 g:::35)
    (13 rest_of_program_ignored)
    (76)
    (21 () 466)
    (13 "rest of program ignored")
    (39)
    (25)
    466
    (14 0 0 g:::35)
    (13 expect_token)
    (76)
    (21 () 464)
    (14 1 1 token)
    (39)
    (26)
    (13 " expected")
    (39)
    (25)
    464
    (14 0 0 g:::35)
    (13 bad_statement)
    (76)
    (21 () 462)
    (13 "bad statement ")
    (39)
    (26)
    (14 1 1 token)
    (39)
    (25)
    462
    (14 0 0 g:::35)
    (13 control_var_mismatch)
    (76)
    (21 () 460)
    (13 "control and increment var not the same")
    (39)
    (25)
    460
    (14 0 0 g:::35)
    (13 expecting_incr_decr)
    (76)
    (21 () 458)
    (13 "expecting ++ or --")
    (39)
    (25)
    458
    (14 0 0 g:::35)
    (13 number_expected)
    (76)
    (21 () 456)
    (13 "number expected instead of: ")
    (39)
    (26)
    (14 1 1 token)
    (39)
    (25)
    456
    (14 0 0 g:::35)
    (13 max_allowed_formal_parameters)
    (76)
    (21 () 454)
    (13 "maximum number of allowed formal parameters exceeded")
    (39)
    (25)
    454
    (14 0 0 g:::35)
    (13 mismatched_parens)
    (76)
    (21 () 452)
    (13 "mismatched parentheses")
    (39)
    (25)
    452
    (14 0 0 g:::35)
    (13 mismatched_parens_or_missing_comma)
    (76)
    (21 () 450)
    (13 "mismatched parentheses or misplaced comma")
    (39)
    (25)
    450
    (14 0 0 g:::35)
    (13 stack_underflow)
    (76)
    (21 () 448)
    (13 "stack underflow")
    (39)
    (25)
    448
    (14 0 0 g:::35)
    (13 undefined_constant)
    (76)
    (21 () 446)
    (13 "undefined constant: ")
    (39)
    (26)
    (14 1 1 token)
    (39)
    (25)
    446
    (14 0 0 g:::35)
    (13 undefined_identifier)
    (76)
    (21 () 444)
    (13 "undefined identifier: ")
    (39)
    (26)
    (14 1 1 token)
    (39)
    (25)
    444
    (14 0 0 g:::35)
    (13 string_expected)
    (76)
    (21 () 442)
    (13 "string expected: ")
    (39)
    (26)
    (14 1 1 token)
    (39)
    (25)
    442
    (13 #f)
    (25)
    (name ())
  )
  (24 1)
  441
  (26)
  (40)
  (25)
  (name log-error)
)
(17 log-error)
(26)
(23
  (18 1)
  (22 () 468)
  (16 get-token)
  (24 0)
  468
  (23
    (18 1)
    (14 0 0 token)
    (14 1 0 expected-token)
    (5)
    (8)
    (21 () 469)
    (13 expect_token)
    (14 1 0 expected-token)
    (16 log-error)
    (24 2)
    469
    (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 () 473)
      (13 ())
      (25)
      473
      (22 () 471)
      (14 0 0 binary-tree)
      (0)
      (16 filter-vector-ref)
      (24 1)
      471
      (22 () 472)
      (14 0 0 binary-tree)
      (1)
      (16 filter-vector-ref)
      (24 1)
      472
      (2)
      (25)
      (name filter-vector-ref-fn-args)
    )
    (15 0 0 filter-vector-ref-fn-args)
    (26)
    (14 1 0 binary-tree)
    (7)
    (21 () 493)
    (13 ())
    (25)
    493
    (14 1 0 binary-tree)
    (13 $neg)
    (5)
    (21 () 491)
    (13 -)
    (25)
    491
    (14 1 0 binary-tree)
    (81)
    (21 () 489)
    (22 () 475)
    (14 1 0 binary-tree)
    (0)
    (16 function?)
    (24 1)
    475
    (21 () 487)
    (14 1 0 binary-tree)
    (0)
    (22 () 476)
    (14 1 0 binary-tree)
    (1)
    (14 0 0 filter-vector-ref-fn-args)
    (24 1)
    476
    (2)
    (25)
    487
    (14 1 0 binary-tree)
    (31)
    (13 2)
    (47)
    (21 () 485)
    (22 () 477)
    (14 1 0 binary-tree)
    (0)
    (16 array-var?)
    (24 1)
    477
    (21 () 481)
    (13 vector-ref)
    (14 1 0 binary-tree)
    (0)
    (22 () 478)
    (14 1 0 binary-tree)
    (11)
    (16 filter-vector-ref)
    (24 1)
    478
    (13 ())
    (2)
    (2)
    (2)
    (25)
    481
    (22 () 479)
    (14 1 0 binary-tree)
    (0)
    (16 filter-vector-ref)
    (24 1)
    479
    (22 () 480)
    (14 1 0 binary-tree)
    (1)
    (16 filter-vector-ref)
    (24 1)
    480
    (2)
    (25)
    485
    (22 () 483)
    (14 1 0 binary-tree)
    (0)
    (16 filter-vector-ref)
    (24 1)
    483
    (22 () 484)
    (14 1 0 binary-tree)
    (1)
    (16 filter-vector-ref)
    (24 1)
    484
    (2)
    (25)
    489
    (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 () 504)
  (14 0 0 expression)
  (31)
  (13 3)
  (47)
  (21 () 502)
  (14 0 0 expression)
  (0)
  (13 set!)
  (5)
  (21 () 500)
  (14 0 0 expression)
  (11)
  (81)
  (21 () 498)
  (22 () 495)
  (14 0 0 expression)
  (11)
  (0)
  (16 array-var?)
  (24 1)
  495
  (21 () 496)
  (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)
  496
  (14 0 0 expression)
  (25)
  498
  (14 0 0 expression)
  (25)
  500
  (14 0 0 expression)
  (25)
  502
  (14 0 0 expression)
  (25)
  504
  (14 0 0 expression)
  (25)
  (name filter-vector-set)
)
(17 filter-vector-set)
(26)
(23
  (18 1)
  (13 ())
  (17 tokens)
  (26)
  (22 () 506)
  (22 () 507)
  (16 get-token)
  (24 0)
  507
  (22 () 508)
  (13 ())
  (23
    (18 1)
    (23
      (18 1)
      (22 () 509)
      (16 lookahead)
      (24 0)
      509
      (23
        (18 1)
        (22 () 510)
        (14 1 0 token)
        (16 close-paren-tok)
        (5)
        (21 () 512)
        (22 () 511)
        (14 0 0 next-token)
        (16 identifier?)
        (24 1)
        511
        (19 () 513)
        512
        (13 #f)
        513
        (23
          (18 1)
          (14 0 0 g:::36)
          (21 () 535)
          (14 0 0 g:::36)
          (25)
          535
          (14 2 0 token)
          (16 close-bracket-tok)
          (5)
          (21 () 515)
          (22 () 514)
          (14 1 0 next-token)
          (16 identifier?)
          (24 1)
          514
          (19 () 516)
          515
          (13 #f)
          516
          (23
            (18 1)
            (14 0 0 g:::37)
            (21 () 533)
            (14 0 0 g:::37)
            (25)
            533
            (14 3 0 token)
            (16 close-paren-tok)
            (5)
            (21 () 517)
            (14 2 0 next-token)
            (16 semi-colon-tok)
            (5)
            (19 () 518)
            517
            (13 #f)
            518
            (23
              (18 1)
              (14 0 0 g:::38)
              (21 () 531)
              (14 0 0 g:::38)
              (25)
              531
              (14 4 0 token)
              (16 close-bracket-tok)
              (5)
              (21 () 519)
              (14 3 0 next-token)
              (16 semi-colon-tok)
              (5)
              (19 () 520)
              519
              (13 #f)
              520
              (23
                (18 1)
                (14 0 0 g:::39)
                (21 () 529)
                (14 0 0 g:::39)
                (25)
                529
                (22 () 521)
                (14 5 0 token)
                (16 identifier?)
                (24 1)
                521
                (21 () 522)
                (14 4 0 next-token)
                (16 semi-colon-tok)
                (5)
                (19 () 523)
                522
                (13 #f)
                523
                (23
                  (18 1)
                  (14 0 0 g:::40)
                  (21 () 527)
                  (14 0 0 g:::40)
                  (25)
                  527
                  (22 () 524)
                  (14 6 0 token)
                  (16 identifier?)
                  (24 1)
                  524
                  (21 () 525)
                  (14 5 0 next-token)
                  (16 identifier?)
                  (24 1)
                  525
                  (13 #f)
                  (25)
                  (name ())
                )
                (24 1)
                (name ())
              )
              (24 1)
              (name ())
            )
            (24 1)
            (name ())
          )
          (24 1)
          (name ())
        )
        (24 1)
        510
        (21 () 540)
        (14 3 0 leave-off-final-close-paren?)
        (8)
        (21 () 537)
        (14 1 0 token)
        (16 tokens)
        (2)
        (17 tokens)
        (25)
        537
        (13 ())
        (25)
        540
        (14 1 0 token)
        (16 tokens)
        (2)
        (17 tokens)
        (26)
        (22 () 539)
        (16 get-token)
        (24 0)
        539
        (14 2 0 loop)
        (24 1)
        (name ())
      )
      (24 1)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  508
  (24 1)
  506
  (26)
  (22 () 542)
  (16 tokens)
  (16 reverse)
  (24 1)
  542
  (17 tokens)
  (26)
  (14 0 0 leave-off-final-close-paren?)
  (8)
  (21 () 547)
  (22 () 543)
  (16 lookahead)
  (24 0)
  543
  (16 semi-colon-tok)
  (5)
  (21 () 545)
  (22 () 544)
  (16 get-token)
  (24 0)
  544
  (26)
  (19 () 546)
  545
  546
  (19 () 548)
  547
  548
  (22 () 549)
  (22 () 550)
  (16 tokens)
  (16 list->vector)
  (24 1)
  550
  (16 balanced-parens-and-brackets?)
  (24 1)
  549
  (8)
  (21 () 552)
  (22 () 551)
  (13 mismatched_parens)
  (13 ())
  (16 log-error)
  (24 2)
  551
  (26)
  (19 () 553)
  552
  553
  (22 () 554)
  (22 () 555)
  (22 () 556)
  (16 tokens)
  (16 shunt)
  (24 1)
  556
  (16 filter-vector-set)
  (24 1)
  555
  (16 filter-vector-ref)
  (24 1)
  554
  (39)
  (25)
  (name parse-expression)
)
(17 parse-expression)
(26)
(23
  (18 1)
  (14 0 0 level)
  (13 0)
  (51)
  (21 () 557)
  (13 "  ")
  (39)
  (26)
  (14 0 0 level)
  (13 1)
  (43)
  (16 indent)
  (24 1)
  557
  (13 ())
  (25)
  (name indent)
)
(17 indent)
(26)
(23
  (18 1)
  (22 () 559)
  (16 get-token)
  (24 0)
  559
  (23
    (18 1)
    (14 0 0 token)
    (14 1 0 expected-token)
    (5)
    (8)
    (21 () 560)
    (13 expect_token)
    (14 1 0 expected-token)
    (16 log-error)
    (24 2)
    560
    (13 ())
    (25)
    (name ())
  )
  (24 1)
  (name expect)
)
(17 expect)
(26)
(23
  (18 0)
  (22 () 562)
  (16 include-tok)
  (16 expect)
  (24 1)
  562
  (26)
  (22 () 563)
  (16 less-than-tok)
  (16 expect)
  (24 1)
  563
  (26)
  (22 () 564)
  (16 get-token)
  (24 0)
  564
  (22 () 565)
  (13 ())
  (23
    (18 1)
    (23
      (18 1)
      (14 0 0 token)
      (16 greater-than-tok)
      (5)
      (8)
      (21 () 567)
      (22 () 566)
      (16 get-token)
      (24 0)
      566
      (14 1 0 loop)
      (24 1)
      567
      (13 ())
      (25)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  565
  (24 1)
  (name parse-include)
)
(17 parse-include)
(26)
(22 () 569)
(16 make-hash)
(24 0)
569
(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 () 570)
  (16 constants)
  (14 0 0 name)
  (16 hash-ref)
  (24 2)
  570
  (23
    (18 1)
    (14 0 0 value)
    (21 () 572)
    (14 0 0 value)
    (11)
    (25)
    572
    (22 () 571)
    (13 undefined_constant)
    (14 1 0 name)
    (16 log-error)
    (24 2)
    571
    (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 () 574)
(16 make-hash)
(24 0)
574
(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 () 575)
    (14 0 0 found)
    (25)
    575
    (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 () 577)
    (14 0 0 found)
    (25)
    577
    (14 1 0 x)
    (16 local-variables)
    (30)
    (25)
    (name ())
  )
  (24 1)
  (name local-var?)
)
(17 local-var?)
(26)
(23
  (18 0)
  (22 () 579)
  (16 define-tok)
  (16 expect)
  (24 1)
  579
  (26)
  (22 () 580)
  (16 get-token)
  (24 0)
  580
  (22 () 581)
  (16 get-token)
  (24 0)
  581
  (23
    (18 2)
    (14 0 1 value)
    (32)
    (8)
    (21 () 583)
    (22 () 582)
    (13 number_expected)
    (14 0 1 value)
    (16 log-error)
    (24 2)
    582
    (26)
    (13 0)
    (15 0 1 value)
    (26)
    (19 () 584)
    583
    584
    (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 () 585)
    (13 0)
    (16 display-comments)
    (24 1)
    585
    (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 () 586)
  (13 ())
  (23
    (18 1)
    (23
      (18 0)
      (22 () 587)
      (16 lookahead)
      (24 0)
      587
      (16 pound-tok)
      (5)
      (21 () 594)
      (22 () 588)
      (16 get-token)
      (24 0)
      588
      (26)
      (22 () 589)
      (16 lookahead)
      (24 0)
      589
      (16 include-tok)
      (5)
      (21 () 592)
      (22 () 590)
      (16 parse-include)
      (24 0)
      590
      (26)
      (19 () 593)
      592
      (22 () 591)
      (16 parse-define)
      (24 0)
      591
      (26)
      593
      (14 1 0 loop)
      (24 0)
      594
      (13 ())
      (25)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  586
  (24 0)
  (name parse-includes-and-defines)
)
(17 parse-includes-and-defines)
(26)
(23
  (18 1)
  (22 () 596)
  (16 integer-tok)
  (16 expect)
  (24 1)
  596
  (26)
  (22 () 597)
  (16 get-token)
  (24 0)
  597
  (13 ())
  (13 ())
  (23
    (18 3)
    (22 () 598)
    (16 lookahead)
    (24 0)
    598
    (16 open-bracket-tok)
    (5)
    (21 () 608)
    (22 () 599)
    (16 get-token)
    (24 0)
    599
    (26)
    (22 () 600)
    (16 get-token)
    (24 0)
    600
    (15 0 1 value)
    (26)
    (14 0 0 name)
    (16 arrays)
    (2)
    (17 arrays)
    (26)
    (14 0 1 value)
    (32)
    (8)
    (21 () 605)
    (22 () 601)
    (14 0 1 value)
    (16 get-constant-value)
    (24 1)
    601
    (15 0 1 value)
    (26)
    (14 0 1 value)
    (8)
    (21 () 603)
    (22 () 602)
    (13 undefined_constant)
    (14 0 0 name)
    (16 log_error)
    (24 2)
    602
    (26)
    (13 1)
    (15 0 1 value)
    (26)
    (19 () 604)
    603
    604
    (19 () 606)
    605
    606
    (22 () 607)
    (16 close-bracket-tok)
    (16 expect)
    (24 1)
    607
    (26)
    (19 () 609)
    608
    609
    (22 () 610)
    (16 semi-colon-tok)
    (16 expect)
    (24 1)
    610
    (26)
    (13 "(")
    (39)
    (26)
    (14 0 0 name)
    (39)
    (26)
    (13 " ")
    (39)
    (26)
    (14 0 1 value)
    (7)
    (21 () 611)
    (13 "0)")
    (39)
    (26)
    (40)
    (26)
    (19 () 612)
    611
    (13 "(make-vector ")
    (39)
    (26)
    (14 0 1 value)
    (39)
    (26)
    (13 " 0))")
    (39)
    (26)
    (40)
    (26)
    612
    (14 1 0 top-level)
    (21 () 615)
    (22 () 613)
    (14 0 0 name)
    (14 0 1 value)
    (16 define-global-var-name-value)
    (24 2)
    613
    (26)
    (13 1)
    (16 display-comments)
    (24 1)
    615
    (22 () 614)
    (14 0 0 name)
    (14 0 1 value)
    (16 define-local-var-name-value)
    (24 2)
    614
    (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 () 618)
  (13 ())
  (17 local-variables)
  (26)
  (22 () 617)
  (13 3)
  (16 indent)
  (24 1)
  617
  (26)
  (19 () 619)
  618
  619
  (13 "(let (")
  (39)
  (26)
  (40)
  (26)
  (22 () 620)
  (22 () 621)
  (13 ())
  (23
    (18 1)
    (23
      (18 0)
      (22 () 622)
      (16 lookahead-var)
      (24 0)
      622
      (21 () 628)
      (14 2 0 top-level)
      (21 () 625)
      (22 () 623)
      (13 1)
      (16 indent)
      (24 1)
      623
      (26)
      (19 () 626)
      625
      (22 () 624)
      (13 4)
      (16 indent)
      (24 1)
      624
      (26)
      626
      (22 () 627)
      (14 2 0 top-level)
      (16 parse-variable-definition)
      (24 1)
      627
      (26)
      (14 1 0 loop)
      (24 0)
      628
      (13 ())
      (25)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  621
  (24 0)
  620
  (26)
  (14 0 0 top-level)
  (21 () 632)
  (22 () 630)
  (13 1)
  (16 indent)
  (24 1)
  630
  (26)
  (19 () 633)
  632
  (22 () 631)
  (13 4)
  (16 indent)
  (24 1)
  631
  (26)
  633
  (13 ")")
  (39)
  (26)
  (40)
  (25)
  (name parse-variable-definitions)
)
(17 parse-variable-definitions)
(26)
(23
  (18 1)
  (22 () 634)
  (14 0 0 level)
  (16 indent)
  (24 1)
  634
  (26)
  (13 "(if (__test ")
  (39)
  (26)
  (22 () 635)
  (16 lookahead)
  (24 0)
  635
  (16 open-paren-tok)
  (5)
  (8)
  (21 () 637)
  (22 () 636)
  (13 expect_token)
  (16 open-paren-tok)
  (16 log-error)
  (24 2)
  636
  (26)
  (19 () 638)
  637
  638
  (22 () 639)
  (13 #f)
  (16 parse-expression)
  (24 1)
  639
  (26)
  (13 ")")
  (39)
  (26)
  (40)
  (26)
  (22 () 640)
  (14 0 0 level)
  (13 1)
  (42)
  (16 parse-statement)
  (24 1)
  640
  (26)
  (22 () 641)
  (16 lookahead)
  (24 0)
  641
  (16 else-tok)
  (5)
  (21 () 644)
  (22 () 642)
  (16 get-token)
  (24 0)
  642
  (26)
  (40)
  (26)
  (22 () 643)
  (14 0 0 level)
  (13 1)
  (42)
  (16 parse-statement)
  (24 1)
  643
  (26)
  (19 () 645)
  644
  645
  (13 ")")
  (39)
  (25)
  (name parse-if-statement)
)
(17 parse-if-statement)
(26)
(23
  (18 1)
  (22 () 646)
  (14 0 0 level)
  (16 indent)
  (24 1)
  646
  (26)
  (13 "(let loop ()")
  (39)
  (26)
  (40)
  (26)
  (22 () 647)
  (14 0 0 level)
  (13 1)
  (42)
  (16 indent)
  (24 1)
  647
  (26)
  (13 "(if (__test ")
  (39)
  (26)
  (22 () 648)
  (16 lookahead)
  (24 0)
  648
  (16 open-paren-tok)
  (5)
  (8)
  (21 () 650)
  (22 () 649)
  (13 expect_token)
  (16 open-paren-tok)
  (16 log-error)
  (24 2)
  649
  (26)
  (19 () 651)
  650
  651
  (22 () 652)
  (13 #f)
  (16 parse-expression)
  (24 1)
  652
  (26)
  (13 ")")
  (39)
  (26)
  (40)
  (26)
  (22 () 653)
  (14 0 0 level)
  (13 2)
  (42)
  (16 indent)
  (24 1)
  653
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 654)
  (14 0 0 level)
  (13 3)
  (42)
  (16 parse-statement)
  (24 1)
  654
  (26)
  (40)
  (26)
  (22 () 655)
  (14 0 0 level)
  (13 3)
  (42)
  (16 indent)
  (24 1)
  655
  (26)
  (13 "(loop))))")
  (39)
  (25)
  (name parse-while-statement)
)
(17 parse-while-statement)
(26)
(23
  (18 1)
  (22 () 656)
  (14 0 0 level)
  (16 indent)
  (24 1)
  656
  (26)
  (13 "(let loop ()")
  (39)
  (26)
  (40)
  (26)
  (22 () 657)
  (14 0 0 level)
  (13 1)
  (42)
  (16 indent)
  (24 1)
  657
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 658)
  (16 begin-tok)
  (16 expect)
  (24 1)
  658
  (26)
  (22 () 659)
  (22 () 660)
  (13 ())
  (23
    (18 1)
    (23
      (18 0)
      (22 () 661)
      (16 lookahead)
      (24 0)
      661
      (16 end-tok)
      (5)
      (8)
      (21 () 663)
      (22 () 662)
      (14 2 0 level)
      (13 2)
      (42)
      (16 parse-statement)
      (24 1)
      662
      (26)
      (40)
      (26)
      (14 1 0 loop)
      (24 0)
      663
      (13 ())
      (25)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  660
  (24 0)
  659
  (26)
  (22 () 665)
  (16 end-tok)
  (16 expect)
  (24 1)
  665
  (26)
  (22 () 666)
  (16 while-tok)
  (16 expect)
  (24 1)
  666
  (26)
  (22 () 667)
  (16 lookahead)
  (24 0)
  667
  (16 open-paren-tok)
  (5)
  (8)
  (21 () 669)
  (22 () 668)
  (13 expect_token)
  (16 open-paren-tok)
  (16 log-error)
  (24 2)
  668
  (26)
  (19 () 670)
  669
  670
  (22 () 671)
  (14 0 0 level)
  (13 2)
  (42)
  (16 indent)
  (24 1)
  671
  (26)
  (13 "(if (__test ")
  (39)
  (26)
  (22 () 672)
  (13 #f)
  (16 parse-expression)
  (24 1)
  672
  (26)
  (13 ")")
  (39)
  (26)
  (40)
  (26)
  (40)
  (26)
  (22 () 673)
  (14 0 0 level)
  (13 3)
  (42)
  (16 indent)
  (24 1)
  673
  (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 () 674)
    (16 open-paren-tok)
    (16 expect)
    (24 1)
    674
    (26)
    (22 () 675)
    (14 1 0 level)
    (13 1)
    (42)
    (16 indent)
    (24 1)
    675
    (26)
    (13 "(begin")
    (39)
    (26)
    (40)
    (26)
    (22 () 676)
    (14 1 0 level)
    (13 1)
    (42)
    (16 indent)
    (24 1)
    676
    (26)
    (22 () 677)
    (16 lookahead)
    (24 0)
    677
    (15 0 0 control-var)
    (26)
    (22 () 678)
    (13 #f)
    (16 parse-expression)
    (24 1)
    678
    (26)
    (40)
    (26)
    (22 () 679)
    (14 1 0 level)
    (13 1)
    (42)
    (16 indent)
    (24 1)
    679
    (26)
    (13 "(let loop ()")
    (39)
    (26)
    (40)
    (26)
    (22 () 680)
    (14 1 0 level)
    (13 2)
    (42)
    (16 indent)
    (24 1)
    680
    (26)
    (13 "(if (__test ")
    (39)
    (26)
    (22 () 681)
    (13 #f)
    (16 parse-expression)
    (24 1)
    681
    (26)
    (13 ")")
    (39)
    (26)
    (40)
    (26)
    (22 () 682)
    (14 1 0 level)
    (13 3)
    (42)
    (16 indent)
    (24 1)
    682
    (26)
    (13 "(begin")
    (39)
    (26)
    (40)
    (26)
    (22 () 683)
    (16 get-token)
    (24 0)
    683
    (14 0 0 control-var)
    (5)
    (8)
    (21 () 685)
    (22 () 684)
    (13 control_var_mismatch)
    (13 ())
    (16 log-error)
    (24 2)
    684
    (26)
    (19 () 686)
    685
    686
    (22 () 687)
    (16 get-token)
    (24 0)
    687
    (15 0 1 incr)
    (26)
    (22 () 688)
    (14 0 1 incr)
    (16 succ-tok)
    (5)
    (23
      (18 1)
      (14 0 0 g:::41)
      (21 () 689)
      (14 0 0 g:::41)
      (25)
      689
      (14 1 1 incr)
      (16 pred-tok)
      (5)
      (25)
      (name ())
    )
    (24 1)
    688
    (8)
    (21 () 692)
    (22 () 691)
    (13 expecting_incr_decr)
    (13 ())
    (16 log-error)
    (24 2)
    691
    (26)
    (19 () 693)
    692
    693
    (22 () 694)
    (16 close-paren-tok)
    (16 expect)
    (24 1)
    694
    (26)
    (22 () 695)
    (14 1 0 level)
    (13 4)
    (42)
    (16 parse-statement)
    (24 1)
    695
    (26)
    (40)
    (26)
    (22 () 696)
    (14 1 0 level)
    (13 4)
    (42)
    (16 indent)
    (24 1)
    696
    (26)
    (14 0 1 incr)
    (16 succ-tok)
    (5)
    (21 () 697)
    (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 () 698)
    697
    (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)
    698
    (40)
    (26)
    (22 () 699)
    (14 1 0 level)
    (13 4)
    (42)
    (16 indent)
    (24 1)
    699
    (26)
    (13 "(loop)))))")
    (39)
    (26)
    (40)
    (25)
    (name ())
  )
  (24 2)
  (name parse-for-statement)
)
(17 parse-for-statement)
(26)
(23
  (18 0)
  (22 () 700)
  (16 get-token)
  (24 0)
  700
  (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 () 701)
    (16 lookahead)
    (24 0)
    701
    (16 end-tok)
    (5)
    (8)
    (21 () 725)
    (22 () 702)
    (16 case-tok)
    (16 expect)
    (24 1)
    702
    (26)
    (22 () 703)
    (16 get-token)
    (24 0)
    703
    (15 0 0 number)
    (26)
    (14 0 0 number)
    (32)
    (8)
    (21 () 705)
    (22 () 704)
    (14 0 0 number)
    (16 get-constant-value)
    (24 1)
    704
    (15 0 0 number)
    (26)
    (19 () 706)
    705
    706
    (22 () 707)
    (16 colon-tok)
    (16 expect)
    (24 1)
    707
    (26)
    (22 () 708)
    (14 1 0 level)
    (16 indent)
    (24 1)
    708
    (26)
    (13 "((")
    (39)
    (26)
    (14 0 0 number)
    (39)
    (26)
    (13 ")")
    (39)
    (26)
    (40)
    (26)
    (22 () 709)
    (22 () 710)
    (13 ())
    (23
      (18 1)
      (23
        (18 0)
        (22 () 711)
        (16 lookahead)
        (24 0)
        711
        (16 end-tok)
        (5)
        (21 () 713)
        (13 #f)
        (19 () 714)
        713
        (22 () 712)
        (16 lookahead)
        (24 0)
        712
        (16 case-tok)
        (5)
        (8)
        714
        (21 () 723)
        (22 () 715)
        (16 lookahead)
        (24 0)
        715
        (16 break-tok)
        (5)
        (21 () 721)
        (22 () 716)
        (16 parse-break-statement)
        (24 0)
        716
        (26)
        (19 () 722)
        721
        (22 () 717)
        (14 3 0 level)
        (13 1)
        (42)
        (16 parse-statement)
        (24 1)
        717
        (26)
        (22 () 718)
        (16 lookahead)
        (24 0)
        718
        (16 break-tok)
        (5)
        (8)
        (21 () 719)
        (40)
        (26)
        (19 () 720)
        719
        720
        722
        (14 1 0 loop)
        (24 0)
        723
        (13 ())
        (25)
        (name loop)
      )
      (15 0 0 loop)
      (26)
      (14 0 0 loop)
      (25)
      (name ())
    )
    (24 1)
    710
    (24 0)
    709
    (26)
    (13 ")")
    (39)
    (26)
    (40)
    (25)
    725
    (13 ())
    (25)
    (name ())
  )
  (24 1)
  (name parse-case-list-element)
)
(17 parse-case-list-element)
(26)
(23
  (18 1)
  (22 () 727)
  (16 lookahead)
  (24 0)
  727
  (16 end-tok)
  (5)
  (8)
  (21 () 729)
  (22 () 728)
  (14 0 0 level)
  (16 parse-case-list-element)
  (24 1)
  728
  (26)
  (14 0 0 level)
  (16 parse-case-list-elements)
  (24 1)
  729
  (13 ())
  (25)
  (name parse-case-list-elements)
)
(17 parse-case-list-elements)
(26)
(23
  (18 1)
  (22 () 731)
  (16 lookahead)
  (24 0)
  731
  (16 open-paren-tok)
  (5)
  (8)
  (21 () 733)
  (22 () 732)
  (13 expect_token)
  (16 open-paren-tok)
  (16 log-error)
  (24 2)
  732
  (26)
  (19 () 734)
  733
  734
  (22 () 735)
  (14 0 0 level)
  (16 indent)
  (24 1)
  735
  (26)
  (13 "(case")
  (39)
  (26)
  (40)
  (26)
  (22 () 736)
  (14 0 0 level)
  (13 1)
  (42)
  (16 indent)
  (24 1)
  736
  (26)
  (22 () 737)
  (13 #f)
  (16 parse-expression)
  (24 1)
  737
  (26)
  (40)
  (26)
  (22 () 738)
  (16 begin-tok)
  (16 expect)
  (24 1)
  738
  (26)
  (22 () 739)
  (14 0 0 level)
  (13 1)
  (42)
  (16 parse-case-list-elements)
  (24 1)
  739
  (26)
  (22 () 740)
  (16 end-tok)
  (16 expect)
  (24 1)
  740
  (26)
  (22 () 741)
  (14 0 0 level)
  (16 indent)
  (24 1)
  741
  (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 () 743)
  (14 0 0 s)
  (25)
  743
  (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 () 742)
  (14 0 0 s)
  (12)
  (12)
  (16 get-4-chars)
  (24 1)
  742
  (2)
  (25)
  (name get-4-chars)
)
(17 get-4-chars)
(26)
(23
  (18 2)
  (14 0 0 s)
  (7)
  (8)
  (21 () 748)
  (14 0 0 s)
  (0)
  (23
    (18 1)
    (22 () 745)
    (14 1 1 level)
    (16 indent)
    (24 1)
    745
    (26)
    (14 0 0 x)
    (32)
    (21 () 746)
    (13 "(__put4chars ")
    (39)
    (26)
    (14 0 0 x)
    (39)
    (26)
    (13 ")")
    (39)
    (26)
    (19 () 747)
    746
    (13 "(putchar ")
    (39)
    (26)
    (14 0 0 x)
    (78)
    (39)
    (26)
    (13 ")")
    (39)
    (26)
    747
    (40)
    (26)
    (14 1 0 s)
    (1)
    (14 1 1 level)
    (16 display-packed-string)
    (24 2)
    (name ())
  )
  (24 1)
  748
  (13 ())
  (25)
  (name display-packed-string)
)
(17 display-packed-string)
(26)
(23
  (18 1)
  (22 () 750)
  (16 lookahead)
  (24 0)
  750
  (23
    (18 1)
    (22 () 751)
    (14 1 0 level)
    (16 display-comments)
    (24 1)
    751
    (26)
    (14 0 0 token)
    (16 begin-tok)
    (5)
    (21 () 809)
    (22 () 752)
    (14 1 0 level)
    (16 indent)
    (24 1)
    752
    (26)
    (13 "(begin")
    (39)
    (26)
    (40)
    (26)
    (22 () 753)
    (14 1 0 level)
    (13 1)
    (42)
    (16 parse-compound-statement)
    (24 1)
    753
    (26)
    (13 ")")
    (39)
    (25)
    809
    (14 0 0 token)
    (16 if-tok)
    (5)
    (21 () 807)
    (22 () 754)
    (16 get-token)
    (24 0)
    754
    (26)
    (14 1 0 level)
    (16 parse-if-statement)
    (24 1)
    807
    (14 0 0 token)
    (16 while-tok)
    (5)
    (21 () 805)
    (22 () 755)
    (16 get-token)
    (24 0)
    755
    (26)
    (14 1 0 level)
    (16 parse-while-statement)
    (24 1)
    805
    (14 0 0 token)
    (16 do-tok)
    (5)
    (21 () 803)
    (22 () 756)
    (16 get-token)
    (24 0)
    756
    (26)
    (14 1 0 level)
    (16 parse-repeat-statement)
    (24 1)
    803
    (14 0 0 token)
    (16 for-tok)
    (5)
    (21 () 801)
    (22 () 757)
    (16 get-token)
    (24 0)
    757
    (26)
    (14 1 0 level)
    (16 parse-for-statement)
    (24 1)
    801
    (14 0 0 token)
    (16 switch-tok)
    (5)
    (21 () 799)
    (22 () 758)
    (16 get-token)
    (24 0)
    758
    (26)
    (14 1 0 level)
    (16 parse-case-statement)
    (24 1)
    799
    (14 0 0 token)
    (16 end-tok)
    (5)
    (21 () 797)
    (13 ())
    (25)
    797
    (14 0 0 token)
    (16 return-tok)
    (5)
    (21 () 795)
    (22 () 759)
    (16 get-token)
    (24 0)
    759
    (26)
    (22 () 760)
    (16 lookahead)
    (24 0)
    760
    (16 semi-colon-tok)
    (5)
    (21 () 765)
    (22 () 761)
    (16 get-token)
    (24 0)
    761
    (26)
    (22 () 762)
    (14 1 0 level)
    (16 indent)
    (24 1)
    762
    (26)
    (13 "(return-from-procedure)")
    (39)
    (25)
    765
    (22 () 763)
    (14 1 0 level)
    (16 indent)
    (24 1)
    763
    (26)
    (13 "(return ")
    (39)
    (26)
    (22 () 764)
    (13 #f)
    (16 parse-expression)
    (24 1)
    764
    (26)
    (13 ")")
    (39)
    (25)
    795
    (14 0 0 token)
    (16 printf-tok)
    (5)
    (21 () 793)
    (22 () 767)
    (16 get-token)
    (24 0)
    767
    (26)
    (22 () 768)
    (16 open-paren-tok)
    (16 expect)
    (24 1)
    768
    (26)
    (22 () 769)
    (16 lookahead)
    (24 0)
    769
    (33)
    (21 () 787)
    (22 () 770)
    (16 lookahead)
    (24 0)
    770
    (13 "%d")
    (67)
    (21 () 781)
    (22 () 771)
    (16 get-token)
    (24 0)
    771
    (26)
    (22 () 772)
    (16 get-token)
    (24 0)
    772
    (26)
    (22 () 773)
    (14 1 0 level)
    (16 indent)
    (24 1)
    773
    (26)
    (13 "(__write_integer ")
    (39)
    (26)
    (22 () 774)
    (13 #t)
    (16 parse-expression)
    (24 1)
    774
    (26)
    (13 ")")
    (39)
    (26)
    (19 () 782)
    781
    (22 () 775)
    (14 1 0 level)
    (16 indent)
    (24 1)
    775
    (26)
    (13 "(begin")
    (39)
    (26)
    (40)
    (26)
    (22 () 776)
    (22 () 777)
    (22 () 778)
    (22 () 779)
    (16 get-token)
    (24 0)
    779
    (16 string->list)
    (24 1)
    778
    (16 get-4-chars)
    (24 1)
    777
    (14 1 0 level)
    (16 display-packed-string)
    (24 2)
    776
    (26)
    (13 ")")
    (39)
    (26)
    (22 () 780)
    (16 get-token)
    (24 0)
    780
    (26)
    782
    (19 () 788)
    787
    (22 () 783)
    (13 string_expected)
    (22 () 784)
    (16 lookahead)
    (24 0)
    784
    (16 log-error)
    (24 2)
    783
    (26)
    (22 () 785)
    (16 get-token)
    (24 0)
    785
    (26)
    (22 () 786)
    (16 get-token)
    (24 0)
    786
    (26)
    788
    (16 semi-colon-tok)
    (16 expect)
    (24 1)
    793
    (22 () 789)
    (14 0 0 token)
    (16 identifier?)
    (24 1)
    789
    (21 () 791)
    (22 () 790)
    (14 1 0 level)
    (16 indent)
    (24 1)
    790
    (26)
    (13 #f)
    (16 parse-expression)
    (24 1)
    791
    (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 () 811)
  (13 ())
  (23
    (18 1)
    (23
      (18 0)
      (22 () 812)
      (16 lookahead)
      (24 0)
      812
      (16 end-tok)
      (5)
      (8)
      (21 () 817)
      (22 () 813)
      (14 2 0 level)
      (16 parse-statement)
      (24 1)
      813
      (26)
      (22 () 814)
      (16 lookahead)
      (24 0)
      814
      (16 end-tok)
      (5)
      (8)
      (21 () 815)
      (40)
      (26)
      (19 () 816)
      815
      816
      (14 1 0 loop)
      (24 0)
      817
      (13 ())
      (25)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  811
  (24 0)
  (name parse-statements)
)
(17 parse-statements)
(26)
(23
  (18 1)
  (22 () 819)
  (16 get-token)
  (24 0)
  819
  (16 begin-tok)
  (5)
  (8)
  (21 () 821)
  (22 () 820)
  (13 expect_token)
  (16 begin-tok)
  (16 log-error)
  (24 2)
  820
  (26)
  (19 () 822)
  821
  822
  (22 () 823)
  (14 0 0 level)
  (16 parse-statements)
  (24 1)
  823
  (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 () 824)
    (16 lookahead-var)
    (24 0)
    824
    (21 () 826)
    (13 #t)
    (15 0 0 block-has-vars?)
    (26)
    (22 () 825)
    (13 #f)
    (16 parse-variable-definitions)
    (24 1)
    825
    (26)
    (19 () 827)
    826
    827
    (22 () 828)
    (13 3)
    (16 parse-statements)
    (24 1)
    828
    (26)
    (14 0 0 block-has-vars?)
    (21 () 829)
    (13 ")))")
    (39)
    (25)
    829
    (13 "))")
    (39)
    (25)
    (name ())
  )
  (24 1)
  (name parse-block)
)
(17 parse-block)
(26)
(23
  (18 0)
  (22 () 831)
  (16 integer-tok)
  (16 expect)
  (24 1)
  831
  (26)
  (22 () 832)
  (16 get-token)
  (24 0)
  832
  (13 ())
  (23
    (18 2)
    (14 0 0 name)
    (16 formal-parameters)
    (2)
    (17 formal-parameters)
    (26)
    (22 () 833)
    (16 lookahead)
    (24 0)
    833
    (16 open-bracket-tok)
    (5)
    (21 () 836)
    (22 () 834)
    (16 get-token)
    (24 0)
    834
    (26)
    (22 () 835)
    (16 close-bracket-tok)
    (16 expect)
    (24 1)
    835
    (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 () 837)
    836
    (14 0 0 name)
    (15 0 1 ret)
    (26)
    837
    (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 () 838)
    (22 () 839)
    (13 ())
    (23
      (18 1)
      (23
        (18 0)
        (22 () 840)
        (16 lookahead)
        (24 0)
        840
        (16 close-paren-tok)
        (5)
        (8)
        (21 () 846)
        (22 () 841)
        (16 parse-formal-parameter)
        (24 0)
        841
        (14 2 0 ret)
        (2)
        (15 2 0 ret)
        (26)
        (22 () 842)
        (16 lookahead)
        (24 0)
        842
        (16 comma-tok)
        (5)
        (21 () 844)
        (22 () 843)
        (16 get-token)
        (24 0)
        843
        (26)
        (13 " ")
        (39)
        (26)
        (14 1 0 loop)
        (24 0)
        844
        (13 ())
        (25)
        846
        (13 ())
        (25)
        (name loop)
      )
      (15 0 0 loop)
      (26)
      (14 0 0 loop)
      (25)
      (name ())
    )
    (24 1)
    839
    (24 0)
    838
    (26)
    (14 0 0 ret)
    (25)
    (name ())
  )
  (24 1)
  (name parse-formal-parameters)
)
(17 parse-formal-parameters)
(26)
(23
  (18 0)
  (22 () 848)
  (16 lookahead)
  (24 0)
  848
  (16 semi-colon-tok)
  (5)
  (25)
  (name forward?)
)
(17 forward?)
(26)
(22 () 849)
(16 make-hash)
(24 0)
849
(17 functions)
(26)
(22 () 850)
(16 functions)
(13 __put4chars)
(13 (x))
(16 hash-set!)
(24 3)
850
(22 () 851)
(16 functions)
(13 __write_int_digit)
(13 (x))
(16 hash-set!)
(24 3)
851
(22 () 852)
(16 functions)
(13 __write_integer)
(13 (x))
(16 hash-set!)
(24 3)
852
(22 () 853)
(16 functions)
(13 getchar)
(13 ())
(16 hash-set!)
(24 3)
853
(22 () 854)
(16 functions)
(13 putchar)
(13 (ch))
(16 hash-set!)
(24 3)
854
(22 () 855)
(16 functions)
(13 abs)
(13 (x))
(16 hash-set!)
(24 3)
855
(22 () 856)
(16 functions)
(13 exit)
(13 (n))
(16 hash-set!)
(24 3)
856
(23
  (18 1)
  (14 0 0 x)
  (4)
  (21 () 857)
  (16 functions)
  (14 0 0 x)
  (16 hash-ref)
  (24 2)
  857
  (13 #f)
  (25)
  (name function?)
)
(17 function?)
(26)
(23
  (18 0)
  (22 () 859)
  (16 get-token)
  (24 0)
  859
  (26)
  (22 () 860)
  (16 get-token)
  (24 0)
  860
  (23
    (18 1)
    (22 () 861)
    (16 open-paren-tok)
    (16 expect)
    (24 1)
    861
    (26)
    (40)
    (26)
    (22 () 862)
    (13 2)
    (16 indent)
    (24 1)
    862
    (26)
    (13 "(")
    (39)
    (26)
    (14 0 0 name)
    (39)
    (26)
    (40)
    (26)
    (22 () 863)
    (13 3)
    (16 indent)
    (24 1)
    863
    (26)
    (13 "(lambda (")
    (39)
    (26)
    (22 () 864)
    (16 functions)
    (14 0 0 name)
    (22 () 865)
    (22 () 866)
    (16 parse-formal-parameters)
    (24 0)
    866
    (16 reverse)
    (24 1)
    865
    (16 hash-set!)
    (24 3)
    864
    (26)
    (22 () 867)
    (16 close-paren-tok)
    (16 expect)
    (24 1)
    867
    (26)
    (13 ")")
    (39)
    (26)
    (40)
    (26)
    (22 () 868)
    (16 forward?)
    (24 0)
    868
    (21 () 872)
    (22 () 869)
    (16 semi-colon-tok)
    (16 expect)
    (24 1)
    869
    (26)
    (13 "__forward))")
    (39)
    (26)
    (40)
    (25)
    872
    (22 () 870)
    (16 begin-tok)
    (16 expect)
    (24 1)
    870
    (26)
    (22 () 871)
    (14 0 0 name)
    (16 parse-block)
    (24 1)
    871
    (26)
    (16 end-tok)
    (16 expect)
    (24 1)
    (name ())
  )
  (24 1)
  (name parse-function)
)
(17 parse-function)
(26)
(23
  (18 0)
  (22 () 874)
  (16 get-token)
  (24 0)
  874
  (26)
  (22 () 875)
  (16 get-token)
  (24 0)
  875
  (23
    (18 1)
    (22 () 876)
    (16 open-paren-tok)
    (16 expect)
    (24 1)
    876
    (26)
    (40)
    (26)
    (22 () 877)
    (13 2)
    (16 indent)
    (24 1)
    877
    (26)
    (13 "(")
    (39)
    (26)
    (14 0 0 name)
    (39)
    (26)
    (40)
    (26)
    (22 () 878)
    (13 3)
    (16 indent)
    (24 1)
    878
    (26)
    (13 "(lambda (")
    (39)
    (26)
    (22 () 879)
    (16 functions)
    (14 0 0 name)
    (22 () 880)
    (22 () 881)
    (16 parse-formal-parameters)
    (24 0)
    881
    (16 reverse)
    (24 1)
    880
    (16 hash-set!)
    (24 3)
    879
    (26)
    (22 () 882)
    (16 close-paren-tok)
    (16 expect)
    (24 1)
    882
    (26)
    (13 ")")
    (39)
    (26)
    (40)
    (26)
    (22 () 883)
    (16 forward?)
    (24 0)
    883
    (21 () 887)
    (22 () 884)
    (16 semi-colon-tok)
    (16 expect)
    (24 1)
    884
    (26)
    (13 "__forward))")
    (39)
    (26)
    (40)
    (25)
    887
    (22 () 885)
    (16 begin-tok)
    (16 expect)
    (24 1)
    885
    (26)
    (22 () 886)
    (14 0 0 name)
    (16 parse-block)
    (24 1)
    886
    (26)
    (16 end-tok)
    (16 expect)
    (24 1)
    (name ())
  )
  (24 1)
  (name parse-procedure)
)
(17 parse-procedure)
(26)
(23
  (18 0)
  (22 () 889)
  (13 ())
  (23
    (18 1)
    (23
      (18 0)
      (22 () 890)
      (22 () 891)
      (16 lookahead-procedure)
      (24 0)
      891
      (23
        (18 1)
        (14 0 0 g:::42)
        (21 () 892)
        (14 0 0 g:::42)
        (25)
        892
        (16 lookahead-function)
        (24 0)
        (name ())
      )
      (24 1)
      890
      (21 () 899)
      (22 () 894)
      (16 lookahead-procedure)
      (24 0)
      894
      (21 () 897)
      (22 () 895)
      (16 parse-procedure)
      (24 0)
      895
      (26)
      (19 () 898)
      897
      (22 () 896)
      (16 parse-function)
      (24 0)
      896
      (26)
      898
      (14 1 0 loop)
      (24 0)
      899
      (13 ())
      (25)
      (name loop)
    )
    (15 0 0 loop)
    (26)
    (14 0 0 loop)
    (25)
    (name ())
  )
  (24 1)
  889
  (24 0)
  (name parse-procedures-and-functions)
)
(17 parse-procedures-and-functions)
(26)
(23
  (18 0)
  (22 () 901)
  (13 2)
  (16 indent)
  (24 1)
  901
  (26)
  (13 "(__put4chars")
  (39)
  (26)
  (40)
  (26)
  (22 () 902)
  (13 3)
  (16 indent)
  (24 1)
  902
  (26)
  (13 "(lambda (x)")
  (39)
  (26)
  (40)
  (26)
  (22 () 903)
  (13 3)
  (16 indent)
  (24 1)
  903
  (26)
  (13 "(putchar (shr x 24))")
  (39)
  (26)
  (40)
  (26)
  (22 () 904)
  (13 3)
  (16 indent)
  (24 1)
  904
  (26)
  (13 "(putchar (bitwise-and (shr x 16) 255))")
  (39)
  (26)
  (40)
  (26)
  (22 () 905)
  (13 3)
  (16 indent)
  (24 1)
  905
  (26)
  (13 "(putchar (bitwise-and (shr x 8) 255))")
  (39)
  (26)
  (40)
  (26)
  (22 () 906)
  (13 3)
  (16 indent)
  (24 1)
  906
  (26)
  (13 "(putchar (bitwise-and x 255))")
  (39)
  (26)
  (40)
  (26)
  (22 () 907)
  (13 3)
  (16 indent)
  (24 1)
  907
  (26)
  (13 "(return-from-procedure)))")
  (39)
  (26)
  (40)
  (25)
  (name include-put4chars)
)
(17 include-put4chars)
(26)
(23
  (18 0)
  (22 () 908)
  (13 2)
  (16 indent)
  (24 1)
  908
  (26)
  (13 "(__write_int_digit")
  (39)
  (26)
  (40)
  (26)
  (22 () 909)
  (13 3)
  (16 indent)
  (24 1)
  909
  (26)
  (13 "(lambda (n)")
  (39)
  (26)
  (40)
  (26)
  (22 () 910)
  (13 3)
  (16 indent)
  (24 1)
  910
  (26)
  (13 "(if (__test (> n 0))")
  (39)
  (26)
  (40)
  (26)
  (22 () 911)
  (13 4)
  (16 indent)
  (24 1)
  911
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 912)
  (13 5)
  (16 indent)
  (24 1)
  912
  (26)
  (13 "(__write_int_digit (quotient n 10))")
  (39)
  (26)
  (40)
  (26)
  (22 () 913)
  (13 5)
  (16 indent)
  (24 1)
  913
  (26)
  (13 "(putchar (+ (remainder n 10) 48))))")
  (39)
  (26)
  (40)
  (26)
  (22 () 914)
  (13 3)
  (16 indent)
  (24 1)
  914
  (26)
  (13 "(return-from-procedure)))")
  (39)
  (26)
  (40)
  (25)
  (name include-write-int-digit)
)
(17 include-write-int-digit)
(26)
(23
  (18 0)
  (22 () 915)
  (13 2)
  (16 indent)
  (24 1)
  915
  (26)
  (13 "(__write_integer")
  (39)
  (26)
  (40)
  (26)
  (22 () 916)
  (13 3)
  (16 indent)
  (24 1)
  916
  (26)
  (13 "(lambda (n)")
  (39)
  (26)
  (40)
  (26)
  (22 () 917)
  (13 3)
  (16 indent)
  (24 1)
  917
  (26)
  (13 "(if (__test (= n 0))")
  (39)
  (26)
  (40)
  (26)
  (22 () 918)
  (13 4)
  (16 indent)
  (24 1)
  918
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 919)
  (13 5)
  (16 indent)
  (24 1)
  919
  (26)
  (13 "(putchar 48)")
  (39)
  (26)
  (40)
  (26)
  (22 () 920)
  (13 5)
  (16 indent)
  (24 1)
  920
  (26)
  (13 "(return-from-procedure)))")
  (39)
  (26)
  (40)
  (26)
  (22 () 921)
  (13 3)
  (16 indent)
  (24 1)
  921
  (26)
  (13 "(if (__test (< n 0))")
  (39)
  (26)
  (40)
  (26)
  (22 () 922)
  (13 4)
  (16 indent)
  (24 1)
  922
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 923)
  (13 5)
  (16 indent)
  (24 1)
  923
  (26)
  (13 "(putchar 45)")
  (39)
  (26)
  (40)
  (26)
  (22 () 924)
  (13 5)
  (16 indent)
  (24 1)
  924
  (26)
  (13 "(if (__test (&& (= (bitwise-and n 65535) 0) (= (shr n 16) (- 32768))))")
  (39)
  (26)
  (40)
  (26)
  (22 () 925)
  (13 6)
  (16 indent)
  (24 1)
  925
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 926)
  (13 7)
  (16 indent)
  (24 1)
  926
  (26)
  (13 "(begin")
  (39)
  (26)
  (40)
  (26)
  (22 () 927)
  (13 7)
  (16 indent)
  (24 1)
  927
  (26)
  (13 "(__put4chars 842085431)")
  (39)
  (26)
  (40)
  (26)
  (22 () 928)
  (13 7)
  (16 indent)
  (24 1)
  928
  (26)
  (13 "(__put4chars 876098358)")
  (39)
  (26)
  (40)
  (26)
  (22 () 929)
  (13 7)
  (16 indent)
  (24 1)
  929
  (26)
  (13 "(putchar 52)")
  (39)
  (26)
  (40)
  (26)
  (22 () 930)
  (13 7)
  (16 indent)
  (24 1)
  930
  (26)
  (13 "(putchar 56))")
  (39)
  (26)
  (40)
  (26)
  (22 () 931)
  (13 7)
  (16 indent)
  (24 1)
  931
  (26)
  (13 "(return-from-procedure)))")
  (39)
  (26)
  (40)
  (26)
  (22 () 932)
  (13 5)
  (16 indent)
  (24 1)
  932
  (26)
  (13 "(__write_int_digit (- n)))")
  (39)
  (26)
  (40)
  (26)
  (22 () 933)
  (13 4)
  (16 indent)
  (24 1)
  933
  (26)
  (13 "(__write_int_digit n))")
  (39)
  (26)
  (40)
  (26)
  (22 () 934)
  (13 3)
  (16 indent)
  (24 1)
  934
  (26)
  (13 "(return-from-procedure)))")
  (39)
  (26)
  (40)
  (25)
  (name include-write-integer)
)
(17 include-write-integer)
(26)
(23
  (18 0)
  (22 () 935)
  (16 initialize-lex)
  (24 0)
  935
  (26)
  (22 () 936)
  (16 parse-includes-and-defines)
  (24 0)
  936
  (26)
  (22 () 937)
  (16 lookahead-var)
  (24 0)
  937
  (21 () 939)
  (22 () 938)
  (13 #t)
  (16 parse-variable-definitions)
  (24 1)
  938
  (26)
  (19 () 940)
  939
  940
  (22 () 941)
  (13 1)
  (16 indent)
  (24 1)
  941
  (26)
  (13 "(letrec (")
  (39)
  (26)
  (40)
  (26)
  (22 () 942)
  (16 include-put4chars)
  (24 0)
  942
  (26)
  (22 () 943)
  (16 include-write-int-digit)
  (24 0)
  943
  (26)
  (22 () 944)
  (16 include-write-integer)
  (24 0)
  944
  (26)
  (22 () 945)
  (22 () 946)
  (16 lookahead-procedure)
  (24 0)
  946
  (23
    (18 1)
    (14 0 0 g:::43)
    (21 () 947)
    (14 0 0 g:::43)
    (25)
    947
    (16 lookahead-function)
    (24 0)
    (name ())
  )
  (24 1)
  945
  (21 () 950)
  (22 () 949)
  (16 parse-procedures-and-functions)
  (24 0)
  949
  (26)
  (19 () 951)
  950
  951
  (22 () 952)
  (16 get-token)
  (24 0)
  952
  (7)
  (8)
  (21 () 954)
  (22 () 953)
  (13 rest_of_program_ignored)
  (13 ())
  (16 log-error)
  (24 2)
  953
  (26)
  (19 () 955)
  954
  955
  (13 ")")
  (39)
  (26)
  (40)
  (26)
  (13 "    (main)")
  (39)
  (26)
  (22 () 956)
  (16 global-variables)
  (13 0)
  (16 empty-hash-table?)
  (24 2)
  956
  (21 () 957)
  (13 ")")
  (39)
  (26)
  (19 () 958)
  957
  (13 "))")
  (39)
  (26)
  958
  (40)
  (25)
  (name parse-program)
)
(17 parse-program)
(26)
(22 () 959)
(16 parse-program)
(24 0)
959
(80)
)
