1 #### Test tail calls using many arguments
5 format: string "%d\n\x00"
14 function count a b c d e f g h i j k l m n o p q r s t
35 let result call many_args_tail count a b c d e f g h i j k l \
57 call printf format newa
58 call printf format newb
59 call printf format newc
60 call printf format newd
61 call printf format newe
62 call printf format newf
63 call printf format newg
64 call printf format newh
65 call printf format newi
66 call printf format newj
67 call printf format newk
68 call printf format newl
69 call printf format newm
70 call printf format newn
71 call printf format newo
72 call printf format newp
73 call printf format newq
74 call printf format newr
75 call printf format news
76 call printf format newt
82 function count a b c d e f g h i j k l m n o p q r s t
86 set result add result a
87 set result add result b
88 set result add result c
89 set result add result d
90 set result add result e
91 set result add result f
92 set result add result g
93 set result add result h
94 set result add result i
95 set result add result j
96 set result add result k
97 set result add result l
98 set result add result m
99 set result add result n
100 set result add result o
101 set result add result p
102 set result add result q
103 set result add result r
104 set result add result s
105 set result add result t
109 let newcount sub count 1
131 tail-call many_args_tail newcount newa newb newc newd newe newf newg newh \
132 newi newj newk newl newm newn newo newp newq newr news newt
138 let x call compute 1000000 1 2 3 4 5 6 7 8 9 10 11 \
139 12 13 14 15 16 17 18 19 20
141 call printf format argc