byte code for tam-free:
  args: (arg1 arg2)
0	stack-ref 1
1	stack-ref 1
2	stack-ref 1
3	dup
4	stack-ref 2
5	stack-ref 1
6	dup
7	constant  3
8	aref
9	stack-set 1
11	stack-ref 1
12	aref
13	discardN-preserve-tos 2
15	stack-ref 1
16	dup
17	constant  5
18	aref
19	stack-set 1
21	stack-ref 1
22	dup
23	constant  2
24	aref
25	stack-set 1
27	constant  nil
28	dup
29	stack-ref 4
30	dup
31	constant  3
32	aref
33	stack-set 1
35	goto-if-not-nil 1
38	constant  signal
39	constant  tam-already-free
40	constant  format
41	constant  "Attempt to free unused table entry %s"
42	stack-ref 6
44	call	  2
45	call	  2
46	discard
47:1	stack-ref 4
48	dup
49	constant  5
50	aref
51	stack-set 1
53	stack-set 2
55	stack-ref 4
56	dup
57	constant  4
58	aref
59	stack-set 1
61	stack-set 1
63	stack-ref 4
64	constant  nil
65	stack-ref 1
66	constant  4
67	stack-ref 2
68	aset
69	discardN  3
71	stack-ref 1
72	goto-if-nil 2
75	stack-ref 1
76	stack-ref 1
77	stack-ref 1
78	constant  4
79	stack-ref 2
80	aset
81	discardN  3
83	goto	  3
86:2	stack-ref 5
87	stack-ref 1
88	stack-ref 1
89	constant  6
90	stack-ref 2
91	aset
92	discardN  3
94:3	dup
95	goto-if-nil 4
98	dup
99	stack-ref 2
100	stack-ref 1
101	constant  5
102	stack-ref 2
103	aset
104	discardN  3
106	goto	  5
109:4	stack-ref 5
110	stack-ref 2
111	stack-ref 1
112	constant  7
113	stack-ref 2
114	aset
115	discardN  3
117:5	stack-ref 3
118	goto-if-nil 6
121	stack-ref 3
122	stack-ref 5
123	stack-ref 1
124	constant  4
125	stack-ref 2
126	aset
127	discardN  3
129	stack-ref 4
130	stack-ref 4
131	stack-ref 1
132	constant  5
133	stack-ref 2
134	aset
135	discardN  3
137	goto	  7
140:6	stack-ref 5
141	stack-ref 5
142	stack-ref 1
143	constant  4
144	stack-ref 2
145	aset
146	discardN  3
148	stack-ref 4
149	constant  nil
150	stack-ref 1
151	constant  5
152	stack-ref 2
153	aset
154	discardN  3
156:7	stack-ref 5
157	stack-ref 5
158	stack-ref 1
159	constant  5
160	stack-ref 2
161	aset
162	discardN  3
164	stack-ref 4
165	constant  nil
166	stack-ref 1
167	constant  3
168	stack-ref 2
169	aset
170	discardN  3
172	stack-ref 5
173	dup
174	dup
175	constant  2
176	aref
177	stack-set 1
179	sub1
180	stack-ref 1
181	constant  2
182	stack-ref 2
183	aset
184	discardN  7
186	stack-set 1
188	constant  nil
189	stack-ref 1
190	dup
191	constant  6
192	aref
193	stack-set 1
195	stack-set 1
197	stack-ref 1
198	constant  nil
199	stack-ref 1
200	constant  6
201	stack-ref 2
202	aset
203	discardN  3
205	return